hostshop.asp

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

<%
HostID = Request("HostID")
if (HostID="") then Response.Redirect ("error.asp?id=001")
%>
<!--#include file="top.asp"-->
<table width="100%" align="center" bgcolor="#cccccc" border="0" cellpadding="5" cellspacing="1">
<tr>
<td align=center bgcolor="#FFFFFF"><br>
<%
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 HostID,HostName,Price" & Grade & " from [Host_List] where HostID=" & HostID
rs.open sql,conn,1,1
if rs.bof and rs.eof then Response.Redirect("error.asp?id=001")
%>
<form method="POST" action="HostBuy.asp">
<table align=center width=200>
<tr>
 <td>商品名称</td>
 <td><%=rs("HostName")%></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>
 <td>上传帐号</td>
 <td><input type="text" name="FtpName" value=""></td>
</tr>
<tr>
 <td>上传密码</td>
 <td><input type="password" name="FtpPass1" value=""></td>
</tr>
<tr>
 <td>校验密码</td>
 <td><input type="password" name="FtpPass2" value=""></td>
</tr>
<tr>
 <td><input type="hidden" name="HostID" value="<%=rs("HostID")%>"></td>
 <td><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
%>
</td>
</tr>
</table>
<!--#include file="foot.asp"-->