大家帮我看看代码有误么?
<form action="pl_edit_save.asp" method="post" name="form2" id="form2">
<table width="850" align="center">
<tr bgcolor="#CCCCCC">
<td><div align="center">部门</div></td>
<td><div align="center">姓名</div></td>
<td><div align="center">
<p>银行帐号</p>
</div></td>
<td><div align="center">
<p>胸卡编号</p>
</div></td>
</tr>
<%
bm=request("bm")
set rs =Server.CreateObject("adodb.recordset")
sql="select * from info where 部门="&bm&
rs.open sql,conn,1,1
if rs.eof then
Response.Write "没有记录"
else
proCount=rs.recordcount
rs.PageSize=20
if not IsEmpty(Request("ToPage")) then
ToPage=CInt(Request("ToPage"))
if ToPage>rs.PageCount then
rs.AbsolutePage=rs.PageCount
intCurPage=rs.PageCount
elseif ToPage<=0 then
rs.AbsolutePage=1
intCurPage=1
else
rs.AbsolutePage=ToPage
intCurPage=ToPage
end if
else
rs.AbsolutePage=1
intCurPage=1
end if
intCurPage=CInt(intCurPage)
For i = 1 to rs.PageSize
if rs.EOF then
Exit For
end if '利用for next 循环依次读出记录
%>
<tr onMouseOver=this.style.backgroundColor='#B5E9FD' onMouseOut=this.style.backgroundColor=''>
<td>
<input name="bm" type="text" id="bm" value="<% response.write rs("部门") %>" />
<td><input name="xm" type="text" id="xm" value="<% response.write rs("姓名") %>" />
<td><input name="zh" type="text" id="zh" value="<% response.write rs("帐号") %>" />
<td><input name="xkbh" type="text" id="xkbh" value="<% response.write rs("胸卡编号") %>" />
</tr>
<%
rs.MoveNext
next%>
<tr>
</tr>
</table>
</form>