📄 readsms.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"-->
<!--#include file="ubb.asp"-->
<%=scrmode%>
<%messid=request("id")
if messid <> "" then
'已打开短信数据库--------------------------------------;
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 1 * from shortinfo where id="&messid&" "
rs.open sql,conn,1,3
if rs.BOF and rs.EOF then
Response.Write "没有这条消息"
else
%>
<table width=100% border=0 cellpadding="0" cellspacing="0" class=table1>
<tr><td class=TBHead height=25> 读短消息 >> <a href=javascript:openScript('shortinfo.asp?optionvar=短消息&shortinfo=收件箱',500,400)>返回</a> <a href=readsms.asp?sjr=<%=rs("发件人")%>>回复</a></td></tr>
<tr><td height=21 class=light><b> 标题:</b> <%=rs("消息标题")%></td></tr>
<tr><td class=light><b> 内容:</b><br><br><%=ubb(changechr(rs("消息内容")))%></td></tr>
</table>
<%rs("是否已读")="Y"
rs.Update
%>
<% end if
rs.close
set rs=nothing
else%>
<form action="savesms.asp" method=post name=messager>
<table width=100% border=0 cellpadding="0" cellspacing="0" class=table1>
<tr><td class=TBHead height=25 class=light> 写短消息 >> <a href=javascript:openScript('shortinfo.asp?optionvar=短消息&shortinfo=收件箱',500,400)>返回</a></td></tr>
<input type=hidden name=sendser value=<%=Request.QueryString("username")%>>
<tr><td height=21 class=light><b> 收件人:</b> <input type=text name="touser" size=15 value=<%=request("sjr")%>> (输入联系人的用户名)</td></tr>
<tr><td height=21 class=light><b> 标 题:</b> <input type=text name="title" size=51 maxlength=80 value=""></td></tr>
<tr><td class=light><b><BR> 内容:</b><br><br><textarea cols=70 rows=7 name="message" style="BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; BORDER-LEFT: #000000 1px solid; COLOR: #000000; BORDER-BOTTOM: #000000 1px solid; BACKGROUND-COLOR: #ffffff"></textarea></td></tr>
<tr><td align=center class=light><input type=Submit value="发送" name=Submit> <input type="reset" name="Clear" value="清除"></td></tr>
</table>
<%end if%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -