请各位朋友帮忙检查一下小弟我那里出错了！

请各位朋友帮忙检查一下我那里出错了！急急急急急！!--#includefile conn.asp --%mhdzrequest( mhdz

请各位朋友帮忙检查一下我那里出错了！急急急急急！

<%
mhdz=request( "mhdz ")
set rs=server.createobject( "adodb.recordset ")
sql= "select * from bbs1 where mhdz= ' "& mhdz & " ' order by id desc "
rs.open sql,conn,1

%>

<html>

<head>
<meta http-equiv= "Content-Type " content= "text/html; charset=gb2312 ">
<title> 系统后台管理页面 </title>
<script language= "JavaScript ">

</script>

<script>
function del () //用于判断记录有没有选中的函数
{
var flag=true;
var temp= " ";
var tmp;
if((document.form1.answer.length+ " ")== "undefined ") {tmp=1}else{tmp=document.form1.answer.length}
if (tmp==1){
if (document.form1.answer.checked){
flag=false;
temp=document.form1.answer.value
}
}else{
for (i=0;i <document.form1.answer.length;i++) {
if (document.form1.answer[i].checked){
if (temp== " ")
{
flag=false;
temp=document.form1.answer[i].value
}else{
flag=false;
temp = temp + ", "+ document.form1.answer[i].value
}
}
}
}
if (flag){ alert( "对不起，你还没有选择！ ")}
else
{ name=document.form1.name.value
//alert(name)
if (confirm( "确实要删除？ ")){
window.location= "delnews.asp?id= " + temp;
}
}
return !flag;
}
</script>

</head>
<body>

<script language=Javascript>
function checkall(all)//用于判断全选记录的函数
{
var a = document.getElementsByName( "answer ");
for (var i=0; i <a.length; i++) a[i].checked = all.checked;
}
</script>
<table width= "768 " border= "0 " align= "center " cellpadding= "0 " cellspacing= "0 ">

<tr>
<td valign= 'top ' bgcolor= "#FFFFFF ">

<%
set rs=server.createobject( "adodb.recordset ")
page = CLng(request( "page ")) '利用CLng函数把page值转换为Long型
judge=request( "judge ")
judge2=request( "judge2 ")
judge3=0
sqlcmd= "select * from bbs1 Order By fjh Desc "
rs.open sql,conn,1,1
%>

<form method= "POST " name=form1 class= "STYLE6 " id=form1>

<table width= "768 " border= '1 ' align= "center " cellpadding= '0 ' cellspacing= '0 ' bordercolor= "#F0F0F0 " id=TabDocMain>
<tr>
<td width= "44 " height= "20 " align=center bgcolor= "#E2E7FA " class= "STYLE2 "> 册除框 </td>
<td width= "124 " height= "20 " align=center bgcolor= "#E2E7FA " class= "STYLE2 "> 房间号 </td>
<td width= "110 " height= "20 " align=center bgcolor= "#E2E7FA " class= "STYLE2 "> 模块地址 </td>
<td width= "89 " height= "20 " align=center bgcolor= "#E2E7FA " class= "STYLE2 "> <span class= "STYLE7 "> 电话申请日期 </span> </td>
<td width= "97 " height= "20 " align=center bgcolor= "#E2E7FA " class= "STYLE2 "> 业　主 </td>
<td width= "69 " height= "20 " align=center bgcolor= "#E2E7FA " class= "STYLE2 "> 用户费用 </td>
<td width= "97 " height= "20 " align=center bgcolor= "#E2E7FA " class= "STYLE2 "> 收费日期 </td>
<td width= "86 " height= "20 " align=center bgcolor= "#E2E7FA " class= "STYLE2 "> 到期日期 </td>
<td width= "74 " height= "20 " align=center bgcolor= "#E2E7FA " class= "STYLE2 "> 操作 </td>
</tr>

<%

