%
set rs=conn.execute("select top 1 * from admin")
webmc=rs("wzmc")
bq=rs("bq")
sh=rs("sh")
fyts=clng(rs("fyts"))
if fyts=0 then fyts=5
rs.clsoe:set rs=nothing
Function IsSelfRefer()
Dim sHttp_Referer, sServer_Name
sHttp_Referer = CStr(Request.ServerVariables("HTTP_REFERER"))
sServer_Name = CStr(Request.ServerVariables("SERVER_NAME"))
If Mid(sHttp_Referer, 8, Len(sServer_Name)) = sServer_Name Then
IsSelfRefer = True
Else
IsSelfRefer = False
End If
End Function
function getip(ip)
strIpArr = Split(ip,".")
strGetUserIP = strIpArr(0)
strGetUserIP = strGetUserIP & "." & strIpArr(1)
strGetUserIP = strGetUserIP & "." & strIpArr(2)
strGetUserIP = strGetUserIP & ".*"
getip=strGetUserIP
end function
'創建對象
Set mypage=new xdownpage
'得到數據庫連接
mypage.getconn=conn
'sql語句
if sh=1 then
mypage.getsql="select * from book where sh=1 order by zd desc, id desc"
else
mypage.getsql="select * from book order by zd desc, id desc"
end if
'設置每一頁的記錄條數據為5條
mypage.pagesize=fyts
'返回Recordset
set rs=mypage.getrs()
'顯示分頁信息,這個方法可以,在set rs=mypage.getrs()以后,可在任意位置調用,可以調用多次
%>
<%
for i=1 to mypage.pagesize
if not rs.eof then
title=gotTopic(rs("TITLE"),100)
lyhf=rs("hf")
if lyhf<>"" then
lyhf=lyhf
else
if rs("sh")=1 then
lyhf="留言已審核 暫無回復!"
else
lyhf="留言處理中!"
end if
end if
response.write"