makehtmlfunction.asp

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

do while not rsmake.eof
pencat2=pencat2&"<td height=26 align=left width=33% ><table width=100% border=0 align=center cellpadding=0 cellspacing=2>"
pencat2=pencat2&"<tr><td width=11% valign=top align=left><a href="""&SiteSystemPath&"look_vipbook.asp?id="&rsmake("list_id")&""" target=_blank ><img src="""&rsmake("pic")&""" width=70 height=100 border=0 style=""border: 1 solid #000000""></a></td>"
pencat2=pencat2&"<td width=22% valign=top align=left><table border=0 cellspacing=0 cellpadding=1><tr valign=top><td height=20>名称:</td>"
pencat2=pencat2&"<td><a href="&SiteSystemPath&"look_vipbook.asp?id="&rsmake("list_id")&" target=_blank><u><font color=#FF6600>"&unhtmllist(rsmake("list_name"))&"</font></a></u></td>"
pencat2=pencat2&"</tr><tr valign=top><td width=35>作者:</td><td height=20><font color=#000000>"&unhtmllist(rsmake("list_user"))&"</a></font></td></tr>"

set rs5=server.createobject("adodb.recordset")
sql5="select list_tpye from [list_type] where typeid="&rsmake("list_class")&""
rs5.open sql5,conn,1,1

pencat2=pencat2&"<tr valign=top><td height=20>类型:</td><td>"&rs5("list_tpye")&"</td></tr>"

rs5.close
set rs5=nothing

pencat2=pencat2&"<tr valign=top><td height=20>简介:</td><td>"&left(htmlencode(rsmake("list_all")),30)&"</td></tr></table></td></tr></table></td>"
if i mod 3=0 then 
pencat2=pencat2&"</tr><tr height=26>"
else
end if
i=i+1
rsmake.movenext
loop
rsmake.close
set rsmake=nothing

pencat=pencat1&pencat2&"</tr></table>');"


file=server.mappath( ""&SiteSystemPath&"indexjs/vipjptj.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 makeqltj(qltjNum)
set rsmake=server.createobject("adodb.recordset")
sql="select top " & qltjNum & " id,list_name from [list_book] where Lock_book=0 and listvv_good=1 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 qltjNum
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/qltj.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 makevipqltj(qltjNum)
set rsmake=server.createobject("adodb.recordset")
sql="select top " & qltjNum & " list_id,list_name from [Vip_book] where Lock_book=0 and IsGood=1 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 qltjNum
If rsmake.eof Then Exit For
pencat=pencat&"document.write('<a target=_blank href="&SiteSystemPath&"look_vipbook.asp?id="&rsmake("list_id")&" >"&unhtmllist(rsmake("list_name"))&"</a><br>');"
rsmake.movenext	
Next
end if
rsmake.close
Set rsmake=NOTHING

file=server.mappath( ""&SiteSystemPath&"indexjs/vipqltj.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 makelztj(lztjNum)
set rsmake=server.createobject("adodb.recordset")
sql="select top " & lztjNum & " id,list_name from [list_book] where Lock_book=0 and Islist_Good=1 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 lztjNum
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/lztj.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 makedj(djNum)
set rsmake=server.createobject("adodb.recordset")
sql="select top " & djNum & " id,list_name,list_hit from [list_book] where Lock_book=0 order by list_hit desc"
rsmake.open sql,conn,1,1
if rsmake.eof and rsmake.bof then
pencat="document.write('暂无任何排行');"
else
For i=1 To djNum
If rsmake.eof Then Exit For
Tomps=rsmake("list_hit")
pencat=pencat&"document.write('<a target=_blank href="&SiteSystemPath&"look_book.asp?id="&rsmake("id")&" >"&unhtmllist(rsmake("list_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/dj.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 makemdj(mdjNum)
set rsmake=server.createobject("adodb.recordset")
sql="select top " & mdjNum & " id,list_name,list_mhit from [list_book] where Lock_book=0 order by list_mhit desc"
rsmake.open sql,conn,1,1
if rsmake.eof and rsmake.bof then
pencat="document.write('暂无任何排行');"
else
For i=1 To mdjNum
If rsmake.eof Then Exit For
Tomps=rsmake("list_mhit")
pencat=pencat&"document.write('<a target=_blank href="&SiteSystemPath&"look_book.asp?id="&rsmake("id")&" >"&unhtmllist(rsmake("list_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/mdj.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 makezdj(zdjNum)
set rsmake=server.createobject("adodb.recordset")
sql="select top " & zdjNum & " id,list_name,list_zhit from [list_book] where Lock_book=0 order by list_zhit desc"
rsmake.open sql,conn,1,1
if rsmake.eof and rsmake.bof then
pencat="document.write('暂无任何排行');"
else
For i=1 To zdjNum
If rsmake.eof Then Exit For
Tomps=rsmake("list_zhit")
pencat=pencat&"document.write('<a target=_blank href="&SiteSystemPath&"look_book.asp?id="&rsmake("id")&" >"&unhtmllist(rsmake("list_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/zdj.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 makeddj(ddjNum)
set rsmake=server.createobject("adodb.recordset")
sql="select top " & ddjNum & " id,list_name,list_dhit from [list_book] where Lock_book=0 order by list_dhit desc"
rsmake.open sql,conn,1,1
if rsmake.eof and rsmake.bof then
pencat="document.write('暂无任何排行');"
else
For i=1 To ddjNum
If rsmake.eof Then Exit For
Tomps=rsmake("list_dhit")
pencat=pencat&"document.write('<a target=_blank href="&SiteSystemPath&"look_book.asp?id="&rsmake("id")&" >"&unhtmllist(rsmake("list_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/ddj.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 maketj(tjNum)
set rsmake=server.createobject("adodb.recordset")
sql="select top " & tjNum & " id,list_name,list_jian from [list_book] where Lock_book=0 order by list_jian desc"
rsmake.open sql,conn,1,1
if rsmake.eof and rsmake.bof then
pencat="document.write('暂无任何排行');"
else
For i=1 To tjNum
If rsmake.eof Then Exit For
Tomps=rsmake("list_jian")
pencat=pencat&"document.write('<a target=_blank href="&SiteSystemPath&"look_book.asp?id="&rsmake("id")&" >"&unhtmllist(rsmake("list_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/tj.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 makemtj(mtjNum)
set rsmake=server.createobject("adodb.recordset")
sql="select top " & mtjNum & " id,list_name,list_mjian from [list_book] where Lock_book=0 order by list_mjian desc"
rsmake.open sql,conn,1,1
if rsmake.eof and rsmake.bof then
pencat="document.write('暂无任何排行');"
else
For i=1 To mtjNum
If rsmake.eof Then Exit For
Tomps=rsmake("list_mjian")
pencat=pencat&"document.write('<a target=_blank href="&SiteSystemPath&"look_book.asp?id="&rsmake("id")&" >"&unhtmllist(rsmake("list_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/mtj.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 makeztj(ztjNum)
set rsmake=server.createobject("adodb.recordset")
sql="select top " & ztjNum & " id,list_name,list_zjian from [list_book] where Lock_book=0 order by list_zjian desc"
rsmake.open sql,conn,1,1
if rsmake.eof and rsmake.bof then
pencat="document.write('暂无任何排行');"
else
For i=1 To ztjNum
If rsmake.eof Then Exit For
Tomps=rsmake("list_zjian")
pencat=pencat&"document.write('<a target=_blank href="&SiteSystemPath&"look_book.asp?id="&rsmake("id")&" >"&unhtmllist(rsmake("list_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/ztj.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 makedtj(dtjNum)
set rsmake=server.createobject("adodb.recordset")
sql="select top " & dtjNum & " id,list_name,list_djian from [list_book] where Lock_book=0 order by list_djian desc"
rsmake.open sql,conn,1,1
if rsmake.eof and rsmake.bof then
pencat="document.write('暂无任何排行');"
else
For i=1 To tjNum
If rsmake.eof Then Exit For
Tomps=rsmake("list_djian")
pencat=pencat&"document.write('<a target=_blank href="&SiteSystemPath&"look_book.asp?id="&rsmake("id")&" >"&unhtmllist(rsmake("list_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/dtj.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 makesc(scNum)
set rsmake=server.createobject("adodb.recordset")
sql="select top " & scNum & " id,list_name,list_cang from [list_book] where Lock_book=0 order by list_cang 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("list_cang")
pencat=pencat&"document.write('<a target=_blank href="&SiteSystemPath&"look_book.asp?id="&rsmake("id")&" >"&unhtmllist(rsmake("list_name"))&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>');"
rsmake.movenext	
Next
end if
rsmake.close
Set rsmake=NOTHING