%
if Chkrequest(request("sortid")) then
sortid=request("sortid")
else
Response.Redirect ("../login/chklogin.asp?login=4")
end if
show=Replace_Text(request("show"))
qylb=Replace_Text(request("qylb"))
sql="select * from corporation where sortid="&sortid&" and cflag=1"
if qylb>"" then sql=sql&" and qylb like '%"&qylb&"%'"
if show="trust_score" then
sql=sql&" order by trust_score desc"
else
sql=sql&" order by id desc"
end if
Set rslist= Server.CreateObject("ADODB.Recordset")
rslist.open sql,conn,1,1
msg_per_page=20 '定义每页显示记录条数
%>