“Response.Write "AAAAAAAA"
rst2.Open "select * from jzpz where id>0 and lrr=“" & session("username") & "“" & str ,cnn2,1,1,adcmdtext
else
“Response.Write "FFFFFFFFFFFFF"
rst2.Open "select * from jzpz where id>0 " & str ,cnn2,1,1,adcmdtext
end if
if rst2.RecordCount >0 then
rst2.MoveFirst
rst2.PageSize =20
rst2.AbsolutePage =1
i=0
do while not rst2.EOF and i< rst2.PageSize
Response.Write "<tr>"
Response.Write "<td width=“15%“ bgcolor=lightgrey>"& rst2.Fields("bm")& "</td>"
Response.Write "<td width=“15%“ bgcolor=lightgrey>"& rst2.Fields("zgs")& "</td>"
Response.Write "<td width=“15%“ bgcolor=lightgrey>"& rst2.Fields("xmz")& "</td>"
Response.Write "<td width=“15%“ bgcolor=lightgrey><a href=“FMjz1.asp?Id="& rst2.Fields("id") & "“
target=“_blank“>" & rst2.Fields("xm")& "</a></td>"
Response.Write "<td width=“5%“ bgcolor=lightgrey>"& rst2.Fields("sr")& "</td>"
Response.Write "<td width=“5%“ bgcolor=lightgrey>"& rst2.Fields("zc")& "</td>"
Response.Write "</tr>"
i=i+1
rst2.MoveNext
loop
end if
Response.Write "</table>"
Response.Write "</div>"
j= rst2.PageCount
Response.Write "<P align=center><b>共有页数: "
for i=1 to j
Response.Write "<a href=“Fmjzpzck1.asp?ID=" & i & "“ target=“_blank“>" & i & "</a>" & " "
if j mod 10= 0 then
Response.Write "<br>"
end if
next
Response.Write "</b></p>"
rst2.Close
cnn2.Close
…………
end sub
应用以上程序,可以根据用户的权限,按照用户的要求实行订制查询,该系统在win NT、IIS4.0和win98、PWS上运行通过。