look_bookhead.asp

本源代码为终点小说连载系统 v1.15 Build 0430 SQL清风修改版,欢迎大家下载,学习与交流

<%
dim UserID,UserName
UserID=session("UserID")
UserName=session("UserName")
id=CheckSql(request("id"))
CheckSqlnum(id)
if id="" then
response.Redirect "index.asp"
response.End
end if
id=int(id)
set rs_s=server.createobject("adodb.recordset")
sql="select * from list_book where id="&id&""
rs_s.open sql,conn,1,1
if not(rs_s.bof and rs_s.eof) then
	else
	response.write "<script language=javascript>alert('对不起,您要查看的作品不存在或已经被删除! \n\n 可能该作品不存在或包含国家或者本站禁止的内容 \n\n 您如果是该作品的管理员或作者,请联系站长!');history.back(-1);</script>"
	response.end 
end if
if rs_s("Lock_book") = 1 then
	response.write "<script language=javascript>alert('对不起,您要查看的作品已经被锁定! \n\n 可能该作品包含国家或者本站所禁止的内容. \n\n 您如果是该作品的管理员或作者,请联系站长!');history.back(-1);</script>"
	response.end 
end if
list_name=rs_s("list_name")
list_user=rs_s("list_user")
%><%
dim list_typeid
list_typeid=rs_s("list_class")
set rs8=server.CreateObject("ADODB.Recordset")
sql8="select * from list_type where typeid="&list_typeid&""
rs8.open sql8,conn,1,1
%><%
dim list_classid
list_classid=rs_s("list_lei")
set rs2=server.CreateObject("ADODB.Recordset")
sql2="select * from list_class where list_classid="&list_classid&""
rs2.open sql2,conn,1,1
list_classname=rs2("list_classname")
%><script language="JavaScript">
<!--
function jopens(id)
{
	var filename=""+id;
	window.open(filename,"显示窗口","toolbar=no,location=no,directories=no,status=yes,menubar=no,scrollbars=yes,resizable=yes,width=780,height=539");
}
//-->
</script><!--
'----------------------------------------------------------------------
'转发时请保留此声明信息,这段声明不并会影响你的速度!
'*******************     終點小说连载系统   ***************************
'作者:终点
'邮件:[e-mail];[e-mail]
'网站:http://www.cnend.com/;http://www.cnend.com.cn/;http://www.cnend.net/;http://www.cnend.cn/
'QQ:46653654
'**********************************************************************
'----------------------------------------------------------------------
-->
<%Stats=list_name&" - "&list_user&" - "&list_classname&"  - Powered By CnEndWeb"%>