加下翻页的代码后就不对了，帮忙看看啊-ASP教程-爱易网页

加下翻页的代码后就不对了，帮忙看看啊

日期：2014-05-16　浏览次数：20739 次

加上翻页的代码后就不对了，帮忙看看啊，急急急……
在进行运行的时候总是显示“参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。第40行 ”
以下是我的代码，本页即为seek.asp
<body>
<script language="javascript">
function ckick(){
if ('<%=request.QueryString("Job")%>'=='学生'||'<%=request.QueryString("Job")%>'==''){
window.alert("对不起，您无此权限!")
return false
}
else
return true
}
</script>

<%
  dim Lesson
  Lesson=request.form("Lesson")
dim conn
set conn=server.CreateObject("adodb.connection")
    conn.connectionstring="dsn=Discuss;uid=sa;pwd=sa"
conn.open
set rs=server.CreateObject("adodb.recordset")
set rs.activeconnection=conn
rs.cursortype=3
rs.open "select * from Content where Lesson='"&Lesson&"'"
rs.pagesize=2
page=clng(request.QueryString("page"))
if page<1 then
   page=1
end if
if page>rs.pagecount then
page=rs.pagecount
end if
    rs.absolutepage=page
%>
<form name="Lesson" method="post" >
<select size="1" name="Lesson" >
<option  selected value="计算机原理">计算机原理</option>
     <option  value="土木工程">土木工程</option>
     <option  value="会计学">会计学</option>
     <option  value="经济管理">经济管理</option>
     <option  value="艺术">艺术</option>
     </select> 
<input type="submit" value="提交" name="tijiao">
</form>

<p><a href="mycontent.asp?UserId=<%=request.QueryString("UserId")%>" name="mycontent"><font color="#FF0000">我的留言</font></a></p>
<table border="4" width="80%" align="center" bordercolordark="#993300" bordercolorlight="#FF00FF" bgcolor="#99CCFF">
<tr bgcolor="#CCCCCC" >
<th>主题</th><th>留言人</th><th>留言人系别</th><th>留言时间</th><th>更新时间</th><th>删除</th>
</tr>
<%
for i=1 to rs.pagesize
%>
<tr>
  <td><center><a href="answer.asp?UserName=<%=request.QueryString("UserName")%>&Logo=<%=request.QueryString("Logo")%>&UpperId=<%=rs("ContId")%>"><%=rs("Subject")%></a></center></td>
  <td><center><%=rs("UserName")%></center></td>
  <td><center><%=rs("Job")%></center></td>
  <td><center><%=rs("CreateTime")%></center></td>
  <td><center><%=rs("AnswerTime")%></center></td>
  <td><center><a href="contentdelete.asp?ContId=<%=rs("ContId")%>" style="text-decoration:none" onclick="return ckick()">删除</a></center></td>

</tr>

<% rs.movenext
   if rs.eof then exit for
   next
   %>
   </table>
   <br><br><br>
    <center> <%
   if page=1 then
   respon

免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。

加下翻页的代码后就不对了，帮忙看看啊

相关资料更多>

推荐阅读更多>