?? 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 support@scriptmate.com
'=========================================
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>
<%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%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -