look_bookhead.asp

功能强大 首发! 演示地址:http://jsice.com QQ:3300828 运行环境： Internet Information Server 5.x or 6.0 （ii

<%
id=CheckSql(request("id"))
CheckSqlnum(id)
if id="" then
response.Redirect "index.asp"
response.End
end if
id=int(id)
if OpenInhtml=1 then
if htmlphem=1 then
htmlphe="htm"
elseif htmlphem=2 then
htmlphe="html"
elseif htmlphem=3 then
htmlphe="shtml"
elseif htmlphem=4 then
htmlphe="asp"
else
htmlphe="html"
end if

viewFolder = SiteSystemPath&"HTML/"

file2=server.mappath( ""&viewFolder&""&id&"."&htmlphe&"" )
set tfo=Server.CreateObject("Scripting.FileSystemObject")
if tfo.FileExists(file2) = True Then
response.write "<meta http-equiv=Refresh content='0; URL="&viewFolder&""&id&"."&htmlphe&"'>"
	Response.redirect(""&viewFolder&""&id&"."&htmlphe&"")
	Response.end
end if

end if
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 您如果是该作品的管理员或作者,请联系站长!');location.href='index.asp?info=exit';</script>"
	response.end 
end if
if rs_s("Lock_book") = 1 then
	response.write "<script language=javascript>alert('对不起,您要查看的作品已经被锁定! \n\n 可能该作品包含国家或者本站所禁止的内容. \n\n 您如果是该作品的管理员或作者,请联系站长!');location.href='index.asp?info=exit';</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>
<%Stats=list_name&" - "&list_user&" - "&list_classname&"  - Powered By JsIceWeb"%>