admin_mail.asp

电子商城代码

<!--#include file="conn.asp"-->
<!--#include file="../webconfig.asp"-->
<!--#include file="../include/56770_email_cls.asp"-->
<%
admintop()
Dim admin_flag
admin_flag=",50,"
	if session("admin_name")="" or instr(","&session("flag")&",",admin_flag)=0 then
	adminflag()	
	else
Select Case Request("action")
	Case "del" : del()
	Case "sendok" : sendok()
	Case "sendmail" : sendmail()
	Case "add" : add()
	Case "save" : save()
	Case "modi" : modi()
	Case "update" : update()
	Case "mes_list" : mes_list()
	Case "mes_del" :mes_del()
	Case "mes_modi" : mes_modi()
	Case "mes_modi_ok" : mes_modi_ok()
	Case "addmes" : addmes()
	Case "addmes_ok" :addmes_ok()
	Case Else
		list()
	End Select
Sub save
       If safereplace(request("m_mail"))="" Or safereplace(request("m_name"))="" Then 
	   response.write"<table border='0' cellspacing='1' cellpadding='0' height='0' align='center' width='98%' bgcolor='#183789'>"&_
	                 " <tr>"&_
					 "   <td>"&_
					 "    <table border='0' cellspacing='1' cellpadding='0' height='0' align='center' width='100%' bgcolor='#FFFFFF'>"&_
					 "      <tr><td height=25 class=classtop> &nbsp; 鍑洪敊浜