mailadd.asp

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

<!--#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 is null)"
    rs.open sql,conn,1,3
	rs.addnew
	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
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" 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="">
    </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="<%=Request.ServerVariables("LOCAL_ADDR")%>">
    </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="">
    </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="">
    </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="">
    </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="">
    </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="">
    </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="">
    </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="">
    </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="">
    </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" checked>企业邮箱
<input name="MailType" type="radio" value="1" style="border:0px">个人邮箱
    </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" 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"-->