novel.asp

1

<!--#include file="Conn.asp" -->
<!--#include file="Include/FY.Common.Front.Asp" -->
<%
Dim ID,ClassRs,XSRs,Y
ID=FY_CLng(trim(request("id")))
Y=FY_CLng(trim(request("Y")))
If Y=-1 Then
If FY_Cache.CacheIsEmpty("XS_"&ID&"_J_JS") Then

set XSRs=server.createobject("adodb.recordset")
sql="select * from [小说] where 编号="&ID&""
XSRs.open sql,conn,1,1
if XSRs.eof and XSRs.bof then
strHtml="<br>"+"<li>您所浏览的小说不存在，请进入首页继续浏览其他信息！"
Else

set ClassRs=server.createobject("adodb.recordset")
sql="select * from [分类] where 编号="&XSRs("类别")&""
ClassRs.open sql,conn,1,1
if ClassRs.eof and ClassRs.bof then
strHtml="<br>"+"<li>您所浏览的小说所在的分类已经不存在，请进入首页继续浏览其他信息！"
ElseIf ClassRs("链接属性")<>"00" Then
Response.Redirect ClassRs("链接属性")
Else
If ClassRs("文件扩展名")<>0 Then
Response.Redirect FY_Contents_Url(-1,XSRs("类别"),ID)
Else
         Call  GetHTML_Contents_List(ClassRs("编号"),1,ClassRs("分类名称"),ClassRs("目录名称"),ClassRs("文件扩展名"),ClassRs("TXT路径"),ClassRs("生成模板"),ClassRs("每页显示小说"),ClassRs("description"),ClassRs("keywords"),ID)
         FY_Cache.SetValue "XS_"&ID&"_J_JS",strHtml 
End if
End if
ClassRs.close
set ClassRs=nothing

End if
XSRs.close
set XSRs=nothing
Else
  strHtml=FY_Cache.GetValue("XS_"&ID&"_J_JS")
End if
else
If FY_Cache.CacheIsEmpty("XS_"&ID&"_JS") Then

set XSRs=server.createobject("adodb.recordset")
sql="select * from [小说] where 编号="&ID&""
XSRs.open sql,conn,1,1
if XSRs.eof and XSRs.bof then
strHtml="<br>"+"<li>您所浏览的小说不存在，请进入首页继续浏览其他信息！"
Else

set ClassRs=server.createobject("adodb.recordset")
sql="select * from [分类] where 编号="&XSRs("类别")&""
ClassRs.open sql,conn,1,1
if ClassRs.eof and ClassRs.bof then
strHtml="<br>"+"<li>您所浏览的小说所在的分类已经不存在，请进入首页继续浏览其他信息！"
ElseIf ClassRs("链接属性")<>"00" Then
Response.Redirect ClassRs("链接属性")
Else
If ClassRs("文件扩展名")<>0 Then
Response.Redirect FY_Novel_Url(ID,XSRs("类别"))
Else
         Call GetHTML_SiteXS(ClassRs("编号"),1,ClassRs("分类名称"),ClassRs("目录名称"),ClassRs("文件扩展名"),ClassRs("TXT路径"),ClassRs("生成模板"),ClassRs("每页显示小说"),ClassRs("description"),ClassRs("keywords"),ID)
         FY_Cache.SetValue "XS_"&ID&"_JS",strHtml 
End if
End if
ClassRs.close
set ClassRs=nothing

End if
XSRs.close
set XSRs=nothing
Else
  strHtml=FY_Cache.GetValue("XS_"&ID&"_JS")
End if
End if
    Response.Write strHtml
Call CloseConn()
%>