hosttest.asp

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

<!--#include file="top.asp"-->
<%
HostID = Request("HostID")
if (HostID="") then Response.Redirect ("error.asp?id=001")
if Allowtest=0 then Response.Redirect ("error.asp?id=007")
%>
<!--#include file="checkpost.asp"-->
<TABLE WIDTH="100%" BORDER="0" ALIGN="CENTER"><TR><TD>
<table width="100%" align="center" bgcolor="#cccccc" border="0" cellpadding="5" cellspacing="1">
<tr>
<td align=center bgcolor="#FFFFFF">
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select UserID from Host_Ok where UserID=" & session("ID") &" and WebState=0"
rs.open sql,conn,1,1
if rs.RECORDCOUNT>=1 then Response.Redirect("error.asp?id=013")
rs.close
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="HostBuytest.asp">
<table align=center width=200>
<tr>
 <td colspan="2" align=center><font color=red>请您选择用户名<br></td>
</tr>
<br>
<tr>
 <td>商品名称</td>
 <td><%=rs("HostName")%>(试用)</td>
</tr>
<tr>
 <td>上传帐号</td>
 <td><input type="text" name="FtpName" value=""><br></td>
</tr>
<tr>
 <td>上传密码</td>
 <td><input type="password" type="text" name="FtpPass1" value=""></td>
</tr>
<tr>
 <td>校验密码</td>
 <td><input type="password" type="text" 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>

</TD></TR></TABLE>