displaymessage.asp

一个虚拟主机代理系统

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

Sub Displaymessage()

	dim action,messaging_id,smumquery,messaging_fromid,messaging_toid,messaging_date,messaging_subject,messaging_message,src
	
	if not Application("smumdebugmode") then on error resume next

	if session("id") = "" then Response.Redirect smumpage&"?action=login&url="&Request.ServerVariables("url")&"?action=inbox"
	
	action = request("action")
	
	messaging_id = request("messaging_id")
	src = request("src")
	
	smumquery = "select * from smum_messagingtbl where messaging_id = "&messaging_id
	smumOpenrs smumquery,"smumrs",action
	
		messaging_fromid = smumrs("messaging_fromid")
		messaging_toid = smumrs("messaging_toid")
		messaging_date = smumrs("messaging_date")
		messaging_subject = smumrs("messaging_subject")
		messaging_message = replace(smumrs("messaging_message"),vbcrlf,"<br>")

	smumClosers(smumrs)

	smumFormOpenTable
	smumFormHeader "Message Details"
	%>
	<tr>
		<td class=colorwhite align=left><font class=textsize9><b>From</b> : <%=smumgetusername(messaging_fromid)%><br><br>
		<b>To</b> : <%=smumgetusername(messaging_toid)%><br><br>
		<b>Date</b> : <%=messaging_date%><br><br>
		<b>Subject</b> : <%=messaging_subject%><br><br>
		<b>Message</b> : <%=messaging_message%>
		</font><br><br></td>
	</tr>
	<tr>
		<td class=colorformheader align=right><font class=textsize8>
		<%if messaging_fromid <> session("id") then%>
			<a href="<%=request.servervariables("url")%>?action=reply&messaging_id=<%=messaging_id%>"><img src=/smusermanager/images/reply.gif border=0 alt=Reply align=absmiddle> Reply</a>&nbsp;&nbsp;
		<%end if%>
			<a href="<%=request.servervariables("url")%>?action=deletemessage&messaging_id=<%=messaging_id%>"><img src=/smusermanager/images/delete.gif border=0 alt=Delete align=absmiddle> Delete</a>
		</font></td>
	</tr>
										
	<%smumFormCloseTable
	
	if src <> "sent" then
		smumquery = "update smum_messagingtbl set messaging_displaystatus = "&smumtrue&" where messaging_id = "&messaging_id
		smumexecutequery smumquery,action
	end if
	
End Sub%>