📄 duanxincall.asp
字号:
<%username=session("hxf_u_nickname")
if username="" then Response.Redirect "error.asp?id=440"
Set conn=Server.CreateObject("ADODB.CONNECTION")
'Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("hg_connstr")
conn.open connstr
set tablelist=conn.execute("select * from 短信 where jieshou='"&username&"' and del=false")
if not(tablelist.eof and tablelist.bof) then
id=tablelist("id")
Response.Redirect "duanxincall.asp"
else
Response.Redirect "duanxinsee.asp"
conn.close
set conn=nothing
end if
%>
<HTML><HEAD><TITLE>OA短消息即使接受窗口</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK
href="forum.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>
<bgsound src=images/msg.wav loop=2>
<TABLE cellSpacing=0 cellPadding=0 width="281" align=center bgColor=#777777
border=0>
<TBODY>
<TR>
<TD width="294">
<TABLE borderColor=#ffffff cellSpacing=1 cellPadding=3 width="294"
border=2 height="131">
<TBODY>
<TR>
<TD align=middle bgColor=#3399ff colSpan=3 height="14" width="280"><FONT face=Wingdings
color=#ffffff>*</FONT><FONT
color=#ffffff><span lang="en-us">OA</span>短信即时通</FONT></TD></TR>
<TR>
<TD vAlign=center align=middle bgColor=#f2f8ff colSpan=3 height="42" width="280">
<img border="0" src="IMAGES/newNew.gif"></TD></TR>
<TR>
<TD vAlign=center align=middle bgColor=#e8f4ff height="12" width="443">
<font color="#FF0000">如果你想随时收到其他用户给你发的短信，请不要关闭此窗口</font></TD></TR>
<TR>
<TD vAlign=top align=left bgColor=#f2f8ff height="27" width="443">
现在有新的短信 <a href="duanxininfo.asp?id=<%=id%>"><font color="#FF0000">单击查看</font><span lang="en-us"><font color="#FF0000">>>></font></span></a></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
</BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -