contents.asp

1

<!--#include file="Conn.asp" -->
<!--#include file="Include/FY.Common.Front.Asp" -->
<%
Dim ID,ClassRs,XSRs,ZJRs,ZJRsrs
ID=FY_CLng(trim(request("id")))

If FY_Cache.CacheIsEmpty("Contents_"&ID&"_JS") Then

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

set ClassRs=server.createobject("adodb.recordset")
sql="select * from [分类] where 编号="&ZJRs("类别")&""
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(ID,ClassRs("编号"),ZJRs("小说编号"))
Else
strHtml=""
         Call GetHTML_SiteZJ(ClassRs("编号"),1,ClassRs("分类名称"),ClassRs("目录名称"),ClassRs("文件扩展名"),ClassRs("TXT路径"),ClassRs("生成模板"),ClassRs("每页显示小说"),ClassRs("description"),ClassRs("keywords"),ZJRs("小说编号"),ID)
         FY_Cache.SetValue "Contents_"&ID&"_JS",strHtml 
End if
End if
ClassRs.close
set ClassRs=nothing

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