class.asp

1

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

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