[求助]高手进来看看,ASP网页,打看后CPU占100% [复制链接]

<%
dim m,n
queryid=request("user")
set rs=server.CreateObject("adodb.recordset")
sqlstr="select a.memb_guid,a.memb___id,a.memb_name,end_days=max(b.end_days) from memb_info a left join VI_MEMB_INFO b on a.memb___id=b.memb___id where a.memb___id like '%"&queryid&"%' group by a.memb_guid,a.memb___id,a.memb_name order by a.memb_guid"
rs.open sqlstr,conn,1,1
rs.pagesize=20
tatalrecord=rs.recordcount
tatalpages=rs.pagecount
rs.movefirst
nowpage=request("page")
if nowpage&"x"="x" then
nowpage=1
else
nowpage=cint(nowpage)
end if
rs.absolutepage=nowpage
%>


请输入查询帐号名称:








<%
n=1
while not rs.eof and n<=rs.pagesize
response.Write ""
response.write ""
n=n+1
rs.movenext
wend
%>

用户名	昵称	到期日期	操作
"&rs("memb___id") & "	" response.Write rs("memb_name") & "	" response.Write rs("end_days") & "	冲值|修改

共:<%=tatalpages%>页 当前为:<%=nowpage%>页
<%if nowpage>1 then%>
">上一页
<%else%>
上一页
<%end if%>
<%for k=1 to tatalpages%>
<%if k<>nowpage then %>
"><%=k%>
<%else%>
<%=k%>
<%end if%>
<%next%>
<%if nowpage < tatalpages then%>
">下一页
<%else%>
下一页
<%end if%>
<%if nowpage<>1 then%>
"> 首页
<%else%>
首页
<%end if%>
<%if nowpage<>tatalpages then %>
">末页
<%else%>
末页
<%end if%>

不懂 哦

[em06]

以经解决!

你奇迹要收费?

汗