|
|
|
|
| ****************************************
| | 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 | 《阿里云服务器登陆密码》 |
|
阿里云服务器登陆密码： 账号：lk2lklk 密码：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
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2018/10/3 | 《在asp（App）中，打开网页》 |
|
在asp（App）中，打开网页 <a href="LyTXT/显示留言.html">点我</a>
|
|
|
|
|
|
|