makehtmlfunction.asp

本源代码为终点小说连载系统 v1.15 Build 0430 SQL清风修改版,欢迎大家下载,学习与交流

<%
'-------------------------------------------------------------------------------------
Function CheckDir(FolderPath)
	folderpath=Server.MapPath("\")&folderpath
	Set fso1 = CreateObject("Scripting.FileSystemObject")
	If fso1.FolderExists(FolderPath) then
		'存在
		CheckDir = 1
	Else
		'不存在
		CheckDir = 0
	End if
	Set fso1 = nothing
End Function

Function maketoptendj(djNum)
set rsbclass=server.createobject("adodb.recordset")
sqlbclass="select top "&djNum&" id,list_class,list_lei,list_name,list_user,list_tai,list_hit,newviewid,newviewname,newview,list_gxdate from [list_book] where Lock_book = 0  order by list_hit desc"
rsbclass.open sqlbclass,conn,1,1
if rsbclass.eof and rsbclass.bof then
pencat="document.write('暂无任何作品列表');"
else
For i=1 To djNum
If rsbclass.eof Then Exit For
set rs1=server.CreateObject("ADODB.recordset")
sql="select list_classname from list_class where list_classid="&rsbclass("list_lei")
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then
pencat=pencat&"putlist('"&i&"','被删除',"
else
pencat=pencat&"putlist('"&i&"','"&rs1("list_classname")&"',"
end if
rs1.close
set rs1=nothing
pencat=pencat&"'"&rsbclass("id")&"','"&rsbclass("list_name")&"',"
pencat=pencat&"'"&rsbclass("newviewid")&"',"
if rsbclass("newviewname")<>"" then
pencat=pencat&"'"&unhtmllist(rsbclass("newviewname"))&"',"
else
pencat=pencat&"'暂无更新',"
end if
pencat=pencat&"'"&formatdatetime(rsbclass("list_gxdate"),2)&"','"&unhtmllist(rsbclass("list_user"))&"',"
if rsbclass("list_tai")="1" then 
pencat=pencat&"'转载中...'," 
elseif rsbclass("list_tai")="2" then 
pencat=pencat&"'连载中...'," 
elseif rsbclass("list_tai")="3" then 
pencat=pencat&"'出版中...'," 
elseif rsbclass("list_tai")="4" then 
pencat=pencat&"'已暂停...'," 
elseif rsbclass("list_tai")="5" then 
pencat=pencat&"'已停止...'," 
elseif rsbclass("list_tai")="6" then 
pencat=pencat&"'已完成...'," 
end if
pencat=pencat&"'"&rsbclass("list_hit")&"');"
rsbclass.movenext
Next
end if
rsbclass.close
set rsbclass=nothing

file=server.mappath( ""&SiteSystemPath&"indexjs/list_top1.js" )

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.Createtextfile(file,1)
fout.writeline pencat
fout.close
set fout=nothing
set fso=nothing
pencat=""
End Function

'-------------------------------------------------------------------------------------
Function maketoptenmdj(mdjNum)
set rsbclass=server.createobject("adodb.recordset")
sqlbclass="select top "&mdjNum&" id,list_class,list_lei,list_name,list_user,list_tai,list_mhit,newviewid,newviewname,newview,list_gxdate from [list_book] where Lock_book = 0  order by list_mhit desc"
rsbclass.open sqlbclass,conn,1,1
if rsbclass.eof and rsbclass.bof then
pencat="document.write('暂无任何作品列表');"
else
For i=1 To mdjNum
If rsbclass.eof Then Exit For
set rs1=server.CreateObject("ADODB.recordset")
sql="select list_classname from list_class where list_classid="&rsbclass("list_lei")
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then
pencat=pencat&"putlist('"&i&"','被删除',"
else
pencat=pencat&"putlist('"&i&"','"&rs1("list_classname")&"',"
end if
rs1.close
set rs1=nothing
pencat=pencat&"'"&rsbclass("id")&"','"&rsbclass("list_name")&"',"
pencat=pencat&"'"&rsbclass("newviewid")&"',"
if rsbclass("newviewname")<>"" then
pencat=pencat&"'"&unhtmllist(rsbclass("newviewname"))&"',"
else
pencat=pencat&"'暂无更新',"
end if
pencat=pencat&"'"&formatdatetime(rsbclass("list_gxdate"),2)&"','"&unhtmllist(rsbclass("list_user"))&"',"
if rsbclass("list_tai")="1" then 
pencat=pencat&"'转载中...'," 
elseif rsbclass("list_tai")="2" then 
pencat=pencat&"'连载中...'," 
elseif rsbclass("list_tai")="3" then 
pencat=pencat&"'出版中...'," 
elseif rsbclass("list_tai")="4" then 
pencat=pencat&"'已暂停...'," 
elseif rsbclass("list_tai")="5" then 
pencat=pencat&"'已停止...'," 
elseif rsbclass("list_tai")="6" then 
pencat=pencat&"'已完成...'," 
end if
pencat=pencat&"'"&rsbclass("list_mhit")&"');"
rsbclass.movenext
Next
end if
rsbclass.close
set rsbclass=nothing

file=server.mappath( ""&SiteSystemPath&"indexjs/list_top2.js" )

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.Createtextfile(file,1)
fout.writeline pencat
fout.close
set fout=nothing
set fso=nothing
pencat=""
End Function

'-------------------------------------------------------------------------------------
Function maketoptenzdj(zdjNum)
set rsbclass=server.createobject("adodb.recordset")
sqlbclass="select top "&zdjNum&" id,list_class,list_lei,list_name,list_user,list_tai,list_zhit,newviewid,newviewname,newview,list_gxdate from [list_book] where Lock_book = 0  order by list_zhit desc"
rsbclass.open sqlbclass,conn,1,1
if rsbclass.eof and rsbclass.bof then
pencat="document.write('暂无任何作品列表');"
else
For i=1 To zdjNum
If rsbclass.eof Then Exit For
set rs1=server.CreateObject("ADODB.recordset")
sql="select list_classname from list_class where list_classid="&rsbclass("list_lei")
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then
pencat=pencat&"putlist('"&i&"','被删除',"
else
pencat=pencat&"putlist('"&i&"','"&rs1("list_classname")&"',"
end if
rs1.close
set rs1=nothing
pencat=pencat&"'"&rsbclass("id")&"','"&rsbclass("list_name")&"',"
pencat=pencat&"'"&rsbclass("newviewid")&"',"
if rsbclass("newviewname")<>"" then
pencat=pencat&"'"&unhtmllist(rsbclass("newviewname"))&"',"
else
pencat=pencat&"'暂无更新',"
end if
pencat=pencat&"'"&formatdatetime(rsbclass("list_gxdate"),2)&"','"&unhtmllist(rsbclass("list_user"))&"',"
if rsbclass("list_tai")="1" then 
pencat=pencat&"'转载中...'," 
elseif rsbclass("list_tai")="2" then 
pencat=pencat&"'连载中...'," 
elseif rsbclass("list_tai")="3" then 
pencat=pencat&"'出版中...'," 
elseif rsbclass("list_tai")="4" then 
pencat=pencat&"'已暂停...'," 
elseif rsbclass("list_tai")="5" then 
pencat=pencat&"'已停止...'," 
elseif rsbclass("list_tai")="6" then 
pencat=pencat&"'已完成...'," 
end if
pencat=pencat&"'"&rsbclass("list_zhit")&"');"
rsbclass.movenext
Next
end if
rsbclass.close
set rsbclass=nothing


file=server.mappath( ""&SiteSystemPath&"indexjs/list_top3.js" )

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.Createtextfile(file,1)
fout.writeline pencat
fout.close
set fout=nothing
set fso=nothing
pencat=""
End Function

'-------------------------------------------------------------------------------------
Function maketoptensc(scNum)
set rsbclass=server.createobject("adodb.recordset")
sqlbclass="select top "&scNum&" id,list_class,list_lei,list_name,list_user,list_tai,list_cang,newviewid,newviewname,newview,list_gxdate from [list_book] where Lock_book = 0  order by list_cang desc"
rsbclass.open sqlbclass,conn,1,1
if rsbclass.eof and rsbclass.bof then
pencat="document.write('暂无任何作品列表');"
else
For i=1 To scNum
If rsbclass.eof Then Exit For
set rs1=server.CreateObject("ADODB.recordset")
sql="select list_classname from list_class where list_classid="&rsbclass("list_lei")
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then
pencat=pencat&"putlist('"&i&"','被删除',"
else
pencat=pencat&"putlist('"&i&"','"&rs1("list_classname")&"',"
end if
rs1.close
set rs1=nothing
pencat=pencat&"'"&rsbclass("id")&"','"&rsbclass("list_name")&"',"
pencat=pencat&"'"&rsbclass("newviewid")&"',"
if rsbclass("newviewname")<>"" then
pencat=pencat&"'"&unhtmllist(rsbclass("newviewname"))&"',"
else
pencat=pencat&"'暂无更新',"
end if
pencat=pencat&"'"&formatdatetime(rsbclass("list_gxdate"),2)&"','"&unhtmllist(rsbclass("list_user"))&"',"
if rsbclass("list_tai")="1" then 
pencat=pencat&"'转载中...'," 
elseif rsbclass("list_tai")="2" then 
pencat=pencat&"'连载中...'," 
elseif rsbclass("list_tai")="3" then 
pencat=pencat&"'出版中...'," 
elseif rsbclass("list_tai")="4" then 
pencat=pencat&"'已暂停...'," 
elseif rsbclass("list_tai")="5" then 
pencat=pencat&"'已停止...'," 
elseif rsbclass("list_tai")="6" then 
pencat=pencat&"'已完成...'," 
end if
pencat=pencat&"'"&rsbclass("list_cang")&"');"
rsbclass.movenext
Next
end if
rsbclass.close
set rsbclass=nothing


file=server.mappath( ""&SiteSystemPath&"indexjs/list_top7.js" )

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.Createtextfile(file,1)
fout.writeline pencat
fout.close
set fout=nothing
set fso=nothing
pencat=""
End Function

'-------------------------------------------------------------------------------------
Function maketoptenzs(zsNum)
set rsbclass=server.createobject("adodb.recordset")
sqlbclass="select top "&zsNum&" id,list_class,list_lei,list_name,list_user,list_tai,list_size,newviewid,newviewname,newview,list_gxdate from [list_book] where Lock_book = 0  order by list_size desc"
rsbclass.open sqlbclass,conn,1,1
if rsbclass.eof and rsbclass.bof then
pencat="document.write('暂无任何作品列表');"
else
For i=1 To zsNum
If rsbclass.eof Then Exit For
set rs1=server.CreateObject("ADODB.recordset")
sql="select list_classname from list_class where list_classid="&rsbclass("list_lei")
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then
pencat=pencat&"putlist('"&i&"','被删除',"
else
pencat=pencat&"putlist('"&i&"','"&rs1("list_classname")&"',"
end if
rs1.close
set rs1=nothing
pencat=pencat&"'"&rsbclass("id")&"','"&rsbclass("list_name")&"',"
pencat=pencat&"'"&rsbclass("newviewid")&"',"
if rsbclass("newviewname")<>"" then
pencat=pencat&"'"&unhtmllist(rsbclass("newviewname"))&"',"
else
pencat=pencat&"'暂无更新',"
end if
pencat=pencat&"'"&formatdatetime(rsbclass("list_gxdate"),2)&"','"&unhtmllist(rsbclass("list_user"))&"',"
if rsbclass("list_tai")="1" then 
pencat=pencat&"'转载中...'," 
elseif rsbclass("list_tai")="2" then 
pencat=pencat&"'连载中...'," 
elseif rsbclass("list_tai")="3" then 
pencat=pencat&"'出版中...'," 
elseif rsbclass("list_tai")="4" then 
pencat=pencat&"'已暂停...'," 
elseif rsbclass("list_tai")="5" then 
pencat=pencat&"'已停止...'," 
elseif rsbclass("list_tai")="6" then 
pencat=pencat&"'已完成...'," 
end if
pencat=pencat&"'"&rsbclass("list_size")&"');"
rsbclass.movenext
Next
end if
rsbclass.close
set rsbclass=nothing


file=server.mappath( ""&SiteSystemPath&"indexjs/list_top8.js" )

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.Createtextfile(file,1)
fout.writeline pencat
fout.close
set fout=nothing
set fso=nothing
pencat=""
End Function

'-------------------------------------------------------------------------------------
Function maketoptenadd(addNum)
set rsbclass=server.createobject("adodb.recordset")
sqlbclass="select top "&addNum&" id,list_class,list_lei,list_name,list_user,list_tai,list_date,newviewid,newviewname,newview,list_gxdate from [list_book] where Lock_book = 0  order by list_date desc"
rsbclass.open sqlbclass,conn,1,1
if rsbclass.eof and rsbclass.bof then
pencat="document.write('暂无任何作品列表');"
else
For i=1 To addNum
If rsbclass.eof Then Exit For
set rs1=server.CreateObject("ADODB.recordset")
sql="select list_classname from list_class where list_classid="&rsbclass("list_lei")
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then
pencat=pencat&"putlist('"&i&"','被删除',"
else
pencat=pencat&"putlist('"&i&"','"&rs1("list_classname")&"',"
end if
rs1.close
set rs1=nothing
pencat=pencat&"'"&rsbclass("id")&"','"&rsbclass("list_name")&"',"
pencat=pencat&"'"&rsbclass("newviewid")&"',"
if rsbclass("newviewname")<>"" then
pencat=pencat&"'"&unhtmllist(rsbclass("newviewname"))&"',"
else
pencat=pencat&"'暂无更新',"
end if
pencat=pencat&"'"&formatdatetime(rsbclass("list_gxdate"),2)&"','"&unhtmllist(rsbclass("list_user"))&"',"
if rsbclass("list_tai")="1" then 
pencat=pencat&"'转载中...'," 
elseif rsbclass("list_tai")="2" then 
pencat=pencat&"'连载中...'," 
elseif rsbclass("list_tai")="3" then 
pencat=pencat&"'出版中...'," 
elseif rsbclass("list_tai")="4" then 
pencat=pencat&"'已暂停...'," 
elseif rsbclass("list_tai")="5" then 
pencat=pencat&"'已停止...'," 
elseif rsbclass("list_tai")="6" then 
pencat=pencat&"'已完成...'," 
end if
pencat=pencat&"'"&formatdatetime(rsbclass("list_date"),2)&"');"
rsbclass.movenext
Next
end if
rsbclass.close
set rsbclass=nothing


file=server.mappath( ""&SiteSystemPath&"indexjs/list_top9.js" )

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.Createtextfile(file,1)
fout.writeline pencat
fout.close
set fout=nothing
set fso=nothing
pencat=""
End Function

'-------------------------------------------------------------------------------------
Function maketoptennewgx(newgxNum)