📄 index.asp
字号:
<!--#include file="config.asp"-->
<!--#include file="tj.asp"-->
<!--#include file="ubb.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=rs("gbname")%></title>
<link href="style.css" rel="stylesheet" type="text/css">
<base target="_blank">
</head>
<body topmargin="10" background="pic/a1bf.gif">
<!--#INCLUDE FILE="head.asp" -->
<%if rs.eof and rs.bof then%>
<table width="100%">
<tr>
<td width="100%" align="center" colspan="5" height="100">
<p align="center">没有该用户! <br><Br>[<a href="reg.asp" target="_self">申请留言本</a>] </td>
</tr>
</table>
<%else%>
<div align="center">
<table border="0" width="500" cellpadding="0">
<tr><td></td></tr><tr>
<td width="60%" height="23" valign="bottom" nowrap> 您的位置：<a href="<%=rs("url")%>" target="_self"><%=rs("web")%></a>
>> <a href="index.asp?user=<%=user%>" target="_self"> 留言本</a>
<%if request("page")<>"" then%>
>> 第<%=request("page")%>页
<%end if%>
</td>
</center>
<td width="40%" height="23" valign="bottom" nowrap>
<p align="right">
<%if adminok="ok" then%>
[<a href="edit.asp?user=<%=user%>" target="_self">修改资料</a>][<a href="login.asp?user=<%=user%>&exit=ok" target="_self">退出登陆</a>]
<%else%> | <a href="write.asp?user=<%=user%>" target="_self">签写留言</a>
| <a href="login.asp?user=<%=user%>" target="_self">版主管理</a> | <a href="reg.asp" target="_self">免费申请</a>
|
<%end if%>
</td>
</tr>
</table>
<table style="BORDER-BOTTOM: #d2e8b5 1px dotted" cellspacing=0 cellpadding=0
width=520 border=0 style="table-layout:fixed;word-break:break-all">
<tbody> <tr> <td></td> </tr></tbody></table>
<br></center></div>
<table border="0" width="500" cellpadding="0" style="table-layout:fixed;word-break:break-all">
<td width="500">
<%if rs("rword")<>"" then%>
<marquee scrollamount='3' delay='0' id=gwrods onmouseover=gwrods.stop() onmouseout=gwrods.start()>公告:<%=ubb(rs("rword"))%></marquee>
<%else%>
<%end if%>
</td></tr></table>
<%dim rsu,sqlu
sqlu="select * from book where user='"&user&"' order by id desc"
Set rsu= Server.CreateObject("ADODB.Recordset")
rsu.open sqlu,conn,1,1
%>
<%totalPut=rsu.recordcount
if currentpage<1 then
currentpage=1
end if
rsu.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rsu.bookmark
%>
<div align="center">
<center>
<%if rsu.eof and rsu.bof then%>
<table style="table-layout:fixed;word-break:break-all">
<tr> <td width="556" align="center" colspan="5" height="100">
<p>还没有留言！</td> </tr> </table>
<%else%>
<%
k=(totalPut-MaxPerPage*(currentPage-1))+1
do while not rsu.eof
k=k-1%>
<br><center>
<table class=table border="0" cellspacing="0" cellpadding="3" width="410" style="table-layout:fixed;word-break:break-all">
<tr>
<td align="right">
<table border="0" width="400" cellpadding="0" cellspacing="2">
<tr>
<td colspan="2" valign="top">
<table width="100%" border="0" cellspacing="2" cellpadding="2">
<tr>
<td width="12%" Rowspan="2"><img border="0" src="images/<%=rsu("face")%>.gif"></td><td height="2" width="88%" colspan="5" align="right" valign="top">
<p align="right">
<%if rsu("url")<>"" then%>
<a href="<%=rsu("url")%>"><img border="0" src="pic/home.gif" alt="偶的竹叶"></a>
<%else%>
<%end if%>
<%if rsu("email")<>"" then%>
<a href="mailto:<%=rsu("email")%>"><img border="0" src="pic/mail.gif" alt="伊妹儿"></a>
<%else%>
<%end if%>
<%if rsu("qq")<>"" then%>
<a href="http://friend.qq.com/cgi-bin/friend/user_show_info?ln=<%=rsu("qq")%>"><img border="0" src="pic/qq.gif" alt="偶的QQ<%=rsu("qq")%>"></a>
<%else%>
<%end if%>
<%if rsu("ip")<>"" then%>
<img border="0" src="pic/ip.gif" alt="<%=rsu("ip")%>"></a>
<%else%>
<img border="0" src="pic/ip.gif" alt="我来自世界的一角">
<%end if%>
<%if adminok="ok" then%>
<a href="re.asp?id=<%=rsu("id")%>&page=<%=request("page")%>" target="_self"><img src="pic/res.gif" border="0" alt="回复"></a><a href="del.asp?id=<%=rsu("id")%>&page=<%=request("page")%>" target="_self">
<img src="pic/del.gif" border="0" alt="删除"></a>
<%end if%>
</td><tr>
<td width="88%" valign="top">
<%if rsu("show")="0" and adminok<>"ok" then%>
<a href="login.asp?user=<%=user%>" target=_self>给版主的悄悄话...</a></p>
<%else%>
<%if rsu("show")="0" then%>
<font color="#cc9999">悄悄话内容：</font><br>
<%end if%>
<%=ubb(rsu("ly"))%>
<%end if%>
<%if rsu("re")<>"" then%>
<p><font color="#CC9999">回复：</font>
<%=ubb(rsu("re"))%>
<%end if%>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="right" width="12%" nowrap> <font color="#9999FF"><%=rsu("name")%></font> </td>
<td align="right" nowrap><span class="style2">[<%=rsu("time")%>]</span>
</td>
</tr>
</table>
</td>
</tr>
</table>
<br>
<% i=i+1
if i>=MaxPerPage then exit do
rsu.movenext
loop
%></center>
<div align="center">
<center>
<div align="center">
<center>
<table border="0" width="560" cellpadding="0" cellspacing="0">
<tr>
<td width="758" height="25" valign="top">
<p align="center"><%
pageno=request("page")
if MaxPerPage="" or isempty(MaxPerPage) or MaxPerPage<1 then
MaxPerPage=15
end if
rsu.pagesize=MaxPerPage '得到每页数
mpage=rsu.pagecount '得到总页数
if isempty(pageno) or cint(pageno)<1 or cint(pageno)>mpage then
pageno=1
end if%>
[ <%if cint(pageno)>1 then%><a href=index.asp?user=<%=request("user")%> target="_self"><%end if%><<</a> <%if cint(pageno)>1 then%><a href=index.asp?user=<%=request("user")%>&page=<%=pageno-1%> target="_self"><%end if%><</a>
<%
pp=cint(pageno)-5
if pp<1 then
pp=1
end if
for pno=pp to mpage
p=p+1
if pno=cint(pageno) then%> <font color="#CC9999"><%=pno%></font><%else%> <a href=index.asp?user=<%=request("user")%>&page=<%=pno%> target="_self"><%=pno%></a><%end if%>
<%
if p>=11 then exit for
next%> <%if cint(pageno)< mpage then%><a href=index.asp?user=<%=request("user")%>&page=<%=pageno+1%> target="_self"><%end if%>></a> <%if cint(pageno)< mpage then%><a href=index.asp?user=<%=request("user")%>&page=<%=mpage%> target="_self"><%end if%>>></a> ]
</td>
</tr>
</table>
</center>
</div>
</center>
</div>
<%end if
end if%>
<br>
<div align="center">
<center>
<table style="BORDER-BOTTOM: #d2e8b5 1px dotted" cellspacing=0 cellpadding=0
width=520 border=0>
<tbody>
<tr>
<td></td>
</tr>
</tbody>
</table><br>
<a href="Admin.asp">Master</a> <p>
<table border="0" cellpadding="0" width="500" cellspacing="0">
<tr>
<td nowrap>
<p align="center"><font face="Verdana">免费服务由<a href="http://www.860546.net" target="_blank">东营人家</a>提供<br>
</font>
</td>
</tr>
</table>
<br>
</center>
</div></body>
<%rs.close
set rs=nothing
rsu.close
set rsu=nothing
conn.close
set conn=nothing%></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -