📄 list.asp
字号:
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<LINK href="style.css" rel=stylesheet>
<title>3鸟设社--域名空间dns.3niao.com</title>
</head>
<body>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="758">
<tr>
<td><!--#include file="head.asp"--></td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="758">
<tr>
<td width="25%" valign="top"><!--#include file="left.asp"--></td> <td valign="top"> <table border="0" cellpadding="0" cellspacing="0" width="98%" BGCOLOR="#FFFFFF">
<tr> <td width="1" background="pic/line_gb.gif"></td></tr> <tr> <td width="100%" valign="top" BGCOLOR="#FFFFFF">
<%id=trim(request("id"))
if id=empty then
response.redirect "index.asp"
end if
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from sort where id='"&id&"' order by sort_id"
rs.open sql,conn,3,3
if rs.eof and rs.bof then
response.write "<p align='center'> 还 没 有 任 何 商 品</p>"
else
%> <table border="0" cellpadding="0" cellspacing="1" width="566" BGCOLOR="#FFFFFF">
<tr> <td width="391"> <%pgsize=6
page=request.querystring("page")
rs.pagesize=pgsize
pgnm=rs.pagecount
if page=""or clng(page)<1 then page=1
if clng(page)>pgnm then page=pgnm
if pgnm>0 then rs.absolutepage=page
count=0
do while not rs.eof and count<rs.pagesize
%> <table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td width="101%" bgcolor="#EEEEEf" colspan="3" height="16">
<table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td width="23%" align="center">类
型</td><td width="51%" align="center">简 介</td><td width="26%" align="center">购
买</td></tr> </table></td></tr> <tr> <td width="23%" style="border: 1 solid #EEEEEE" rowspan="3">
<p align="center"><img border="0" src="pic/pic/<%=rs("grade")%>"></td><td width="50%" style="border: 1 solid #EEEEEE"> 主机编号：<%=rs("sort_name")%></td><td width="27%" style="border: 1 solid #EEEEEE" rowspan="3">
<table border="0" cellpadding="0" cellspacing="0" width="100%" height="55"> <tr>
<td width="100%" height="27"> <p align="center"><a href='javascript:openbag(<%=rs("sort_id")%>)'><img border="0" src="pic/button_2.gif"></a></p></td></tr>
<tr> <td width="100%" height="28"> <p align="center"><a href="view.asp?sort_id=<%=rs("sort_id")%>"><img border="0" src="pic/button_1.gif"></a></p></td></tr>
</table></td></tr> <tr> <td width="50%" style="border: 1 solid #EEEEEE"> 主机简介：<%=rs("smalltext")%></td></tr>
<tr> <td width="50%" style="border: 1 solid #EEEEEE"> 主机价格：<font color="#FF0000"><%=rs("price")%></font>/元/年</td></tr>
<tr> <td width="101%" colspan="3"></td></tr> </table><%count=count+1
rs.movenext
loop
%> </td><td width="165" valign="top"> <table border="0" cellpadding="0" cellspacing="1" width="100%" height="48">
<tr> <td width="100%" bgcolor="#FFFFFF" height="20"> <p align="center"><b>客 户
推 广 栏 目</b></td></tr> <%
Set rs3 = Server.CreateObject("ADODB.Recordset")
sql="select top 30 * from ad order by ad_id desc"
rs3.open sql,conn,3,3
if rs3.eof then
response.write"未推广任何站点"
end if
do while not rs3.eof%> <tr> <td width="100%" height="24" bgcolor="#FFFFFF"><a href="<%=rs3("ad_url")%>" title='<%=rs3("ad_text")%>'>
<p align="center"><%=rs3("ad_web")%></a></td></tr> <%rs3.movenext
loop
rs3.Close
set rs3=nothing
%> </table></td></tr> <tr> <td colspan="2" width="560"> <p align="center"><a href=list.asp?id=<%=id%>&page=<%=page-1%>>上一页</a>
<a href=list.asp?id=<%=id%>&page=<%=page+1%>>下一页</a> <%
rs.Close
set rs=Nothing
conn.Close
set conn=Nothing
end if
%> </p></td></tr> </table><P> </P><P> </P><P> </P><P> </P><P> </P><P> </P><P> </P><P> </P><P> </P><P> </P><P> </P><P> </P><P> </P></td></tr>
</table></td></tr> </table> </center> </div> <div align="center"> <center> <table border="0" cellpadding="0" cellspacing="0" width="758">
<tr> <td><!--#include file="end.asp"--></td>
</tr>
</table>
</center>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -