日记首页  | 列表 | 添加日记  | 管理登陆
****************************************
2018/10/9阿里云服务器登陆密码

阿里云服务器登陆密码::

A4*****9hjt

****************************************
2018/10/9日记2做了登陆修改,只验证密码
日记2做了登陆修改,只验证密码
****************************************
2018/10/9发现日记中绕过身份验证的方法

发现日记中绕过身份验证的方法:


&nbsp;<a href="index.asp"><%=title%></a><%if session("admin")<>"" then%>&nbsp;|&nbsp;<a href=index.asp?go=add>添加日记</a>&nbsp;|&nbsp;<a href=index.asp?go=data>修改资料</a>&nbsp;|&nbsp;<a href=index.asp?action=out>安全退出</a><%else

%>&nbsp;


|&nbsp;<a href=index.asp?go=add>添加日记-添加这里</a>&nbsp;


|&nbsp;<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/8怎么实现远程桌面多用户连接?

怎么实现远程桌面多用户连接?

https://jingyan.baidu.com/article/37bce2be1b52d71002f3a2bc.html

****************************************
2018/10/7迅捷流程图

迅捷在线流程图

http://app.liuchengtu.com/

****************************************
2018/10/7vba自动生成表格
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>

****************************************
2018/9/29浦发
浦发:
账单日:22日
还款日:12日
  
****************************************
2018/9/28APP在线制作
一门APP
https://www.yimenapp.com/developer/app.cshtml?id=105478
  共有日记30篇,每页10篇,分1/3页   9首页 3上页 下页4 尾页: