📄 index.asp
字号:
<!--#include file=setup.asp-->
<html>
<head>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<meta name="description" content="GBook365 官方网站(GBook365.365ye.com)-XP风格的多用户留言程序">
<meta name="keywords" content="GBook365官方网站,GBook365 | 留言本 | 多用户版 | 留言程序 | 程序下载 | GBook365 V1.1 多用户正式版，GBook365 V1.0 正式版，免费留言本，多用户，ASP留言本，免费留言，V1.10，免费下载,留言本下载">
<LINK href="images/css.css" rel=stylesheet type=text/css>
<!--#include file=conn.inc-->
<%
user=request("user")
if user="" then
response.redirect "index.asp?user=" & first
end if%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from user where 用户名='"& user &"'"
rs.open sql,conn
if rs.eof or rs.bof then%>
<script language=JavaScript>{window.alert('对 不 起 , 此 帐 户 不 存 在!');window.location.href='reg.asp?user=<%=first%>'}</script>
<%else%>
<title><%=rs("留言名")%></title>
</head>
<BODY background='images/bookbg.gif'>
<body topmargin=0 oncontextmenu=self.event.returnValue=false>
<div align="center">
<!--#include file=top.asp--><br>
<center><img src=images/welcome.gif><br><%=rs("html")%></center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="700">
<tr>
<td width="120" height=40>
<a href="add.asp?user=<%=user%>"><img src=images/post.gif border=0></a></td>
<td width="50" height=40 align="center"></td>
<td width="430" height=40 align="center"></td><td width="100" align=right><a href=index2.asp?user=<%=rs("用户名")%>><font color=blue>[ 风格Ⅱ ]</font></a></td>
</table>
</div>
<center><%
sql2="select * from book where 用户='"& user & "'order by ID desc"
set gbook=server.createobject("adodb.recordset")
gbook.open sql2,conn,1,1
if gbook.eof and gbook.bof then
response.write "<center><a href=add.asp?user=" & user & ">现在还没有人留言！我要第一个留言.</a></center>"
else
gbook.pagesize=rs("count")
gbook.absolutepage=1
if request("page")<>"" then gbook.absolutepage=request("page")
rowcount=gbook.pagesize
total=gbook.recordcount
do while not gbook.eof and rowcount>0
if request("page")<>"" then
t=rowcount-(gbook.pagesize*gbook.pagecount-total)+(gbook.pagecount-request("page"))*gbook.pagesize
else t=rowcount-(gbook.pagesize*gbook.pagecount-total)+(gbook.pagecount-1)*gbook.pagesize
end if
%>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700">
<tr>
<td width="2%"><img border="0" src="images/T_left.gif"></td>
<td width="96%" background="images/Tt_bg.gif"></td>
<td width="2%"><img border="0" src="images/T_right.gif"></td>
</tr>
</table>
</center>
</div>
<CENTER>
<table cellspacing="1" cellpadding="4" width="700" border="0" class="a2" align="center" height="134" bgcolor="#FFFFFF">
<tbody>
<tr class="a1">
<td height=25 bgcolor="#FFFFFF" width="670" colspan="2"> 第 <font color=red><%=t%></font> 条留言 留言者:<font color=red><%=gbook("昵称")%></font> 发表于:<%=gbook("时间")%>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" align=center height=50> <b>留言内容:</b></td>
<td bgcolor="#FFFFFF" rowspan=2 class=365ye ><div style="line-height:150%">
<%if gbook("image")<>"" then%>此留言为悄悄话，留言内容只有版主才能查看……<a href="#" onclick="javascript:open('see.asp?user=<%=user%>&id=<%=gbook("ID")%>','','width=455,height=250')"><font color=green>[查看]</font></a><%else%><%=left(gbook("内容"),200)%><%end if%>
</td>
</tr>
<tr>
<td width="130" height="25" class="a3"> <img height=16 src="images/homepage.gif"
width=16><a href="<%=gbook("home")%>" target=_blank
title=访问<%=gbook("昵称")%>的主页> 我的主页</a></td>
</tr>
<tr>
<td width="130" height="25" bgcolor="#FFFFFF" > <img height=16 src="images/email.gif"
width=16><a href="mailto:<%=gbook("email")%>"
title=给KuSoft发信> 写信给我</a></td>
<td width="550" class="a3"><p style="line-height: 150%">〖版主回复〗<% if not gbook("回复")="" then %><font color="#CC3300"><%=gbook("回复")%></font><%else%> S O R R Y , 版 主 尚 未 回 复 本 留 言 . .<%end if%></p></td>
</tr>
<tr>
<td width="130" height="25" class="a3"> <img height=16 src="images/oicq.gif"
width=16> <%=gbook("OICQ")%></td>
<td width="550" bgcolor="#FFFFFF"> <img src=images/ip.gif align=absmiddle> <%=gbook("ip")%>
[ <a href="add.asp?user=<%=user%>"><font color="#000080">签写留言</font></a> ] [
<a href="replay.asp?user=<%=user%>&id=<%=gbook("ID")%>">
回复留言
</a>
] [
<a href="del.asp?user=<%=user%>&id=<%=gbook("ID")%>">
删除留言
</a>
] </td>
</tr>
</tbody>
</table>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700" >
<tr>
<td width="1%"><img border="0" src="images/T_bottomleft.gif"></td>
<td width="97%" background="images/T_bottombg.gif"></td>
<td width="2%"><img border="0" src="images/T_bottomright.gif"></td>
</tr>
</table>
</center>
</div>
<p>
<%
gbook.movenext
rowcount=rowcount-1
loop
%>
</p>
第 <%
if gbook.pagecount>0 then
for i=1 to gbook.pagecount
response.write " <a href=index.asp?user="&user&"&page="& i &">[" & i & "]</a>"
next
end if%> 页
</CENTER>
<p>
<!--#include file=copy.asp--></center>
</BODY><%
end if
gbook.close
set gbook=nothing
rs.close
set rs=nothing
end if
conn.close
set conn=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -