?? 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 + -