?? jstop.asp
字號(hào):
<!--#include file="Config.asp" -->
<%
on error resume next
dim shu,cut
if Trim(Request.QueryString("shu"))="" or Trim(Request.QueryString("shu"))="0" then
shu=10
else
shu=cint(Request.QueryString("shu"))
end if
if Trim(Request.QueryString("cut"))="" or Trim(Request.QueryString("cut"))="0" then
cut=50
else
cut=cint(Request.QueryString("cut"))
end if
set rs=server.createobject("adodb.recordset")
if Trim(Request.QueryString("CateID"))<>"" and Trim(Request.QueryString("CateID"))<>"0" then
sql="select top "& shu &" SoftID,SoftName,SoftVer,AllHits from "&CategoryName&"_SoftInfo where CateID="&Trim(Request.QueryString("CateID"))&" order by AllHits desc"
elseif Trim(Request.QueryString("SubCateID"))<>"" and Trim(Request.QueryString("SubCateID"))<>"0" then
sql="select top "& shu &" SoftID,SoftName,SoftVer,AllHits from "&CategoryName&"_SoftInfo where SubCateID="&Trim(Request.QueryString("SubCateID"))&" order by AllHits desc"
else
sql="select top "& shu &" SoftID,SoftName,SoftVer,AllHits from "&CategoryName&"_SoftInfo order by AllHits desc"
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then %>
document.write('<p align="center">Sorry! 沒(méi)有物品</p>');
<% else
do while not rs.eof %>
document.write('<li><a href="<%=url%>SoftView.Asp?SoftID=<%=rs("SoftID")%>" title="<%=rs("SoftName")&" "&rs("SoftVer")%>"><%=cutStr(rs("SoftName")&" "&rs("SoftVer"),cut) %></a> <font color=#ff0000>(<%=rs("AllHits")%>)</font></li>');
<% rs.movenext
loop
end if
rs.close
set Rs=nothing
CloseDatabase
%>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -