space_info.asp

使用Asp+Access+FSO+Jmail+Servu开发

<!--#include file="top.asp"-->
<!--#include file="inc/ubbcode.asp"-->
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="190" valign="top" bgcolor="#f5f5f8">      <table width="190" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td><img src="images/hostdot.jpg" width="190" height="34"></td>
      </tr>
      <tr>
        <td><table width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#eeeeee">
          <%
	  set rslist=Server.CreateObject("adodb.recordset")                                                                                          
sqllist="select * from host order by id asc"                                                                                                                                                                                   
rslist.open sqllist,conn,1,1                                                                                          
                                                                                                                                                                             
do while not rslist.eof                                                                     
%>
          <tr>
            <td align="center" bgcolor="#FFFFFF"><font color="#ff6600">·</font> <a href="space_info.asp?id=<%=rslist("id")%>" title="<%=rslist("name")%>"><%=rslist("name")%></a></td>
          </tr>
          <%                                                                                  
rslist.movenext                                                                                                                                                                                                                             
loop                                                                                                                                                                                                                                                 
%>
        </table></td>
      </tr>
    </table></td>
    <td width="1" background="images/bg_vline.gif"></td>
    <td width="579" valign="top"><table align="center" background="images/line01.gif" border="0" cellpadding="0" cellspacing="0" height="24" width="100%">
        <tr>
          <td height="21">&nbsp;<img height="12" src="images/arrow.gif" width="12"> 当前位置：<a href="index.asp" title="首页"><%=site%></a> -&gt; 主页空间 </td>
        </tr>
      </table>
	  <%
id=request("id")
sql="select * from host where id="&cint(id)
set rs=conn.execute(sql)
%>
      <table width="550" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td width="550" background="pic/line_gb.gif" height="1"></td>
        </tr>
        <tr>
          <td height="40" align="center"><img src=images/dot.gif> <%=rs("name")%></td>
        </tr>
        <tr>
          <td valign="top">
              <table width="400" border="0" cellpadding="3" cellspacing="0">
                <tr>
                  <td width="71" rowspan="2" align="center"><img src="<%=rs("img")%>" border="0"></td>
                      <td width="317"><hr size="1" noshade></td>
                </tr>
                <tr>
                  <td style="line-height:20px"><%
usertype=rs("type")
ftp=rs("ftp")
if rs.eof then
response.write "无"
else
do while not rs.eof
if rs("type")="free" then usertype="免费空间"
if rs("type")="vip" then usertype="付费空间"
if rs("ftp")="True" then ftp="√"
if rs("ftp")="False" then ftp="×"
if rs("asp")="True" then asp="√"
if rs("asp")="False" then asp="×"
if rs("domain")="True" then domain="√"
if rs("domain")="False" then domain="×"
response.write "┝用户类型："&usertype&"<br>"
if rs("type")="vip" then
response.write "┝产品价格：￥"&rs("price")&"元/年<br>"
end if
response.write "┝空间容量："&rs("space")&"M<br>"
response.write "┝提供域名："&rs("userurl")&"/yourname<br>"
response.write "┝二级域名："&domain&"<br>"
response.write "┝FTP权限："&ftp&"<br>"
response.write "┝ASP权限："&asp&"<br>"
response.write "┝单个文件大小：≤"&rs("uploadsize")&" K<br><hr size=1>"
%></td>
                </tr>
                <tr>
                  <td colspan="2"><b>详情介绍：</b></td>
                </tr>
                <tr>
                  <td colspan="2" valign="top"></td>
                </tr>
                <tr>
                  <td colspan="2"></td>
                </tr>
                <tr>
                  <td colspan="2">　　<%=ubbcode(rs("content"))%></td>
                </tr>
                <tr align="center">
                  <td colspan="2"><a href="space_reg.asp?id=<%=rs("id")%>"><img src="images/order.gif" width="81" height="20" border="0"></a> </td>
                </tr>
                <tr>
                  <td colspan="2"></td>
                </tr>
            </table>
	      <%
		  rs.movenext
loop
end if
rs.close
set rs=nothing
%></td>
        </tr>
      </table></td>
  </tr>
</table>
<!--#include file="copyright.asp"-->