js.asp

3000首FLASH源程序

<!--#include file="conn.asp"-->
<%
dim Count,i
dim rs,sql,NclassSql
dim Classid,Nclassid
Count=request("Count")
Classid=request("Classid")
Nclassid=request("Nclassid")
Best=Ucase(request("Best"))
DateShow=Ucase(request("DateShow"))
AuthorShow=Ucase(request("AuthorShow"))
Typeor=Ucase(request("Typeor"))
if classid<>"" then
	classSql=" classid="&classid
else
	classSql=" classid=classid"
end if
if Nclassid<>"" then
	NclassSql=" and Nclassid="&Nclassid
else
	NclassSql=""
end if
if Best="Y" then
	BestSql=" and Best=true"
else
	BestSql=""
end if
if Typeor="S" then
	typeorSql="stamp"
else
	typeorSql="pic"
end if
set rs=server.createobject("adodb.recordset")
sql="select "&typeorSql&".title,"&typeorSql&".updatetime,"&typeorSql&".id,"&typeorSql&".classid,"&typeorSql&".authorid,author.author from "&typeorSql&",author Where"&ClassSql&""&NclassSql&""&BestSql&" and "&typeorSql&".authorid=author.authorid order by id desc"
rs.open sql,conn,1,1
   if rs.eof then
	response.write "document.write ('暂无内容');"
   else
	if int(count)=0 then
		count=rs.recordcount
	end if
	i=0
	do while not rs.eof
	    i=i+1
	    response.write "document.write ('<img src=images/ico1.gif> <a href="&typeorSql&"list.asp?id="&rs("id")&"&classid="&rs("classid")&" title="&rs("title")&" target=_blank>');"
         	if len(rs("title"))>11 then
          		response.write "document.write ('"&left(rs("title"),10)&"...');"
         	else
          		response.write "document.write ('"&rs("title")&"');"
         	end if
		    response.write "document.write ('</a>');"
		if AuthorShow="Y" then response.write "document.write ('&nbsp;[<font color=#666666>"&rs("author")&"</font>]');"
		if DateShow="Y" then  response.write "document.write ('&nbsp;<font color=#666666>"&rs("updatetime")&"</font>');"
		 response.write "document.write ('<br>');"
	    if i>=int(Count) then exit do
	rs.movenext
	loop
   end if
rs.close
set rs=nothing
%>