📄 duanxininfo.asp
字号:
<%Response.Buffer=true
username=session("hxf_u_nickname")
if username="" then Response.Redirect "error.asp?id=440"
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires=0
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("hg_connstr")
conn.open connstr
if request.querystring("id")="" then
response.write "没有正确的ID号"
else
NUMBER=clng(request.querystring("id"))
set RST=conn.execute("select * from 短信 where id=" &NUMBER)
end if
%>
<HTML><HEAD>
<link rel="stylesheet" href="dg/setup.CSS">
<TITLE>OA短消息</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK
href="images/STYLE.CSS" rel=stylesheet>
<META content="Microsoft FrontPage 5.0" name=GENERATOR></HEAD>
<BODY
onkeydown="if(event.keyCode==13 && event.ctrlKey)messager.submit()"
vLink=#333333 aLink=#333333 link=#333333 bgColor=#f2f8ff background=""
topMargin=10>
<TABLE cellSpacing=0 cellPadding=0 width="320" align=center bgColor=#777777
border=0>
<TBODY>
<TR>
<TD width="322">
<TABLE borderColor=#ffffff cellSpacing=1 cellPadding=3 width="322"
border=2 height="131">
<TBODY>
<TR>
<TD align=middle bgColor=#3399ff height="14" width="308"><FONT face=Wingdings
color=#ffffff>*</FONT><FONT color=#ffffff>欢迎使用OA<span lang="zh-cn">短信即时通</span></FONT></TD></TR>
<TR>
<TD vAlign=center align=middle bgColor=#f2f8ff height="42" width="308">
<a href="duanxinlist.asp">
<IMG
alt=查看信息 src="images/inboxpm.gif" border=0 width="40" height="40"></a>
<a href="#" onclick="javascript:window.open('show.asp','mt','width=360,height=250')"><IMG
alt=发送消息 src="images/newpm.gif" border=0 width="40" height="40"></a> <IMG
alt=回复消息 src="images/replypm.gif" border=0 width="40" height="40">
<a href="duanxindel.asp?id=<%=NUMBER%>">
<IMG
alt=删除消息 src="images/deletepm.gif" border=0 width="40" height="40"></a></TD></TR>
<TR>
<TD vAlign=center align=middle bgColor=#e8f4ff height="-1" width="41">
<textarea rows="8" name="S1" cols="40"><%=rs("send")%>在<%=rs("sj")%>给您发的短信
<%=rs("info")%></textarea></TD></TR>
</TBODY></TABLE></TD></TR></TBODY></TABLE>
</BODY></HTML>
<%
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -