makehtmlfunction.asp

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

	rs.movenext
	loop
end if
rs.close
set rs=nothing
pencat=pencat&"</tr></table>');"


file=server.mappath( ""&SiteSystemPath&"indexjs/logo_link.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 maketxtlink(TXTNum)
pencat="document.write('"
set rs=server.createobject("adodb.recordset")
sql="select top "&TXTNum&" * from link where class_link=2 and ok_link=1 order by id_link desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
pencat=pencat&"暂无任何文字连接，请添加！"
else
do while not rs.eof
pencat=pencat&"<a href=" & rs("web_link") & " target=_blank title=" & htmlencode(rs("content_link")) & ">" & rs("name_link") & "</a><br>"
	rs.movenext
	loop
end if
rs.close
set rs=nothing
pencat=pencat&"');"



file=server.mappath( ""&SiteSystemPath&"indexjs/txtlink.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 maketxt_link(TXTNum)
pencat="document.write('<table width=100% border=0 cellspacing=0 cellpadding=0 align=center>"
set rs=server.createobject("adodb.recordset")
sql="select top "&TXTNum&" * from link where class_link=2 and ok_link=1 order by id_link desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
pencat=pencat&"<tr align=center><td colspan=2>暂无任何文字连接，请添加！</td></tr>"
else
pencat=pencat&"<tr>"
i=1
do while not rs.eof
pencat=pencat&"<td align=left height=20><a href=" & rs("web_link") & " target=_blank title=" & htmlencode(rs("content_link")) & ">" & rs("name_link") & "</a></td>"
	if i mod 10=0 then response.write "</tr><tr>"
	i=i+1
	rs.movenext
	loop
end if
rs.close
set rs=nothing
pencat=pencat&"</tr></table>');"


file=server.mappath( ""&SiteSystemPath&"indexjs/txt_link.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 makeauthoradd(authorNum)
pencat="document.write('"
set rs=server.createobject("adodb.recordset")
sql="select top "&authorNum&" author_id,author_name from [author] where author_addpost=1 order by author_id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
pencat=pencat&"暂无任何驻站作家！"
else
do while not rs.eof
pencat=pencat&"<a href="&SiteSystemPath&"show_author.asp?id=" & rs("author_id") & " target=_blank>" & unhtmllist(rs("author_name")) & "</a><br>"
	rs.movenext
	loop
end if
rs.close
set rs=nothing
pencat=pencat&"');"


file=server.mappath( ""&SiteSystemPath&"indexjs/authoradd.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 makezxgx(zxgxNum)
set rsgx=server.createobject("adodb.recordset")
sqlgx="select top "&zxgxNum&" id,list_class,list_name,newviewid,newviewname,list_gxdate,list_user from [list_book] where Lock_book = 0 order by list_gxdate desc"
rsgx.open sqlgx,conn,1,1
if rsgx.eof and rsgx.bof then
pencat="document.write('暂无任何作品列表');"
else
do while not rsgx.eof
dim classid2
classid2=rsgx("list_class")
set rsgx1=server.createobject("adodb.recordset")
sqlgx1="select * from list_type where typeid="&classid2
rsgx1.open sqlgx1,conn,1,1
typeid=rsgx1("typeid")
list_tpye=rsgx1("list_tpye")
id=rsgx("id")
list_name=unhtmllist(rsgx("list_name"))
pencat=pencat&"putlist('list_book','"&typeid&"','"&list_tpye&"','look_book','"&id&"','"&list_name&"',"

pencat=pencat&"'view_book','"&rsgx("newviewid")&"',"
if rsgx("newviewname")<>"" then
pencat=pencat&"'"&unhtmllist(rsgx("newviewname"))&"',"
else
pencat=pencat&"'暂无更新',"
end if
pencat=pencat&"'"&formatdatetime(rsgx("list_gxdate"),2)&"','"&unhtmllist(rsgx("list_user"))&"');"
rsgx.movenext
loop
rsgx.close
set rsgx=nothing
end if


file=server.mappath( ""&SiteSystemPath&"indexjs/zxgx.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 makevipzxgx(Num)
set rsvgx=server.createobject("adodb.recordset")
sqlvgx="select top "&Num&" id,list_id,list_class,list_name,list_gxdate,list_user from vip_book where Lock_book=0 order by list_gxdate desc"
rsvgx.open sqlvgx,conn,1,1
if rsvgx.eof and rsvgx.bof then
else
do while not rsvgx.eof
pencat=pencat&"putlist('list_vipbook','"&rsvgx("list_class")&"','VIP 作品','look_VIPbook','"&rsvgx("list_id")&"','"&unhtmllist(rsvgx("list_name"))&"',"
set rsvclass=server.createobject("adodb.recordset")
	sqlvclass="select id,view_name from [vip_view] where view_id="&rsvgx("id")&" order by view_date desc"
	rsvclass.open sqlvclass,conn,1,1
	if rsvclass.eof and rsvclass.bof then
pencat=pencat&"'vip_index','0','&nbsp;&nbsp;&nbsp;暂无更新',"
	else
pencat=pencat&"'vip_view_book','"&rsvclass("id")&"','"&unhtmllist(rsvclass("view_name"))&"',"
	end if
rsvclass.close
set rsvclass=nothing
pencat=pencat&"'"&formatdatetime(rsvgx("list_gxdate"),2)&"','"&unhtmllist(rsvgx("list_user"))&"');"
rsvgx.movenext
loop
rsvgx.close
set rsvgx=nothing
end if


file=server.mappath( ""&SiteSystemPath&"indexjs/vipzxgx.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 makegonggao(gonggaoNum)

pencat="document.write('"
set rs=server.CreateObject("adodb.recordset")
sql="select id,txtcontent,txttitle,txttime,Islink,hits from [news] where Istop=1 and Iscontent=0 order by id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
else
do while not rs.eof
if rs("Islink")=1 then
pencat=pencat&"<a target=_blank href="&rs("txtcontent")&">"&unhtmllist(rs("txttitle"))&"</a><br>"
else
pencat=pencat&"<a target=_blank href="&SiteSystemPath&"gonggaodisp.asp?id="&rs("id")&">"&unhtmllist(rs("txttitle"))&"</a><br>"
end if
rs.movenext
loop
end if
rs.close
set rs=nothing
pencat=pencat&"');"

pencat=pencat&"document.write('"
set rs=server.CreateObject("adodb.recordset")
sql="select top "&gonggaoNum&" id,txttitle,txtcontent,txttime,Islink,hits from [news] where Istop=0 and Iscontent=0 order by id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
else
do while not rs.eof
if rs("Islink")=1 then
pencat=pencat&"<a target=_blank href="&rs("txtcontent")&">"&unhtmllist(rs("txttitle"))&"</a><br>"
else
pencat=pencat&"<a target=_blank href="&SiteSystemPath&"gonggaodisp.asp?id="&rs("id")&">"&unhtmllist(rs("txttitle"))&"</a><br>"
end if
rs.movenext
loop
end if
rs.close
set rs=nothing
pencat=pencat&"');"

pencat=pencat&"document.write('"
set rs=server.CreateObject("adodb.recordset")
sql="select txtcontent from [news] where Iscontent=1 order by id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
else
do while not rs.eof
pencat=pencat&""&unhtmllist(rs("txtcontent"))&"<br>"
rs.movenext
loop
end if
rs.close
set rs=nothing
pencat=pencat&"');"


file=server.mappath( ""&SiteSystemPath&"indexjs/gonggao.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 MakeViewHtml(viewid)
set rs=server.createobject("ADODB.recordset")
rs.open "select * from list_view where id="&viewid&" ORDER BY id",conn,1,3
if rs.eof and rs.bof then
else

id1=rs("id")
view_id=rs("view_id")
list_cookid=rs("list_cookid")
view_type=rs("view_type")
view_size=rs("view_size")
view_date=rs("view_date")

viewRootFolder=""&SiteSystemPath&"HTML/" 'HTML存放目录
view_localpath0 = left(view_id,2) '一级分类目录
view_localpath1 = left(view_id,4) '二级分类目录
view_localpath2 = left(view_id,6) '作品分类目录
view_localpath3 = view_id '作品目录
view_localpath = view_localpath0&"/"&view_localpath1&"/"&view_localpath2&"/"&view_localpath3&"/"
viewFolder = viewRootFolder&""&view_localpath

if rs("view_SaveToTXT")=1 then
view_ok2=""
view_ok2=view_ok2&"<script src='"
view_ok2=view_ok2&"TXT/"&id1&".TXT"
view_ok2=view_ok2&"'></script>"
else
if rs("view_ok2")<>"" then
view_ok2=rs("view_ok2")
else
view_ok2="内容暂缺"
end if
end if


sql1="select pagemoban from moban where id=1"
set rs1=conn.execute(sql1)


file2=server.mappath( ""&viewFolder&""&id1&".htm" )
okfile=rs1("pagemoban")

set rsco=server.createobject("adodb.recordset")
sql="select list_cookname from list_cook where list_cookid="&list_cookid&""
rsco.open sql,conn,1,1
list_cookname=rsco("list_cookname")
rsco.close
set rsco=nothing

set rsbo=server.createobject("adodb.recordset")
sql="select list_name,list_user from list_book where id="&view_id&""
rsbo.open sql,conn,1,1
	list_name=rsbo("list_name")
	list_user=rsbo("list_user")
rsbo.close
set rsbo=nothing

set rs2=server.createobject("ADODB.recordset")
sql2="select top 1 id from list_view where list_cookid="&list_cookid&" and id<"&id1&" order by id desc"
		  rs2.open sql2,conn,1,1
		  if rs2.eof then
			set rsv2=server.createobject("ADODB.recordset")
			sqlv2="select top 1 id from list_view where view_id="&view_id&" and list_cookid<"&list_cookid&" order by id desc"
		  		rsv2.open sqlv2,conn,1,1
		  		if rsv2.eof then
		  		syjname=""&SiteSystemPath&"HTML/0.htm"
		  		else 
		  	syjid=rsv2("id")
          syjname=""&syjid&".htm"
          end if
          rsv2.close
			set rsv2=nothing
		  else 
		  syjid=rs2("id")
          syjname=""&syjid&".htm"
end if
			rs2.close
			set rs2=nothing
set rs3=server.createobject("ADODB.recordset")
sql3="select top 1 id from list_view where list_cookid="&list_cookid&" and id>"&id1&" order by id"
            rs3.open sql3,conn,1,1
			if rs3.eof then
				set rsv3=server.createobject("ADODB.recordset")
				sqlv3="select top 1 id from list_view where view_id="&view_id&" and list_cookid>"&list_cookid&" order by id"
            	rsv3.open sqlv3,conn,1,1
				if rsv3.eof then
				xyjname= ""&SiteSystemPath&"HTML/0.htm"
				else 
				xyjid=rsv3("id")
            	xyjname= ""&xyjid&".htm" 
            	end if 
				rsv3.close
				set rsv3=nothing
			else 
			xyjid=rs3("id")
            xyjname= ""&xyjid&".htm" 
            end if 
			rs3.close
			set rs3=nothing

					okfile = replace(okfile,"{$view_type$}",view_type)
					okfile = replace(okfile,"{$view_date$}",view_date)
					okfile = replace(okfile,"{$view_ok2$}",view_ok2)
					okfile = replace(okfile,"{$viewid$}",id1)
					okfile = replace(okfile,"{$bookid$}",view_id)
					okfile = replace(okfile,"{$list_name$}",list_name)
					okfile = replace(okfile,"{$list_user$}",list_user)
					okfile = replace(okfile,"{$list_cookname$}",list_cookname)
					okfile =