read_userbook.asp

功能介绍： 一、会员功能模块 1、站内短信发布(设计中) 2、书架收藏夹 3、发表评论(功能不完善) 4、申请作家(与添书员整合) 5、申请添书员(与作家整合) 6、申请更新员

<!-- #include file="conn.asp" -->
<!--#include file="inc/config.asp"-->

<%
dim id
id=CheckSql(request("id"))
CheckSqlnum(id)
id=int(id)

set rs=server.CreateObject("ADODB.recordset")
sql="select * from [Article] where Ar_nolook=0 and  Ar_userid<>0 and Ar_Author=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 [Userinfo] 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 class="view" href="index.asp">
		<%=SiteName%>首页</a>-&gt;<a class="view" href="listuserbook.asp">短篇文集</a>-&gt;
		<a class="view" href="list_userbook.asp?id=<%=Ar_class%>">
		<%=classname%></a>-&gt;《<a class="view" href="show_user.asp?id=<%=Ar_userid%>"><%=Ar_user%></a>的文集》</td>
		<td class="333" align="right" width="50%">『
		<a class="view" href="user_save.asp?info=jianArticle&id=<%=id%>&us=<%=Ar_userid%>">
		推荐本文</a>
		<a class="view" 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%>&nbsp;&nbsp;推荐：<%=Ar_jian%>&nbsp;&nbsp;字数：<%=Ar_size%>&nbsp;&nbsp;更新时间：<%=Ar_data%>&nbsp;&nbsp;关键字：<%=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>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </div>
		 </td>
	</tr>
</table><table cellSpacing="0" cellPadding="0" width="100%" align="center" border="0" style="font-family: 宋体; font-size: 10pt" id="table3">
	<tr bgColor="#333333">
		<td height="1" align="center">
		</td>
	</tr>
<tr>
		<td colSpan="2" height="8"></td>
	</tr>
<tr>
		<td>
		<div align="center">
			<%
	  dim idpage,ppage
	  idpage=id
	  set rspage=server.CreateObject("ADODB.recordset")
	  sqlpage="select Ar_id from [Article] where Ar_id<"&idpage&" and Ar_userid="&Ar_userid&" and Ar_Author=0 order by Ar_id desc"
	  rspage.open sqlpage,conn,1,1
	  if rspage.recordcount>0 then 
	  	ppage=rspage("Ar_id")
		else
		ppage=0
		end if
rspage.close
set rspage=nothing
	  dim npage
	  set rspage1=server.CreateObject("ADODB.recordset")
	  sqlpage1="select Ar_id from [Article] where Ar_id>"&idpage&" and Ar_userid="&Ar_userid&" and Ar_Author=0 order by Ar_id"
	  rspage1.open sqlpage1,conn,1,1
	  if rspage1.recordcount>0 then 
		npage=rspage1("Ar_id")
		else 
		npage=0
		end if
rspage1.close
set rspage1=nothing
%><script language="javascript">
document.onkeydown=nextpage
var prevpage="read_userbook.asp?id=<%=ppage%>"
var nextpage="read_userbook.asp?id=<%=npage%>"
var bookpage="listuserbook.asp"
function nextpage() {
	if (event.keyCode==13) location=bookpage

	if (event.keyCode==37) location=prevpage
	
	if (event.keyCode==39) location=nextpage

}
</script> <a class="view" href="read_userbook.asp?id=<%=ppage%>" target="_top">上一篇</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
		<a class="view" href="listuserbook.asp" target="_top">
		返回列表</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
		<a class="view" href="read_userbook.asp?id=<%=npage%>" target="_top">下一篇</a></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 bgColor="#333333">
		<td height="1" align="center">
		</td>
	</tr>
</table>
<!-- #include file="foot.asp" -->