hostpay.asp

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

<%
WebID = Request("WebID")
if (WebID="") 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"><br>
<%
if Request("Action")="Buy" then
'此模块是进行站点的续费操作
if Request.form("Years")<0 then Response.Redirect("error.asp?id=007")
if Money+1<Request.form("Years")*Request.form("Price") then Response.Redirect("error.asp?id=007")
set rs=server.createobject("adodb.recordset")
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"))-(Request.form("Years")*Request.form("Price"))
rs.update
end if
rs.close

set rs=server.createobject("adodb.recordset")
sql="select HostName,HostID,Years,EndDate from [Host_OK] where WebID=" & WebID & " and UserID=" & session("ID")
rs.open sql,conn,1,3
if rs.bof and rs.eof then Response.Redirect("error.asp?id=003")
HostName=rs("HostName")
HostID=rs("HostID")
rs("Years")=rs("Years")+Request.form("Years")
rs("EndDate")=rs("EndDate")+(Request.form("Years")*365)
rs.update
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")=-(Request.form("Years")*Request.form("Price"))
rs("BuyLogMoney")=Money-(Request.form("Years")*Request.form("Price"))
rs("BuyLogDate")=now
rs("BuyLogOther")="自助续费 " & HostName & "(" & HostID & ") 网站空间, " & Request.form("Years") & " 年。"
rs.update
rs.close

Response.Redirect("HostEdit.asp?WebID=" & WebID)
else
set rs=server.createobject("adodb.recordset")
sql="select HostId,HostIP,Price,HostName,ServerID,HostSize,Connections from [Host_OK] where WebID=" & WebID & " and UserID=" & session("ID")
rs.open sql,conn,1,3
if rs.bof and rs.eof then Response.Redirect("error.asp?id=003")
%>
<form method="POST" action="HostPay.asp?Action=Buy&WebId=<%=WebID%>">
<table align=center width=150>
<tr>
 <td>商品名称</td>
 <td><%=rs("HostName")%></td>
</tr>
<tr>
 <td>商品价格</td>
 <td><%=rs("Price")%> 元/年</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>
<input type="hidden" name="Price" value="<%=rs("Price")%>">
<td colspan="2" >&nbsp;&nbsp;&nbsp;&nbsp;<input type="submit" value=" 下 一 步 " name="B1" 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>
<!--#include file="foot.asp"-->