这是我的代码，请帮我分析下，谢谢哈。
<!--#include file="top.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="adminqx.asp"-->
<%
gyh=request.Form("gyh2")&request.QueryString("gyh")
Set zcrs=server.Createobject("ADODB.Recordset")
set zcrs.activeconnection=conn
zcrs.Cursortype=1
zcrs.LockType = 3
zcrs.open"SELECT * FROM info where sh=1 order by time desc"
%>
<div class=topinfo>
<div class=left><IMG src="images/home.gif"><SPAN style="FONT-WEIGHT: bold"><A href="http://nc.zzia. target="_blank">郑州航院网络中心</A></SPAN> - <SPAN style="FONT-WEIGHT: bold"><A href="index.asp">上网用户注册系统</A></SPAN> - 用户安装审核</div>
</div>
<P class=partition></P>
<P class=partition></P>
<div class=grid>
<div class=thall>
<div class=left>用户安装审核</div>
<div class=right><IMG id=btn_register src="images/folder_open.gif"></div>
</div>
<div id=register>
<table width="99%" cellspacing="0" class="inner" id="useronline" name="outtable">
<form id="form1" name="form1" method="post" action="">
<tr class="category forumtd" style="text-align:center">
<td
width="62" align="left"><div align="left">
<div align="left">
<input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox">
选中
</div></td>
<td align="left"
width="126"><div align="center"><a href="shazip.asp">帐号</a></div></td>
<td width="125"><div align="center">姓名</div></td>
<td width="139">IP地址</td>
<td width="196">接入地址</td>
<td width="160">接入时间</td>
<td width="152">选择</td>
</tr>
<%
if zcrs.eof then
response.Write"您查询的内容不存在！"
response.end
else
response.Write(" <font color='#000000'>共查到 </font>"&Cstr(zcrs.RecordCount)&"<font color='#000000'> 条记录</font>")
zcrs.Pagesize=30
Page=CLng(request.QueryString("page"))
if Page<1 then page=1 end if
if Page>zcrs.Pagecount then page=zcrs.pagecount end if
zcrs.AbsolutePage=page
for i=1 to zcrs.pagesize
if zcrs.eof then exit for
%>
<tr class="forumtd" style="text-align:center">
<td align="left" class="small"><div align="left">
<div align="left">
<input name="checkbox" type="checkbox" value="xh"
>
</div>
<td align="left" class="small"><div align="center"><%=zcrs.fields("zh")%></div></td>
<td><div align="center"><%=zcrs.fields("name")%></div></td>
<td class="small"><%=zcrs.fields("ip")%></td>
<%
sh=zcrs.fields("sh")
if sh=0 then zt="<font color=red>未交费</font>" end if
if sh=1 then zt="<font color=green>未安装</font>" end if
if sh=2 then zt="已安装" end if
%>
<td><%=zcrs.fields("gyh")%>号楼<%=zcrs.fields("fjh")%>房间<%=zcrs.fields("xxd")%>点</td>
<td><%=zcrs.fields("time")%></td>
<td width="152"><a href="anz.asp?xh=<%=zcrs.fields("xh")%>">通过安装</a><a href="anz.asp?xh=<%=zcrs.fields("xh")%>"></a></td>
</tr>
</form>
<script type="text/javascript">
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.Name != "chkAll"&&e.disabled!=true)
e.checked = form.chkAll.checked;
}
}
</script>
<%
zcrs.movenext()
next
end if
%>
</table>
</td>
</tr>
</tbody>
</table>
<div align="center"></div>
<div align="center">
<%
if page=1 then
response.Write("")
else
response.Write("<a href=shaz.asp?gyh="&gyh&"&page=1>第一页</a>")
end if
if page=1 then
response.Write("")
else
response.Write("<a href=shaz.asp?gyh="&gyh&"&page="&page-1&"> 上一页 </a>")
end if
if page=zcrs.PageCount then
response.Write("")
else
response.Write("<a href=shaz.asp?gyh="&gyh&"&page="&page+1&">下一页 </a>")
end if
if page=zcrs.PageCount then
response.Write("")
else
response.Write("<a href=shaz.asp?gyh="&gyh&"&page="& zcrs.PageCount &">最后一页</a>")
end if
%>
<br />
</div>
</div>
</div>
<!--#include file="bottom.asp"-->
2010-11-22 19:30
