online.asp

功能齐全的oa系统

<%Option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/CleanOnline.asp" -->
<%
	Dim ObjDB,ObjRS,StrSQL
	Dim AccountID,IntMessageCount
	AccountID = Session("AccountID")
	If AccountID = "" Then
%>
	<script language=javascript>
	top.close()
	</script>
<%
		Response.End 
	End If
	
	Set ObjDB = Server.CreateObject ("ADODB.Connection")
	OpenDB ObjDB
	
	StrSQL = "Select Count(*) From t_OA_Work_UserMessage where ToID = "& AccountID &" and IsReaded = 0"
	Set ObjRS = ObjDB.Execute (StrSQL)
	IntMessageCount = ObjRS(0)
	
	Call CleanOnline(ObjDB)
	ObjDB.Close 
	Set ObjDB = Nothing

	If IntMessageCount > 0 Then
	

%>

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


<%
	End if
%>