📄 index.asp
字号:
<!--#include file="inc/conn.asp"-->
<%dim username
dim user(7)
username=request.querystring("username")
user(7)=request.cookies("satellite")("user")
user(6)=request.cookies("satellite")("username")
set rs=conn.execute("select usersex,userhpgurl,userhpgname,usermail,bannerurl,addtime,skinid,userid from [user] where username='"&username&"'")
if rs.bof then
response.write "<script language=javascript>alert( ""没有这个用户，你可以在列表中查询一下"");"&Chr(13)&"location.href=""userlist.asp"";</script>"
response.end
else
for i=0 to 5
user(i)=rs(i)
next
skinid=rs(6)
userid=rs(7)
end if
rs.close
page=cint(Request("page"))
If page=0 Then page=1
OtherInfo="username="&username&"&"
%>
<!--#include file="inc/const.asp"-->
<!--#include file="inc/ubb.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="inc/style.css"-->
<script language=javascript src="inc/js.inc"></script>
<script language=javascript>
function CheckAll() { for (var i=0;i<document.deleteid.elements.length;i++) { var e =document.deleteid.elements[i]; if (e.name != 'allbox') e.checked =document.deleteid.allbox.checked; } }</script>
<title><%=username%>的留言本</title>
</head>
<body <%=skin(13)%>>
<table align=center border=1 bordercolor=<%=skin(12)%> cellpadding=3 cellspacing=0 width="<%=skin(11)%>" style="table-layout:fixed">
<tr class=titlestyle>
<Td style="border:0;font-family:宋体;font-size:9pt" class=titlelink width=415 nowrap><a href=javascript:///><B>></b></a>
<a href="javascript:ow('reg.asp')">用户注册</a> | <a href="userlist.asp" target=_blank>用户列表</a>
| <a href="javascript:ow('getpwd.asp')">忘记密码</a> |
<%if user(7) and user(6)=username then%><a href="javascript:ow('updateuser.asp?username=<%=username%>')" title=修改注册资料>修改资料</a> | <A href="userlogin.asp?action=logout">退出登录</a><%else%><a href="javascript:ow('userlogin.asp?username=<%=username%>')">版主登录</a><%end if%>
</td>
<Td style="border:0" align=right width=* nowrap><a href="<%=user(1)%>" target=_blank title="用户：<%=username%> <%if user(0)=0 then%>男<%else%>女<%end if%><BR>信箱：<%=user(3)%><BR>主页：<%=user(2)%><BR>加入时间：<%=year(user(5))%>年<%=month(user(5))%>月<%=day(user(5))%>日<BR><font color=<%=skin(8)%>>点击打开<%=user(2)%></font>"><img src=images/home.gif width=18 height=14 align=absmiddle> <%=username%></A></td>
</tr>
</table>
<table align=center border=0 cellpadding=3 cellspacing=0 width="<%=skin(11)%>">
<Tr>
<Td rowspan=2><%if user(4)="" then
response.write cfg(4)
else
if right(split(user(4),",")(0),4)=".swf" then
response.write "<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0' width="&split(user(4),",")(1)&" height="&split(user(4),",")(2)&"><param name=movie value="&split(user(4),",")(0)&"><param name=quality value=high><embed src="&split(user(4),",")(0)&" quality=high pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' width="&split(user(4),",")(1)&" height="&split(user(4),",")(2)&"></embed></object>"
split(user(4),",")(1)
else
response.write "<img src="&split(user(4),",")(0)&" width="&split(user(4),",")(1)&" height="&split(user(4),",")(2)&" align=absmiddle>"
end if
end if%>
</td>
<td align=right class=p14 height=50 valign=bottom>今日留言：<font color=<%=skin(8)%>><%=conn.execute("select count(*) from guest where userid="&userid&" and visittime like '%"&date()&"%'")(0)%></font><BR>留言总数：<font color=<%=skin(8)%>><%set rs=conn.execute("select count(*) from guest where userid="&userid)%><%=rs(0)%><%conn.execute("update [user] set msgtotal="&rs(0)&" where username='"&username&"'")%><%rs.close%></font></td>
</tr>
<tr>
<td align=right height=33 valign=top><select name=skinid onchange="location.href=this.options[this.selectedIndex].value"><option value="">选择风格</option>
<%set rs=conn.execute("select top 1 username from [user] order by userid asc")
tempname=rs(0)
rs.close
set rs=conn.execute("select skinid,skinname from skin order by skinid asc")
do until rs.eof
response.write "<option value=index.asp?username="&username&"&skinid="&rs(0)&">"&rs(1)&"</option>"
rs.movenext
loop
rs.close%></select></td>
</tr>
<Form name=deleteid method=post action="savemsg.asp" onsubmit="submitonce(this)">
<Input name=action type=hidden value=delbat>
<Input name=username type=hidden value="<%=username%>">
</table>
<table width="<%=skin(11)%>" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><a href="javascript:ow('domsg.asp?action=add&userid=<%=userid%>')"><img src="images/post.gif" border="0"></a></td>
</tr>
</table>
<%' style="table-layout:fixed;word-break:break-all"%>
<%Set rs=Server.createobject("adodb.recordset")
SQL="select Guestid,content,GuestQQ,GuestName,GuestFace,Guestmail,Guesthpgname,Guesthpgurl,GuestIP,GuestAddress,Visittime,Reply,ReplyTime from Guest where Userid="&userid&" order by guestid desc"
rs.Open sql,conn,1,1
If rs.bof Then
response.Write "<table width="&skin(11)&" border=0 height=60 align=center><tr><td align=center>当前还没有留言。</td></tr></table>"
else
MyPageSize = skin(14)
Rs.pagesize = Mypagesize
maxpages = cint(Rs.pagecount)
totalsize = cint(Mypagesize)
Rs.absolutepage = page
msgtotal = Rs.RecordCount
total = 0
do until Rs.Eof or total=totalsize
%>
<table align=center border=1 bordercolor=<%=skin(12)%> cellpadding=3 cellspacing=0 width="<%=skin(11)%>">
<tr>
<Td width=120 height=120 align=center bgcolor=<%=skin(3)%> rowspan=3 style="border-right:1px <%=skin(12)%> dotted;"><img src="<%=rs(4)%>" title="留言者：<%=rs(3)%> <%if instr(Lcase(rs(4)),"girl")<>0 then%>女<%else%>男<%end if%><BR>来 自：<%=rs(9)%><BR>记录IP：<%=rs(8)%>"><Br><Br><%=rs(3)%></td>
<Td height=24 bgcolor="<%=skin(4)%>"><Table style="table-layout:fixed" border=0 cellpadding=0 cellspacing=0 width="100%"><tr><Td width="90%" nowrap><%If rs(5)<>"" Then response.Write "<a href=mailto:"&rs(5)&"><img src=images/mail.gif width=18 height=14 align=absmiddle>"&rs(5)&"</a> "%>
<%If rs(2)<>0 Then response.Write "<a href=javascript:///><img src=images/QQ.gif width=18 height=14 align=absmiddle>"&rs(2)&"</a> "%>
<%If rs(7)<>"" Then response.Write "<a href="&rs(7)&" title="&rs(7)&" target=_blank><img src=images/home.gif width=18 height=14 align=absmiddle title="&rs(7)&">"&rs(6)&"</a>"%><%If rs(5)="" And rs(2)=0 And rs(7)="" Then response.Write "未留下任何联系方式。"%></td><td align=right width="10%"><%If user(7) And user(6)=username then%><Input type=CheckBox class=noborder name=Guestid value=<%=rs(0)%>><%else%>No.<%=msgtotal-total%><%End if%></td></tr></table></td>
</tr>
<tr>
<Td height=72 bgcolor=<%=skin(5)%> valign=top><Table style="table-layout:fixed;word-break:break-all" border=0 cellpadding=0 cellspacing=0 width="100%"><tr><Td width="100%" valign=top><img src="images/msg.gif" width=13 height=11 title=留言内容> <Font color=<%=skin(6)%>><%=ubb(rs(1))%></font><%If rs(11)<>"" Then%><hr color=<%=skin(12)%> size=0 width="97%" align=left style="border:dotted"><img src="images/re.gif" width=13 height=11 title=回复内容> <Font color=<%=skin(7)%>><%=ubb(rs(11))%></font><%End if%></td></tr></table></td>
</tr>
<tr>
<Td height=24 bgcolor="<%=skin(4)%>"><Table style="table-layout:fixed;" border=0 cellpadding=0 cellspacing=0 width="100%"><tr><Td width="48%" nowrap> <a href="javascript:ow('domsg.asp?action=delete&userid=<%=userid%>&guestid=<%=rs(0)%>')"><img src=images/delete.gif width=37 height=11 align=absmiddle title=只有斑竹才能删除></a> <a href="javascript:ow('domsg.asp?action=reply&userid=<%=userid%>&guestid=<%=rs(0)%>')" ><img src=images/reply.gif width=38 height=11 align=absmiddle title=只有斑竹才能回复></a> <a href="javascript:ow('domsg.asp?action=add&userid=<%=userid%>')"><img src=images/addmsg.gif width=51 height=11 align=absmiddle title=欢迎访客签写留言></a></td><td align=right width="52%" nowrap style="color:<%=skin(6)%>"><span title="留言于<%=rs(10)%>"><img src=images/add_time.gif width=22 height=5 align=absmiddle><%=month(rs(10))%>/<%=day(rs(10))%> <%=hour(rs(10))%>:<%=minute(rs(10))%></span><%If rs(11)<>"" Then%> ‖ <span title="回复于<%=rs(10)%>"><img src=images/re_time.gif width=16 height=5 align=absmiddle><%=month(rs(12))%>/<%=day(rs(12))%> <%=hour(rs(12))%>:<%=minute(rs(12))%></span><%End if%></td></tr></table></td>
</tr>
</table><BR><% Rs.movenext
total = total + 1
loop
Rs.close
end if%>
<table align=center style="border:1px <%=skin(12)%> solid" cellpadding=2 cellspacing=0 width="<%=skin(11)%>"><tr bgcolor=<%=skin(4)%>><td> 分页：<%PageLink%></td><%If user(7) And user(6)=username then%><td align=right><input name=allbox value="check all" type=checkbox onClick="CheckAll();" class=noborder><a href="javascript:CheckAll();" onClick="allbox.checked=!allbox.checked;">选中所有</a> <input type=submit name=submit value="删除" onclick="return chk()"></td><%End If %></tr></form></table>
<!--#include file="inc/foot.asp"-->
<!--#include file="inc/Pagelink.inc"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -