sent.asp

来自「一个虚拟主机代理系统」· ASP 代码 · 共 78 行

<%'=========================================
'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 [e-mail]
'=========================================

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%>