editmessage.asp

一个虚拟主机代理系统

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

Sub Editmessage()

	dim todo,action,messaging_fromid,messaging_toid,messaging_subject,messaging_message,id
	
	smumadminheader("<a href="""&smumadminpage&"?action=approvemessages"">Approve Messages</a> > Edit Message")

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

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

	todo = request("todo")

	id = request("id")

	if todo = "" then

		smumquery = "select * from smum_messagingtbl where messaging_id = "& id
		smumOpenrs smumquery,"smumrs",action
		
			messaging_fromid = smumrs("messaging_fromid")
			messaging_toid = smumrs("messaging_toid")
			messaging_subject = smumrs("messaging_subject")
			messaging_message = smumrs("messaging_message")
		
		smumClosers(smumrs)

		smumFormAction "<form action="""&smumadminpage&"?action=editmessage"" method=post>"
		smumFormHiddenField "todo","edit"
		smumFormHiddenField "id",id
		smumFormOpenTable
		smumFormHeader "Edit Message"
		smumFormFields "From","<a href="""&smumadminpage&"?action=editmember&id="&messaging_fromid&""" target=""_blank""><b>"&smumgetusername(messaging_fromid)&"</b></a>"
		smumFormFields "To","<a href="""&smumadminpage&"?action=editmember&id="&messaging_toid&""" target=""_blank""><b>"&smumgetusername(messaging_toid)&"</b></a>"
		smumFormFields "Subject","<input class=fieldbox type=text size=35 maxlength=50 name=""messaging_subject"" value="""&messaging_subject&""">"
		smumFormFields "Message","<textarea class=fieldbox rows=12 cols=45 name=messaging_message>"&messaging_message&"</textarea>"
		smumFormButtons "<input class=fieldbox type=submit value=""Edit and Approve Message"" id=submit2 name=submit2>"
		smumFormCloseTable
		smumFormClose		
		
	elseif todo = "edit" then

		messaging_subject = smFixer(request("messaging_subject"))
		messaging_message = smFixer(request("messaging_message"))

		if id = "" then
			Response.Redirect smumadminpage&"?action=approvemessages"
		else
			smumquery = "update smum_messagingtbl set messaging_subject = '"&messaging_subject&"', messaging_message = '"&messaging_message&"', messaging_approvalstatus = "& smumtrue &" where messaging_id = "& id
			smumexecutequery smumquery,action
			
			Response.Redirect smumadminpage&"?action=approvemessages"
		end if
		
	end if

End Sub%>