displaymessage.asp

一个虚拟主机代理系统

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

Sub Displaymessage()

	dim smumquery,id,date_created,fromid,toid,subject,message
	
	smumadminheader("<a href="""&smumadminpage&"?action=approvemessages"">Approve Messages</a> > Message Details")
	
	if not Application("smumdebugmode") then on error resume next

	action = request("action")
	
	smumquery = "select * from smum_messagingtbl where messaging_id = "& request("id")
	smumOpenrs smumquery,"smumrs",action
	
		id = smumrs("messaging_id")
		date_created = smumrs("messaging_date")
		fromid = smumrs("messaging_fromid")
		toid = smumrs("messaging_toid")
		subject = smumrs("messaging_subject")
		message = replace(smumrs("messaging_message"),vbcrlf,"<br>")
		
	smumClosers(smumrs)
	
	smumFormOpenTable
	smumFormHeader "Message Details </b><img src=/smusermanager/images/clear.gif height=1 width=10 border=0><a href="""&smumadminpage&"?action=editmessage&id="&id&"""><img src=/smusermanager/images/edit.gif border=0 align=absmiddle alt=Edit></a> | <a href="""&smumadminpage&"?action=deletemessage&id="&id&"""><img src=/smusermanager/images/delete.gif border=0 align=absmiddle alt=Delete></a>  | <a href="""&smumadminpage&"?action=approvemessages&todo=approve&id="&id&"""><img src=/smusermanager/images/approve.gif border=0 align=absmiddle alt=""Approve this Message !""></a>"%>

		<tr>
			<td class=colorwhite align=left><font class=textsize9><b>From</b> : <%=smumgetusername(fromid)%><br><br>
			<b>To</b> : <%=smumgetusername(toid)%><br><br>
			<b>Date</b> : <%=date_created%><br><br>
			<b>Subject</b> : <%=subject%><br><br>
			<b>Message</b> : <%=message%>
			</font><br><br></td>
		</tr>

	<%smumFormCloseTable

End Sub%>