?? sent.asp
字號:
<%'=========================================
'ScriptMate User Manager Version 2.1
'Copyright 2001 (C) ScriptMate.Com
'User Module
'This module helps in displaying all the Sent messages
'For any help with modification to
'this file contact support@scriptmate.com
'=========================================
Sub Sent()
dim action,records,smumarray,iscolor
if not Application("smumdebugmode") then on error resume next
if session("id") = "" then Response.Redirect smumpage&"?action=login&url="&Request.ServerVariables("url")&"?action=sent"
action = request("action")
smumquery = "select * from smum_messagingtbl where messaging_fromid = "&session("id") &" and messaging_deletestatusfrom = "&smumfalse&" order by messaging_date desc"
smumOpenrs smumquery,"smumrs",action
if smumrs.eof then
smumFormOpenTable
smumFormHeader "Sent Messages"
smumFormResponse "There are currently no Message"
smumFormCloseTable
else
records = true
smumarray = smumrs.getrows
end if
smumClosers(smumrs)
if records then
smumFormOpenTable%>
<tr class=colorformheader>
<td colspan=4 align=left><font class=textsize9><b>Sent Messages</b></font></td>
</tr>
<tr class=colorformfields>
<td align=center width=5% nowrap></td>
<td align=center width=10% nowrap><font class=textsize9><b>To</b></font></td>
<td align=left><font class=textsize9><b>Subject</b></font></td>
<td align=center><font nowrap width=10% class=textsize9><b>Date</b></font></td>
</tr>
<%dim i
For i = 0 to ubound(smumarray,2)
if iscolor = false then
response.write"<tr class=colorwhite><td align=center width=5% nowrap>"
iscolor = true
else
response.write"<tr class=colorformfields><td align=center width=5% nowrap>"
iscolor = false
end if
response.write "<a href="""&request.servervariables("url")&"?action=deletemessage&messaging_id="&smumarray(0,i)&"""><img src=/smusermanager/images/delete.gif border=0 align=absmiddle alt=Delete></a>"
response.write "</td><td align=center width=10% nowrap><font class=textsize9><a href="""&request.servervariables("url")&"?action=displaymember&messaging_id="&smumarray(3,i)&""">"&smumgetusername(smumarray(3,i))&"</a></font></td><td align=left><font class=textsize9><a href="""&request.servervariables("url")&"?action=displaymessage&src=sent&messaging_id="&smumarray(0,i)&""">"
response.write smumarray(4,i)
response.write "</a></font></td><td nowrap width=10% align=center><font class=textsize9>"&monthname(month(smumarray(1,i)),true) & " " & day(smumarray(1,i)) &"</font></td></tr>"
next
smumFormCloseTable
end if
End Sub%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -