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

📄 showhot1.asp

📁 小说站源代码文件
💻 ASP
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
if rsShowHOT.eof and rsShowHOT.bof then
response.write "暂无任何排行"
else
For i=1 To Num
If rsShowHOT.eof Then Exit For
id=rsShowHOT("id")
list_name=rsShowHOT("list_name")
Tomps=rsShowHOT("list_yjian")
if OpenInhtml=1 then
	response.write "<a href='"&SiteSystemPath&"html/"&id&"."&htmlphe&"'>"&list_name&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"
else
	response.write "<a href='"&SiteSystemPath&"look_book.asp?id="&id&"'>"&list_name&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"
end if
rsShowHOT.movenext	
Next
rsShowHOT.close
Set rsShowHOT=NOTHING
end if
End Function


Function showmtj(Num)
set rsShowHOT=server.createobject("adodb.recordset")
if IsSqlDataBase = 2 then
	sql="select id,list_name,list_mjian from list_book where Lock_book = 0 order by list_mjian desc limit "&Num&""
else
	sql="select top "&Num&" id,list_name,list_mjian from [list_book] where Lock_book = 0 order by list_mjian desc"
end if
rsShowHOT.open sql,conn,1,1
if rsShowHOT.eof and rsShowHOT.bof then
response.write "暂无任何排行"
else
For i=1 To Num
If rsShowHOT.eof Then Exit For
id=rsShowHOT("id")
list_name=rsShowHOT("list_name")
Tomps=rsShowHOT("list_mjian")
if OpenInhtml=1 then
	response.write "<a href='"&SiteSystemPath&"html/"&id&"."&htmlphe&"'>"&list_name&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"
else
	response.write "<a href='"&SiteSystemPath&"look_book.asp?id="&id&"'>"&list_name&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"
end if
rsShowHOT.movenext	
Next
rsShowHOT.close
Set rsShowHOT=NOTHING
end if
End Function


Function showztj(Num)
set rsShowHOT=server.createobject("adodb.recordset")
if IsSqlDataBase = 2 then
	sql="select id,list_name,list_zjian from list_book where Lock_book = 0 order by list_zjian desc limit "&Num&""
else
	sql="select top "&Num&" id,list_name,list_zjian from [list_book] where Lock_book = 0 order by list_zjian desc"
end if
rsShowHOT.open sql,conn,1,1
if rsShowHOT.eof and rsShowHOT.bof then
response.write "暂无任何排行"
else
For i=1 To Num
If rsShowHOT.eof Then Exit For
id=rsShowHOT("id")
list_name=rsShowHOT("list_name")
Tomps=rsShowHOT("list_zjian")
if OpenInhtml=1 then
	response.write "<a href='"&SiteSystemPath&"html/"&id&"."&htmlphe&"'>"&list_name&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"
else
	response.write "<a href='"&SiteSystemPath&"look_book.asp?id="&id&"'>"&list_name&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"
end if
rsShowHOT.movenext	
Next
rsShowHOT.close
Set rsShowHOT=NOTHING
end if
End Function


Function showdtj(Num)
set rsShowHOT=server.createobject("adodb.recordset")
if IsSqlDataBase = 2 then
	sql="select id,list_name,list_djian from list_book where Lock_book = 0 order by list_djian desc limit "&Num&""
else
	sql="select top "&Num&" id,list_name,list_djian from [list_book] where Lock_book = 0 order by list_djian desc"
end if
rsShowHOT.open sql,conn,1,1
if rsShowHOT.eof and rsShowHOT.bof then
response.write "暂无任何排行"
else
For i=1 To Num
If rsShowHOT.eof Then Exit For
id=rsShowHOT("id")
list_name=rsShowHOT("list_name")
Tomps=rsShowHOT("list_djian")
if OpenInhtml=1 then
	response.write "<a href='"&SiteSystemPath&"html/"&id&"."&htmlphe&"'>"&list_name&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"
else
	response.write "<a href='"&SiteSystemPath&"look_book.asp?id="&id&"'>"&list_name&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"
end if
rsShowHOT.movenext	
Next
rsShowHOT.close
Set rsShowHOT=NOTHING
end if
End Function

Function showdj(Num)
set rsShowHOT=server.createobject("adodb.recordset")
if IsSqlDataBase = 2 then
	sql="select id,list_name,list_hit from list_book where Lock_book = 0 order by list_hit desc limit "&Num&""
else
	sql="select top "&Num&" id,list_name,list_hit from [list_book] where Lock_book = 0 order by list_hit desc"
end if
rsShowHOT.open sql,conn,1,1
if rsShowHOT.eof and rsShowHOT.bof then
response.write "暂无任何排行"
else
For i=1 To Num
If rsShowHOT.eof Then Exit For
id=rsShowHOT("id")
list_name=rsShowHOT("list_name")
Tomps=rsShowHOT("list_hit")
if OpenInhtml=1 then
	response.write "<a href='"&SiteSystemPath&"html/"&id&"."&htmlphe&"'>"&list_name&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"
else
	response.write "<a href='"&SiteSystemPath&"look_book.asp?id="&id&"'>"&list_name&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"
end if
rsShowHOT.movenext	
Next
rsShowHOT.close
Set rsShowHOT=NOTHING
end if
End Function


Function showydj(Num)
set rsShowHOT=server.createobject("adodb.recordset")
if IsSqlDataBase = 2 then
	sql="select id,list_name,list_yhit from list_book where Lock_book = 0 order by list_yhit desc limit "&Num&""
else
	sql="select top "&Num&" id,list_name,list_yhit from [list_book] where Lock_book = 0 order by list_yhit desc"
end if
rsShowHOT.open sql,conn,1,1
if rsShowHOT.eof and rsShowHOT.bof then
response.write "暂无任何排行"
else
For i=1 To Num
If rsShowHOT.eof Then Exit For
id=rsShowHOT("id")
list_name=rsShowHOT("list_name")
Tomps=rsShowHOT("list_yhit")
if OpenInhtml=1 then
	response.write "<a href='"&SiteSystemPath&"html/"&id&"."&htmlphe&"'>"&list_name&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"
else
	response.write "<a href='"&SiteSystemPath&"look_book.asp?id="&id&"'>"&list_name&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"
end if
rsShowHOT.movenext	
Next
rsShowHOT.close
Set rsShowHOT=NOTHING
end if
End Function


Function showmdj(Num)
set rsShowHOT=server.createobject("adodb.recordset")
if IsSqlDataBase = 2 then
	sql="select id,list_name,list_mhit from list_book where Lock_book = 0 order by list_mhit desc limit "&Num&""
else
	sql="select top "&Num&" id,list_name,list_mhit from [list_book] where Lock_book = 0 order by list_mhit desc"
end if
rsShowHOT.open sql,conn,1,1
if rsShowHOT.eof and rsShowHOT.bof then
response.write "暂无任何排行"
else
For i=1 To Num
If rsShowHOT.eof Then Exit For
id=rsShowHOT("id")
list_name=rsShowHOT("list_name")
Tomps=rsShowHOT("list_mhit")
if OpenInhtml=1 then
	response.write "<a href='"&SiteSystemPath&"html/"&id&"."&htmlphe&"'>"&list_name&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"
else
	response.write "<a href='"&SiteSystemPath&"look_book.asp?id="&id&"'>"&list_name&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"
end if
rsShowHOT.movenext	
Next
rsShowHOT.close
Set rsShowHOT=NOTHING
end if
End Function


Function showzdj(Num)
set rsShowHOT=server.createobject("adodb.recordset")
if IsSqlDataBase = 2 then
	sql="select id,list_name,list_zhit from list_book where Lock_book = 0 order by list_zhit desc limit "&Num&""
else
	sql="select top "&Num&" id,list_name,list_zhit from [list_book] where Lock_book = 0 order by list_zhit desc"
end if
rsShowHOT.open sql,conn,1,1
if rsShowHOT.eof and rsShowHOT.bof then
response.write "暂无任何排行"
else
For i=1 To Num
If rsShowHOT.eof Then Exit For
id=rsShowHOT("id")
list_name=rsShowHOT("list_name")
Tomps=rsShowHOT("list_zhit")
if OpenInhtml=1 then
	response.write "<a href='"&SiteSystemPath&"html/"&id&"."&htmlphe&"'>"&list_name&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"
else
	response.write "<a href='"&SiteSystemPath&"look_book.asp?id="&id&"'>"&list_name&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"
end if
rsShowHOT.movenext	
Next
rsShowHOT.close
Set rsShowHOT=NOTHING
end if
End Function


Function showddj(Num)
set rsShowHOT=server.createobject("adodb.recordset")
if IsSqlDataBase = 2 then
	sql="select id,list_name,list_dhit from list_book where Lock_book = 0 order by list_dhit desc limit "&Num&""
else
	sql="select top "&Num&" id,list_name,list_dhit from [list_book] where Lock_book = 0 order by list_dhit desc"
end if
rsShowHOT.open sql,conn,1,1
if rsShowHOT.eof and rsShowHOT.bof then
response.write "暂无任何排行"
else
For i=1 To Num
If rsShowHOT.eof Then Exit For
id=rsShowHOT("id")
list_name=rsShowHOT("list_name")
Tomps=rsShowHOT("list_dhit")
if OpenInhtml=1 then
	response.write "<a href='"&SiteSystemPath&"html/"&id&"."&htmlphe&"'>"&list_name&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"
else
	response.write "<a href='"&SiteSystemPath&"look_book.asp?id="&id&"'>"&list_name&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"
end if
rsShowHOT.movenext	
Next
rsShowHOT.close
Set rsShowHOT=NOTHING
end if
End Function


Function showqltj(Num)
set rsShowHOT=server.createobject("adodb.recordset")
if IsSqlDataBase = 2 then
	sql="select id,list_name from list_book where Lock_book = 0 and listvv_good = 1 order by id desc limit "&Num&""
else
	sql="select top "&Num&" id,list_name from [list_book] where Lock_book = 0 and listvv_good = 1 order by id desc"
end if
rsShowHOT.open sql,conn,1,1
if rsShowHOT.eof and rsShowHOT.bof then
response.write "暂无任何排行"
else
For i=1 To Num
If rsShowHOT.eof Then Exit For
id=rsShowHOT("id")
list_name=rsShowHOT("list_name")
if OpenInhtml=1 then
	response.write "<a href='"&SiteSystemPath&"html/"&id&"."&htmlphe&"'>"&list_name&"</a><br>"
else
	response.write "<a href='"&SiteSystemPath&"look_book.asp?id="&id&"'>"&list_name&"</a><br>"
end if
rsShowHOT.movenext	
Next
rsShowHOT.close
Set rsShowHOT=NOTHING
end if
End Function


Function showvipqltj(Num)
pencat=""
set rsmake=server.createobject("adodb.recordset")
if IsSqlDataBase = 2 then
	sql="select id,list_name from list_book where Lock_book = 0 and IsGood = 1 and isvip=1 order by id desc limit "&Num&""
else
	sql="select top "&Num&" id,list_name from [list_book] where Lock_book = 0 and IsGood = 1 and isvip=1 order by id desc"
end if
rsmake.open sql,conn,1,1
if rsmake.eof and rsmake.bof then
pencat="暂无任何排行"
else
For i=1 To qltjNum
If rsmake.eof Then Exit For
pencat=pencat&"<a href="&SiteSystemPath&"look_vipbook.asp?id="&rsmake("id")&" >"&unhtmllist(rsmake("list_name"))&"</a><br>"
rsmake.movenext	
Next
end if
rsmake.close
Set rsmake=NOTHING
response.write pencat

End Function


Function showlztj(Num)
set rsShowHOT=server.createobject("adodb.recordset")
if IsSqlDataBase = 2 then
	sql="select id,list_name from list_book where Lock_book = 0 and Islist_Good = 1 order by id desc limit "&Num&""
else
	sql="select top "&Num&" id,list_name from [list_book] where Lock_book = 0 and Islist_Good = 1 order by id desc"
end if
rsShowHOT.open sql,conn,1,1
if rsShowHOT.eof and rsShowHOT.bof then
response.write "暂无任何排行"
else
For i=1 To Num
If rsShowHOT.eof Then Exit For
id=rsShowHOT("id")
list_name=rsShowHOT("list_name")
if OpenInhtml=1 then
	response.write "<a href='"&SiteSystemPath&"html/"&id&"."&htmlphe&"'>"&list_name&"</a><br>"
else
	response.write "<a href='"&SiteSystemPath&"look_book.asp?id="&id&"'>"&list_name&"</a><br>"
end if
rsShowHOT.movenext	
Next
rsShowHOT.close
Set rsShowHOT=NOTHING
end if
End Function


Function showadd(Num)
set rsShowHOT=server.createobject("adodb.recordset")
if IsSqlDataBase = 2 then
	sql="select id,list_name from list_book where Lock_book = 0 order by id desc limit "&Num&""
else
	sql="select top "&Num&" id,list_name from [list_book] where Lock_book = 0 order by id desc"
end if
rsShowHOT.open sql,conn,1,1
if rsShowHOT.eof and rsShowHOT.bof then
response.write "暂无任何排行"
else
1234

⌨️ 快捷键说明

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