📄 shownews.asp
字号:
<% option explicit %>
<!--#include file="conn.asp"-->
<!--#include file="style.asp"-->
<html>
<head>
<title>新闻</title>
<meta HTTP-EQUIV="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="common.css">
<% dim rs, sql
set rs = server.createobject("adodb.recordset")
%>
<script type="" language="JavaScript">
function closewindow()
{
window.close()
}
</script>
</head>
<body bgcolor=<%=BGCOLOR%>>
<!--#include file="header.htm"-->
<%
dim curid
curid = request("id")
sql = "UPDATE news SET hits = hits + 1 WHERE id = " + cstr(curid)
conn.execute sql
sql = "SELECT * FROM news WHERE id = " + cstr(curid)
rs.open sql, conn, 1, 1
if err.number <> 0 then
response.write "数据库出错"
else
if rs.bof and rs.eof then
rs.close
response.write "没有"
else
response.write "<table border=0 width='100%' cellspacing=0 cellpadding=0>"
response.write "<tr><td width='100%' bgcolor=#000000>"
response.write "<div align=center><center><table width='100%' border=0 cellspacing=1 cellpadding=4>"
response.write "<tr><td width='100%' align=center bgcolor=#77a2d9 colspan=3><font color=#FEF7ED>" + rs("title") + "</font></td></tr>"
response.write "<tr><td bgcolor=#FEF7ED colspan=3 width='100%'>"
if not isnull(rs("image")) and rs("image")<> "" then
response.write "<img src=" + rs("image") + " border=0 align='left'>"
end if
response.write " "
response.write rs("content") + "</td></tr>"
response.write "<tr><td width='33%' align=center bgcolor=#F1DAB1>"
if not isnull(rs("link")) and rs("link") <> "" then
response.write "<a href=" + rs("link") + ">相关连接</a>"
else
response.write " 无相关连接"
end if
response.write "</td>"
response.write "<td width='34%' align=center bgcolor=#F1DAB1>加入时间：" + formatdatetime(rs("addtime")) + "</td>"
response.write "<td width='33%' align=center bgcolor=#F1DAB1>阅读次数：" + cstr(rs("hits")) + "</td></tr>"
response.write "</table>"
response.write "</table>"
end if
end if
set rs = nothing
call endconnection()
%>
<center>
<!--#include file="footer.htm"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -