<% dim shu,news,bigclassid,smallclassid,typeid,specialid,order,time,path,click,title bigclassid=ChkRequest(request.querystring("bigclassid"), 1) typeid=ChkRequest(request.querystring("typeid"), 1) smallclassid=ChkRequest(request.querystring("smallclassid"), 1) specialid=ChkRequest(request.querystring("specialid"), 1) shu=ChkRequest(request.querystring("shu"), 1) order=checkstr(request("order")) time=checkstr(request.querystring("time")) title=ChkRequest(request.querystring("title"), 1) click=checkstr(request.querystring("click")) Path = "./" if shu<>"" then '显示数目,不加为10 ss=shu else ss=10 end if if order="click" then '排序方式,click为按点击率 oo="click" else oo="newsid" end if if time="0" then '显示时间,0为不显示 tt=0 else tt=1 end if if click="0" then '显示点击数,0为不显示 cc=0 else cc=1 end if if title<>0 then '显示数目,不加为10 nn=Int(title) else nn=10 end if if typeid<>"" then set rs=conn.execute("SELECT top "&ss&" * FROM "& db_News_Table &" where typeid="& Int(typeid) &" and checkked=1 and picnews=1 order by "&oo&" desc") else if bigclassid<>"" then set rs=conn.execute("SELECT top "&ss&" * FROM "& db_News_Table &" where bigclassid="& Int(bigclassid) &" and checkked=1 and picnews=1 order by "&oo&" desc") else if smallclassid<>"" then set rs=conn.execute("SELECT top "&ss&" * FROM "& db_News_Table &" where smallclassid="& Int(smallclassid) &" and checkked=1 and picnews=1 order by "&oo&" desc") else if specialid<>"" then set rs=conn.execute("SELECT top "&ss&" * FROM "& db_News_Table &" where specialid="& Int(specialid) &" and checkked=1 and picnews=1 order by "&oo&" desc") else set rs=conn.execute("SELECT top "&ss&" * FROM "& db_News_Table &" where checkked=1 and picnews=1 order by "&oo&" desc") end if end if end if end if if rs.eof and rs.bof then %> document.write('
没有
'); <% else %> document.write(''); <%do while not rs.eof if (rs("picnews"))=1 then fileExt=lcase(getFileExtName(rs("picname"))) %> document.write(''); <%else fileExt=lcase(getFileExtName(rs("picname"))) response.write "121313123!" document.write(''); <%end if rs.movenext loop %> document.write(''); <%end if Rs.Close set Rs=nothing %> <% function getFileExtName(fileName) dim pos pos=instrrev(filename,".") if pos>0 then getFileExtName=mid(fileName,pos+1) else getFileExtName="" end if end function %> document.write('
" border=0>
<%=CutStr(title,nn)%>
');