📄 tuijian.asp
字号:
<TABLE cellSpacing=0 cellPadding=0 width=760 border=0>
<TR>
<TD width=38 height=27 background=images/bg2_left.gif></TD>
<TD width=429 background=images/bg2_bg.gif align=middle class=t4>推 荐</TD>
<TD width=33 background=images/bg2_right.gif></TD>
<TD width=20 background=images/bg2_bg.gif></TD>
<TD width=38 background=images/bg2_left.gif></TD>
<TD width=169 background=images/bg2_bg.gif align=middle class=t4>地方网站</TD>
<TD width=33 background=images/bg2_right.gif></TD>
</TR>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=760 border=0>
<TR>
<TD height="4"></TD>
</TR>
</TABLE>
<table cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="760" border="0">
<tr>
<td width="500" valign="top">
<!--推荐开始-->
<TABLE cellSpacing=0 cellPadding=0 width=500 border=0 style="border-collapse: collapse">
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from xinxi where 审核=-1 and 推荐=-1 and 城市='"& mycity &"' order by 编号 desc",conn,1,1
while not rs.eof
set rslb=server.CreateObject("adodb.recordset")
rslb.open "select * from leibie where 类别编号=" & rs("类别"),conn,1,1
%>
<tr>
<td width="500" valign="top">
<TABLE cellSpacing=0 cellPadding=0 width=500 bgColor=#ffffff border=0 style="border-collapse: collapse">
<TR>
<TD width=6 height=9 background=images/paycenter_11.gif ></TD>
<TD background=images/paycenter_12.gif></TD>
<TD width=12 background=images/paycenter_13.gif></TD>
</TR>
<TR>
<TD background=images/paycenter_22.gif></TD>
<TD height=130 width=482 vAlign=top align="center">
<!--详细资料开始-->
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="475" height=150>
<tr>
<td width="300" height="35">
<%if rs("名称")<>"" then response.write ("<b><img border=0 src='images/arrow.gif' width=25 height=11><a alt='查看〖"&rs("名称")&"〗的详细信息' href=javascript:openScript('xinxi.asp?id="&rs("编号")&"',530,400)>" &rs("名称")&"</a>（<a alt='查看所有『" &rslb("类别名")& "』的信息' href='city.asp?ct="&mycity&"&lb=" &rslb("类别编号")& "'>"&rslb("类别名")&"</a>）</b>") end if%></td>
<td width="175"><%if rs("推荐指数")<>"" then response.write ("推荐指数<img border=0 src='images/arrow1.gif' width=20 height=9><img border=0 src='images/level"&rs("推荐指数")&".gif' width=55 height=12>") end if%></td>
</tr>
<tr>
<td height="70" align="left" valign="top"><%if rs("介绍")<>"" then
response.write ("<font color='#008000'>介绍</font><img height=9 src='images/arrow1.gif' width=20 border=0>")
if len(rs("介绍"))>88 then
response.write ( left(rs("介绍"),88) &"... <a alt='查看〖"&rs("名称")&"〗的详细信息' style='color: #FF0000' href=javascript:openScript('xinxi.asp?id="&rs("编号")&"',530,400)>更多>></a>")
else
response.write ( left(rs("介绍"),90) )
end if
end if%></td>
<td height="70" align="center">
<IFRAME id=l name=l align=default marginWidth=0 marginHeight=0 src="pic.asp?id=<%=rs("编号")%>" frameBorder=0 width=160 scrolling=no height=70></IFRAME>
<%
'response.write ("<marquee width='170' scrollamount='3' scrolldelay='50' onmouseover='this.stop()' onmouseout='this.start()'>")
'if rs("图片1")<>"" and rs("图片1")<>"http://" then response.write ("<a target='_blank' href='"&rs("图片1")&"'><img src='"&rs("图片1")&"' title='点击看大图' border=0 height=70 width=100></a>") end if
'if rs("图片2")<>"" and rs("图片2")<>"http://" then response.write ("<a target='_blank' href='"&rs("图片2")&"'><img src='"&rs("图片2")&"' title='点击看大图' border=0 height=70 width=100></a>") end if
'if rs("图片3")<>"" and rs("图片3")<>"http://" then response.write ("<a target='_blank' href='"&rs("图片3")&"'><img src='"&rs("图片3")&"' title='点击看大图' border=0 height=70 width=100></a>") end if
'response.write ("</marquee>")
%>
</td>
</tr>
<tr>
<td width="470" valign="top" colspan="2" style="PADDING-TOP: 3px">
<font color="#008000">评论</font><img height=9 src='images/arrow1.gif' width=20 border=0><%
set rspl=server.CreateObject("adodb.recordset")
rspl.open "select top 5 * from xinxibook where 资讯编号=" & rs("编号") &" order by 编号 desc",conn,1,1
if rspl.recordcount=0 then
response.write ( "<font color='#999999'>暂时没有评论</a>")
else
response.write ( "<marquee width='400' scrollamount='2' scrolldelay='50' onmouseover='this.stop()' onmouseout='this.start()'>")
while not rspl.eof%><a href="javascript:openScript('xinxi.asp?id=<%=rs("编号")%>',530,400)" alt="发言时间：<%=rspl("发言时间")%>"><font color="#FF3300"><%=left(rspl("发言内容"),12)%>...</font></a><font color="#999999"><%=left(rspl("发言者姓名"),5)%></font>
<%
rspl.movenext
wend
response.write ( "</marquee>")
end if
rspl.close
set rspl=nothing%></td>
</tr>
<tr>
<td><marquee behavior="alternate" width="60" scrollamount="2" scrolldelay="100" onmouseover="this.stop()" onmouseout="this.start()"><a href="javascript:openScript('xinxi.asp?id=<%=rs("编号")%>',530,400)" style="text-decoration: none" title="查看〖<%=rs("名称")%>〗的详细信息"><font color="#FF0000">详</font><font color="#00CC00">细</font><font color="#FF9900">信</font><font color="#0000FF">息</font></a></marquee>
<%if rs("网站")<>"" and rs("网站")<>"http://" then response.write ("网址<img height=9 src='images/arrow1.gif' width=20 border=0><a target='_blank' href='" &rs("网站")& "'>" &rs("网站")& "</a>") end if%></td>
<td align="right">
<a href="javascript:openScript('xinxi.asp?id=<%=rs("编号")%>',530,400)" style="text-decoration: none" title="查看〖<%=rs("名称")%>〗的评论">查看</a>|<a href="javascript:openScript('xinxi_add.asp?id=<%=rs("编号")%>',530,400)" style="text-decoration: none" title="发表〖<%=rs("名称")%>〗的评论">发表</a>（<font style='color:red; font-weight: bold'><%
set rspl=server.CreateObject("adodb.recordset")
rspl.open "select * from xinxibook where 资讯编号=" & rs("编号"),conn,1,1
response.write (rspl.recordcount)
rspl.close
set rspl=nothing%></font>）
</td>
</tr>
</table>
<!--详细资料结束-->
</TD>
<TD background=images/paycenter_23.gif></TD></TR>
<TR>
<TD width=6 height=12 background=images/paycenter_31.gif></TD>
<TD background=images/paycenter_32.gif></TD>
<TD width=12 background=images/paycenter_33.gif></TD>
</TR>
</TABLE>
</td>
</tr>
<tr><td height=5></td></tr>
<%
rslb.close
set rslb=nothing
rs.movenext
wend
rs.close
set rs=nothing
%>
</table>
<!--推荐结束-->
</td>
<td width="10" align="center"></td>
<td width="1" align="center" background="images/paycenter_41.gif"></td>
<td width="9" align="center"></td>
<td width="240" valign="top">
<TABLE cellSpacing=0 cellPadding=0 width=240 bgColor=#ffffff border=0 style="border-collapse: collapse">
<TR>
<TD width=6 height=9 background=images/paycenter_11.gif ></TD>
<TD background=images/paycenter_12.gif></TD>
<TD width=12 background=images/paycenter_13.gif></TD></TR>
<TR>
<TD width=6 background=images/paycenter_22.gif></TD>
<TD width=222 height="70" style="padding-left: 5" align="center">
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select top 4 * from site where 审核=-1 and 城市='" & mycity &"'",conn,1,1
while not rs.eof
i=1
response.write ("<a target='_blank' href='" &rs("网址")& "'><img border='0' alt="&rs("站名")&" src='"&rs("logo") &"' width='88' height='31'></a> ")
if i mod 2= 0 then response.write ("<br>") end if
i=i+1
rs.movenext
wend
rs.close
set rs=nothing
%></TD>
<TD background=images/paycenter_23.gif></TD>
</TR>
<TR>
<TD width=6 background=images/paycenter_22.gif></TD>
<TD width=222 vAlign=top height="80" align="center"><!--文字广告，ad.asp--> <%call ad_top()%></TD>
<TD background=images/paycenter_23.gif></TD></TR>
<TR>
<TD width=6 height=12 background=images/paycenter_31.gif></TD>
<TD background=images/paycenter_32.gif></TD>
<TD width=12 background=images/paycenter_33.gif></TD>
</TR>
</TABLE>
</td>
</tr>
</table>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -