多媒体编程

开发平台：

ASP/ASPX

zoom.asp：源码内容

							<!--#include file="db/user.asp" -->
<!--#include file="config.asp" -->
<%
addess=strAddess_1
name=request.querystring("name")'显示类别
sortall=request.querystring("st")'显示分类号
mCount=request.querystring("count")'显示数量
mLongname=request.querystring("long")'显示的字符长度
mClass=request.querystring("class")'显示类型
Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorType = adOpenStatic
rs.CacheSize = cint(mCount)
sql="select * from download"
select case name
	case "new"
		if sortall<>"" then
			sql=sql&" where boolZhen=False and numSortcount="&sortall
		else
			sql=sql&" where boolZhen=False"
		end if
		sql=sql&" order by dateRtime desc"
	case "down"
		if sortall<>"" then
			sql=sql&" where boolZhen=False and numSortcount="&sortall
		else
			sql=sql&" where boolZhen=False"
		end if
		sql=sql&" order by numDowncount desc"
	case "day"
		sql=sql&" where boolZhen=False order by numDaydown desc"
	case "month"
		sql=sql&" where boolZhen=False order by numMonthdown desc"
end select
rs.OPEN sql, Conn,1,1
if rs.eof then
	response.write("document.write('无内容')")
else
	For absRecordNum = 1 to mCount
		numZid=rs("id")
		longname=rs("name")
		if len(longname)>mLongname then
			longname=left(longname,mLongname) & "..."
		end if
		strZbig=rs("strBig")
		strZsort=rs("strSort")
		dateZtime=rs("dateRtime")
		numZday=rs("numDaydown")
		numZmonth=rs("numMonthdown")
		numZdown=rs("numDowncount")
		numZcount=rs("numCounters")
		numZsort=rs("numSortcount")
		if mClass="1" then
			response.write("document.write('<li><a href="""&addess&"show.asp?id="&numZid&""" title="""&longname&" - "&strZbig&"|"&strZsort&" "&dateZtime&"<br>今:"&numZday&" 周:"&numZmonth&" 总:"&numZdown&" 浏:"&numZcount&""" target=_blank>"&longname&"</a>');")
		else
			response.write("document.write('<li>[<a href="""&addess&"list.asp?type="&numZsort&""">"&strZsort&"</a>] <a href="""&addess&"show.asp?id="&numZid&""" title="""&longname&" - "&strZbig&"|"&strZsort&" "&dateZtime&"<br>今:"&numZday&" 周:"&numZmonth&" 总:"&numZdown&" 浏:"&numZcount&""" target=_blank>"&longname&"</a>');")
		end if
		rs.movenext
			If rs.EOF Then  
				Exit For  
			End If  
		Next
	end if
rs.close
set rs=nothing
%>

						