📄 comment.asp
字号:
<%@ LANGUAGE="VBSCRIPT"%>
<!-- #include file="ADOVBS.INc" -->
<%
set conn=server.createObject("ADODB.Connection")
dbpath=server.mappath("news.mdb")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath
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"))
%>
<html>
<head>
<title>具体内容</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<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>
<link rel="stylesheet" href="3508.css">
</head>
<body bgcolor="#FFFFF8">
<table width="740" border="0" cellspacing="0" cellpadding="0" align="center" height="18" bgcolor="#FFCC99">
<tr>
<td width="260">【本站导航】 新闻</td>
<td width="40">◆<a href="more.asp?class='A'">职业</a> </td>
<td width="40">◆<a href="more.asp?class='B'">旅游</a></td>
<td width="40">◆<a href="more.asp?class='C'">奇闻</a></td>
<td width="40">◆<a href="more.asp?class='D'">明星</a></td>
<td width="40">◆<a href="more.asp?class='E'">健康</a></td>
<td width="40">◆<a href="more.asp?class='F'">性爱</a></td>
<td width="40">◆<a href="more.asp?class='G'">美食</a></td>
<td width="40">◆<a href="more.asp?class='H'">电器</a></td>
<td width="40">◆<a href="more.asp?class='I'">美丽</a></td>
<td width="40">◆<a href="more.asp?class='J'">汽车</a></td>
<td width="40">◆<a href="more.asp?class='K'">家居</a></td>
<td width="40">◆<a href="more.asp?class='L'">理财</a></td>
</tr>
</table>
<table width="740" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td> </td>
</tr>
</table>
<table width="680" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#ECFFEC">
<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="36" 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"> </td>
<td align="right" width="253" height="23"> <%
if trim(c)<>"" then
response.write "《"&c&"》"
end if
%> <%=d%></td>
</tr>
<tr bgcolor="#FFFFFF" align="right">
<td height="51" colspan="2">
<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 + -