📄 index.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="char.asp"-->
<script language="vbscript" runat="server">
Response.Buffer=True
'*****************************************************************注意。显示分页程序的过程
Public Sub showpage()
'---------------------->显示分页！！！
Response.write("<form name=form1 method=post action="&gotopage&" onsubmit=""return xxg()"">")
Response.Write("<table align=""center"" width=""98%"" border=""0"" height=""20"">")
Response.Write("<tr><td width=""723"" height=""14""align=""center"">")
Response.Write("共<font color=red>"&rs.recordcount&"</font>条留言 <font color=red>"&maxsize&"</font>/每页 ")
Response.Write("当前<font color=red>"¤tpage&"/"&pagenum&"</font>页 ")
If currentpage-1>0 Then
Response.Write("<a href="&gotopage&">首页</a> ")
Response.Write("<a href="&gotopage&"?page="&(currentpage-1)&">上一页</a> ")
Else
Response.Write("<font color=#BBBBBB>首页 上一页 </font>")
End If
If currentpage<>pagenum Then
Response.Write("<a href="&gotopage&"?page="&(currentpage+1)&">下一页</a> ")
Response.Write("<a href="&gotopage&"?page="&pagenum&">尾页</a> ")
Else
Response.Write("<font color=#BBBBBB>下一页 尾页 </font>")
End If
Response.Write("转到：")
Response.Write("<input class=smallInput maxlength=10 name=page size=4 value="¤tpage&">")
Response.Write(" <input class=buttonface name=""submit"" type=submit value=GO>")
Response.Write("</td><td width=""11"" height=""14""> </td></tr></table></form>")
End Sub
'************************显示留言内容*******************************************************
public sub main()
do while not rs.eof
Response.Write("<TABLE cellPadding=0 cellSpacing=0 height=129 width="&bodywidth&" align=""center"" class=""table002"">")
Response.Write("<tr>")
Response.Write("<td width=""151"" height=""9"" align=""center"" class=""indextd"">留言作者信息</td>")
Response.Write("<td width=""597"" height=""9""><table width=""100%"" border=""0"" cellspacing=""4"" cellpadding=""0"">")
Response.Write("<tr>")
Response.Write("<td> ")
If rs("mail")<>"" then
Response.Write("<a href=mailto:"&rs("mail")&" title="&rs("user")&"的信箱是："&rs("mail")&"><img src=""images/mail.gif"" width=""16"" height=""16"" border=""0"" align=""absmiddle""> 邮箱</a> ")
Else
Response.Write("<img src=""images/mail1.gif"" align=""absmiddle""> <font color=#666666>信箱</font> ")
End if
If rs("url")<>"" and rs("url")<>"http://" then
Response.Write("<a href="&rs("url")&" title=到"&rs("user")&"的主页去看看吧！ target=_blank><img src=""images/home.gif"" width=""16"" height=""16"" border=""0"" align=""absmiddle""> 主页</a> ")
Else
Response.Write("<img src=""images/home1.gif"" width=""16"" height=""16"" border=""0"" align=""absmiddle""> <font color=#666666>主页</font> ")
End if
If rs("QQ")<>"" then
Response.Write("<a href=http://search.tencent.com/cgi-bin/friend/user_show_info?ln="&rs("QQ")&" title="&rs("user")&"的QQ号是："&rs("QQ")&" target=""_blank""><img src=""images/qq.gif"" width=""16"" height=""16"" border=""0"" align=""absmiddle""> OICQ</a> ")
Else
Response.Write("<img src=""images/qq1.gif"" width=""16"" height=""16"" border=""0"" align=""absmiddle""> <font color=#666666>OICQ</font> ")
End if
If showIP = true Then
Response.Write("<img src=""images/ip.gif"" width=""16"" height=""15"" align=""absmiddle"">"&rs("ip")&" ")
Else
Response.Write("<a href=""Javascript:openWindow('viewip.asp?id="&rs("ID")&"')""><img src=""images/ip.gif"" width=""16"" height=""16"" border=""0"" width=""16"" height=""15"" align=""absmiddle""> I P</a> ")
End If
Response.Write("<a href=""search.asp""><img src=""images/search.gif"" width=""16"" height=""16"" border=""0"" align=""absmiddle""> 留言搜索</a> ")
Response.Write("<a href=""write.asp""><img src=""images/write.gif"" width=""16"" height=""16"" border=""0"" align=""absmiddle""> 我要留言</a> ")
If session("kenanbook")<>"" Then
Response.Write("<a href=""loginout.asp"" onClick=""rusure(); return false;""><img src=""images/loginout.gif"" width=""16"" height=""16"" border=""0"" align=""absmiddle""> 退出管理</a> ")
End If
Response.Write("</td>")
Response.Write("</tr>")
Response.Write("</table>")
Response.Write("<table width=""100%"" height=""1"" border=""0"" cellpadding=""0"" cellspacing=""0"">")
Response.Write("<tr><td height=""1"" class=""indextd2""><img src=""images/space.gif"" height=""1""></td></tr></table>")
Response.Write("</td> </tr><tr>")
Response.Write("<td height=""79"" rowspan=""2"" align=""center"" valign=""top"" class=""indextd"">")
Response.Write("<img src="&rs("face")&" align=""top""><br><br>")
Response.Write("<TABLE class=""namefilter"">")
Response.Write(" <FONT color=#ffffff>"&rs("user")&"</FONT> </TABLE> <br>")
Response.Write("来自"&rs("adress"))
If rs("sex")="帅哥" Then
Response.Write("<img src=images/boy.gif border=0 title="&rs("sex")&">")
Else
Response.Write("<img src=images/girl.gif border=0 title="&rs("sex")&">")
End If
Response.Write("</td>")
Response.Write("<td width=""597"" height=""80""> <table border=""0"" cellspacing=""6"" cellpadding=""0"" style=""TABLE-LAYOUT: fixed"" align=""left"">")
Response.Write("<tr>")
Response.Write("<td style=""LEFT: 20px; WIDTH: 100%; WORD-WRAP: break-word"" width=""417""><img src=""IMAGES/profile.gif"" width=""16"" height=""16""> ")
Response.Write("<img src=title/face" & rs("em") & ".gif><b>"&rs("title")&"</b><br>")
If rs("hide")=0 Then
Response.Write(ubbcode(rs("content")))
Else
If session("kenanbook")<>"" Then
Response.Write("<b>这是一点悄悄话... ...<br></b>"&ubbcode(rs("content")))
Else
Response.Write("<table width=""80%"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td align=""center"">")
Response.Write("<hr align=""center"" width=""90%"" size=""1"" noshade>")
Response.Write("<a href=""login.asp"">这是留给站长的一点悄悄话... ...</a>")
Response.Write("<hr align=""center"" width=""90%"" size=""1"" noshade>")
Response.Write("</tr></table>")
End If
End If
If rs("reply")<>"" Then
Response.Write("<fieldset style=""padding: 2; width:480;""> <legend>站长回复</legend> <b><img src=""IMAGES/replynow.gif"" width=""16"" height=""16"" border=""0"">"&rs("replytitle")&"</b><br>")
Response.Write(ubbcode(rs("reply")) & "<br><div align=right>回复日期:" & rs("time2") & "</div></fieldset>")
End if
Response.Write("</td>")
Response.Write("</tr>")
Response.Write("</table></td></tr>")
Response.Write("<tr>")
Response.Write("<td width=""597"" height=""2"" align=""right""><table width=""100%"" height=""1"" border=""0"" cellpadding=""0"" cellspacing=""0"">")
Response.Write("<tr><td height=""1"" class=""indextd2""><img src=""images/space.gif"" height=""1""></td></tr></table>")
Response.Write("<table width=""100%"" border=""0"" cellspacing=""2"" cellpadding=""0"">")
Response.Write("<tr>")
Response.Write("<td width=""53%"" height=""19""> <img src=""images/posttime.gif"" width=""16"" height=""15"" align=""absmiddle""> "&rs("time1")&" </td>")
Response.Write("<td width=""47%"" align=""right""><a href=edit.asp?id="&rs("ID")&"><img src=""images/edit.gif"" width=""16"" height=""16"" border=""0"" align=""absmiddle"">")
Response.Write("编辑</a> <a href=reply.asp?id="&rs("ID")&"><img src=""images/replynow.gif"" width=""16"" height=""16"" border=""0"" align=""absmiddle""> 回复</a> ")
Response.Write("<a href=delete.asp?id="&rs("ID")&"><img src=""images/del.gif"" width=""16"" height=""16"" border=""0"" align=""absmiddle""> 删除</a> <a href=""javascript:scroll(0,0)""><img src=""images/gotop.gif"" width=""15"" height=""15"" border=""0"" align=""absmiddle"">")
Response.Write("顶端</a></td></tr></table></td></tr></table><br>")
i=i+1
if i>=maxsize then exit do
rs.movenext
loop
End sub
</script>
<meta http-equiv="refresh" content="180">
<title><%=webname%>留言本首页</title>
<script language="JavaScript">
function openWindow(url) {
popupWin = window.open(url, 'new_page', 'width=420,height=220')
}
function xxg(){
f1v = document.form1.page.value;
if(isNaN(f1v)){
alert("请输入数字！");
document.form1.page.focus();
document.form1.page.select();
return false;
}
document.form1.Submit.disabled = 1;
return true;
}
</script>
<% If Session("kenanbook")<>"" Then %>
<script language=javascript>
function rusure()
{ question = confirm("你 确 定 要 退 出 管 理 吗?\n\n----------如果点击确定则退出\n\n----------如果点击取消则返回！！")
if (question !="0")
{ parent.right.location = "loginout.asp" }
}
</script>
<% End If %>
</head>
<script language="vbscript" runat="server">
ipcheck()
sql="select * from content order by id desc"
set rs=server.createobject("ADODB.recordset")
rs.open sql,conn,1,3
If rs.bof and rs.eof Then
call header()
Response.Write("<center><br><br><br><br><br><br><br><br>现在还没有留言呢！<a href=write.asp>请留言吧！</a><br><br><br><br><br><br><br></center>")
call rsclose()
call connclose()
footer()
Else
rs.pagesize=maxsize
'**********************分页程序*******************************************
dim currentpage,page,pagenum
max=rs.recordcount
pages=max/maxsize
dim gotopage '-------------------->注意！！在这里定义分页程序所跳转的页面
gotopage="index.asp" '----->如果这个程序的页面发生改变。可以设定值改变它
Rem 以下为判断分页逻辑
if pages>int(pages) then
pagenum=int(pages)+1
else
pagenum=int(pages)
end if
if trim(request("page"))<>"" then
currentpage=Clng(request("page"))
if currentpage=0 then currentpage=1
if currentpage>rs.pagecount then
currentpage=rs.pagecount
end if
else
currentpage=1
end if
rs.absolutepage=currentpage
'******************************************************************
header()
Response.Write("<br>")
main()
If rs.pagecount>1 Then
showpage()
End If
rsclose()
connclose()
footer()
End If
</script>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -