📄 comment.asp
字号:
<%@ LANGUAGE="VBSCRIPT"%>
<!-- #include file="ADOVBS.INc" -->
<html>
<head>
<title>具体内容</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../html/3508.css">
<style type="text/css">
<!--
.big { font-size: 14px; color: #000000; word-spacing: normal}
.botton { color: #000000; background-color: #FFFFF8; font-size: 12px}
.yjtitle { line-height: 40px}
-->
</style>
</head>
<body bgcolor="#FFFFF8">
<%
set conn=server.createobject("adodb.connection")
conn.open Application("DBCon_ConnectionString")
set rs=server.createobject("adodb.recordset")
sqltext="Select * from news where newsid='"+request("newsid")+"'"
rs.open sqltext,conn,adOpenkeyset,adlockoptimistic,adcmdtext
skipid=request("newsid")
a=trim(rs("key1"))
b=trim(rs("key1"))
c=trim(rs("lookfrom"))
d=trim(rs("reporter"))
%>
<table width="740" border="0" cellspacing="0" cellpadding="0" align="center" height="40">
<tr>
<td width="198" height="39" align="center" valign="bottom"><img src="../images/smallmark.gif" width="120" height="25"></td>
<td width="379" valign="bottom" height="39"><a href="../default.asp">本站首页</a>
>> 精品生活</td>
<td width="163" valign="bottom" height="39"><%=formatdatetime(date,vblongdate)%></td>
</tr>
<tr>
<td colspan="3" height="1" bgcolor="006600"></td>
</tr>
</table>
<table width="740" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td colspan="2" align="right"> </td>
</tr>
<tr>
<td colspan="2" align="center">
<table width="640" border="0" cellspacing="0" cellpadding="0">
<tr align="center">
<td height="61" width="640">
<h2><span class="yjtitle"><%=rs("title")%></span></h2>
</td>
</tr>
<tr align="right" valign="top">
<td height="35" width="640"><%=rs("accessory")%></td>
</tr>
<tr>
<td width="640"><span class="big"> <%=rs("content")%></span></td>
</tr>
<tr>
<td width="640"> </td>
</tr>
</table>
</td>
</tr>
<%
rs.close
set rs=nothing
set rs=server.createobject("adodb.recordset")
sqltext="select newsid,title,newsdate from news where key1+key2 like '%"&a&"%' and key1+key2 like '%"&b&"%'"
rs.open sqltext,conn,adOpenkeyset,adlockoptimistic,adcmdtext
if not(rs.bof and rs.eof) then%>
<tr>
<td colspan="2">
<table width="70%" align="center" cellpadding="0" cellspacing="0" border="0">
<tr>
<td>【相关新闻】</td>
</tr>
<%
i=0
while not rs.eof and i<=5%> <%
if rs("newsid")=cdbl(skipid) then
rs.movenext
else
%>
<tr>
<td> ◆<a href="comment.asp?newsid=<%=rs("newsid")%>"><%=rs("title")%></a>
</td>
</tr>
<%
rs.movenext
i=i+1
end if
wend
%>
</table>
</td>
</tr>
<%end if%>
<tr>
<td height="1" bgcolor="006600" colspan="2"></td>
</tr>
<tr>
<td width="647" height="23">【<a href="mailto.asp">推荐给我的朋友</a>】
<input type="hidden" name="hiddenField" value="<%=request(newsid)%>">
</td>
<td align="right" width="253" height="23"> <%
if trim(c)<>"" then
response.write "《"&c&"》"
end if
%> <%=d%></td>
</tr>
<tr>
<td height="51" colspan="2" align="center">
<input type="submit" name="click" value="关闭窗口" class="botton" onclick="javascript:window.close()">
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -