messages.asp

一个虚拟主机代理系统

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

Sub Messages()

	dim action,smumquery,dbsmumdocumentexpired,dbsmumunauthorised,dbsmuminactivemember,dbsmuminvalidlevel,dbsmuminvalidgroup,_
	dbsmummemberexpired,dbsmumnotloggedin,dbsmumerrormultiplelogin,dbsmuminvalidusername,dbsmuminvalidpassword,dbsmummesregistermailcontent,_
	dbsmumregistermailsubject,dbsmummesforgotpasserror,dbsmummesforgotpasssuccess,dbsmumforgotpassmailsubject,dbsmummesforgotpassmailcontent,_
	dbsmumadminmailsubject,dbsmummesadminmailcontent,dbsmummaillistsubscribe,dbsmummaillistunsubscribe,dbsmummesforgotusernameerror,_
	dbsmummesforgotusernamesuccess,dbsmumforgotusernamemailsubject,dbsmummesforgotusernamemailcontent,dbsmumexpiryreminder,dbsmumerrormaxips,_
	name,mystring,todo
	
	smumadminheader("Configurable Messages")

	if not Application("smumdebugmode") then on error resume next

	if session("admin") = "" then Response.Redirect smumadminpage & "?action=login"

	action = request("action")
	
	todo = request("todo")
	
	if todo = "" then

		smumquery = "select * from smum_preferencestbl"
		smumOpenrs smumquery,"smumrs",action
		
			dbsmumdocumentexpired = smumrs("smumdocumentexpired")
			dbsmumunauthorised = smumrs("smumunauthorised")
			dbsmuminactivemember = smumrs("smuminactivemember")
			dbsmuminvalidlevel = smumrs("smuminvalidlevel")
			dbsmuminvalidgroup = smumrs("smuminvalidgroup")
			dbsmummemberexpired = smumrs("smummemberexpired")
			dbsmumnotloggedin = smumrs("smumnotloggedin")
			dbsmumerrormultiplelogin=smumrs("smumerrormultiplelogin")
			dbsmuminvalidusername = smumrs("smuminvalidusername")
			dbsmuminvalidpassword = smumrs("smuminvalidpassword")
			dbsmummesregistermailcontent = smumrs("smummesregistermailcontent")
			dbsmumregistermailsubject = smumrs("smumregistermailsubject")
			dbsmummesforgotpasserror = smumrs("smummesforgotpasserror")
			dbsmummesforgotpasssuccess = smumrs("smummesforgotpasssuccess")
			dbsmumforgotpassmailsubject = smumrs("smumforgotpassmailsubject")
			dbsmummesforgotpassmailcontent = smumrs("smummesforgotpassmailcontent")
			dbsmumadminmailsubject = smumrs("smumadminmailsubject")
			dbsmummesadminmailcontent = smumrs("smummesadminmailcontent")
			dbsmummaillistsubscribe = smumrs("smummaillistsubscribe")
			dbsmummaillistunsubscribe = smumrs("smummaillistunsubscribe")
			dbsmummesforgotusernameerror = smumrs("smummesforgotusernameerror")
			dbsmummesforgotusernamesuccess = smumrs("smummesforgotusernamesuccess")
			dbsmumforgotusernamemailsubject = smumrs("smumforgotusernamemailsubject")
			dbsmummesforgotusernamemailcontent = smumrs("smummesforgotusernamemailcontent")
			dbsmumexpiryreminder = smumrs("smumexpiryreminder")
			dbsmumerrormaxips = smumrs("smumerrormaxips")

		smumClosers(smumrs)

		smumFormAction "<form action="""&smumadminpage&"?action=messages"" method=post name=form>"
		smumFormHiddenField "todo","add"
		smumFormOpenTable
		smumFormHeader "Configure Messages"
		smumFormFields "Expired Documents","<textarea class=fieldbox name=smumdocumentexpired cols=35 rows=5>"&dbsmumdocumentexpired&"</textarea>"
		smumFormFields "Unauthorised Members","<textarea class=fieldbox name=smumunauthorised cols=35 rows=5>"&dbsmumunauthorised&"</textarea>"
		smumFormFields "Inactive Member","<textarea class=fieldbox name=smuminactivemember cols=35 rows=5>"&dbsmuminactivemember&"</textarea>"
		smumFormFields "Expiry Reminder","<textarea class=fieldbox name=smumexpiryreminder cols=35 rows=5>"&dbsmumexpiryreminder&"</textarea>"
		smumFormFields "Error for Maximum IPs","<textarea class=fieldbox name=smumerrormaxips cols=35 rows=5>"&dbsmumerrormaxips&"</textarea>"
		smumFormFields "Expired Members","<textarea class=fieldbox name=smummemberexpired cols=35 rows=5>"&dbsmummemberexpired&"</textarea>"
		smumFormFields "Login Request","<textarea class=fieldbox name=smumnotloggedin cols=35 rows=5>"&dbsmumnotloggedin&"</textarea>"
		smumFormFields "Multiple Logins","<textarea class=fieldbox name=smumerrormultiplelogin cols=35 rows=5>"&dbsmumerrormultiplelogin&"</textarea>"

		smumFormResponse "<b>For Invalid</b>"
		smumFormFields "Username","<textarea class=fieldbox name=smuminvalidusername cols=35 rows=5>"&dbsmuminvalidusername&"</textarea>"
		smumFormFields "Password","<textarea class=fieldbox name=smuminvalidpassword cols=35 rows=5>"&dbsmuminvalidpassword&"</textarea>"
		smumFormFields "Group","<textarea class=fieldbox name=smuminvalidgroup cols=35 rows=5>"&dbsmuminvalidgroup&"</textarea>"
		smumFormFields "Level","<textarea class=fieldbox name=smuminvalidlevel cols=35 rows=5>"&dbsmuminvalidlevel&"</textarea>"

		smumFormResponse "<b>For Successful Maillist</b>"
		smumFormFields "Subscribe","<textarea class=fieldbox name=smummaillistsubscribe cols=35 rows=5>"&dbsmummaillistsubscribe&"</textarea>"
		smumFormFields "Unsubscribe","<textarea class=fieldbox name=smummaillistunsubscribe cols=35 rows=5>"&dbsmummaillistunsubscribe&"</textarea>"

		smumFormResponse "<b>For Registration</b>"
		smumFormFields "Email Subject","<textarea class=fieldbox name=smumregistermailsubject cols=35 rows=5>"&dbsmumregistermailsubject&"</textarea>"
		smumFormFields "Email Content","<textarea class=fieldbox name=smummesregistermailcontent cols=35 rows=5>"&dbsmummesregistermailcontent&"</textarea>"

		smumFormResponse "<b>For Forgot Password</b>"
		smumFormFields "Error","<textarea class=fieldbox name=smummesforgotpasserror cols=35 rows=5>"&dbsmummesforgotpasserror&"</textarea>"
		smumFormFields "Successful","<textarea class=fieldbox name=smummesforgotpasssuccess cols=35 rows=5>"&dbsmummesforgotpasssuccess&"</textarea>"
		smumFormFields "Email Subject","<textarea class=fieldbox name=smumforgotpassmailsubject cols=35 rows=5>"&dbsmumforgotpassmailsubject&"</textarea>"
		smumFormFields "Email Content","<textarea class=fieldbox name=smummesforgotpassmailcontent cols=35 rows=5>"&dbsmummesforgotpassmailcontent&"</textarea>"

		smumFormResponse "<b>For User Registration Notification</b>"
		smumFormFields "Subject","<textarea class=fieldbox name=smumadminmailsubject cols=35 rows=5>"&dbsmumadminmailsubject&"</textarea>"
		smumFormFields "Email Content","<textarea class=fieldbox name=smummesadminmailcontent cols=35 rows=5>"&dbsmummesadminmailcontent&"</textarea>"

		smumFormResponse "<b>For Forgot Username</b>"
		smumFormFields "Error","<textarea class=fieldbox name=smummesforgotusernameerror cols=35 rows=5>"&dbsmummesforgotusernameerror&"</textarea>"
		smumFormFields "Successful Sent","<textarea class=fieldbox name=smummesforgotusernamesuccess cols=35 rows=5>"&dbsmummesforgotusernamesuccess&"</textarea>"
		smumFormFields "Email Subject","<textarea class=fieldbox name=smumforgotusernamemailsubject cols=35 rows=5>"&dbsmumforgotusernamemailsubject&"</textarea>"
		smumFormFields "Email Content","<textarea class=fieldbox name=smummesforgotusernamemailcontent cols=35 rows=5>"&dbsmummesforgotusernamemailcontent&"</textarea>"

		smumFormButtons "<input class=fieldbox type=submit value=""Modify Messages"" name=submit>"
		smumFormCloseTable
		smumFormClose		

	else

		For Each name in Request.form
			MyString = "db"&name&"=smFixer(request.form("""&name&"""))"
			execute(mystring)
		Next

		smumquery = "update smum_preferencestbl set	smumdocumentexpired = '"&dbsmumdocumentexpired&"',smumunauthorised = '"&dbsmumunauthorised&"',smuminactivemember = '"&dbsmuminactivemember&"',smuminvalidlevel = '"&dbsmuminvalidlevel&"', smuminvalidgroup = '"&dbsmuminvalidgroup&"',smummemberexpired = '"&dbsmummemberexpired&"',smumnotloggedin = '"&dbsmumnotloggedin&"',smuminvalidusername = '"&dbsmuminvalidusername&"',smuminvalidpassword = '"&dbsmuminvalidpassword&"',smummesregistermailcontent = '"&dbsmummesregistermailcontent&"',smumregistermailsubject = '"&dbsmumregistermailsubject&"',smummesforgotpasserror = '"&dbsmummesforgotpasserror&"',smummesforgotpasssuccess = '"&dbsmummesforgotpasssuccess&"',smumforgotpassmailsubject = '"&dbsmumforgotpassmailsubject&"',smummesforgotpassmailcontent = '"&dbsmummesforgotpassmailcontent&"',smumadminmailsubject = '"&dbsmumadminmailsubject&"',smummesadminmailcontent = '"&dbsmummesadminmailcontent&"',smummaillistsubscribe = '"&dbsmummaillistsubscribe&"',smummaillistunsubscribe = '"&dbsmummaillistunsubscribe&"',smummesforgotusernameerror = '"&dbsmummesforgotusernameerror&"',smummesforgotusernamesuccess = '"&dbsmummesforgotusernamesuccess&"',smumforgotusernamemailsubject = '"&dbsmumforgotusernamemailsubject&"',smummesforgotusernamemailcontent = '"&dbsmummesforgotusernamemailcontent&"',smumexpiryreminder = '"&dbsmumexpiryreminder&"',smumerrormaxips = '"&dbsmumerrormaxips&"', smumerrormultiplelogin='"&dbsmumerrormultiplelogin&"'"
		smumexecutequery smumquery,action
		
		call smumrengenprefrences()
		
		smumFormOpenTable
		smumFormHeader "Configure Messages"
		smumFormResponse "The messages have been modified successfully."
		smumFormCloseTable

	end if

End Sub%>