📄 admin_articleread.asp
字号:
<%
Option Explicit
Response.buffer=true
const purviewlevel=5
%>
<!--#include file="admin_PurviewChe.asp" -->
<!--#include file="conn.asp" -->
<!--#include file="../inf/ubbcode.asp" -->
<!--#include file="admin_Function.asp" -->
<!--#include file="../inc/WebConfig.asp" -->
<%
dim rsread,articleid,hits
articleid=trim(request.QueryString("articleid"))
if articleid="" then
response.redirect("index.asp")
end if
set rsread=server.createObject("ADODB.Recordset")
rsread.open"select * from article where articleid="&articleid&"",conn,1,3
if rsread.eof and rsread.bof then
response.write("找不到文章！")
response.end()
else
hits=rsread("hits")+1
rsread("hits")=hits
rsread.update
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=rsread("title")%></title>
<link href="Style.css" rel="stylesheet" type="text/css">
</head>
<body><a name="artop"></a>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="right" class="txt"><span class="txt03">【<a href="#arend">尾部</a>】【<a href="javascript:onclick=window.close()">关闭窗口</a>】</span></td>
</tr>
<tr>
<td align="left" class="txt03"> 所属大类：<font class="txt05"><%=rsread("bigclass")%></font> 所属小类：<font class="txt05"><%=rsread("smallclass")%></font> 所属专题：<font class="txt05"><%=rsread("special")%></font></td>
</tr>
<tr>
<td align="center" class="txt"><%if rsread("includepic")=true then %> <span class="txt04">(图)</span> <%=rsread("title")%><%else%><%=rsread("title")%><% end if%> </td>
</tr>
<tr>
<td align="center" class="txt03">作者：<font class="txt05"><%=rsread("author")%></font> 来源：<font class="txt05"><%=rsread("copyfrom")%></font> 发表时间：<font class="txt05"><%=rsread("updatetime")%></font></td>
</tr>
<tr>
<td align="center" class="txt03">文章属性：<font class="txt05">
<%if rsread("ontop")=1 then%>固顶<%end if%> <%if rsread("elite")=2 then%>推荐<%end if%> <%if rsread("hot")=3 then%>精华<%end if%></font> 阅读等级：<font class="txt05">
<%select case rsread("textclass")
case "0"
response.write"一般游客"
case "1"
response.write"注册用户"
case "2"
response.write"普通会员"
case "3"
response.write"中级会员"
case "4"
response.write"高级会员"
case "5"
response.write"特级会员"
end select
%></font> 点击数：<font class="txt05"><%=rsread("hits")%></font></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td><table width="98%" height="100" border="0" align="center" cellpadding="0" cellspacing="0" class="txt02">
<tr>
<td valign="top"><%=rsread("content")%></td>
</tr>
</table></td>
</tr>
<tr>
<td align="right" class="txt03">编辑：<font class="txt05"><%=rsread("editor")%></font> 最后修改时间：<font class="txt05"><%=rsread("edittime")%></font> </td>
</tr><%if rsread("yescomment")=true then%>
<tr>
<td class="txt03">该文允许网友评论</td>
</tr>
<%end if%>
<tr>
<td align="right" class="txt03"><span class="txt03">【<a href="#artop">顶部</a>】</span>【<a href="javascript:onclick=window.close()">关闭窗口</a>】 </td>
</tr>
</table>
<a name="arend"></a>
</body>
</html>
<%end if
rsread.close
set rsread=nothing
call closeconn()
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -