mailshop.asp

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

<%
MailID = Request("MailID")
if (MailID="") then Response.Redirect ("error.asp?id=001")
%>
<!--#include file="top.asp"-->
<!--#include file="checkpost.asp"-->
<table width="100%" align="center" bgcolor="#cccccc" border="0" cellpadding="5" cellspacing="1">
  <tr>
    <td align=center bgcolor="#FFFFFF">
<%
if Request.form("submit")="确认交易" then
    set rs=server.createobject("adodb.recordset")
	'读取该型号邮箱相关参数
    sql="select MailID,MailName,MailHost,MailSize,MailNum,Price" & Grade & ",MailType from [Mail_List] where MailID=" & MailID
    rs.open sql,conn,1,1
    if rs.bof and rs.eof then
	Response.Redirect("error.asp?id=006")
    else
	MailID=rs("MailID")
	MailName=rs("MailName")
	MailHost=rs("MailHost")
	MailSize=rs("MailSize")
	MailNum=rs("MailNum")
	Price=rs("Price" & Grade)
	MailType=rs("MailType")
    end if
    rs.close
	'合对用户资金是否足够
    if Request.form("Years")<0 then Response.Redirect("error.asp?id=007")
    if Money+1<Price*Request.form("Years") then Response.Redirect("error.asp?id=007")
	'减去用户资金
    sql="select Money from [Agent_User] where ID=" & session("ID")
    rs.open sql,conn,1,3
    if rs.bof and rs.eof then
	Response.Redirect("error.asp?id=006")
    else
	rs("Money")=rs("Money")-(Price*Request.form("Years"))
	rs.update
    end if
    rs.close
	'写交易记录
    sql="select * from [BuyLog_List] where (BuyLogID is null)"
    rs.open sql,conn,1,3
	rs.addnew
	rs("UserID")=session("ID")
	rs("BuyLogSum")=-(Price*Request.form("Years"))
	rs("BuyLogMoney")=Money-(Price*Request.form("Years"))
	rs("BuyLogDate")=now
	rs("BuyLogOther")="自助购买 " & MailName & "(" & MailID & ") 邮箱, " & Request.form("Years") & " 年。"
	rs.update
    rs.close
	'写开通邮局表
    sql="select * from [Mail_OK] where (MailID is null)"
    rs.open sql,conn,1,3
	rs.addnew
	rs("UserID")=session("ID")
	rs("MailName")=MailName
	rs("MailHost")=MailHost
	rs("MailSize")=MailSize
	rs("MailNum")=MailNum
	rs("BeginDate")=Date()
	rs("EndDate")=Date()+(Request.form("Years")*365)+1
	rs("MailMater")=""
	rs("MailType")=MailType
	rs.update
    rs.close
    set rs=Nothing
	'交易完成，转向管理页面
	Response.Redirect("MailList.asp")
else
    set rs=server.createobject("adodb.recordset")
    sql="select Email from [Agent_User] where ID=" & session("ID")
    rs.open sql,conn,1,1
    if rs.bof and rs.eof then Response.Redirect("error.asp?id=001")
    if isNull(rs("Email")) then Response.Redirect("error.asp?id=021")
    set rs=server.createobject("adodb.recordset")
    sql="select Mailname,Price" & Grade & " from [Mail_List] where MailID=" & MailID
    rs.open sql,conn,1,1
	if rs.bof and rs.eof then Response.Redirect("error.asp?id=001")
%>
<form name="form" method="post" action="MailShop.asp?MailID=<%=MailID%>">
<table align=center width=150 border="0">
<tr>
 <td>商品名称</td>
 <td><%=rs("Mailname")%></td>
</tr>
<tr>
 <td>商品价格</td>
 <td><%=rs("Price" & Grade)%> 元/年</td>
</tr>
<tr>
 <td>购买年限</td>
 <td><select size="1" name="Years">
<option value="1" selected>1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
</select>年</td>
</tr>
<tr>
 <br>
 <td colspan="2" >&nbsp;&nbsp;&nbsp;&nbsp;<input type=submit name="submit" value="确认交易" style="font-size: 9pt; COLOR: #ffffff; height:20px;background-color:#568ac2;" onMouseOver ="this.style.backgroundColor='#77A3D2'" onMouseOut ="this.style.backgroundColor='#568ac2'"></td>
</tr>
</table>
</form>
<%
    rs.close
    Set rs = Nothing
end if
%>
</td>
</tr>
</table>
</TD></TR></TABLE>
</TD></TR></TABLE>
<!--#include file="foot.asp"-->