📄 xinxi.asp
字号:
<!--#include file="config.asp" -->
<!--#include file="ad.asp" -->
<%
dim id
id=trim(request("id"))
if len(id)=0 then response.redirect "ok.asp?ok=xinxierror0" end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from xinxi where 编号="& id,conn,1,1
if rs.eof or rs.bof then response.redirect "ok.asp?ok=xinxierror" end if
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name=keywords content="<%=sitekeywords%>">
<meta name="description" content="<%=sitedescription%>">
<title><%=rs("名称")%> -- <%=sitename%></title>
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="2" topmargin="4" oncontextmenu="self.event.returnValue=false">
<noscript><iframe src="*.htm"></iframe></noscript>
<div align="<%=sitealign%>">
<TABLE cellSpacing=0 cellPadding=0 width=500 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><%if rs("名称")<>"" then response.write (rs("名称")) end if%></TD>
<TD width=33 background=images/bg2_right.gif></TD>
</TR>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TR>
<TD height="5"></TD>
</TR>
</TABLE>
<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 width=482 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 vAlign=top align="center">
<!--详细资料开始-->
<table border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" width="470">
<%if rs("介绍")<>"" then%><tr><td width="65" height="20" valign="top">场所介绍：</td><td width="405"><%=rs("介绍")%></td></tr><%end if%>
<%if rs("地址")<>"" then%><tr><td width="65" height="20" valign="top">场所地址：</td><td width="405"><%=rs("地址")%></td></tr><%end if%>
<%if rs("公交")<>"" then%><tr><td width="65" height="20" valign="top">公交线路：</td><td width="405"><%=rs("公交")%></td></tr><%end if%>
</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>
<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 width=482 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 vAlign=top align="center">
<!--详细资料开始-->
<table border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" width="470">
<tr><td width="65" height="20" valign="top">联系电话：</td><td width="203"><%if rs("电话")<>"" then%><%=rs("电话")%><%end if%></td>
<td width="202" align="right" style="font-size: 11pt; font-weight: bold" rowspan="2">
<% set rslb=server.CreateObject("adodb.recordset")
rslb.open "select * from city where 区号='" & rs("城市")&"'",conn,1,1
response.write ( rslb("城市") &"市（" & rslb("省份") & "）" )
rslb.close
set rslb=nothing%>
</td></tr>
<tr><td width="65" height="20" valign="top">网站网址：</td><td width="203"><%if rs("网站")<>"" then%><a target='_blank' href='<%=rs("网站")%>'><%=rs("网站")%></a><%end if%></td>
</tr>
</table>
<!--详细资料结束-->
<%if rs("推荐指数")<>"" then response.write ("<img border=0 title='推荐指数→"&rs("推荐指数")&"级' src='images/level"&rs("推荐指数")&".gif' width=55 height=12>") end if%><br>
</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>
<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 width=482 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 vAlign=top align="center"><!--广告468*60--><%call ad_1()%></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>
<%if rs("图片1")<>"" and rs("图片1")<>"http://" and len(rs("图片1"))>7 then%>
<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 width=482 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 vAlign=top align="center">
<!--详细资料开始-->
<%if rs("图片1")<>"" and rs("图片1")<>"http://" then response.write ("<a target='_blank' href='"&rs("图片1")&"'><img src='"&rs("图片1")&"' title='点击看大图' border=0 height=150 width=200></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=150 width=200></a><br><br>") 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=150 width=200></a>") end if%>
<!--详细资料结束-->
</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>
<%end if%>
<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 width=482 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 vAlign=top align="center">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="470">
<tr>
<td align="center" style="font-size: 10pt; color: #0066CC; font-weight: bold">网友评论</td>
</tr>
<tr>
<td align="right">共有评论<%
set rspl=server.CreateObject("adodb.recordset")
rspl.open "select * from xinxibook where 资讯编号=" & rs("编号"),conn,1,1
response.write ("<font color=red> " & rspl.recordcount & " </font>")
rspl.close
set rspl=nothing%>条 <a href="xinxi_add.asp?id=<%=rs("编号")%>"><img src="images/liuyan.gif" border="0"></a><hr></td>
</tr>
<%
set rspl=server.CreateObject("adodb.recordset")
rspl.open "select * from xinxibook where 资讯编号=" & rs("编号") &" order by 编号 desc",conn,1,1
if rspl.recordcount=0 then
response.write ( "<tr><td>暂时没有评论</td></tr>")
else
while not rspl.eof%>
<tr>
<td><font color="#FF3300"><%=rspl("发言内容")%></font><br>
<font color="#999999">留言人 <u><%=rspl("发言者姓名")%></u> | <%=rspl("发言时间")%><%if rspl("发言者联系方式")<>"" then response.write ( " | " & rspl("发言者联系方式")) end if%></font></td>
</tr>
<%
rspl.movenext
wend
end if
rspl.close
set rspl=nothing%>
</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>
<table border="0" cellpadding="0" cellspacing="0" width="500">
<tr><td align="center" height="10"></td></tr>
<tr><td align="center" height="40"><form>
<input type='button' value=' 关 闭 ' onclick='window.close()'></form></td></tr>
<tr><td align="center" height="10"></td></tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="500">
<tr>
<td align="right" width="480" height="40">管理选项：<a href="xinxi.asp?id=<%=id%>">资讯查看</a> | <a href="edit_xinxi.asp?id=<%=id%>">资讯管理</a> |
<a href="edit_zxbook.asp?id=<%=id%>">资讯评论管理</a> |
<a href="edit_login.asp">管理登陆</a> |
<a href="edit_logout.asp">退出登录</a></td>
<td width="20"> </td>
</tr>
</table>
</div>
<%
rs.close
set rs=nothing
%>
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -