📄 guest.asp
字号:
<!--#include file="syssetup.asp"--><!--#include file="inc/func.INC"-->
<!--#include file="inc/chkonline.asp"-->
<%call online()
userid=session("myuserid")
password=session("mypwd")
if isuser(userid,password)=0 then
%>
<script>
alert("你还没有登录，无权进入！");
parent.location.href="index.asp";
</script>
<%
response.end
end if
id=request("id")
if id<>"" then
sql="delete from private where id="&id
conn.execute(sql)
end if
geter=userid
%>
<HTML><HEAD><TITLE>私人留言</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="jscs/css.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2600.0" name=GENERATOR></HEAD>
<script language="javascript" type="text/javascript" src="img/chromeless_35.js"></script>
<script language="javascript">
function openIT(u,W,H,X,Y,n,b,x,m,r,jj,tt) {
var cU ='img/close_up.gif'
var cO ='img/close_ovr.gif'
var cL ='img/clock.gif'
var mU ='img/min_up.gif'
var mO ='img/min_ovr.gif'
var xU ='img/max_up.gif'
var xO ='img/max_ovr.gif'
var rU ='img/res_up.gif'
var rO ='img/res_ovr.gif'
var tH =jj
var tW =tt
var wB ='#000000'
var wBs ='#FFFFFF'
var wBG ='#e0e0e0'
var wBGs='#e0e0e0'
var wNS ='toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0'
var fSO ='scrolling=no noresize'
var brd =b||0;
var max =x||false;
var min =m||false;
var res =r||false;
var tsz =20;
return chromeless(u,n,W,H,X,Y,cU,cO,cL,mU,mO,xU,xO,rU,rO,tH,tW,wB,wBs,wBG,wBGs,wNS,fSO,brd,max,min,res,tsz)
}
</script>
<BODY bgColor=#ffffff leftMargin=0
topMargin=0>
<%bgcolor="#E6ECF5"%>
<!--#include file="header.inc"-->
<%tablename="private"%>
<br>
<TABLE bgcolor=#DEDEDE cellSpacing=1 cellPadding=2 width=98% align=center
border=0>
<TBODY>
<TR bgcolor=#EFEFEF>
<TD><div align="left"><a href="#" onclick="openIT('sender.asp',380,149,null,null,'发送私人留言',0,false,false,false,'<font size=2>发送私人留言</font>','发送私人留言')"; title="发送私人留言"><img src="IMAGES/postnew.gif" width="72" height="21" border="0" align="absmiddle"></a>
你共有<b><%=allprivate(tablename,geter)%></b>条私人留言
每页只显示20条 </div></TD></TR></TBODY></TABLE>
<br>
<%
set rs=server.createobject("ADODB.Recordset")
sql="select * from private where geter='"&geter&"' order by id desc"
rs.open sql,conn,1,1
Rs.Pagesize=20
Pageno=CLng(Request("page"))
If Pageno<1 Then Pageno=1
If Pageno>Rs.PageCount Then Pageno=Rs.PageCount
If pageNo=""Then Pageno=1%>
<TABLE class=t2bluelink cellSpacing=0 cellPadding=4 width=98% align=center
borderColorLight=#ffffff border=0>
<TBODY>
<%if rs.eof then
response.write "<tr><td>你暂无私人留言</td></tr>"
else%>
<TR>
<TD background="IMAGES/sendbg1.gif">
<div align=left><font color=#ffffff>
<%
If Pageno<>1 Then
Response.Write" <A href=guest.asp>首页</A> "
Response.Write" <A href=guest.asp?page="&(Pageno-1)&">前页</A> "
Else
Response.Write" 首页 "
Response.Write" 前页 "
End If
If Pageno<>rs.PageCount Then
Response.Write" <A href=guest.asp?page="&(Pageno+1)&">后页</A> "
Response.Write" <A href=guest.asp?page="&(Rs.PageCount)&">末页</A> "
Else
Response.Write" 后页 "
Response.Write" 末页 "
End If
%> 位置<%=pageno%>/<%=rs.pagecount%>
</font></div></TD></TR>
<%
Sub Showpage(Rs,pageno)
Rs.AbsolutePage=Pageno
for I=1 To Rs.PageSize
if i mod 2=0 then
col="#E4E8EF"
else
col="#ffffff"
end if%>
<TR bgcolor=<%=col%>>
<TD>
<DIV align=left><FONT color=#003300><IMG
src="images/arrow.gif"> <B><%=rs("writer")%> 在<%=rs("posttime")%> 对你写道：</B><%myid=rs("id")%><a href="#" onclick="openIT('sender.asp?id=<%=myid%>',380,149,null,null,'发送私人留言',0,false,false,false,'<font size=2>发送私人留言</font>','发送私人留言')"; title="发送私人留言"><img src="IMAGES/preply.gif" width="47" height="18" align="absmiddle" border=0></a> <a href="guest.asp?id=<%=rs("id")%>"><font color=#000000>删除</font></a></DIV>
</FONT></TD></TR>
<TR bgcolor=<%=col%>>
<TD height=20>
<DIV align=left><FONT color=#000000><%=rs("content")%></FONT></DIV></TD></TR><TR>
<TD bgColor=#cccccc height=1></TD></TR>
<%
Rs.Movenext
If Rs.Eof Then Exit For
Next
end sub
%>
<%showpage rs,pageno%>
<TR>
<TD height=15 background="IMAGES/sendbg2.gif"><FONT color=#000000>
<div align=right>
<%
If Pageno<>1 Then
Response.Write" <A href=guest.asp>首页</A> "
Response.Write" <A href=guest.asp?page="&(Pageno-1)&">前页</A> "
Else
Response.Write" 首页 "
Response.Write" 前页 "
End If
If Pageno<>rs.PageCount Then
Response.Write" <A href=guest.asp?page="&(Pageno+1)&">后页</A> "
Response.Write" <A href=guest.asp?page="&(Rs.PageCount)&">末页</A> "
Else
Response.Write" 后页 "
Response.Write" 末页 "
End If
%> 位置<%=pageno%>/<%=rs.pagecount%></div></FONT></TD></TR><%end if%></TBODY></TABLE>
<!--#include file="inc/footer.inc"--></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -