fy.common.front.asp

1

<%
Dim strHtml,FY_Web_R,ListBQ(20),List_CS(20),next_X(5)
Dim next_XH
'**************************************************************
' 模板部分
' 修改时间：15:15 2008年11月24日 星期一
' Copyright (C) 2008 飞云 版权所有
'**************************************************************

Public Sub GetHTML_Contents_List(ClassID,Class_Y,SiteClass_1,SiteClass_2,SiteClass_3,SiteClass_4,SiteClass_5,SiteClass_6,SiteClass_7,SiteClass_8,XSID)
Dim Class_Name,XSRs_D
Class_Name=FY_Class_Name(ClassID)
XSID=FY_CLng(XSID)

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

FY_Web_R="&nbsp;<a class='LinkPath' href='"&InstallDir&"" & "'>" & FY_Config(0) & "</a>&nbsp;>>&nbsp;<a class='LinkPath_Class' href='"&FY_Class_Url(ClassID,0)&"'>"&Class_Name&"</a>&nbsp;>>&nbsp;<a class='LinkPath_Novel' href='"&FY_Novel_Url(XSID,ClassID)&"'>"&XSRs_D("书名")&"</a>&nbsp;>>&nbsp;章节列表"
strHtml=FY_Mb_ZZ(FY_Mb_Contents_List(MB_FSOFileRead("List",SiteClass_5),XSID,ClassID,Class_Y,SiteClass_6,0),ClassID,0,0,0)
strHtml=FY_Replace(strHtml,"{$栏目ID}",ClassID)
strHtml=FY_Replace(strHtml,"{$栏目名称}",Class_Name)
strHtml=FY_Replace(strHtml,"{$分类description}",SiteClass_7)
strHtml=FY_Replace(strHtml,"{$分类keywords}",SiteClass_8)
strHtml=FY_Replace(strHtml,"{$栏目简称}",SiteClass_2)

strHtml=FY_Replace(strHtml,"{$S_小说编号}",XSID)
strHtml=FY_Replace(strHtml,"{$S_书名}",XSRs_D("书名"))
strHtml=FY_Replace(strHtml,"{$S_备注名}",XSRs_D("备注名"))
strHtml=FY_Replace(strHtml,"{$S_关键词}",XSRs_D("关键词"))
strHtml=FY_Replace(strHtml,"{$S_作者}",XSRs_D("作者"))
strHtml=FY_Replace(strHtml,"{$S_状态}",FY_XSZT(XSRs_D("状态")))
strHtml=FY_Replace(strHtml,"{$S_封面图片}",FY_Novel_Pic(XSRs_D("图片")))
strHtml=FY_Replace(strHtml,"{$S_小说前言}",XSRs_D("前言"))
strHtml=FY_Replace(strHtml,"{$S_点击}",XSRs_D("点击"))
strHtml=FY_Replace(strHtml,"{$S_推荐}",FY_XSTJ(XSRs_D("推荐")))
strHtml=FY_Replace(strHtml,"{$S_添加时间}",XSRs_D("添加时间"))
strHtml=FY_Replace(strHtml,"{$S_更新时间}",XSRs_D("更新时间"))
strHtml=FY_Replace(strHtml,"{$S_最新章节}",XSRs_D("最新章节"))
strHtml=FY_Replace(strHtml,"{$List_时间_日}",day(XSRs_D("更新时间")))
strHtml=FY_Replace(strHtml,"{$List_时间_月}",month(XSRs_D("更新时间")))
strHtml=FY_Replace(strHtml,"{$List_时间_年}",year(XSRs_D("更新时间")))

strHtml=FY_Replace(strHtml,"{$S_最新章节连接}",FY_Contents_Url(XSRs_D("最新章节"),XSRs_D("类别"),XSRs_D("编号")))
strHtml=FY_Replace(strHtml,"{$S_责任编辑}",XSRs_D("编辑"))
strHtml=FY_Replace(strHtml,"{$S_章节总数}",XSRs_D("章节"))
strHtml=FY_Replace(strHtml,"{$List_章节列表}",FY_Contents_Url(-1,XSRs_D("类别"),XSRs_D("编号")))
'strHtml=FY_Replace(strHtml,"",XSRs_D(""))
End if
End Sub

Public Function FY_Mb_Contents_List(ByVal strcontent,FY_XSID,FY_Mb_ZZ_A,FY_Mb_ZZ_B,FY_Mb_ZZ_C,FYGN)
	strcontent=FY_MBBQ_BQ(strcontent) '自定义标签
    Dim strList
    strList = strcontent
    If InStr(strList,"【Contents_List(")>0 Then
    regEx.Pattern = "\【Contents_List\((.*?)\)】([\s\S]*?)【\/Contents_List】"
    Set Matches = regEx.Execute(strList)
    For Each Match In Matches
        strList = FY_Replace(strList, Match.Value,FY_List_Contents(Match.SubMatches(0),Match.SubMatches(1),FY_XSID))
    Next
    set Matches=nothing
    End if
    If InStr(strList,"【Class_List(")>0 Then
    regEx.Pattern = "\【Class_List\((.*?)\)】([\s\S]*?)【\/Class_List】"
    Set Matches = regEx.Execute(strList)
    For Each Match In Matches
        strList = FY_Replace(strList, Match.Value,FY_Mb_List("分类",Match.SubMatches(0),Match.SubMatches(1),7,FY_Mb_ZZ_A,FY_Mb_ZZ_B,FY_Mb_ZZ_C,FYGN))
    Next
    set Matches=nothing
    End if
	  strList=FY_MBBQ_Mr(strList) '系统默认标签
    FY_Mb_Contents_List = strList
End Function

Public Sub FY_List_Contents_BY(FY_List_Contents_A,FY_List_Contents_B,FY_List_Contents_C,FY_List_Contents_D,FY_List_Contents_E,FY_List_Contents_X1,FY_List_Contents_X2,FY_XSID,FY_List_Contents_DS_1_A,FY_List_Contents_DS_2_A,FY_List_Contents_DS_1_B,FY_List_Contents_DS_2_B)
Dim strList_A,strList_B,FY_JC_A,FY_JC_B
strList_B=""
strList_A=""
FY_JC_A=0
FY_JC_B=0
strHtml=""
Dim Xrs,FY_List_Contents_BY_I
set rs=server.CreateObject("adodb.Recordset")
sql="Select 书卷名称,编号,排序 from 书卷 where 小说编号="&FY_XSID&" order by 排序 asc,编号 asc"
rs.open sql,conn,1,1
if NoT(rs.BOF And rs.EOF) then
FY_JC_A=0
do while not rs.eof
strList_A=strList_A&""&FY_Replace(FY_List_Contents_X1&""&FY_List_Contents_D,"{$Z_书卷名称}",rs(0))
set xRs=server.CreateObject("adodb.Recordset")
sql="Select * from 章节 where 书卷编号="&Rs(1)&" And 小说编号="&FY_XSID&" order by 排序 asc,编号 asc"
xRs.open sql,conn,1,1
if NoT(xRs.BOF And xRs.EOF) then
FY_List_Contents_BY_I=1
do while not xRs.eof

strList_A=strList_A&""&FY_Replace(FY_List_Contents_E,"{$Z_章节名称}",xRs("章节名称"))
   If InStr(strList_A,"{next(")>0 Then
    regEx.Pattern = "\{next\((.*?)\)}([\s\S]*?){\/next}"
    Set next_XH = regEx.Execute(strList_A)
    For Each Match In next_XH
    
      If InStr(Match.SubMatches(0),"|")>0 Then
        next_X(5)=split(Match.SubMatches(0),"|") '循环参数
        next_X(4)=Match.SubMatches(1) '循环内容
        If ubound(next_X(5))=3 Then
        
        next_X(0)=FY_CLng(next_X(5)(0))
        next_X(1)=FY_CLng(next_X(5)(1))
        next_X(2)=FY_CLng(next_X(5)(2))
        next_X(3)=FY_CLng(next_X(5)(3))
          If next_X(0)<2 And next_X(1)<2 And next_X(2)>0 And next_X(2)<10 Then
             If (next_X(0)=1 And FY_List_Contents_BY_I=1) Or FY_List_Contents_BY_I=next_X(3) Or ((FY_List_Contents_BY_I+next_X(3)) Mod next_X(2)=0) Or (next_X(1)=1 And FY_List_Contents_BY_I=xRs.pagesize) Or (next_X(1)=1 And FY_List_Contents_BY_I=xRs.RecordCount) Then
                strList_B = FY_Replace(strList_A, Match.Value,next_X(4))
            Else
                strList_A = FY_Replace(strList_A, Match.Value,"")
            End if
          Else
              strList_A = FY_Replace(strList_A, Match.Value,"错误内循环标签003，请检查错误，如果无法发现错误，请联系客服")
          End if
        Else
            strList_A = FY_Replace(strList_A, Match.Value,"错误内循环标签002，请检查错误，如果无法发现错误，请联系客服")
        End if
      Else
          strList_A = FY_Replace(strList_A, Match.Value,"错误内循环标签001，请检查错误，如果无法发现错误，请联系客服")
      End if
    Next
    set next_XH=nothing
   End if
strList_A=FY_Replace(strList_A,"{$Z_章节编号}",xRs("编号"))
strList_A=FY_Replace(strList_A,"{$Z_章节地址}",FY_Contents_Url(xRs("编号"),conn.execute("select 类别 from [小说] where 编号="&FY_XSID&"")(0),FY_XSID))
strList_A=FY_Replace(strList_A,"{$Z_更新时间}",xRs("更新时间"))
strList_A=FY_Replace(strList_A,"{$Z_责任编辑}",xRs("编辑"))
strList_A=FY_Replace(strList_A,"{$Z_章节内容}",xRs("章节内容"))
If FY_List_Contents_BY_I mod 2=1 Then
strList_A=FY_Replace(strList_A,"{$Z_单双行显示A}",FY_List_Contents_DS_1_A)
strList_A=FY_Replace(strList_A,"{$Z_单双行显示B}",FY_List_Contents_DS_2_A)
Else
strList_A=FY_Replace(strList_A,"{$Z_单双行显示A}",FY_List_Contents_DS_1_B)
strList_A=FY_Replace(strList_A,"{$Z_单双行显示B}",FY_List_Contents_DS_2_B)
End if
FY_List_Contents_BY_I=FY_List_Contents_BY_I+1
xRs.movenext 
loop
Else
strList_A=strList_A&""&FY_List_Contents_B
End if
xRs.close
Set xRs=nothing

strList_A=strList_A&""&FY_List_Contents_X2
rs.movenext 
loop
Else
FY_JC_A=1
End if
rs.close
Set rs=nothing

set xRs=server.CreateObject("adodb.Recordset")
sql="Select * from 章节 where 书卷编号=0 And 小说编号="&FY_XSID&" order by 排序 asc,编号 asc"
xRs.open sql,conn,1,1
if NoT(xRs.BOF And xRs.EOF) then
strList_B=FY_Replace(FY_List_Contents_X1&""&FY_List_Contents_D,"{$Z_书卷名称}","非书卷章节")
FY_List_Contents_BY_I=1
do while not xRs.eof
strList_B=strList_B&""&FY_Replace(FY_List_Contents_E,"{$Z_章节名称}",xRs("章节名称"))
strList_B=FY_Replace(strList_B,"{$Z_章节编号}",xRs("编号"))
strList_B=FY_Replace(strList_B,"{$Z_章节地址}",FY_Contents_Url(xRs("编号"),conn.execute("select 类别 from [小说] where 编号="&FY_XSID&"")(0),FY_XSID))
strList_B=FY_Replace(strList_B,"{$Z_更新时间}",xRs("更新时间"))
strList_B=FY_Replace(strList_B,"{$Z_责任编辑}",xRs("编辑"))
strList_B=FY_Replace(strList_B,"{$Z_章节内容}",xRs("章节内容"))
If FY_List_Contents_BY_I mod 2=1 Then
strList_B=FY_Replace(strList_B,"{$Z_单双行显示A}",FY_List_Contents_DS_1_A)
strList_B=FY_Replace(strList_B,"{$Z_单双行显示B}",FY_List_Contents_DS_2_A)
Else
strList_B=FY_Replace(strList_B,"{$Z_单双行显示A}",FY_List_Contents_DS_1_B)
strList_B=FY_Replace(strList_B,"{$Z_单双行显示B}",FY_List_Contents_DS_2_B)
End if
If InStr(strList_B,"{next(")>0 Then
    regEx.Pattern = "\{next\((.*?)\)}([\s\S]*?){\/next}"
    Set next_XH = regEx.Execute(strList_B)
    For Each Match In next_XH
    
      If InStr(Match.SubMatches(0),"|")>0 Then
        next_X(5)=split(Match.SubMatches(0),"|") '循环参数
        next_X(4)=Match.SubMatches(1) '循环内容
        If ubound(next_X(5))=3 Then
        
        next_X(0)=FY_CLng(next_X(5)(0))
        next_X(1)=FY_CLng(next_X(5)(1))
        next_X(2)=FY_CLng(next_X(5)(2))
        next_X(3)=FY_CLng(next_X(5)(3))
        
          If next_X(0)<2 And next_X(1)<2 And next_X(2)>0 And next_X(2)<10 Then
            If (next_X(0)=1 And FY_List_Contents_BY_I=1) Or FY_List_Contents_BY_I=next_X(3) Or ((FY_List_Contents_BY_I+next_X(3)) Mod next_X(2)=0) Or (next_X(1)=1 And FY_List_Contents_BY_I=xRs.pagesize) Or (next_X(1)=1 And FY_List_Contents_BY_I=xRs.RecordCount) Then
            
                strList_B = FY_Replace(strList_B, Match.Value,next_X(4))
            Else
                strList_B = FY_Replace(strList_B, Match.Value,"")
            End if
          Else
              strList_B = FY_Replace(strList_B, Match.Value,"错误内循环标签003，请检查错误，如果无法发现错误，请联系客服")
          End if
        Else
            strList_B = FY_Replace(strList_B, Match.Value,"错误内循环标签002，请检查错误，如果无法发现错误，请联系客服")
        End if
      Else
          strList_B = FY_Replace(strList_B, Match.Value,"错误内循环标签001，请检查错误，如果无法发现错误，请联系客服")
      End if
    Next
    set next_XH=nothing
   End if
FY_List_Contents_BY_I=FY_List_Contents_BY_I+1
xRs.movenext 
loop
strList_B=strList_B&""&FY_List_Contents_X2
Else
FY_JC_B=1
End if
xRs.close
Set xRs=nothing

If FY_JC_B=1 And FY_JC_A=1 Then
strHtml=FY_List_Contents_C
Else
If FY_List_Contents_A=0 Then
strHtml=strList_A&""&strList_B
else
strHtml=strList_B&""&strList_A
End if
End if
End Sub

Public Function FY_List_Contents(FY_List_Contents_A,FY_List_Contents_B,FY_XSID)
Dim FY_List_Contents_zZ_A,strList
FY_List_Contents_zZ_A=FY_CLng(split(FY_List_Contents_A,"|||||")(0))
If FY_List_Contents_zZ_A<>0 And FY_List_Contents_zZ_A<>1 Then
FY_List_Contents="列表模板标签使用错误，标签错误编号007"  '列表的类型错误
ElseIf ubound(split(FY_List_Contents_A,"|||||"))<>6 Then
FY_List_Contents="列表模板标签使用错误，标签错误编号008  "&FY_List_Contents_A&"  "&FY_List_Contents_b&""  '列表的类型错误
ElseIf ubound(split(FY_List_Contents_B,"|||||"))<>3 Then
FY_List_Contents="列表模板标签使用错误，标签错误编号009  "&FY_List_Contents_A&" 111"&FY_List_Contents_b&""  '列表的类型错误
Else
Call FY_List_Contents_BY(FY_List_Contents_zZ_A,split(FY_List_Contents_A,"|||||")(1),split(FY_List_Contents_A,"|||||")(2),split(FY_List_Contents_B,"|||||")(1),split(FY_List_Contents_B,"|||||")(2),split(FY_List_Contents_B,"|||||")(0),split(FY_List_Contents_B,"|||||")(3),FY_XSID,split(FY_List_Contents_A,"|||||")(3),split(FY_List_Contents_A,"|||||")(4),split(FY_List_Contents_A,"|||||")(5),split(FY_List_Contents_A,"|||||")(6))
FY_List_Contents=strHtml
End if
End Function

'小说章节页
Public Sub GetHTML_SiteZJ(ClassID,Class_Y,SiteClass_1,SiteClass_2,SiteClass_3,SiteClass_4,SiteClass_5,SiteClass_6,SiteClass_7,SiteClass_8,XSID,IDZJ)
Dim Class_Name,XSRs_D,XSRs_X,XSRs_S
Class_Name=FY_Class_Name(ClassID)
XSID=FY_CLng(XSID)
IDZJ=FY_CLng(IDZJ)
strHtml=""
set XSRs_D=server.createobject("adodb.recordset")
sql="select top 1 * from [章节] where 编号="&IDZJ&""
XSRs_D.open sql,conn,1,1
if Not(XSRs_D.eof and XSRs_D.bof) then

set XSRs_X=server.createobject("adodb.recordset")
sql="select * from [小说] where 编号="&XSID&""
XSRs_X.open sql,conn,1,1
if Not(XSRs_X.eof and XSRs_X.bof) then
FY_Web_R="&nbsp;<a class='LinkPath' href='"&InstallDir&"" & "'>" & FY_Config(0) & "</a>&nbsp;>>&nbsp;<a class='LinkPath_Class' href='"&FY_Class_Url(ClassID,0)&"'>"&Class_Name&"</a>&nbsp;>>&nbsp;<a class='LinkPath_Novel' href='"&FY_Novel_Url(XSID,ClassID)&"'>"&XSRs_X("书名")&"</a>&nbsp;>>&nbsp;阅读《"&XSRs_D("章节名称")&"》"
strHtml=FY_Mb_Contents_List(MB_FSOFileRead("Contents",SiteClass_5),XSID,ClassID,Class_Y,SiteClass_6,0)
strHtml=FY_MBBQ_BQ(strHtml) '自定义标签
strHtml=FY_MBBQ_Mr(strHtml) '系统默认标签
strHtml=FY_Replace(strHtml,"{$栏目ID}",ClassID)
strHtml=FY_Replace(strHtml,"{$栏目名称}",Class_Name)
strHtml=FY_Replace(strHtml,"{$分类description}",SiteClass_7)
strHtml=FY_Replace(strHtml,"{$分类keywords}",SiteClass_8)
strHtml=FY_Replace(strHtml,"{$栏目简称}",SiteClass_2)