read_article.asp

小说站源代码文件

<!-- #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_id="&id
rs.open sql,conn,1,1
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("article_ID")<>"" then 
	if session("article_ID")<>id then
		conn.execute ("update Article set Ar_hist=Ar_hist+1 where Ar_id="&id)
		session("article_ID")=id
	else
	end if
else
	conn.execute ("update Article set Ar_hist=Ar_hist+1 where Ar_id="&id)
	session("article_ID")=id
end if

Ar_class=rs("Ar_class")
Ar_name=rs("Ar_name")
Ar_Content=rs("Ar_Content")
Ar_pic=rs("Ar_pic")
Ar_username=rs("Ar_username")
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

Stats0="短篇文集"
Stats1=Ar_name
Stats2=Ar_username
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="list_article.asp">短篇文集</a>-&gt;
		<a class="view" href="list_article.asp?id=<%=Ar_class%>">
		<%=classname%></a>-&gt;《<a class="view" href="list_article.asp?username=<%=Ar_username%>"><%=Ar_username%></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="list_article.asp?username=<%=Ar_username%>">返回<%=Ar_username%>的文集</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%;">
			<%if Ar_pic<>"" and Ar_pic<>null then
			response.write "<img class=pic1 src="&Ar_pic&" border=0 align=left hspace=15 vspace=15>"
			end if%><%=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_username='"&username&"' and Ar_userid=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_username='"&username&"' and Ar_userid=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_article.asp?id=<%=ppage%>"
var nextpage="read_article.asp?id=<%=npage%>"
var bookpage="list_article.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_article.asp?id=<%=ppage%>" target="_top">上一篇</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
		<a class="view" href="list_article.asp" target="_top">
		返回列表</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
		<a class="view" href="read_article.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" -->