list.asp

功能齐全的oa系统

<%Option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<script>
window.setTimeout("history.go(0)",5000)
</script>
<%
Dim ObjDB,ObjRS,StrSQL
Dim AccountID,ID
AccountID = Request.QueryString("AccountID")
Set ObjDB = Server.CreateObject ("ADODB.Connection")
OpenDB ObjDB

StrSQL = "Select top 1 ID,Title,Place,StartDate,Remark From t_OA_Private_Log where AccountID ="& AccountID &" and IsRemind = 0 order by ID"
Set ObjRS = ObjDB.Execute (StrSQL)
If Not ObjRS.Eof Then
	ID = ObjRS("ID")
	StrSQL = "Update t_OA_Private_Log Set IsRemind = 1 where ID ="& ID
	ObjDB.Execute (StrSQL)

ObjDB.Close 
Set ObjDB = Nothing
%>

<script>
var ReturnValue = window.showModalDialog("View.asp?ID=<%=ID%>&R=" + Math.random(),"Dialog Arguments Value","dialogHeight: 320px; dialogWidth: 380px; center: Yes; help: No; resizable: No; status: no;scroll=no")
</script>
	<%else%>

<script>
window.setTimeout("history.go(0)",5000)
</script>
	<%end if%>