if not (rs.EOF or rs.BOF) then
rs.MoveFirst
rs.PageSize = 12 '每页显示的条数
If page < 1 Then page = 1
If page > rs.PageCount Then page = rs.PageCount
rs.AbsolutePage = page
For ipage = 1 To rs.PageSize
%>
<tr>
<td width= "44 " height= "20 " align=center class= "STYLE4 ">
<input type= "checkbox " name= "answer " value= " <%=rs( "id ")%> " id= "Checkbox1 "> </td>
<td width= "124 " height= "20 " align=left class= "STYLE4 "> <div align= "center " class= "STYLE7 "> <a href= "look.asp?id= <%=rs( "id ")%> " target= "_blank " class= "STYLE7 "> <%=rs( "fjh ")%> </div> </td>
<td width= "110 " height= "20 " align=left class= "STYLE4 "> <div align= "center "> <%=rs( "mhdz ")%> </div> </td>
<td width= "89 " height= "20 " align=left class= "STYLE4 "> <div align= "center "> <%=rs( "dhsq ")%> 年
<%=rs( "dhsqy ")%> 月
<%=rs( "dhsqr ")%> 日 </div> </td>
<td width= "97 " height= "20 " align=left class= "STYLE4 "> <div align= "center "> <%=rs( "yz ")%> </div> </td>
<td width= "69 " height= "20 " align=left class= "STYLE4 "> <div align= "center "> <%=rs( "yhfy ")%> <span class= "STYLE5 "> </div> </td>
<td width= "97 " height= "20 " align=left class= "STYLE4 "> <div align= "center "> <%=rs( "sfrq ")%> 年 <%=rs( "sfrqy ")%> 月 <%=rs( "sfrqr ")%> 日 </div> </td>
<td width= "86 " height= "20 " align=left class= "STYLE4 "> <div align= "center "> <%=rs( "dqfy ")%> 年 <%=rs( "dqfyy ")%> 月 <%=rs( "dqfyr ")%> 日 </div> </td>

<td width= "74 " height= "20 " align=center class= "STYLE4 STYLE18 "> <a href= "update.asp?id= <%=rs( "id ")%> " class= "STYLE18 "> 修改 </a> </td>
</tr>
<%
rs.MoveNext
If rs.EOF Then Exit For
Next
%>
<tr>
<td height= "20 " colspan= "12 ">   <input type= "checkbox " name= "chkall " value= "on " onClick= "checkall(this) " id= "Checkbox2 ">
<span class= "STYLE7 "> 选中所有的显示新闻 </span>   <input type= "button " name= "btnDelete " value= "删除 " style= 'font-family: 宋体; font-size: 9pt; ' onClick= "del() " id= "Button1 "> </td>
</tr>
</table>
</form>
<table border= "0 " align= "center " cellpadding= "0 " cellspacing= "0 " width= "768 ">
<tr>
<form onSubmit= "return test(); " method= "get " action= "adminlook3.asp " id=form2 name=form2>
<td width= "220 " height= "25 " bgcolor= "#FFFFFF " >
<%
If page = 1 Then
Response.Write " <font class= 'white '> 第一页　上一页 </font> "
End If
If page <> 1 Then
Response.Write " <a href=adminlook3.asp?page=1 class= 'yellow '> 第一页 </a> "
Response.Write "　 <a href=adminlook3.asp?page= " & (page - 1) & " class= 'yellow '> 上一页 </a> "
End If
If page <> RS.PageCount Then

Response.Write "　 <a href=adminlook3.asp?page= " & (page + 1) & " class= 'yellow '> 下一页 </a> "
Response.Write "　 <a href=adminlook3.asp?page= " & RS.PageCount & " class= 'yellow '> 最后一页 </a> "
End If
If page = RS.PageCount Then
Response.Write "　 <font class= 'white '> 下一页　最后一页 </font> "
End If
%> </td>
<td height= "25 " bgcolor= "#FFFFFF " > <span class= "STYLE7 "> GOTO页数： </span>
<%Response.Write " <input type=text size=2 maxlength=4 name=page class=editbox1> <input type=hidden name=judge value=1> " '显示输入页数框并将page,judge参数传递下去%> </td>
</form>
</tr>
<tr>
<td height= "25 " colspan= "2 " bgcolor= "#FFFFFF " class= "white " > <span class= "STYLE7 "> 记录总数： </span> <%=rs.recordCount%> 　 <span class= "STYLE7 "> 总页数： </span> <%=rs.PageCount%> 　 <span class= "STYLE7 "> 当前页次： </span> <%=page%> </td>
</tr>
</table> <table width= "768 " border= "0 " cellspacing= "0 " cellpadding= "0 ">
<tr>
<td bgcolor= "#FFFFFF "> <%else%> </td>
<td bgcolor= "#FFFFFF "> <table border= "0 " cellpadding= "0 " cellspacing= "0 " >
<td height= "25 " class= "STYLE18 " > 对不起，还没有记录！ </td>
</table> </td>
<td bgcolor= "#FFFFFF "> <%end if%> </td>
</tr>
</table> </td>
</tr>
</table>

</body>
</html>

[解决办法]
就链接中写啊. Response.Write "　 <a href=adminlook3.asp?page= " & (page + 1) & "&mhdz= " & mhdz& "judge= "&judge & "judge2= " &judge & " class= 'yellow '> 下一页 </a> "