mailedit.asp

一个非常优秀的自动建站程序

<%
MailID = Request("MailID")
if (MailID="") then Response.Redirect ("error.asp?id=001")
%>
<!--#include file="top.asp"-->
<%
if Request("action")="action" then
if Trim(Request.Form("MailName"))="" or Trim(Request.Form("MailSize"))="" or Trim(Request.Form("MailNum"))="" or Trim(Request.Form("Price1"))="" or Trim(Request.Form("Price2"))="" or Trim(Request.Form("Price3"))="" or Trim(Request.Form("Price4"))="" or Trim(Request.Form("Price5"))="" or Trim(Request.Form("MailOther"))="" then response.redirect "error.asp?id=004"
if Request.Form("sale")=1 then sale=1 else sale=0
    set rs=server.createobject("adodb.recordset")
    sql="select * from [Mail_List] where MailID=" & MailID
    rs.open sql,conn,1,3
    if rs.bof and rs.eof then Response.Redirect("error.asp?id=001")
	rs("MailName")=Request.Form("MailName")
	rs("MailHost")=Request.Form("MailHost")
	rs("MailSize")=Request.Form("MailSize")
	rs("MailNum")=Request.Form("MailNum")
	rs("Price1")=Request.Form("Price1")
	rs("Price2")=Request.Form("Price2")
	rs("Price3")=Request.Form("Price3")
	rs("Price4")=Request.Form("Price4")
	rs("Price5")=Request.Form("Price5")
	rs("MailOther")=Request.Form("MailOther")
	rs("MailType")=Request.Form("MailType")
	rs("sales")=sale
	rs.update
    rs.close
    set rs=nothing
	response.redirect "MailIndex.asp"
	response.end
else
    set rs=server.createobject("adodb.recordset")
    sql="select * from [Mail_List] where MailID=" & MailID
    rs.open sql,conn,1,3
    if rs.bof and rs.eof then Response.Redirect("error.asp?id=001")
	MailName=rs("MailName")
	MailHost=rs("MailHost")
	MailSize=rs("MailSize")
	MailNum=rs("MailNum")
	Price1=rs("Price1")
	Price2=rs("Price2")
	Price3=rs("Price3")
	Price4=rs("Price4")
	Price5=rs("Price5")
	MailOther=rs("MailOther")
	MailType=rs("MailType")
	sale=rs("sales")
    rs.close
    set rs=nothing
end if
%>

<table width="100%" align="center" bgcolor="#cccccc" border="0" cellpadding="2" cellspacing="1" style="font-size: 9pt; line-height: 200%">
  <tr>
    <td align=center bgcolor="#FFFFFF">

<br>
<table align=center width=500 cellpadding="2" cellspacing="1" bgcolor=#cccccc>
<form name=AddForm action="?action=action&MailID=<%=MailID%>" method=post>
  <tr>
    <td bgcolor=ffffff align=center height=24 colspan="3">
修改邮箱
    </td>
  </tr>
  <tr>
    <td bgcolor=FFFFFF width=24%>
&nbsp;<font color=red>*</font> 产品名称:
    </td>
    <td bgcolor=FFFFFF width=40%>
<input name="MailName" style="width:210px" value="<%=MailName%>">
    </td>
    <td bgcolor=FFFFFF width=36%>
产品名称
    </td>
  </tr>
  <tr>
    <td bgcolor=FFFFFF width=24%>
&nbsp;<font color=red>*</font> 服务器:
    </td>
    <td bgcolor=FFFFFF width=40%>
<input name="MailHost" style="width:210px" value="<%=MailHost%>">
    </td>
    <td bgcolor=FFFFFF width=36%>
邮局所在的服务器
    </td>
  </tr>
  <tr>
    <td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 邮箱大小:
    </td>
    <td bgcolor=FFFFFF>
<input name="MailSize" style="width:210px" value="<%=MailSize%>">
    </td>
    <td bgcolor=FFFFFF>
单位MB (小于等于4位数)
    </td>
  </tr>
  <tr>
    <td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 邮箱数量:
    </td>
    <td bgcolor=FFFFFF>
<input name="MailNum" style="width:210px" value="<%=MailNum%>">
    </td>
    <td bgcolor=FFFFFF>
单位MB (小于等于4位数)
    </td>
  </tr>
  <tr>
    <td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 代理价-1:
    </td>
    <td bgcolor=FFFFFF>
<input name="Price1" style="width:210px" value="<%=Price1%>">
    </td>
    <td bgcolor=FFFFFF>
单位RMB (小于等于8位数)
    </td>
  </tr>
  <tr>
    <td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 代理价-2:
    </td>
    <td bgcolor=FFFFFF>
<input name="Price2" style="width:210px" value="<%=Price2%>">
    </td>
    <td bgcolor=FFFFFF>
单位RMB (小于等于8位数)
    </td>
  </tr>
  <tr>
    <td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 代理价-3:
    </td>
    <td bgcolor=FFFFFF>
<input name="Price3" style="width:210px" value="<%=Price3%>">
    </td>
    <td bgcolor=FFFFFF>
单位RMB (小于等于8位数)
    </td>
  </tr>
  <tr>
    <td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 代理价-4:
    </td>
    <td bgcolor=FFFFFF>
<input name="Price4" style="width:210px" value="<%=Price4%>">
    </td>
    <td bgcolor=FFFFFF>
单位RMB (小于等于8位数)
    </td>
  </tr>
  <tr>
    <td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 代理价-5:
    </td>
    <td bgcolor=FFFFFF>
<input name="Price5" style="width:210px" value="<%=Price5%>">
    </td>
    <td bgcolor=FFFFFF>
单位RMB (小于等于8位数)
    </td>
  </tr>
  <tr>
    <td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 备注说明:
    </td>
    <td bgcolor=FFFFFF>
<input name="MailOther" style="width:210px" value="<%=MailOther%>">
    </td>
    <td bgcolor=FFFFFF>
主机功能简要说明
    </td>
  </tr>
  <tr>
    <td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 邮箱类型:
    </td>
    <td bgcolor=FFFFFF colspan="2">
<input name="MailType" type="radio" value="0" style="border:0px"<%if MailType=0 then Response.Write (" checked")%>>企业邮箱
<input name="MailType" type="radio" value="1" style="border:0px"<%if MailType=1 then Response.Write (" checked")%>>个人邮箱
    </td>
  </tr>
<tr>
<td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 正式销售:
</td>
<td bgcolor=FFFFFF colspan="2">
<input name="sale" type="checkbox" value="1" style="border:0px"<%if sale then Response.Write (" checked")%>><font color=red>正式销售</font>
</td>
</tr>
  <tr>
    <td bgcolor=FFFFFF align=center height=30 colspan="3">
<input type="submit" value=" 提  交 " name="Submit">
&nbsp;&nbsp;&nbsp;
<input type="reset" value=" 重 置 " name="B2">
&nbsp;
    </td>
  </tr>
</form>
</table>
<br>
    </td>
  </tr>
</table>
<!--#include file="foot.asp"-->