space_info.asp

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

<!--#include file="top.asp"-->
<%
id=request("id")
sql="select * from [host] where id="&cint(id)
rs.open sql,conn,1,1
if rs.bof then
call mb("操作错误！","",0)
response.end
end if
%>
<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><%if rshosttype("id")=cint(request("id")) then
response.write "· <a href=space_info.asp?id="&rshosttype("id")&"><b>"&rshosttype("name")&"</b></a>"
else
response.write "· <a href=space_info.asp?id="&rshosttype("id")&">"&rshosttype("name")&"</a>"
end if
%></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"><table width="99%" border="0" align="center" cellpadding="4" cellspacing="0" bgcolor="#CCCCCC" class="tableborder1">
      <tr align="center">
        <td colspan="4" class="header"><%=rs("name")%></td>
      </tr>
      
      <tr>
        <td width="15%">名称</td>
        <td width="35%"><%=rs("name")%></td>
        <td width="20%">ASP</td>
        <td width="30%">
          <%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>
      </tr>
      <tr>
        <td height="1" colspan="4" background="images/bg_dot.gif"></td>
        </tr>
      <tr>
        <td>类型</td>
        <td><%if rs("type")="vip" then
		Response.Write "收费空间"
		else
		Response.Write "免费空间"
		end if%></td>
        <td>FTP</td>
        <td>
          <%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>
      </tr>
	        <tr>
        <td height="1" colspan="4" background="images/bg_dot.gif"></td>
        </tr>
      <tr>
      <tr>
        <td>空间</td>
        <td><%=rs("space")%>M</td>
        <td>WEB上传</td>
        <td>
          <%select case rs("uptype")
		  case 1
		  Response.Write("Asp Upload")
		  case 2
		  Response.Write("无组件上传")
		  end select%>
        </td>
      </tr>
	        <tr>
        <td height="1" colspan="4" background="images/bg_dot.gif"></td>
        </tr>
      <tr>
      <tr>
        <td>价格</td>
        <td><%if rs("type")="free" then
		Response.Write "免费空间"
		else
		Response.Write rs("price")&"元"
		end if%></td>
        <td>留言本</td>
        <td>
          <%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>
      </tr>
	        <tr>
        <td height="1" colspan="4" background="images/bg_dot.gif"></td>
        </tr>
      <tr>
      <tr>
        <td>空间域名</td>
        <td><%=rs("userurl")%></td>
        <td>计数器</td>
        <td>
          <%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>
      </tr>
	        <tr>
        <td height="1" colspan="4" background="images/bg_dot.gif"></td>
        </tr>
      <tr>
      <tr>
        <td>二级域名</td>
        <td>
          <%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>HTML编辑器</td>
        <td>
          <%select case rs("html")
		  case true
		  Response.Write("<img src=images/yes.gif>")
		  case false
		  Response.Write("<img src=images/no.gif>")
		  end select%>
        </td>
      </tr>
	        <tr>
        <td height="1" colspan="4" background="images/bg_dot.gif"></td>
        </tr>
      <tr>
      <tr>
        <td>隐藏真实URL</td>
        <td>
          <%select case rs("hidden")
		  case true
		  Response.Write("<img src=images/yes.gif>")
		  case else
		  Response.Write("<img src=images/no.gif>")
		  end select%>
        </td>
        <td>数据备份/恢复</td>
        <td>
          <%select case rs("databak")
		  case true
		  Response.Write("<img src=images/yes.gif>")
		  case false
		  Response.Write("<img src=images/no.gif>")
		  end select%>
        </td>
      </tr>
	        <tr>
        <td height="1" colspan="4" background="images/bg_dot.gif"></td>
        </tr>
      <tr>
      <tr>
        <td>广告</td>
        <td>
          <%select case rs("ad")
		  case true
		  Response.Write("<img src=images/yes.gif>")
		  case else
		  Response.Write("<img src=images/no.gif>")
		  end select%>
        </td>
        <td>禁用文件类型</td>
        <td><%=rs("filetype")%></td>
      </tr>
	        <tr>
        <td height="1" colspan="4" background="images/bg_dot.gif"></td>
        </tr>
      <tr>
      <tr>
        <td>开通方式</td>
        <td>
          <%select case rs("active")
		  case 0
		  Response.Write("人工审核")
		  case 1
		  Response.Write("即时开通")
		  case 2
		  Response.Write("邮件激活")
		  end select%>
        </td>
        <td>单个文件限制大小</td>
        <td><%=rs("uploadsize")%>K</td>
      </tr>
      <tr>
        <td height="1" colspan="4" background="images/bg_dot.gif"></td>
        </tr>
      <tr>      
      <tr>
        <td>详情介绍：</td>
        <td colspan="3" valign="top"><%=rs("intro")%></td>
        </tr>
      <tr>
        <td colspan="4" valign="top"></td>
      </tr>
      <tr>
      <tr>
        <td height="1" colspan="4" background="images/bg_dot.gif"></td>
        </tr>
      <tr>
        <td colspan="4"></td>
      </tr>
      
      <tr align="center">
        <td colspan="4"><a href="reg.asp"><img src=image/reg.gif border=0></a></td>
      </tr>
      <tr>
        <td colspan="4"></td>
      </tr>
    </table></td>
  </tr>
</table>
<!--#include file="bottom.asp"-->