host.asp

九酷网络个人主页系统破解版

<!--#include file="top.asp"-->
<TABLE class=tableborder cellSpacing=0 cellPadding=0 width=778 align=center 
border=0>
  <TBODY>
    <TR>
      <TD bgColor=#efefef height=22>
        <TABLE cellSpacing=2 cellPadding=0 width="100%" border=0>
          <TBODY>
            <TR>
              <TD align=middle width="4%"><IMG height=13 
            src="images/class_ar.gif" width=13></TD>
              <TD width="74%">您当前的位置：<A href="<%=siteurl%>"><%=site%></A> -&gt; <a href="host.asp">空间服务</a></TD>
              <TD align=middle width="22%">&nbsp;</TD>
            </TR>
          </TBODY>
      </TABLE></TD>
    </TR>
    <TR>
      <TD bgColor=#d9d9d9 height=1></TD>
    </TR>
    <TR>
      <TD height=5></TD>
    </TR>
  </TBODY>
</TABLE>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0" class="tableborder">
  <tr>
    <td width="188" height="500" valign="top" class="tableleft"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td class="titleback2">空间列表</td>
      </tr>
      <tr>
        <td height="100" valign="top"><%
Set rshosttype=conn.Execute("select * from [host]") 
if rshosttype.eof and rshosttype.bof then
response.write "<br><br><center>暂时为空!</center>"
else
%>
          <table width="100%"  border="0" cellspacing="1" cellpadding="4">
            <%
do while not rshosttype.eof
%>
            <tr>
              <td  class=showbody1><%
response.write "· <a href=space_info.asp?id="&rshosttype("id")&">"&rshosttype("name")&"</a>"
%></td>
            </tr>
            <%
  rshosttype.movenext
loop
end if
rshosttype.close
set rshosttype=nothing
%>
          </table></td>
      </tr>
      <tr>
        <td height="2" bgcolor="#FFFFFF"></td>
      </tr>
    </table></td>
    <td width="590" align="right" valign="top" class="tableright"><%                                                                                          
sql="select * from [host] order by id asc"                                                                                                                                                                                   
rs.open sql,conn,1,1                                                                                                                                                                                                                                                                      
pagesetup=5 '设定每页的显示数量
rs.pagesize=pagesetup
TotalPage=rs.pagecount  '总页数
PageCount = cint(Request.QueryString("ToPage"))
if PageCount <1 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
if TotalPage>0 then rs.absolutepage=PageCount '跳转到指定页数                                                          
%>
      <table width="99%" border="0" cellpadding="3" cellspacing="1">
        <tr class="header">
          <td align="center">名称</td>
          <td align="center">价格</td>
          <td align="center">空间</td>
          <td align="center">FTP</td>
          <td align="center">ASP</td>
          <td align="center">二级域名</td>
          <td align="center">留言本</td>
          <td align="center">计数器</td>
          <td align="center">详情</td>
        </tr>
<%
i=0
j=0
Do While Not RS.EOF and i<pagesetup
i=i+1 
if j mod 2 = 0 then
titleclass="showlist1"
else
titleclass="showlist2"
end if
%>
        <tr>
          <td align="center" class="<%=titleclass%>"><a href="space_info.asp?id=<%=rs("id")%>"><%=rs("name")%></a></td>
          <td align="center" class="<%=titleclass%>"><%if rs("type")="vip" then
response.write ""&rs("price")&"元/年"
elseif rs("type")="free" then
response.write "免费空间"
end if%></td>
          <td align="center" class="<%=titleclass%>"><%=rs("space")%></td>
          <td align="center" class="<%=titleclass%>"><%select case rs("ftp")
		  case true
		  Response.Write("<img src=images/yes.gif>")
		  case false
		  Response.Write("<img src=images/no.gif>")
		  end select%>		  </td>
          <td align="center" class="<%=titleclass%>"><%select case rs("asp")
		  case true
		  Response.Write("<img src=images/yes.gif>")
		  case false
		  Response.Write("<img src=images/no.gif>")
		  end select%></td>
          <td align="center" class="<%=titleclass%>"><%select case rs("domain")
		  case 0
		  Response.Write("<img src=images/no.gif>")
		  case else
		  Response.Write("<img src=images/yes.gif>")
		  end select%></td>
          <td align="center" class="<%=titleclass%>"><%select case rs("gbook")
		  case true
		  Response.Write("<img src=images/yes.gif>")
		  case false
		  Response.Write("<img src=images/no.gif>")
		  end select%></td>
          <td align="center" class="<%=titleclass%>"><%select case rs("count")
		  case true
		  Response.Write("<img src=images/yes.gif>")
		  case false
		  Response.Write("<img src=images/no.gif>")
		  end select%></td>
          <td align="center" class="<%=titleclass%>"><a href="space_info.asp?id=<%=rs("id")%>"><img src="image/js.gif" width="80" height="19" border="0"></a></td>
        </tr>
      <%   
	  j=j+1                                                                               
rs.movenext
loop
rs.close
set rs=nothing                                                                                                                                                                                                                                              
%>
      </table>
      <table width="96%"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>[<b>共有
<font color="990000"><%=TotalPage%></font> 页
<script>
ShowPage(<%=TotalPage%>,<%=PageCount%>,"")
</script>
</b>]</td>
  </tr>
</table></td>
  </tr>
</table>
<!--#include file="links.asp"-->
<!--#include file="bottom.asp"-->