📄 first.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>
<%
Const PAGESIZE=15
Const PARTSIZE=10
Const AboutSize=8
%>
<%
temp=request("t")
dim pagecount,page,Spage,Epage,recordcount,i
page = request.querystring("page")
if page = "" or IsNull(page) then page = 1
if not IsNumeric(page) then page = 1
page = Cint(page)
set rs = server.CreateObject ("Adodb.recordset")
if request("t")="" then
sql="select top 30 * from site where ifpass=1 and pstar=5 order by eoknum desc"
end if
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 %>
<table border="1" cellspacing="4" >
<tr height=22>
<td width="15%" bordercolor="#C0C0C0"><table width=100% border=0 cellpadding=3 cellspacing=1>
<tr bgcolor=f6f6f6>
<td width=100% bgcolor="#E6E6E6"><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="15%" bordercolor="#C0C0C0"><table width=100% border=0 cellpadding=3 cellspacing=1>
<tr bgcolor=f6f6f6>
<td width=100% bgcolor="#E6E6E6"><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="15%" bordercolor="#C0C0C0"><table width=100% border=0 cellpadding=3 cellspacing=1>
<tr bgcolor=f6f6f6>
<td width=100% bgcolor="#E6E6E6"><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="15%" bordercolor="#C0C0C0"><table width=100% border=0 cellpadding=3 cellspacing=1>
<tr bgcolor=f6f6f6>
<td width=100% bgcolor="#E6E6E6"><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="15%" bordercolor="#C0C0C0"><table width=100% border=0 cellpadding=3 cellspacing=1>
<tr bgcolor=f6f6f6>
<td width=100% bgcolor="#E6E6E6"><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 %>
<% end if %>
</table>
<tr>
<td bgcolor=dddddd height=1></td>
</tr></table>
</div></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -