diagnostics.asp

一个虚拟主机代理系统

<%'=========================================
'ScriptMate User Manager Version 2.1
'Copyright 2001 (C) ScriptMate.Com
'Admin Module
'This module helps in viewing the details of software used
'For any help with modification to
'this file contact [e-mail]
'=========================================

Sub Diagnostics()
	
	dim action,readtest,writetest,adoversion,filewritetest
	
	smumadminheader("Diagnostics")
	session("emailsettings")= ""
	
	on error resume next
	
	if session("admin") = "" then Response.Redirect smumadminpage & "?action=login"
	
	action = request("action")
	
	Set objConn = Server.CreateObject("ADODB.Connection") 
		adoversion =  objConn.Version 
	Set objConn = nothing

	err.clear
	smumquery = "select * from smum_testtbl"
	smumOpenrs smumquery,"smumrs",action
	
		if err.number = 0 then
			readtest = "<b><font color=green>Passed</font></b>"
		else
			readtest = "<b><font color=red>Failed</font></b>"
		end if
	
	smumClosers(smumrs)
	
	err.clear
	smumquery = "update smum_testtbl set test_testfield = '"&now()&"'"
	smumexecutequery smumquery,action

		if err.number = 0 then
			writetest = "<b><font color=green>Passed</font></b>"
		else
			writetest = "<b><font color=red>Failed</font></b>"
		end if

	err.clear
	
	smumFormOpenTable
	smumFormHeader "System Diagnostics"
	smumFormFields "Server Software",Request.ServerVariables("server_software")
	smumFormFields "Server Name",Request.ServerVariables("server_name")
	smumFormFields "VBScript Engine Version",ScriptEngineMajorVersion
	smumFormFields "ADO Version",adoversion
	smumFormFields "ScriptMate User Manager Version",smumversion
	smumFormFields "Mail Component",Application("smummailcomponent")
	smumFormFields "Mail Server",Application("smummailserver")
	smumFormFields "Database Type",smumdatabasetype
	smumFormFields "Database Read Test",readtest
	smumFormFields "Database Write Test",writetest
	smumFormCloseTable

End Sub%>