多媒体编程

开发平台：
ASP/ASPX

first.asp：源码内容
							<%
iperr()
response.write("<center><br>"&_
				"<table border=0 cellpadding=3 cellspacing=0 style='border-collapse:collapse' bordercolor=#efefef width=735>"&_
				"<tr>"&_
				"<td valign=bottom nowrap>"&_
				"<img src=""../images/download.gif""> "&_
				"本类总数/影片总数：<font color=#FF0000><b>")
numRstype=request.QueryString("type")
sql="select count(*) as totles from download"
if numRstype="" then
	strTch=request("TTYPE")
	strSearch=request("KEY")
	if strSearch<>"" then
		if strTch="BYNAME" then
			sql=sql&" where boolZhen=False and name like '%"&strSearch&"%'"
		else
			sql=sql&" where boolZhen=False and strShow like '%"&strSearch&"%'"
		end if
	else
		sql=sql&" where boolZhen=False"
	end if
else
	sql=sql&" where boolZhen=False and numSortcount="&numRstype
end if
rs=conn.execute(sql)
numTotle=rs("totles")
response.write(numTotle)
set rs=nothing
response.write("</b>/<b>")
sql="select count(*) as totles from download"
rs=conn.execute(sql)
numTotle=rs("totles")
response.write(numTotle)
set rs=nothing
response.write("</b></font></td>")
if boolSoftatt_1=true then
	response.write("<td valign=bottom nowrap>"&_
					"<img src='../images/zhen.gif' width=16 heigth=16 title='待认证影片数'> ："&_
					"<font color=#FF0000><b>")
	sql="select count(*) as totles from download where boolZhen=True"
	rs=conn.execute(sql)
	numTotle=rs("totles")
	response.write(numTotle)
	set rs=nothing
	response.write("</b></font></td>")
end if
response.write("<form method=POST action=list.asp>"&_
				"<td align=center valign=bottom nowrap>"&_
				"<img src='../images/search.gif' width=16 heigth=16> "&_
				"<input class=border type=text name=KEY size=10> "&_
				"<SELECT class=search name=TTYPE>"&_
				"<OPTION selected value=BYNAME>:::按名称:::</OPTION>"&_
				"<OPTION value=BYINTRO>:::按介绍:::</OPTION></SELECT> "&_
				"<input bgcolor=#efefef type=submit value=搜索 name=keyword class=border>"&_
				"</td></form><form>"&_
				"<td align=center valign=bottom nowrap>")
if request.QueryString("type")<>"" then
	strQuer="&type="&request.QueryString("type")
else
	strQuer=""
end if
response.write("<select size=""1"" name=""goto"" class=border onChange=""window.location=form.goto.options[form.goto.selectedIndex].value"">"&_
				"<option value='list.asp' selected>请选择</option>"&_
				"<option value='list.asp?rang=id"&strQuer&"'>按序号</option>"&_
				"<option value='list.asp?rang=dateRtime"&strQuer&"'>按时间</option>"&_
				"<option value='list.asp?rang=numCounters"&strQuer&"'>按浏览</option>"&_
				"<option value='list.asp?rang=numDowncount"&strQuer&"'>按观看</option>"&_
				"<option value='list.asp?rang=strCommend"&strQuer&"'>按推荐</option>"&_
				"</select></td></form><form>"&_
				"<td align=right valign=bottom nowrap>"&_
				"<img src='../images/goto.gif' width=16 heigth=16> "&_
				"<select name=go onChange='window.location=form.go.options[form.go.selectedIndex].value' size=1 style='color:#000000; border-style:solid; border-width:1; background-color:#efefef'>")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select sort.id,sort.sort from sort"
rs.open sql, conn,1,1
if rs.eof then
	response.write("<option selected>--==没有分类==--</option>")
else
	if request.QueryString("type")="" then
		response.write("<option value='list.asp' selected>--==影片分类列表==--</option>")
	else
		response.write("<option value='list.asp'>--==影片分类列表==--</option>")
	end if
	while not rs.eof
		strSort=rs("sort")
		response.write("<option value='list.asp'>---"&strSort&"---</option>")
		Set rs1 = Server.CreateObject("ADODB.Recordset")
		sql1="select small.id,small.small,small.sortid from small where sortid='"&strSort&"'"
		rs1.open sql1, conn,1,1
		while not rs1.eof
			numSmallid=cint(rs1("id"))
			strSmall=rs1("small")
			numRequest=cint(request.QueryString("type"))
			if numRequest=numSmallid then
				strSelected="selected"
			else
				strSelected=""
			end if
			response.write("<option "&strSelected&" value='list.asp?type="&numSmallid&"'>"&strSmall&"</option>")
			rs1.movenext
		wend
		rs1.close
		set rs1=nothing
		rs.movenext
	wend
end if
rs.close
set rs=nothing
response.write("</select></td></form></tr></table><br>")
%>

						