加上翻页的代码后就不对了，帮忙看看啊，急急急……
在进行运行的时候总是显示“参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。第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
response.Write("第一页 ")
else
response.Write("<a href=seek.asp?page=1>第一页</a> ")
end if
if page=1 then
response.Write("上一页 ")
else
response.Write("<a href=seek.asp?page="&page-1&">上一页</a> ")
end if
if page=rs.pagecount then
response.Write("下一页 ")
else
response.Write("<a href=seek.asp?page="&page+1&">下一页</a> ")
end if
if page=rs.pagecount then
else
response.Write("<a href=seek.asp?page="&rs.pagecount&">最后一页</a> ")
end if
%>
当前页码：<%=page%>/<%=rs.pagecount%> </center>
<%
conn.close
if conn.state=0 then
end if
set conn=nothing
%>
</body>
[解决办法]
lesson参数分页的时候没有传递，而且lesson通过url传递的时候使用request.querystring，不是form，直接request就行了
'Lesson=request.form("Lesson")
Lesson=request("Lesson")
if page=1 then
response.Write("第一页 ")
else
response.Write("<a href=seek.asp?page=1&lession="&lesson&">第一页</a> ")
end if
if page=1 then
response.Write("上一页 ")
else'====================加上lession参数
response.Write("<a href=seek.asp?page="&(page-1)&"&lession="&lesson&">上一页</a> ")
end if
if page=rs.pagecount then
response.Write("下一页 ")
else'====================加上lession参数
response.Write("<a href=seek.asp?page="&(page+1)&"&lession="&lesson&">下一页</a> ")
end if
if page=rs.pagecount then
else'====================加上lession参数
response.Write("<a href=seek.asp?page="&rs.pagecount&"&lession="&lesson&">最后一页</a> ")
end if
