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")
	'AccountID = Session("AccountID")
	Set ObjDB = Server.CreateObject ("ADODB.Connection")
	OpenDB ObjDB
	
	StrSQL = "Select top 1 ID,TrueName,Body,CreateTime From v_OA_Work_UserMessage_TrueName where ToID ="& AccountID &" and IsReaded = 0 order by ID"
	Set ObjRS = ObjDB.Execute (StrSQL)
	If Not ObjRS.Eof Then
		ID = ObjRS("ID")
		StrSQL = "Update t_OA_Work_UserMessage Set IsReaded = 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%>