📄 shortinfo.asp
字号:
<html>
<head><title>消息收发</title>
<link rel="stylesheet" type="text/css" href="../css/style1.css">
</head>
<body leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">
<script language="javascript">
function openScript(url, width, height){
var Win = window.open(url,"openScript",'width=' + width + ',height=' + height + ',resizable=1,scrollbars=yes,menubar=no,status=yes' );
}
</script>
<!--#include file="../conn.asp"-->
<% '已打开消息数据库--------------------------------------;
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from shortinfo "
rs.open sql,conn,1,3
if Request.Cookies("username")="" then
Response.Write "<br><br><br><center>你还没有登陆</center>"
else
rs.MoveLast
%>
<div align="center">
<table border="0" width=100% height="38" cellpadding="0" cellspacing="0">
<tr>
<td width="100%" colspan="2" height="600" valign=top align=center class=light><br>
<table width=300 border=0>
<tr><td><a href=shortinfo.asp?optionvar=短消息&shortinfo=收件箱><img src=images/m_inbox.gif border=0></a></td><td><a href=shortinfo.asp?optionvar=短消息&shortinfo=发件箱><img src=Images/m_outbox.gif border=0></a></td><td><a href=shortinfo.asp?optionvar=短消息&shortinfo=已发送><img src=images/m_issend.gif border=0></a></td><td><a href=shortinfo.asp?optionvar=短消息&shortinfo=废件箱><img src=images/m_recycle.gif border=0></a></td><td><a href=JavaScript:openScript('readsms.asp?username=<%=Request.Cookies("username")%>',500,400)><img src=images/m_write.gif border=0></a></td></tr>
</table>
<%
select case request("shortinfo")
case "收件箱" '收件箱的时候;
%>
<table width=400 border=0 cellpadding="0" cellspacing="0" class=table1>
<tr><td width=70 align=center class=TBHead>发件人</td><td align=center width=200 class=TBHead>主题</td><td width=100 align=center class=TBHead>日期</td><td width=30 align=center class=TBHead>操作</td></tr>
<%
while not rs.BOF
if rs("收件人")=Request.Cookies("username") and rs("收件人删除标记")="N" then
%><tr><td width=70 class=light><%=rs("发件人")%></td><td width=200 class=light><a href=JavaScript:openScript('readsms.asp?id=<%=rs("id")%>',500,400)><%if rs("是否已读")="N" then%><b><%=rs("消息标题")%></b><%else%><%=rs("消息标题")%><%end if%></a></td><td width=100 class=light><%=rs("日期")%></td><td width=30 align=center class=light><a href=delshortinfo.asp?shortinfo=<%=request("shortinfo")%>&id=<%=rs("id")%>>删除</a></td></tr><%
end if
rs.MovePrevious
wend
%>
</table>
<%
case "发件箱" '发件箱的时候;
%>
<table width=400 border=0 cellpadding="0" cellspacing="0" class=table1>
<tr><td width=70 align=center class=TBHead>收件人</td><td align=center width=200 class=TBHead>主题</td><td width=100 align=center class=TBHead>日期</td><td width=30 align=center class=TBHead>操作</td></tr>
<%
while not rs.BOF
if rs("发件人")=Request.Cookies("username") and rs("是否发送标记")="N" and rs("发件人删除标记")="N" then
%><tr><td width=70 class=light><%=rs("收件人")%></td><td width=200 class=light><a href=JavaScript:openScript('readsms.asp?id=<%=rs("id")%>',500,400)><%=rs("消息标题")%></a></td><td width=100 class=light><%=rs("日期")%></td><td width=30 align=center class=light><a href=delshortinfo.asp?shortinfo=<%=request("shortinfo")%>&id=<%=rs("id")%>>删除</a></td></tr><%
end if
rs.MovePrevious
wend
%>
</table>
<%
case "已发送" '已发送的时候;
%>
<table width=400 border=0 cellpadding="0" cellspacing="0" class=table1>
<tr><td width=70 align=center class=TBHead>收件人</td><td align=center width=200 class=TBHead>主题</td><td width=100 align=center class=TBHead>日期</td><td width=30 align=center class=TBHead>操作</td></tr>
<%
while not rs.BOF
if rs("发件人")=Request.Cookies("username") and rs("是否发送标记")="Y" and rs("发件人删除标记")="N" then
%><tr><td width=70 class=light><%=rs("收件人")%></td><td width=200 class=light><a href=JavaScript:openScript('readsms.asp?id=<%=rs("id")%>',500,400)><%=rs("消息标题")%></a></td><td width=100 class=light><%=rs("日期")%></td><td width=30 align=center class=light><a href=delshortinfo.asp?shortinfo=<%=request("shortinfo")%>&id=<%=rs("id")%>>删除</a></td></tr><%
end if
rs.MovePrevious
wend
%>
</table>
<%
case "废件箱" '已发送的时候;
%>
<table width=400 border=0 cellpadding="0" cellspacing="0" class=table1>
<tr><td width=70 align=center class=TBHead>收(发)件人</td><td align=center width=200 class=TBHead>主题</td><td width=100 align=center class=TBHead>日期</td><td width=30 align=center class=TBHead>操作</td></tr>
<%
while not rs.BOF
if rs("发件人")=Request.Cookies("username") and rs("发件人删除标记")="Y" and rs("发件人回收站删除标记")<>"Y" then
%><tr><td width=70 class=light><%=rs("收件人")%></td><td width=200 class=light><a href=JavaScript:openScript('readsms.asp?id=<%=rs("id")%>',500,400)><%=rs("消息标题")%></a></td><td width=100 class=light><%=rs("日期")%></td><td width=30 align=center class=light><a href=delshortinfo.asp?shortinfo=<%=request("shortinfo")%>&id=<%=rs("id")%>>删除</a></td></tr><%
else
if rs("收件人")=Request.Cookies("username") and rs("收件人删除标记")="Y" and rs("收件人回收站删除标记")<>"Y" then
%><tr><td width=70 class=light><%=rs("发件人")%></td><td width=200 class=light><a href=JavaScript:openScript('readsms.asp?id=<%=rs("id")%>',500,400)><%=rs("消息标题")%></a></td><td width=100 class=light><%=rs("日期")%></td><td width=30 align=center class=light><a href=delshortinfo.asp?shortinfo=<%=request("shortinfo")%>&id=<%=rs("id")%>>删除</a></td></tr><%
end if
end if
rs.MovePrevious
wend
%>
</table>
<%
case else
Response.Write "<br><br>欢迎使用短消息功能,通过他可以<br>跟本站或其它用户取得直接的联系"
end select
%>
<%rs.Close%>
</td>
</tr>
</table>
</div>
<%
end if
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -