📄 view.asp
字号:
<%Option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<%
Dim ObjDB,ObjRS,StrSQL
Dim C,ID,StartDate,Title
Dim StrMessage
Dim DateTime1,DateTime2
Set ObjDB = Server.CreateObject ("ADODB.Connection")
OpenDB ObjDB
StrSQL = "Select top 1 * From t_OA_Private_Log Where IsRemind=0 "
StrSQL = StrSQL & " and StartDate >= DateAdd(n, -Remind, getdate()) "
StrSQL = StrSQL & " and StartDate <= DateAdd(n, Remind, getdate()) "
StrSQL = StrSQL & " and AccountID = " & Session("AccountID")
'Response.Write StrSQL
Set ObjRS = ObjDB.Execute (StrSQL)
if NOT ObjRS.EOF then
ID = ObjRS("ID")
StartDate = ObjRS("StartDate")
else
'Response.End
end if
IF ID<>"" then
Title = ObjRS("Title")
StartDate=ObjRS("StartDate")
StrSQL = "Update t_OA_Private_Log Set IsRemind = 1 where ID = " & ID
ObjDB.Execute (StrSQL)
%>
<html>
<head>
<title>个人日程提示</title>
<style>
<!--
td { font-size: 12px }
-->
</style>
<bgsound src="../sound/msg.wav" loop=1>
</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="系统提示" 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(StartDate)%>-<%=Month(StartDate)%>-<%=Day(StartDate)%>">
时间:<input type="text" name="D" size="15" style="font-size: 12px; border-style: inset; border-width: 1" value="<%=Hour(StartDate)%>:<%=Minute(StartDate)%>:<%=Second(StartDate)%>">
</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"><%=Title%></textarea></td>
</tr>
<tr>
<td>
<p align="center"><input type="button" value="确 定" onclick="window.returnValue=1;window.close()" id=button1 name=button1></td>
</tr>
</table>
</body>
</html>
<%
End if
ObjRS.close
Set ObjRS = Nothing
ObjDB.Close
Set ObjDB = Nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -