📄 b_viewpaper.asp
字号:
<!-- #include file="conn.asp" -->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/ubbcode.asp" -->
<%
stats="浏览小字报"
%>
<html>
<head>
<title><%=txl_info(0)%>--<%=stats%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="inc/txl_css.asp"-->
</head>
<body topmargin=0>
<%
dim paperid
dim abgcolor
if request("id")="" then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>非法的参数。"
elseif not isInteger(request("id")) then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>非法的参数。"
else
paperID=request("id")
end if
if founderr then
call txl_error()
else
set rs=server.createobject("adodb.recordset")
sql="select * from smallpaper where s_id="&paperid
rs.open sql,conn,1,1
if rs.eof and rs.bof then
Errmsg=Errmsg+"<br>"+"<li>没有找到相关信息。"
call txl_error()
else
conn.execute("update smallpaper set s_hits=s_hits+1 where s_id="&paperid)
%>
<table cellpadding=3 cellspacing=1 align=center style="width: 100%; border: 1px; background-color: <%=txl_body(9)%>;">
<TBODY>
<TR>
<Th height=24><%=htmlencode(rs("s_title"))%></Th>
</TR>
<TR>
<TD class=tablebody1>
<p align=center><a href=dispuser.asp?name=<%=htmlencode(rs("s_realname"))%> target=_blank><%=htmlencode(rs("s_realname"))%></a> 发布于 <%=rs("s_addtime")%></p>
<blockquote>
<br>
<%=ubbcode(rs("s_content"))%>
<br>
<div align=right>浏览次数：<%=rs("s_hits")%></div>
</blockquote>
</TD>
</TR>
<TR align=middle>
<TD height=24 class=tablebody2><a href=# onclick="window.close();">『 关闭窗口 』</a></TD>
</TR>
</TBODY>
</TABLE>
<%
end if
rs.close
set rs=nothing
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -