⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 fy.common.front.asp

📁 1
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 

strHtml=FY_Replace(strHtml,"{$S_小说编号}",XSID)
strHtml=FY_Replace(strHtml,"{$S_书名}",XSRs_X("书名"))
strHtml=FY_Replace(strHtml,"{$S_备注名}",XSRs_X("备注名"))
strHtml=FY_Replace(strHtml,"{$S_关键词}",XSRs_X("关键词"))
strHtml=FY_Replace(strHtml,"{$S_作者}",XSRs_X("作者"))
strHtml=FY_Replace(strHtml,"{$S_状态}",FY_XSZT(XSRs_X("状态")))
strHtml=FY_Replace(strHtml,"{$S_封面图片}",FY_Novel_Pic(XSRs_X("图片")))
strHtml=FY_Replace(strHtml,"{$S_小说前言}",XSRs_X("前言"))
strHtml=FY_Replace(strHtml,"{$S_点击}",XSRs_X("点击"))
strHtml=FY_Replace(strHtml,"{$S_推荐}",FY_XSTJ(XSRs_X("推荐")))
strHtml=FY_Replace(strHtml,"{$S_添加时间}",XSRs_X("添加时间"))
strHtml=FY_Replace(strHtml,"{$S_更新时间}",XSRs_X("更新时间"))
strHtml=FY_Replace(strHtml,"{$S_最新章节}",XSRs_X("最新章节"))
strHtml=FY_Replace(strHtml,"{$List_时间_日}",day(XSRs_X("更新时间")))
strHtml=FY_Replace(strHtml,"{$List_时间_月}",month(XSRs_X("更新时间")))
strHtml=FY_Replace(strHtml,"{$List_时间_年}",year(XSRs_X("更新时间")))
strHtml=FY_Replace(strHtml,"{$S_最新章节连接}",FY_Contents_Url(XSRs_X("最新章节"),XSRs_X("类别"),XSRs_X("编号")))
strHtml=FY_Replace(strHtml,"{$S_责任编辑}",XSRs_X("编辑"))
strHtml=FY_Replace(strHtml,"{$S_章节总数}",XSRs_X("章节"))
strHtml=FY_Replace(strHtml,"{$List_章节列表}",FY_Contents_Url(-1,XSRs_X("类别"),XSRs_X("编号")))
'strHtml=FY_Replace(strHtml,"",XSRs_X(""))
End if
XSRs_X.close
set XSRs_X=nothing
strHtml=FY_Replace(strHtml,"{$Z_章节名称}",XSRs_D("章节名称"))
strHtml=FY_Replace(strHtml,"{$Z_章节编号}",XSRs_D("编号"))
strHtml=FY_Replace(strHtml,"{$Z_章节地址}",FY_Contents_Url(XSRs_D("编号"),ClassID,XSID))
strHtml=FY_Replace(strHtml,"{$Z_更新时间}",XSRs_D("更新时间"))
strHtml=FY_Replace(strHtml,"{$Z_责任编辑}",XSRs_D("编辑"))
strHtml=FY_Replace(strHtml,"{$Z_章节内容}",XSRs_D("章节内容"))
set XSRs_S=server.createobject("adodb.recordset")
sql="select top 1 * from [章节] where 编号<"&IDZJ&" And 小说编号="&XSID&" order by 编号 desc"
XSRs_S.open sql,conn,1,1
if Not(XSRs_S.eof and XSRs_S.bof) then
strHtml=FY_Replace(strHtml,"{$Z_上一节地址}",FY_Contents_Url(XSRs_S("编号"),ClassID,XSID))
strHtml=FY_Replace(strHtml,"{$Z_上一节名称}",XSRs_S("章节名称"))
Else
strHtml=FY_Replace(strHtml,"{$Z_上一节地址}","#")
strHtml=FY_Replace(strHtml,"{$Z_上一节名称}","没有了")
End if
XSRs_S.close
set XSRs_S=nothing
set XSRs_S=server.createobject("adodb.recordset")
sql="select top 1 * from [章节] where 编号>"&IDZJ&" And 小说编号="&XSID&" order by 编号 asc"
XSRs_S.open sql,conn,1,1
if Not(XSRs_S.eof and XSRs_S.bof) then
strHtml=FY_Replace(strHtml,"{$Z_下一节地址}",FY_Contents_Url(XSRs_S("编号"),ClassID,XSID))
strHtml=FY_Replace(strHtml,"{$Z_下一节名称}",XSRs_S("章节名称"))
Else
strHtml=FY_Replace(strHtml,"{$Z_下一节地址}","#")
strHtml=FY_Replace(strHtml,"{$Z_下一节名称}","没有了")
End if
XSRs_S.close
set XSRs_S=nothing
Else
strHtml="章节错误"
End if
XSRs_D.close
set XSRs_D=nothing
End Sub

Public Sub GetHTML_SiteIndex()
FY_Web_R="&nbsp;<a class='LinkPath' href='"&InstallDir&"" & "'>" & FY_Config(0) & "</a>&nbsp;>>&nbsp;" & "首页"
strHtml=FY_Mb_GO(MB_FSOFileRead("Index",""&FY_Config(16)&""),0,0,0,0)
End Sub

'小说介绍页生成
Public Sub GetHTML_SiteXS(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_GO(MB_FSOFileRead("Novel",SiteClass_5),ClassID,Class_Y,SiteClass_6,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

'栏目编号
'当前页码
'分类名称
'目录名称
'文件扩展名
'TXT路径
'生成模板
'每页显示小说
'description
'keywords
Public Sub GetHTML_SiteClass(ClassID,Class_Y,SiteClass_1,SiteClass_2,SiteClass_3,SiteClass_4,SiteClass_5,SiteClass_6,SiteClass_7,SiteClass_8)
Dim Class_Name
Class_Name=FY_Class_Name(ClassID)
FY_Web_R="&nbsp;<a class='LinkPath' href='"&InstallDir&"" & "'>" & FY_Config(0) & "</a>&nbsp;>>&nbsp;" & ""&Class_Name&""
strHtml=FY_Mb_GO(MB_FSOFileRead("Class",SiteClass_5),ClassID,Class_Y,SiteClass_6,1)
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)
End Sub

'FY_List_BM_A 模板
'FY_List_BM_B 模板正则后的参数
'FY_List_BM_C 当前栏目
'FY_List_BM_D 页码
'FY_List_BM_E 每页显示数量
Public Sub FY_List_B(FY_List_BM_A,FY_List_BM_B,FY_List_BM_C,FY_List_BM_D,FY_List_BM_E,FYGN)
Dim FY_List_B_I
strHtml=""

List_CS(0)="" '防止循环时提交前一项的数据
List_CS(1)=""
List_CS(2)=""
List_CS(3)=""
List_CS(4)=""
List_CS(6)=""
List_CS(7)=""
List_CS(8)=""
List_CS(5)=""

For FY_List_B_I=0 to 17
ListBQ(FY_List_B_I)=ListBQ(20)(FY_List_B_I)
If FY_List_B_I<13 And FY_List_B_I<>3 And ListBQ(FY_List_B_I)="" Then
strHtml="列表模板标签使用错误，标签错误编号003" '在不允许为空的参数上设置空值
exit for
ElseIf FY_List_B_I<13 And FY_List_B_I<>3 And FY_List_B_I>0 And Not(IsNumeric(ListBQ(FY_List_B_I))) Then
strHtml="列表模板标签使用错误，标签错误编号004"  '在必须为数字的参数上设置非数值
exit for
End if
If FY_List_B_I<13 And FY_List_B_I<>3 And FY_List_B_I>0 Then
ListBQ(FY_List_B_I)=FY_CLng(ListBQ(FY_List_B_I))
End if
next
If FY_List_BM_C=0 And FY_CLng(ListBQ(0))=-1 Then
strHtml="列表模板标签使用错误，标签错误编号005"  '在不允许选择当前栏目的位置进行设置
ElseIf ListBQ(12)=1 And FYGN=0 Then
strHtml="列表模板标签使用错误，标签错误编号006"  '在不允许分页的位置进行内容分页
End if
If strHtml="" Then
'小说分类
If InStr(ListBQ(0),"|")>0 Then
Dim LISTQB_1,LISTQB_i
LISTQB_1=split(ListBQ(0),"|")
For LISTQB_i=0 to ubound(LISTQB_1)
If FY_CLng(LISTQB_1(LISTQB_i))=0 Then
List_CS(0)=""
exit for
Else
List_CS(0)=List_CS(0)&" 类别="&FY_CLng(LISTQB_1(LISTQB_i))
If LISTQB_i<>ubound(LISTQB_1) Then
List_CS(0)=List_CS(0)&" Or"
Else
List_CS(0)="("&List_CS(0)&")"
End if
End if
Next
ElseIf FY_CLng(ListBQ(0))=0 Then
List_CS(0)=""
ElseIf FY_CLng(ListBQ(0))=-1 Then
List_CS(0)=" 类别="&FY_List_BM_C&""
Else
List_CS(0)=" 类别="&ListBQ(0)&""
End if
If List_CS(0)="" Then '防止数据为空时影响下边的运行
List_CS(0)=" 类别<>0"
End if
If S_J=1 And S<>"" And FY_CLng(ListBQ(1))=-1 And FY_CLng(ListBQ(2))=-1 Then
List_CS(0)=List_CS(0)&" And (书名 like '%"&S&"%' or 作者 like '%"&S&"%') "
End if

'小说推荐度
iF FY_CLng(ListBQ(1))<>-1 Then
List_CS(1)=" And 推荐="&ListBQ(1)&""
End If
'小说状态
iF FY_CLng(ListBQ(2))<>-1 Then
List_CS(2)=" And 状态="&ListBQ(2)&""
End If
'作者
iF ListBQ(3)<>"" Then
List_CS(3)=" And 作者='"&ReplaceBadChar(ListBQ(3))&"'"
End If
'显示数目
iF ListBQ(4)<>0 Then
List_CS(5)="Top "&ListBQ(4)&" "
End If
'排行方式
iF ListBQ(11)=5 Then
List_CS(4)="月点击 desc,"
ElseiF ListBQ(11)=1 Then
List_CS(4)="添加时间 desc,"
ElseiF ListBQ(11)=2 Then
List_CS(4)="点击 desc,"
ElseiF ListBQ(11)=3 Then
List_CS(4)="日点击 desc,"
ElseiF ListBQ(11)=4 Then
List_CS(4)="周点击 desc,"
Else
List_CS(4)="更新时间 desc,"
End If

set rs=server.createobject("adodb.recordset")
sql="select "&List_CS(5)&"* from 小说 where "&List_CS(0)&" "&List_CS(1)&" "&List_CS(2)&" "&List_CS(3)&" order by "&List_CS(4)&"编号 desc"
rs.open sql,conn,1,1
If rs.eof and rs.bof then
strHtml=ListBQ(20)(15)
else
IF FY_CLng(FY_List_BM_E)=0 Then
  FY_List_BM_E=20
  End if
  Dim iCount,iPageSize,maxpage,page,x,j
	rs.PageSize =FY_List_BM_E '每页记录条数
	iCount=rs.RecordCount '记录总数
	iPageSize=rs.PageSize
	maxpage=rs.PageCount 
	page=FY_List_BM_D
	If Not IsNumeric(page) or page="" then
	page=1
    Else
	page=cint(page)
    End If
	If page<1 then
		page=1
		ElseIf  page>maxpage then
		page=maxpage
	End If
	rs.AbsolutePage=Page
	If page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	Else
		x=iPageSize
	End If
LISTQB_i=1
for j=1 to rs.pagesize
If LISTQB_i mod 2=1 Then
strHtml=strHtml&""&FY_Replace(FY_List_BM_A,"{$List_单双行显示A}",ListBQ(20)(13))
Else
strHtml=strHtml&""&FY_Replace(FY_List_BM_A,"{$List_单双行显示A}",ListBQ(20)(14))
End if
If LISTQB_i mod 2=1 Then
strHtml=FY_Replace(strHtml,"{$List_单双行显示B}",ListBQ(20)(16))
Else
strHtml=FY_Replace(strHtml,"{$List_单双行显示B}",ListBQ(20)(17))
End if
strHtml=FY_Replace(strHtml,"{$List_循环编号}",LISTQB_i*page)
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -