📄 default.asp
字号:
<!--#include file="_conn.asp" -->
<%
Dim id,Sql,Rs,I,T,L,Z
id=request("id")
Call Header(id)
%>
<div id="main">
<script type="text/javascript" src="inc/index.js"></script>
<%
If id="" Then
Sql="Select * From LOVE Order By ID DESC"
Else
Sql="Select * From LOVE Where ID<="&CLng(id)&" Order By ID DESC"
End If
Set Rs=Conn.Execute(Sql)
Rs.PageSize=PAGE_SIZE
Randomize
For I=1 To Rs.PageSize
If Rs.Eof Then Exit For
T=Int(380*Rnd+120)
L=Int(740*Rnd+10)
Z=Rs.PageSize-I
Response.Write "<div id=""Layer"&Rs("ID")&""" class=""Face"&Rs("Face")&""" style=""top:"&T&"px;left:"&L&"px;z-index:"&Z&""" onmousedown=""Move(this,event)"" ondblclick=""Show("&Rs("ID")&")""><p class=""Num"">字条编号:"&Rs("ID")&"<img src=""images/close.gif"" alt=""关闭"" onclick=""Close("&Rs("ID")&")"" /></p><p class=""Detail""><img alt="""" src=""images/icon"&Rs("Icon")&".gif"" /><span class=""Head"">"&Rs("Pick")&"</span><br />"&Rs("Info")&"</p><p class=""Sign"">"&Rs("Send")&"</p><p class=""Date"">"&Rs("PostDate")&"</p></div>"
Rs.MoveNext
Next
Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
%>
</div>
<%
Call Footer()
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -