makehtmlfunction.asp

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

file=server.mappath( ""&SiteSystemPath&"indexjs/sc.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 makeadd(addNum)
set rsmake=server.createobject("adodb.recordset")
sql="select top " & addNum & " id,list_name from [list_book] where Lock_book=0 order by id desc"
rsmake.open sql,conn,1,1
if rsmake.eof and rsmake.bof then
pencat="document.write('暂无任何排行');"
else
For i=1 To addNum
If rsmake.eof Then Exit For
pencat=pencat&"document.write('<a target=_blank href="&SiteSystemPath&"look_book.asp?id="&rsmake("id")&" >"&unhtmllist(rsmake("list_name"))&"</a><br>');"
rsmake.movenext	
Next
end if
rsmake.close
Set rsmake=NOTHING

file=server.mappath( ""&SiteSystemPath&"indexjs/add.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 makeuserbooktj(userbooktjNum)
set rsmake=server.createobject("adodb.recordset")
sql="select top " & userbooktjNum & " Ar_id,Ar_name,Ar_jian from [Article] where Ar_lock=0 and Ar_nolook=0 order by Ar_jian desc"
rsmake.open sql,conn,1,1
if rsmake.eof and rsmake.bof then
pencat="document.write('暂无任何排行');"
else
For i=1 To scNum
If rsmake.eof Then Exit For
Tomps=rsmake("Ar_jian")
pencat=pencat&"document.write('<a target=_blank href="&SiteSystemPath&"read_userbook.asp?id="&rsmake("Ar_id")&" >"&unhtmllist(rsmake("Ar_name"))&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>');"
rsmake.movenext	
Next
end if
rsmake.close
Set rsmake=NOTHING

file=server.mappath( ""&SiteSystemPath&"indexjs/userbooktj.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 makeuserbookdj(userbookdjNum)
set rsmake=server.createobject("adodb.recordset")
sql="select top " & userbookdjNum & " Ar_id,Ar_name,Ar_hist from [Article] where Ar_lock=0 and Ar_nolook=0 order by Ar_hist desc"
rsmake.open sql,conn,1,1
if rsmake.eof and rsmake.bof then
pencat="document.write('暂无任何排行');"
else
For i=1 To scNum
If rsmake.eof Then Exit For
Tomps=rsmake("Ar_hist")
pencat=pencat&"document.write('<a target=_blank href="&SiteSystemPath&"read_userbook.asp?id="&rsmake("Ar_id")&" >"&unhtmllist(rsmake("Ar_name"))&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>');"
rsmake.movenext	
Next
end if
rsmake.close
Set rsmake=NOTHING

file=server.mappath( ""&SiteSystemPath&"indexjs/userbookdj.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 makeuserbookadd(userbookaddNum)
set rsmake=server.createobject("adodb.recordset")
sql="select top " & userbookaddNum & " Ar_id,Ar_name from [Article] where Ar_lock=0 and Ar_nolook=0 order by Ar_data desc"
rsmake.open sql,conn,1,1
if rsmake.eof and rsmake.bof then
pencat="document.write('暂无任何排行');"
else
For i=1 To scNum
If rsmake.eof Then Exit For
pencat=pencat&"document.write('<a target=_blank href="&SiteSystemPath&"read_userbook.asp?id="&rsmake("Ar_id")&" >"&unhtmllist(rsmake("Ar_name"))&"</a><br>');"
rsmake.movenext	
Next
end if
rsmake.close
Set rsmake=NOTHING

file=server.mappath( ""&SiteSystemPath&"indexjs/userbookadd.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 makeuserbookadds(userbookaddsNum)
set rsmake=server.createobject("adodb.recordset")
sql="select top " & userbookaddsNum & " id,NAME,UserGrade from [User] where LockUser=0 order by UserGrade desc"
rsmake.open sql,conn,1,1
if rsmake.eof and rsmake.bof then
pencat="document.write('暂无任何排行');"
else
For i=1 To addNum
If rsmake.eof Then Exit For
Tomps=rsmake("UserGrade")
pencat=pencat&"document.write('<a target=_blank href="&SiteSystemPath&"show_user.asp?id="&rsmake("id")&" >"&rsmake("NAME")&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>');"
rsmake.movenext	
Next
end if
rsmake.close
Set rsmake=NOTHING

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

pencat="document.write('"
set rsclass=server.createobject("adodb.recordset")
sql="select * from list_type"
rsclass.open sql,conn,1,1
if rsclass.eof and rsclass.bof then

pencat=pencat&"暂无任何分类！"
else

i=1
do while not rsclass.eof
pencat=pencat&"<a href="&SiteSystemPath&"list_book.asp?id="&rsclass("typeid")&">"&rsclass("list_tpye")&"</a>　"
if i mod 2=0 then 
pencat=pencat&"<br>"
else
end if
i=i+1
rsclass.movenext
loop
rsclass.close
set rsclass=nothing
end if
pencat=pencat&"');"


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

pencat="document.write('"
set rsclass=server.createobject("adodb.recordset")
sql="select * from list_type"
rsclass.open sql,conn,1,1
if rsclass.eof and rsclass.bof then

pencat=pencat&"暂无任何分类！"
else

do while not rsclass.eof
pencat=pencat&"　　<a href="&SiteSystemPath&"list_vipbook.asp?id="&rsclass("typeid")&">"&rsclass("list_tpye")&"</a>　"
pencat=pencat&"<br>"
rsclass.movenext
loop
rsclass.close
set rsclass=nothing
end if
pencat=pencat&"');"


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

pencat="document.write('"
set rsclass=server.createobject("adodb.recordset")
sql="select typeid,list_tpye from list_type"
rsclass.open sql,conn,1,1
if rsclass.eof and rsclass.bof then

pencat=pencat&"暂无任何分类！"
else

do while not rsclass.eof
pencat=pencat&"　　<a href="&SiteSystemPath&"list_book.asp?id="&rsclass("typeid")&">"&rsclass("list_tpye")&"</a>　"
pencat=pencat&"<br>"
rsclass.movenext
loop
rsclass.close
set rsclass=nothing
end if
pencat=pencat&"');"


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

pencat="document.write('"
set rsclass=server.createobject("adodb.recordset")
sql="select id,classname from Ar_class"
rsclass.open sql,conn,1,1
if rsclass.eof and rsclass.bof then

pencat=pencat&"暂无任何分类！"
else

do while not rsclass.eof
pencat=pencat&"　　<a href="&SiteSystemPath&"list_userbook.asp?id="&rsclass("id")&">"&rsclass("classname")&"</a>　"
pencat=pencat&"<br>"
rsclass.movenext
loop
rsclass.close
set rsclass=nothing
end if
pencat=pencat&"');"


file=server.mappath( ""&SiteSystemPath&"indexjs/menuuserbookroomclass.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 makepinglun(newplNum)
pencat="document.write('"
	Set rsp = Server.CreateObject("ADODB.Recordset")
	sql = "select top "&newplNum&" * from [Comment] order by Commentid desc"
	rsp.open sql, conn, 1, 1
	
if rsp.eof and rsp.bof then
pencat=pencat&"没有数据可查询"
else
pencat=pencat&"<table width=100% border=0 align=center cellpadding=0 cellspacing=0>"
do while not rsp.eof
pencat=pencat&"<tr><td class=t_one>"
bookID=rsp("bookID")
Set rsb = Server.CreateObject("ADODB.Recordset")
sql = "select list_name from [list_book] where id="&bookID&""
rsb.open sql, conn, 1, 1
pencat=pencat&"※ "&htmlencode(rsp("Content"))&"<br>  --　"&unhtmllist(rsp("UserName"))&"　于　"&rsp("WriteTime")&"　评《<a href="&SiteSystemPath&"look_book.asp?id="&bookid&" target=_blank>"&rsb("list_name")&"</a>》"
rsb.close
set rsb=nothing
pencat=pencat&"</td></tr><tr><td colspan=3 bgcolor=#666666 align=center height=1></td></tr>"
rsp.movenext
loop
pencat=pencat&"</tr></table>"
end if
rsp.close
set rsp=nothing
pencat=pencat&"');"


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


file=server.mappath( ""&SiteSystemPath&"indexjs/logolink.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 makelogo_link(LOGONum)
pencat="document.write('<table width=100% border=0 cellspacing=0 cellpadding=0 align=center>"
set rs=server.createobject("adodb.recordset")
sql="select top "&LOGONum&" * from link where class_link=1 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>暂无任何LOGO连接，请添加！</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")) & "><img src=" & rs("logo_link") & " width=100 height=35 border=0></a></td>"
	if i mod 8=0 then response.write "</tr><tr>"
	i=i+1