<% Option Explicit response.buffer=True '敏感字词过滤(,) Const BAN_LIST="江泽民,胡锦涛,温家宝,共产党,法轮,fuck,操,sex,强奸,日你,性交,艳门照" '发帖间隔时间(秒) Const KEEP_TIME=60 '首页显示条数 Const PAGE_SIZE=50 '列表显示条数 Const LOVE_SIZE=15 Dim db db="_lovewall.asa" '数据库路径 Dim conn Set conn=server.CreateObject("ADODB.CONNECTION") conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db) Sub Header(title) %> 爱墙-许愿-祝福 <%=title%> <% End Sub Sub Footer() %> <% If request("id") Then response.write "" End Sub %> <% Dim id,Sql,Rs,I,T,L,Z id=request("id") Call Header(id) %>
<% 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 "

许愿编号："&Rs("ID")&"

"&Rs("Pick")&"
"&Rs("Info")&"

"&Rs("Send")&"

"&Rs("PostDate")&"

" Rs.MoveNext Next Rs.Close Set Rs=Nothing Conn.Close Set Conn=Nothing %>
<% Call Footer() %>