📄 read_userbook.asp
字号:
<!-- #include file="conn.asp" -->
<!--#include file="inc/config.asp"-->
<%
dim id
id=CheckSql(request("id"))
CheckSqlnum(id)
if id="" then
response.Redirect "index.asp"
response.End
end if
id=int(id)
set rs=server.CreateObject("ADODB.recordset")
sql="select * from [Article] where Ar_nolook=0 and Ar_id="&id
rs.open sql,conn,1,3
if rs.eof and rs.bof then
Response.Write ("<script>alert(' 访问错误!\n\n 您访问的作品或文件不存在!\n\n 点击确定返回 ');history.back();</script>")
Response.end
end if
if rs("Ar_Lock") = 1 then
response.write "<script language=javascript>alert(' 对不起,您要查看的作品已经被锁定! \n\n 可能该作品包含国家或者本站所禁止的内容. \n\n 您如果是该作品的管理员或作者,请联系站长!');history.back(-1);</script>"
response.end
end if
if session("userbook_ID")<>"" then
if session("userbook_ID")<>id then
rs("Ar_hist")=rs("Ar_hist")+1
rs.update
session("userbook_ID")=id
else
end if
else
rs("Ar_hist")=rs("Ar_hist")+1
rs.update
session("userbook_ID")=id
end if
Ar_class=rs("Ar_class")
Ar_name=rs("Ar_name")
Ar_Content=rs("Ar_Content")
Ar_userid=rs("Ar_userid")
Ar_hist=rs("Ar_hist")
Ar_jian=rs("Ar_jian")
Ar_data=rs("Ar_data")
Ar_size=rs("Ar_size")
Ar_key=rs("Ar_key")
rs.close
set rs=nothing
set rs1=server.CreateObject("ADODB.recordset")
sql="select classname from Ar_class where id="&Ar_class&""
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then
else
classname=rs1("classname")
end if
rs1.close
set rs1=nothing
set rsu=server.CreateObject("ADODB.recordset")
sql="select NAME from [User] where ID="&Ar_userid&""
rsu.open sql,conn,1,1
if rsu.eof and rsu.bof then
else
Ar_user=rsu("NAME")
end if
rsu.close
set rsu=nothing
Stats0="短篇文集"
Stats1=Ar_name
Stats2=Ar_user
Stats3=classname%>
<!--#include file="top.asp"-->
<table cellspacing="0" cellpadding="0" width="100%" align="center" border="0" style="font-family: 宋体; font-size: 10pt" id="table2">
<tr bgcolor="#333333">
<td colspan="2" height="1"></td>
</tr>
<tr>
<td class="333" width="50%" height="25">
<a style="font-style: normal; font-variant: normal; font-weight: normal; line-height: 160%; font-size: 12px; color: #666666; text-decoration: none" href="index.asp">
<%=SiteName%>首页</a>-><a style="font-style: normal; font-variant: normal; font-weight: normal; line-height: 160%; font-size: 12px; color: #666666; text-decoration: none" href="listuserbook.asp">短篇文集</a>->
<a style="font-style: normal; font-variant: normal; font-weight: normal; line-height: 160%; font-size: 12px; color: #666666; text-decoration: none" href="list_userbook.asp?id=<%=Ar_class%>">
<%=classname%></a>->《<a style="font-style: normal; font-variant: normal; font-weight: normal; line-height: 160%; font-size: 12px; color: #666666; text-decoration: none" href="show_user.asp?id=<%=Ar_userid%>"><%=Ar_user%></a>的文集》</td>
<td class="333" align="right" width="50%">『
<a style="font-style: normal; font-variant: normal; font-weight: normal; line-height: 160%; font-size: 12px; color: #666666; text-decoration: none" href="jian_userbook.asp?id=<%=id%>&us=<%=Ar_userid%>">
推荐本文</a>
<a style="font-style: normal; font-variant: normal; font-weight: normal; line-height: 160%; font-size: 12px; color: #666666; text-decoration: none" href="show_user.asp?id=<%=Ar_userid%>">返回<%=Ar_user%>的文集</a> 』</td>
</tr>
<tr bgcolor="#333333">
<td colspan="2" height="1"></td>
</tr>
<tr bgcolor="#cccccc">
<td colspan="2" height="2"></td>
</tr>
<tr>
<td colspan="2" height="10"><iframe src=adlist.asp width=100% height=40 border="0" vspace="0" hspace="0" marginwidth="0" marginheight="0" framespacing="0" frameborder="0" scrolling="no"></iframe></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr bgColor="#333333">
<td height="1" align="center">
</td>
</tr>
<tr>
<td align="center"><br><span class="max"><%=Ar_name%></span><br></td></tr>
<tr>
<td align="right"><br><span class="min">点击:<%=Ar_hist%> 推荐:<%=Ar_jian%> 字数:<%=Ar_size%> 更新时间:<%=Ar_data%> 关键字:<%=Ar_key%></span>
<br></td>
</tr></table>
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center">
<div align="left" id="content">
<font face="<%=fontface%>" color="<%=fontcolor%>"><br>
<span style="font-size:<%=fontsize%>pt;line-height:150%;"><%=Ar_Content%></span></font><br>
<br>
</div>
</td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colSpan="2" height="6"></td>
</tr>
<tr bgColor="#333333">
<td height="1" align="center">
</td>
</tr>
<tr>
<td align="center"><%=adsfoot%></td>
</tr>
<tr bgColor="#333333">
<td height="1" align="center">
</td>
</tr>
</table>
<!-- #include file="foot.asp" -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -