maillist.asp

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

<%'=========================================
'ScriptMate User Manager Version 2.1
'Copyright 2001 (C) ScriptMate.Com
'Admin Module
'This module helps to add and delete members from the mailing list
'For any help with modification to
'this file contact [e-mail]
'=========================================%>

<script language="JAVASCRIPT">

	var errfound = false;

		function ValidLength(item, len) {
		   return (item.length >= len);
		}

		function ValidEmail(item) {
		   if (!ValidLength(item, 5)) return false;
		   if (item.indexOf ('@', 0) == -1) return false;
		   if (item.indexOf ('.', 0) == -1) return false;
		   return true;
		}

		function error(elem, text) {
		   if (errfound) return;
		   window.alert(text);
		   elem.select();
		   elem.focus();
		   elem.style.backgroundColor=errorcolor;
		   errfound = true;
		}
		function Validate() {
		   errfound = false;
		   d=document.maillist
		   if (!ValidLength(d.maillist_name.value,2))error(d.maillist_name,"Name of the person should not be blank.");
		   if (!ValidEmail(d.maillist_email.value))error(d.maillist_email,"Please enter a valid email address ex. [e-mail]");
		   return !errfound;
		}

</script>

<%Sub Maillist()
	
	dim records,mailsar,i,name,email,todo,id,maillist_name,maillist_email,field,order,istart,headerdataa,displaystring,adderror
	
	Response.Expires = 0
	smumadminheader("Mailing List Management")
	
	if not Application("smumdebugmode") then on error resume next
	
	action = request("action")
	todo = request("todo")
		
	field = Request.QueryString ("field")
	order = Request.QueryString ("order")
	id = Request.QueryString ("id")
	istart = Request.QueryString ("start")
	
	if todo = "" then
	
		smumFormAction "<form action="""&smumadminpage&"?action=maillist"" method=post name=maillist language=""JAVASCRIPT"" onsubmit=""return Validate();"">"
		smumFormHiddenField "todo","add"
		smumFormOpenTable
		smumFormHeader "Add a Member to the mailing list"
		smumFormFields "Name of the Person","<input class=fieldbox type=text size=30 name=maillist_name>"
		smumFormFields "Email Address","<input class=fieldbox type=text maxlength=255 size=30 name=maillist_email>"
		smumFormButtons "<input class=fieldbox type=submit value=""Add to Maillist"" name=submit>"
		smumFormCloseTable
		smumFormClose		

		if (field = "" or order = "") then
			smumquery = "select maillist_name,maillist_email,maillist_id from smum_maillisttbl order by maillist_name desc"
		elseif (field <> "" or order <> "") then
			smumquery = "select maillist_name,maillist_email,maillist_id from smum_maillisttbl order by "&field&" "&order
		end if

		headerdataa = "<tr class=colorformfields><td align=center><font class=textsize9><b><a href="&smumadminpage&"?action=maillist&start="&istart&"&field=maillist_name&order=asc&id="&id&"><img src=/smusermanager/images/asc.gif border=0 align=absmiddle alt=""By Ascending Order""></a><a href="&smumadminpage&"?action=maillist&start="&istart&"&field=maillist_name&order=desc&id="&id&"><img src=/smusermanager/images/desc.gif border=0 align=absmiddle alt=""By Descending Order""></a> Name of the Person</b></font></td><td align=center><font class=textsize9><a href="&smumadminpage&"?action=maillist&start="&istart&"&field=maillist_email&order=asc&id="&id&"><img src=/smusermanager/images/asc.gif border=0 align=absmiddle alt=""By Ascending Order""></a><a href="&smumadminpage&"?action=maillist&start="&istart&"&field=maillist_email&order=desc&id="&id&"><img src=/smusermanager/images/desc.gif border=0 align=absmiddle alt=""By Descending Order""></a> <b>Email Address</b></font></td><td width=10% align=center><font class=textsize9><b>Options</b></font></td></tr>"
						
		displaystring = displaystring &  "<tr class=colorformfields>"
		displaystring = displaystring &  "<td align=center><font class=textsize9>item0a</font></td>"
		displaystring = displaystring &  "<td align=center><font class=textsize9>item1a</font></td>"
		displaystring = displaystring &  "<td width=10% align=center><font class=textsize9><a href="&smumadminpage&"?action=maillist&todo=edit&id=item2a><img src=""/smusermanager/images/edit.gif"" alt=""Edit this Mailling List Member"" border=0></a> | <a href="&smumadminpage&"?action=maillist&todo=delete&id=item2a><img src=""/smusermanager/images/delete.gif"" alt=""Delete this Mailling List Member"" border=0></a></font></td>"
		displaystring = displaystring &  "</tr>"
	
		smPaging smumdataconn,smumquery,headerdataa,displaystring,50,"maillist","There are currently no members in the mailing list.","Mail List Management",iStart
					
	elseif todo = "add" then
	
		maillist_name = request("maillist_name")	
		maillist_email = request("maillist_email")
		
		if maillist_name = "" or maillist_email = "" then
			Response.Redirect smumadminpage&"?action=maillist"
		else

			smumquery = "select maillist_email from smum_maillisttbl where maillist_email = '"&maillist_email&"' "
			smumOpenrs smumquery,"smumrs",action
			
				if smumrs.eof then
				else
					adderror = "error occured"
					smJSalert("The Email Address - "& maillist_email &" has been already Subscribed for the Mailing List.")
				end if
	
			smumClosers(smumrs)

			if adderror = "" then
				smumquery = "insert into smum_maillisttbl (maillist_name,maillist_email) values ('"&maillist_name&"','"&maillist_email&"')"
				smumexecutequery smumquery,action
			
				Response.Redirect smumadminpage&"?action=maillist"
			end if
			
		end if
	
	elseif todo = "delete" then
	
		id = request("id")
		
		if id = "" then
			Response.Redirect smumadminpage&"?action=maillist"
		else
			smumquery = "select * from smum_maillisttbl where maillist_id = "&id
			smumOpenrs smumquery,"smumrs",action
			
				maillist_name = smumrs("maillist_name")
				maillist_email = smumrs("maillist_email")
	
			smumClosers(smumrs)
			
			smumFormOpenTable
			smumFormHeader "Delete a Maillist Member"
			smumFormResponse "Do you really wish to delete <b>"&name&"</b> - <b>"&maillist_email&"</b> ?"
			smumFormButtons "<input class=fieldbox type=button value=Yes onClick=""javascript:window.location=('"&smumadminpage&"?action=maillist&todo=deleteyes&id="&request("id")&"');"" name=button2>&nbsp;&nbsp;&nbsp;<input class=fieldbox type=button value=No onClick=""javascript:window.location=('"&smumadminpage&"?action=maillist');"" name=button1>"
			smumFormCloseTable

		end if
	
	elseif todo = "deleteyes" then

		id = request("id")
		
		if id = "" then
			Response.Redirect smumadminpage&"?action=maillist"
		else
			smumquery = "delete from smum_maillisttbl where maillist_id = " & id
			smumexecutequery smumquery,action
			
			Response.Redirect smumadminpage&"?action=maillist"
		end if

	elseif todo = "edit" then

		id = request("id")
		
		if id = "" then
			Response.Redirect smumadminpage&"?action=maillist"
		else
			smumquery = "select * from smum_maillisttbl where maillist_id = "& id
			smumOpenrs smumquery,"smumrs",action
			
				maillist_name = smumrs("maillist_name")
				maillist_email = smumrs("maillist_email")

			smumClosers(smumrs)

			smumFormAction "<form action="""&smumadminpage&"?action=maillist"" method=post name=maillist language=""JAVASCRIPT"" onsubmit=""return Validate();"">"
			smumFormHiddenField "todo","edityes"
			smumFormHiddenField "id",id
			smumFormOpenTable
			smumFormHeader "Edit a Member from the mailing list"
			smumFormFields "Name of the Person","<input class=fieldbox type=text size=30 name=maillist_name value="""&maillist_name&""">"
			smumFormFields "Email Address","<input class=fieldbox type=text maxlength=255 size=30 name=maillist_email value="""&maillist_email&""">"
			smumFormButtons "<input class=fieldbox type=submit value=""Update"" name=submit>"
			smumFormCloseTable
			smumFormClose		

		end if

	elseif todo = "edityes" then

		id = request("id")
		
		if id = "" then
			Response.Redirect smumadminpage&"?action=maillist"
		else

			maillist_name =request("maillist_name")
			maillist_email = request("maillist_email")
			
			if maillist_name = "" or maillist_email = "" then
				Response.Redirect smumadminpage&"?action=maillist&todo=edit&id="&id
			end if

			smumquery = "update smum_maillisttbl set maillist_name = '"&maillist_name&"',maillist_email = '"&maillist_email&"' where maillist_id = " &id
			smumexecutequery smumquery,action
			
			Response.Redirect smumadminpage&"?action=maillist"

		end if

	end if

End Sub%>