📄 view.asp
字号:
<%Option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<%
Dim ObjDB,ObjRS,StrSQL
Dim C,ID
Dim IntFromID,StrTrueName
Dim DatCreateTime,StrMessage
Set ObjDB = Server.CreateObject ("ADODB.Connection")
OpenDB ObjDB
StrSQL = "Select top 1 ID,TrueName,FromID,Body,CreateTime From v_OA_Work_UserMessage_TrueName where IsReaded = 0 And ToID = " & Session("AccountID")
Set C = Server.CreateObject ("CMS2003.DBHandle")
C.Init (ObjDB)
Set ObjRS = C.View (StrSQL)
ID = ObjRS("ID")
IntFromID = ObjRS("FromID")
StrTrueName = ObjRS("TrueName")
DatCreateTime = ObjRS("CreateTime")
StrMessage = ObjRS("Body")
If IntFromID = 0 Then StrTrueName = "系统消息"
StrSQL = "Update t_OA_Work_UserMessage Set IsReaded = 1 where ID = " & ID
ObjDB.Execute (StrSQL)
ObjDB.Close
Set ObjDB = Nothing
%>
<html>
<head>
<title>短信息提示</title>
<style>
<!--
td { font-size: 12px }
-->
</style>
</head>
<body bgcolor="#DEDFDE">
<table border=0 cellpadding="2" align=center>
<tr>
<td>
<table border="0" cellpadding="0" cellspacing="0" width="100%" style="border-left: 1 solid #808080; border-right: 1 solid #FFFFFF; border-top: 1 solid #808080; border-bottom: 1 solid #FFFFFF">
<tr>
<td style="border-left: 1 solid #FFFFFF; border-right: 1 solid #808080; border-top: 1 solid #FFFFFF; border-bottom: 1 solid #808080">
<table border="0" cellspacing="2" width="100%">
<tr>
<td>来自:<input type="text" name="T1" value="<%=StrTrueName%>" size="38" style="font-size: 12px; border-style: inset; border-width: 1"></td>
<td rowspan="2" style="border-style: inset; border-width: 1"><img src="/images/oa/private/usermessage/logo.gif" width=40 height=40></td>
</tr>
<tr>
<td> 日期:<input type="text" name="D" size="15" style="font-size: 12px; border-style: inset; border-width: 1" value="<%=Year(DatCreateTime)%>-<%=Month(DatCreateTime)%>-<%=Day(DatCreateTime)%>">
时间:<input type="text" name="D" size="15" style="font-size: 12px; border-style: inset; border-width: 1" value="<%=Hour(DatCreateTime)%>:<%=Minute(DatCreateTime)%>:<%=Second(DatCreateTime)%>">
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<tr>
<td><textarea rows=11 cols=50 style="font-size: 12px; border-style: inset; border-width: 1" name="d"><%=StrMessage%></textarea></td>
</tr>
<tr>
<td>
<p align="center"><input type="button" value="确 定" onclick="window.returnValue=1;window.close()"></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -