📄 sort.asp
字号:
<html><head><title>178商机网--免费发布商业信息|因为专业所以最好</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css/main.css" rel="stylesheet">
</head>
<body leftmargin="0" topmargin="0" ><div align=center>
<!--#include file="conn.asp"-->
<!--#include file="head.asp"-->
<%
tempbid=request("bid")
if request("bid")="" then
response.Write("<center><br><font color=blue>您所链接的版面不存在！ <a href=./><font color=red>返回首页</a><br><br>")
response.end
end if
set rs = server.CreateObject ("adodb.recordset")
sql = "select bid,bname from big where bid="&request("bid")
rs.Open sql,conn,1,1
if rs.Eof then
response.Write("<center><br><font color=blue>您所链接的版面不存在！ <a href=./><font color=red>返回首页</a><br><br>")
response.end
else %>
<div align="left">
<table width="100%" cellspacing=0 bgcolor=336699 cellpadding=0>
<tr height=22 valign=bottom>
<td width="20%" height="25" align="right" valign="middle" background=img/net_13.gif>
<font color="#000080">
当前位置：</font><font color=white><a class=h href="index.asp"><font color="#000080">中国商业信息网</font></a></font><font color="#000080"> <b>>></b>
</font> </td>
<td width="80%" height="25" valign="middle" background=img/net_13.gif align="left">
<font color="#000080"><%=rs("bname")%>
</font><font color="#C0C0C0">若你对商业信息发布有特殊要求，请</font><a target="_blank" href="lianxi.asp"><font color="#000080">联系我们</font></a></td>
</tr>
</table>
</div>
<%rs.close%>
<table width=760 cellspacing=0 cellpadding=0><tr>
<td bgcolor=dddddd height=1></td>
</tr><script src="aj/mystat.asp"></script></table>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td align="center" width="80%" valign="top">
<table border="0" width="100%">
<tr>
<td align="center" valign="top">
<center><table width=760 border="1" >
<%
sql = "select * from site where ifpass=1 and sid=0 and bid="&tempbid&" order by eoknum desc"
rs.Open sql,conn,1,1
if rs.eof then
Response.Write("<center><br><font color=red>还没有推荐商业信息</font> <a href=./>返回首页</a><br><br><br>")
else
do while not rs.EOF %>
<tr height=22>
<td width="20%" bordercolor="#C0C0C0"><table width=100% border=0 cellpadding=3 cellspacing=1>
<tr bgcolor=f6f6f6>
<td width=100% bgcolor="#DDDDDD"><img src=img/a.gif> <a class=s href=show.asp?id=<%=rs("id")%> target=_blank><font color="#FF0000"><%=rs("sitename")%></font></a></font> </td>
</tr>
<tr><td>
<p align="center"><font color="#333333"><%if rs("indexpic")="" or rs("indexpic")="http://" then%><a href=go.asp?url=<%=rs("siteurl")%>&id=<%=rs("id")%> target=_blank><img src=img/nopic.gif width=140 height=80 border=0></a><%else%><a href=go.asp?url=<%=rs("siteurl")%>&id=<%=rs("id")%> target=_blank><img src=<%=rs("indexpic")%> width=140 height=80 border=0></a><%end if%></font></p>
</td></tr>
<tr><td height=5 background=img/rb.gif></td></tr></table> </td>
<%rs.MoveNext()
if not rs.eof then%>
<td width="20%" bordercolor="#C0C0C0"><table width=100% border=0 cellpadding=3 cellspacing=1>
<tr bgcolor=f6f6f6>
<td width=100% bgcolor="#DDDDDD"><img src=img/a.gif> <a class=s href=show.asp?id=<%=rs("id")%> target=_blank><font color="#FF0000"><%=rs("sitename")%></font></a></font> </td>
</tr>
<tr><td>
<p align="center"><font color="#333333"><%if rs("indexpic")="" or rs("indexpic")="http://" then%><a href=go.asp?url=<%=rs("siteurl")%>&id=<%=rs("id")%> target=_blank><img src=img/nopic.gif width=140 height=80 border=0></a><%else%><a href=go.asp?url=<%=rs("siteurl")%>&id=<%=rs("id")%> target=_blank><img src=<%=rs("indexpic")%> width=140 height=80 border=0></a><%end if%></font></p>
</td></tr>
<tr><td height=5 background=img/rb.gif></td></tr></table> </td>
<%rs.MoveNext()
end if%>
<%if not rs.eof then%>
<td width="20%" bordercolor="#C0C0C0"><table width=100% border=0 cellpadding=3 cellspacing=1>
<tr bgcolor=f6f6f6>
<td width=100% bgcolor="#DDDDDD"><img src=img/a.gif> <a class=s href=show.asp?id=<%=rs("id")%> target=_blank><font color="#FF0000"><%=rs("sitename")%></font></a></font> </td>
</tr>
<tr><td>
<p align="center"><font color="#333333"><%if rs("indexpic")="" or rs("indexpic")="http://" then%><a href=go.asp?url=<%=rs("siteurl")%>&id=<%=rs("id")%> target=_blank><img src=img/nopic.gif width=140 height=80 border=0></a><%else%><a href=go.asp?url=<%=rs("siteurl")%>&id=<%=rs("id")%> target=_blank><img src=<%=rs("indexpic")%> width=140 height=80 border=0></a><%end if%></font></p>
</td></tr>
<tr><td height=5 background=img/rb.gif></td></tr></table> </td>
<%rs.MoveNext()
end if%>
<%if not rs.eof then%>
<td width="20%" bordercolor="#C0C0C0"><table width=100% border=0 cellpadding=3 cellspacing=1>
<tr bgcolor=f6f6f6>
<td width=100% bgcolor="#DDDDDD"><img src=img/a.gif> <a class=s href=show.asp?id=<%=rs("id")%> target=_blank><font color="#FF0000"><%=rs("sitename")%></font></a></font> </td>
</tr>
<tr><td>
<p align="center"><font color="#333333"><%if rs("indexpic")="" or rs("indexpic")="http://" then%><a href=go.asp?url=<%=rs("siteurl")%>&id=<%=rs("id")%> target=_blank><img src=img/nopic.gif width=140 height=80 border=0></a><%else%><a href=go.asp?url=<%=rs("siteurl")%>&id=<%=rs("id")%> target=_blank><img src=<%=rs("indexpic")%> width=140 height=80 border=0></a><%end if%></font></p>
</td></tr>
<tr><td height=5 background=img/rb.gif></td></tr></table> </td>
<%rs.MoveNext()
end if%>
<%if not rs.eof then%>
<td width="20%" bordercolor="#C0C0C0"><table width=100% border=0 cellpadding=3 cellspacing=1>
<tr bgcolor=f6f6f6>
<td width=100% bgcolor="#DDDDDD"><img src=img/a.gif> <a class=s href=show.asp?id=<%=rs("id")%> target=_blank><font color="#FF0000"><%=rs("sitename")%></font></a></font> </td>
</tr>
<tr><td>
<p align="center"><font color="#333333"><%if rs("indexpic")="" or rs("indexpic")="http://" then%><a href=go.asp?url=<%=rs("siteurl")%>&id=<%=rs("id")%> target=_blank><img src=img/nopic.gif width=140 height=80 border=0></a><%else%><a href=go.asp?url=<%=rs("siteurl")%>&id=<%=rs("id")%> target=_blank><img src=<%=rs("indexpic")%> width=140 height=80 border=0></a><%end if%></font></p>
</td></tr>
<tr><td height=5 background=img/rb.gif></td></tr></table> </td>
<%rs.MoveNext()
end if%>
</tr>
<%loop
rs.Close %>
</table></center>
</td>
</tr>
<tr>
<td align="center" valign="top">
<div align="center">
<center><table width="100%" >
<%sql = "select sid,sname,bid,snum from small where bid="&tempbid&" order by sid"
rs.Open sql,conn,1,1
do while not rs.EOF %>
<tr height=22><td width="20%" background="IMG/114.JPG"><ul><li><a class=s href=list.asp?bid=<%=rs("bid")%>&sid=<%=rs("sid")%>><%=rs("sname")%></a></td>
<%rs.MoveNext()
if not rs.eof then%>
<td width="20%" background="IMG/114.JPG"><ul><li><a class=s href=list.asp?bid=<%=rs("bid")%>&sid=<%=rs("sid")%>><%=rs("sname")%></a></td>
<%rs.MoveNext()
end if%>
<%if not rs.eof then%>
<td width="20%" background="IMG/114.JPG"><ul><li><a class=s href=list.asp?bid=<%=rs("bid")%>&sid=<%=rs("sid")%>><%=rs("sname")%></a></td>
<%rs.MoveNext()
end if%>
<%if not rs.eof then%>
<td width="20%" background="IMG/114.JPG"><ul><li><a class=s href=list.asp?bid=<%=rs("bid")%>&sid=<%=rs("sid")%>><%=rs("sname")%></a></td>
<%rs.MoveNext()
end if%>
<%if not rs.eof then%>
<td width="20%" background="IMG/114.JPG"><ul><li><a class=s href=list.asp?bid=<%=rs("bid")%>&sid=<%=rs("sid")%>><%=rs("sname")%></a></td>
<%rs.MoveNext()
end if%>
</tr>
<%loop
rs.Close %>
</table></center>
</div>
</td>
</tr>
</table>
</td>
<td align="center" width="20%" valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td align="center" valign="top"><!--#include file="left.asp"-->
</td>
<% end if
end if%>
</tr>
</table>
</td>
</tr>
</table>
<!--#include file="end.asp"-->
</div>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -