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

📄 showhot1.asp

📁 功能强大 首发! 演示地址:http://jsice.com QQ:3300828 运行环境： Internet Information Server 5.x or 6.0 （ii
💻 ASP
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
rsShowHOT.movenext	
Next
rsShowHOT.close
Set rsShowHOT=NOTHING
end if
End Function


Function showmtj(Num)
set rsShowHOT=server.createobject("adodb.recordset")
sql="select top " & Num & " id,list_name,list_mjian from [list_book] where Lock_book = 0 order by list_mjian desc"
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")
sql="select top " & Num & " id,list_name,list_zjian from [list_book] where Lock_book = 0 order by list_zjian desc"
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")
sql="select top " & Num & " id,list_name,list_djian from [list_book] where Lock_book = 0 order by list_djian desc"
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")
sql="select top " & Num & " id,list_name,list_hit from [list_book] where Lock_book = 0 order by list_hit desc"
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")
sql="select top " & Num & " id,list_name,list_yhit from [list_book] where Lock_book = 0 order by list_yhit desc"
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")
sql="select top " & Num & " id,list_name,list_mhit from [list_book] where Lock_book = 0 order by list_mhit desc"
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")
sql="select top " & Num & " id,list_name,list_zhit from [list_book] where Lock_book = 0 order by list_zhit desc"
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")
sql="select top " & Num & " id,list_name,list_dhit from [list_book] where Lock_book = 0 order by list_dhit desc"
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")
sql="select top " & Num & " id,list_name from [list_book] where Lock_book = 0 and listvv_good = 1 order by id desc"
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")
sql="select top " & Num & " id,list_name from [list_book] where Lock_book = 0 and IsGood = 1 and isvip=1 order by id desc"
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")
sql="select top " & Num & " id,list_name from [list_book] where Lock_book = 0 and Islist_Good = 1 order by id desc"
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")
sql="select top " & Num & " id,list_name from [list_book] where Lock_book = 0 order by id desc"
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 showuseradd(useraddNum)
pencat1=""
set rs=server.createobject("adodb.recordset")
sql="select top "&useraddNum&" id,NAME from [Userinfo] where LockUser=0 order by id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
1234

⌨️ 快捷键说明

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