>
|
<%=Rs("name")%>
|
|
|
|
来自<%=rs("from")%>
|
|
>
话题:<%=LyTitle%>
<%if LyType1="wa" Then%>
<%if LyType2="se" then%>
| 等待阅读 |
<%else%>
| 稍后显示 |
<%end if%>
<%else%>
<%end if%>
<%if rs("top")="9" then%>↑ 置 顶<%end if%>
|
<%if request.cookies("UserInfo2tp88")("sjm88")="" then%>
<%=rs("date")%>
<%else%>
<%end if%> |
|
>
<% if rs("reply")<>"" then %>
<%
if Session("PRO"&LogPWD&"ADMIN")<>True and LyType2="se" then
if UserName<>rs("name") or UserPwd<>rs("psw") then
%>
| 回复:
< 查看 > |
<%else%>
| 回复:
<%=ubb(Rs("reply"))%> [ → 退出查看 ]
|
<%end if%>
<%else%>
| 回复:
<%=ubb(Rs("reply"))%> |
<%end if%>
<%end if%>
| >
|
|
<%
Rs.MoveNext
if rs.eof then exit for
next
else
response.write "没有留言记录
"
End IF
Rs.Close
Set Rs=Nothing
%>
| <%if name2=snr then%>查询有关 <%=name2%> 的所有内容
|
→ [ 返回留言首页 ]
<%end if%>
|
|
留言 <%=totally%> 条.共 <%=maxpage%> 页
[
<%
PageJ
%>
]
→ [ 我要留言 ] |
<%
bottom
Function BzNotice
%>
<%END Function
Function PageJ
ii=requestpage-4
iii=requestpage+4
if ii < 1 then
ii=1
end if
if iii > maxpage then
iii=maxpage
end if
if requestpage > 5 then
if Request("search")="" then
Response.Write "1 ... "
else
Response.Write "1 ... "
end if
end if
for ai=ii to iii
if ai<>requestpage then
if Request("search")="" then
Response.Write ""&ai&" "
else
Response.Write ""&ai&" "
end if
else
Response.Write ""&ai&" "
end if
Next
if maxpage > requestpage+4 then
if Request("search")="" then
Response.Write "..."&maxpage&" "
else
Response.Write "..."&maxpage&" "
end if
end if
END Function
Function SqlType
if Request("search")="" then
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From gb Order BY top desc, id DESC "
Rs.Open Sql,conn,1,1
else
snr=Request("snr")
stype=Request("stype")
if snr="" then
if Request("search")="myliuyan" then
response.write ""
response.end
else
response.write ""
response.end
end if
end if
if stype<>"" then
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From gb where "&stype&" like '%" &snr& "%' Order BY top desc, id DESC "
Rs.Open Sql,conn,1,1
else
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From gb where name like '%" &snr& "%' or content like '%" &snr& "%' or title like '%" &snr& "%' Order BY top desc, id DESC "
Rs.Open Sql,conn,1,1
end if
end if
End Function
%>
<% '---------以下查询IP数据库加速---------- %>
|