|
|
|
|
| ****************************************
| | 2018/10/11 | | | 华东销售额：网站中留言和问题元 |
|
1.留言后，如何关闭网页，或跳转。 2.留言及滚动公告致词更改不方便，要有后台管理。思路：单独出来文件，设后台 3.公告文字大小及字体。 4.留言致词的字体及大小。 |
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2018/10/10 | | | 华东销售额：日记，打开列表链接元 |
|
日记，打开列表链接 1.尝试修改了数据库，失败 2.准备重新写一个（网上查，asp读取数据库id） 3.修改index（参考对比mulu_txt.asp）
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2018/10/9 | | | 华东销售额：asp语句，使列表添加链接元 |
|
<tr><td>
<a href="liyu_txt.asp?id=<%= rs("id") %>" target="_blank"> 这里使列表添加链接
《 添加书引号
<%=rs("title")%>》</a></td><td width=100><%=rs("date")%></td></tr>
备注：使用时去掉中文和空格，连起来 <tr><td><a href="liyu_txt.asp?id=<%= rs("id") %>" target="_blank">《<%=rs("title")%>》</a></td><td width=100><%=rs("date")%></td></tr> 这里可以<a ......... </a>
原来未加链接<tr><td><a>《</a><%=rs("title")%><a>》</a></td><td width=100><%=rs("date")%></td></tr> |
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2018/10/9 | | | 华东销售额：阿里云服务器登陆密码元 |
|
阿里云服务器登陆密码：： A4*****9hjt |
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2018/10/9 | | | 华东销售额：日记2做了登陆修改，只验证密码元 |
|
日记2做了登陆修改，只验证密码 |
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2018/10/9 | | | 华东销售额：发现日记中绕过身份验证的方法元 |
|
发现日记中绕过身份验证的方法：
<a href="index.asp"><%=title%></a><%if session("admin")<>"" then%> | <a href=index.asp?go=add>添加日记</a> | <a href=index.asp?go=data>修改资料</a> | <a href=index.asp?action=out>安全退出</a><%else %>
| <a href=index.asp?go=add>添加日记-添加这里</a>
| <a href=index.asp?go=login>管理登陆</a><%end if%> |
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2018/10/9 | | | 华东销售额：修改了日记，增加标题列表，设想元 |
|
1.去掉了身份验证（无，直接登陆）。 2.只读取显示标题（title），还需增加链接。思路：新建一个文件（txt.asp），通过标题目录（mulu.asp）打开。参考17的《两个人的日记》。数据库读取content. 3.增加了列表链接（mulu.asp），去掉了修改资料（身份认证修改） 4.准备增加列表搜索功能（估计是通过数据库或网页函数ja） |
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2018/10/7 | 晴天 | | 华东销售额：vba自动生成表格元 |
|
Sub 自动生成表格()
Rem 设置单元格内字体、颜色、大小
Dim rng As Range
Y = ActiveCell.SpecialCells(xlLastCell).address
With Range("A1:" & Y).Font
.Name = "黑体"
.FontStyle = "Bold"
.Size = 24
End With
With Range("A2:" & Y).Font
.Name = "仿宋_GB2312"
.Size = 12
.Underline = 2
End With
With Range("A3:" & Y).Font
.Name = "仿宋_GB2312"
.Size = 10
End With
Rem 设置行高、列宽
With Range("A1")
.RowHeight = Application.CentimetersToPoints(1.2)
.ColumnWidth = Application.CentimetersToPoints(0.5)
End With
With Range("A2")
.RowHeight = Application.CentimetersToPoints(1)
End With
With Range("A3")
.RowHeight = Application.CentimetersToPoints(0.6)
End With
Rem 画边框
Set rng = Range("a3:" & Y)
With rng.Borders
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
rng.BorderAround xlContinuous, xlMedium, 5
Set rng = Nothing
End Sub
|
|
|
|
|
|
|