% num=10 if isnumeric(request.QueryString("num")) and request.QueryString("num")<>"" then num=request.QueryString("num") end if sql="select top "&num&" * from webcase where commend=0 order by id desc" set rs=server.CreateObject("adodb.recordset") rs.open sql,conn,1,1 while not rs.eof url=trim(rs("url")) if left(url,7)<>"http://" then url="http://"&url end if %> document.write("