📄 p_send.asp
字号:
<%
if session("user")="" then
response.write "<script LANGUAGE='javascript'>alert('对不起，登陆超时！');</script>"
response.redirect "index.asp"
end if
%>
<!-- #include file="conn.asp" -->
<%function gotTopic(str,strlen)
if str="" then
gotTopic=""
exit function
end if
dim l,t,c, i
str=replace(replace(replace(replace(str," "," "),""",chr(34)),">",">"),"<","<")
l=len(str)
t=0
for i=1 to l
c=Abs(Asc(Mid(str,i,1)))
if c>255 then
t=t+2
else
t=t+1
end if
if t>=strlen then
gotTopic=left(str,i) & "…"
exit for
else
gotTopic=str
end if
next
gotTopic=replace(replace(replace(replace(gotTopic," "," "),chr(34),"""),">",">"),"<","<")
end function
%>
<html>
<head>
<link href=css.css rel=STYLESHEET type=text/css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><title>中国人民大学二手交易网-您发送的小纸条</title></head>
<body>
<div align="center">
<!-- #include file="head.asp" -->
<!-- #include file="menu.asp" -->
<%
uname=session("user")
sql="select * from piece where piece_reciever='"&uname&"' order by piece_time desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table width="760" border="0" cellpadding="0" cellspacing="0" >
<!--DWLayoutTable-->
<tr>
<td width="48" height="21"> </td>
<td width="111"> </td>
<td width="53"> </td>
<td width="509"> </td>
<td width="39"> </td>
</tr>
<tr>
<td height="168"> </td>
<td rowspan="2" valign="top"><table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#00FFFF">
<!--DWLayoutTable-->
<tr>
<td width="107" height="27" align="center" valign="middle"><strong>用户面板</strong></td>
</tr>
<tr>
<td height="24" align="center" valign="middle" bgcolor="#FFFFFF"><a href="panel.asp">我发布的信息</a></td>
</tr>
<tr>
<td height="24" align="center" valign="middle" bgcolor="#FFFFFF"><a href="p_unread.asp">未读小纸条</a></td>
</tr>
<tr>
<td height="24" align="center" valign="middle" bgcolor="#FFFFFF">收到的小纸条</td>
</tr>
<tr>
<td height="24" align="center" valign="middle" bgcolor="#FFFFFF"><strong>发送的小纸条</strong></td>
</tr>
<tr>
<td height="24" align="center" valign="middle" bgcolor="#FFFFFF"><a href="p_write.asp">写小纸条</a></td>
</tr>
<tr>
<td height="74" valign="top" bgcolor="#FFFFFF"><!--DWLayoutEmptyCell--> </td>
</tr>
</table></td>
<td> </td>
<td valign="top"><table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#66CCFF">
<!--DWLayoutTable-->
<tr>
<td height="24" colspan="5" valign="middle" bgcolor="#00FFFF"> <div align="center"><strong>您发送的小纸条</strong></div></td>
</tr>
<tr>
<td height="23" colspan="5" valign="top" bgcolor="#FFFFFF">
<%if rs.eof then response.Write("您暂且还没有小纸条！")%>
</td>
</tr>
<tr>
<td width="28" height="20" align="center" valign="middle" bgcolor="#FFFFFF"><strong>编号</strong></td>
<td width="222" align="center" valign="middle" bgcolor="#FFFFFF"><strong>小纸条内容</strong></td>
<td width="86" align="center" valign="middle" bgcolor="#FFFFFF"><strong>时间</strong></td>
<td width="78" align="center" valign="middle" bgcolor="#FFFFFF"><strong>接收人</strong></td>
<td width="79" align="center" valign="middle" bgcolor="#FFFFFF"><strong>操作</strong></td>
</tr>
<%i=1
do while not rs.eof
%>
<tr>
<td height="20" align="center" valign="middle" bgcolor="#FFFFFF"><%=i%></td>
<td valign="middle" bgcolor="#FFFFFF"><a href="javascript:window.open('p_read.asp?piece_id=<%=rs("piece_id")%>','','height=300,width=400,resizable=yes,scrollbars=no,status=no,toolbar=no,menubar=no,location=no')"><%=gotTopic(rs("piece_content"),20)%></a></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><%=rs("piece_time")%></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><%=rs("piece_sender")%></td>
<td align="center" valign="middle" bgcolor="#FFFFFF">删除</td>
</tr>
<%rs.movenext
i=i+1
loop
rs.close
%>
<tr>
<td height="28" colspan="5" valign="top" bgcolor="#FFFFFF"><!--DWLayoutEmptyCell--> </td>
</tr>
<tr>
<td height="46" colspan="5" valign="top" bgcolor="#00FFFF"><p>说明：<br>
1.点击 小纸条内容 看更详细的内容<br>
2.请将您发送后的小纸条及时删除，以便减轻系统负担，谢谢您的合作</p></td>
</tr>
</table></td>
<td> </td>
</tr>
<tr>
<td height="60"> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td height="32"> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
<!-- #include file="foot.asp" -->
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -