space.asp

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

<!--#include file="top.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">
          <%
		  on error resume next
	  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>&nbsp;<img height="12" src="images/arrow.gif" width="12"> 当前位置：<a href="index.asp" title="首页"><%=site%></a> -&gt; 空间服务</td>
        </tr>
      </table><br>
      <%                                                                                          
sql="select * from host order by id asc"                                                                                                                                                                                   
rs.open sql,conn,1,1                                                                                          
n=0                                                                                          
'预留分页显示功能                                                                                          
if not isempty(request("page")) then                                                                                             
pagecount=clng(request("page"))                                                                                             
else                                                                                             
pagecount=1                                                                                          
end if                                                                                                                                                                                  
rs.pagesize=10                                                                                          
rs.AbsolutePage=pagecount                                                                                                                                                                               
do while not rs.eof                                                                     
%>
      <table width="551" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td width="275" valign="top" bgcolor="#F7F7FB">
            <table width="100%" border="0" cellspacing="1" cellpadding="3" align="center">
              <tr>
                <td colspan="2" bgcolor="#FFFFFF"><img src="images/host.gif" width="11" height="11"> <%=rs("name")%></td>
              </tr>
              <tr>
                <td width="116" rowspan="3" align="center" bgcolor="#FFFFFF"><a href="space_info.asp?id=<%=rs("id")%>"><img src="<%=rs("img")%>" alt="<%=rs("name")%>" border="0"></a></td>
                <td width="143" valign="top" bgcolor="#FFFFFF">空间：<%=rs("space")%>M</td>
              </tr>
              <tr>
                <td nowrap bgcolor="#FFFFFF">支持FTP：
                    <%
			  select case rs("ftp")
			  case "True"
			  Response.Write("√")
			  case "False"
			  Response.Write("×")
			  end select
			  %></td>
              </tr>
              <tr>
                <td bgcolor="#FFFFFF"><%
				select case rs("type")
				case "free"
				Response.Write("免费空间")
				case "vip"
				Response.Write("￥"&rs("price")&"元/年")
				end select%></td>
              </tr>
              <tr align="right">
                <td colspan="2" bgcolor="#FFFFFF"><img src="images/sword.gif" width="12" height="12"><a href="space_info.asp?id=<%=rs("id")%>">详情</a></td>
              </tr>
          </table></td>
          <td width="1" background="images/line1.gif"></td>
          <%                                                                                  
rs.movenext
if rs.eof or rs.bof then                                                                                   
response.write "<td width='288'></td></tr><tr><tr><td colspan=3 height=10></td></tr><td colspan=3 height=1 bgcolor=CCCCCC></td></tr></table>"                                                                                  
exit do                                                                                  
else                                                                                  
n=n+1                                                                                  
end if
%>
          <td width="275" valign="top" bgcolor="#F7F7FB">
            <table width="100%" border="0" cellspacing="1" cellpadding="3" align="center">
              <tr>
                <td colspan="2" bgcolor="#FFFFFF"><img src="images/host.gif" width="11" height="11"> <%=rs("name")%></td>
              </tr>
              <tr>
                <td width="202" rowspan="3" align="center" bgcolor="#FFFFFF"><a href="space_info.asp?id=<%=rs("id")%>"><img src="<%=rs("img")%>" alt="<%=rs("name")%>" border="0"></a></td>
                <td width="202" valign="top" bgcolor="#FFFFFF">空间：<%=rs("space")%>M</td>
              </tr>
              <tr>
                <td nowrap bgcolor="#FFFFFF">支持FTP：
                    <%
			  select case rs("ftp")
			  case "True"
			  Response.Write("√")
			  case "False"
			  Response.Write("×")
			  end select
			  %></td>
              </tr>
              <tr>
                <td bgcolor="#FFFFFF"><%
				select case rs("type")
				case "free"
				Response.Write("免费空间")
				case "vip"
				Response.Write("￥"&rs("price")&"元/年")
				end select%></td>
              </tr>
              <tr align="right">
                <td colspan="2" bgcolor="#FFFFFF"><img src="images/sword.gif" width="12" height="12"><a href="space_info.asp?id=<%=rs("id")%>">详情</a></td>
              </tr>
          </table></td>
        </tr>
        <tr>
          <td height="1" colspan="3" background="images/line2.gif"></td>
        </tr>
      </table>
      <%                                                                                  
rs.movenext                                                                                  
n=n+1                                                                                                                                                       
if n>=rs.pagesize then exit do                                                                                                                                             
loop                                                                                                                                                                                                                                                 
%><table width="80%" border="0" cellspacing="0" cellpadding="0" align="center">
              <tr align="center" valign="bottom" bgcolor="#ffffff">
            <td height="1" align="center" valign="bottom" bgcolor="#cccccc"></td>
        </tr>
        <tr bgcolor="#ffffff"> 
          <td height="25" align="center" class="td">共 <%=rs.recordcount%> 条记录　　第 <%=pagecount%>/<%=rs.pagecount%> <%if pagecount<>1 then%> <a href="space.asp?page=<%=pagecount-1%>">上一页</a> 
            <%else%> <font color="#999999">上一页</font> <%end if%> <%
						rs.absolutepage=pagecount+1
						if not rs.eof then   
					  %> <a href="space.asp?page=<%=pagecount+1%>">下一页</a> 
            <%else%> <font color="#999999">下一页</font> <%end if%> </td>
        </tr>
  
        <tr> </tr>
        </table>
      <%
	  rs.close                                                                                  
set rs=nothing
	  rslist.close                                                                                  
set rslist=nothing
%>
    </td>
  </tr>
</table>
<!--#include file="copyright.asp"-->