messages.asp

来自「一个虚拟主机代理系统」· ASP 代码 · 共 54 行

<%'=========================================
'ScriptMate User Manager Version 2.1
'Copyright 2001 (C) ScriptMate.Com
'User Module
'This module helps in displaying error messages
'For any help with modification to
'this file contact [e-mail]
'=========================================

Sub Messages()

	dim mesid,currmessage
	
	if not Application("smumdebugmode") then on error resume next

	mesid = Request.QueryString ("mesid")

	Select Case mesid

		Case 1
		currmessage = Application("smumdocumentexpired") 

		Case 2
		currmessage = Application("smumunauthorised") 

		Case 3
		currmessage = Application("smuminactivemember") 

		Case 4
		currmessage = Application("smuminvalidlevel") 

		Case 5
		currmessage = Application("smummemberexpired") 

		Case 6
		currmessage = Application("smuminvalidgroup")
		
		Case 7
		currmessage = Application("smumerrormaxips")

		Case 8
		currmessage = Application("smumerrormultiplelogin")
		
		Case else
		currmessage = "Invalid Request."

	End Select

	smumFormOpenTable
	smumFormHeader "Error in Processing your request"
	smumFormResponse currmessage
	smumFormCloseTable

End Sub%>