duanxininfo.asp

来自「网佳网络办公系统(以下简称OA)是一套基于B/S模式的无纸化办公系统。[显著特点」· ASP 代码 · 共 61 行

ASP
61
字号
<%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 &amp;&amp; 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">&nbsp;&nbsp;
          <a href="duanxinlist.asp">
          <IMG 
            alt=查看信息 src="images/inboxpm.gif" border=0 width="40" height="40"></a> &nbsp;
          <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> &nbsp;<IMG 
            alt=回复消息 src="images/replypm.gif" border=0 width="40" height="40">&nbsp;
          <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 + =
减小字号Ctrl + -
显示快捷键?