geng.asp

应用于手机下载的一款较实用的软件。该软件能帮你让手机下载多种资源

<!--#include file="db/download.mdb" -->
<%
name=request.querystring("name")
sortall=request.querystring("st")
'显示判定
if name="allhot" and sortall="" then
	call allhot()
elseif name="alldown" and sortall="" then
	call alldown()
end if
'显示所有软件的最近更新
sub allhot()
absPageNum = 1
RecordPerPage = 10
Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorType = adOpenStatic
rs.CacheSize = RecordPerPage
sql="SELECT top 10 * FROM download order by time desc"
rs.OPEN sql, Conn,1,1
rs.PageSize = RecordPerPage
	If Not(rs.EOF) Then
			rs.AbsolutePage = absPageNum
	End If
	if rs.eof and rs.bof then
		response.write "document.write('无内容')"
	else
		For absRecordNum = 1 to rs.PageSize
		'长度判断
		longname=rs("name")
		if len(longname)>20 then
			longname=left(longname,20) & "..."
		end if
		response.write "document.write('<dt>◇[<a href=""download/index.asp?type="&rs("sortcount")&""">"&rs("sort")&"</a>] <a href=""download/show.asp?id="&rs("id")&""" title="""&rs("name")&" - "&rs("big")&"|"&rs("sort")&" "&rs("time")&" "&rs("count")&"/"&rs("downcount")&""" target=_blank>"&longname&"</a> <font color=#999A67>["&rs("time")&"]</font>');"
		rs.movenext
			If rs.EOF Then  
				Exit For  
			End If  
		Next
	end if
rs.close
set rs=nothing
end sub

'所有软件的下载排序
sub alldown()
absPageNum = 1
RecordPerPage = 10
Set rsall = Server.CreateObject("ADODB.Recordset")
rsall.CursorType = adOpenStatic
rsall.CacheSize = RecordPerPage
sqlall="SELECT * FROM download order by count desc"
rsall.OPEN sqlall, Conn,1,1
rsall.PageSize = RecordPerPage
	If Not(rsall.EOF) Then
			rsall.AbsolutePage = absPageNum
	End If
	if rsall.eof and rsall.bof then
		response.write "document.write('无内容')"
	else
		For absRecordNum = 1 to rsall.PageSize
		'长度判断
		longrsall=rsall("name")
		if len(longrsall)>8 then
			longrsall=left(longrsall,8) & "..."
		end if
			response.write "document.write('<li><a href=download/show.asp?id="&rsall("id")&" title="""&rsall("name")&" - "&rsall("big")&"|"&rsall("sort")&" "&rsall("time")&" "&rsall("count")&"/"&rsall("downcount")&""" target=_blank>"&longrsall&"</a> [<font color=red>"&rsall("count")&"</font>]');"
		rsall.movenext
			If rsall.EOF Then  
				Exit For  
			End If  
		Next
	end if
rsall.close
set rsall=nothing
end sub

conn.close
set conn=nothing
%>