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

shenxl03 2012-12-25 06:32:21

在进行运行的时候总是显示“参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。第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>

...全文

85 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

shenxl03 2012-12-27

打赏
举报

此问题已解决！谢谢哈

shenxl03 2012-12-26

打赏
举报

这个网页要求根据表单提供的课程分类显示留言记录，如果不使用request.form()也可以实现此要求吗？还有，请问版主，lession参数是什么？它要把值传递给谁啊？

Go 旅城通票 2012-12-25

打赏
举报

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

我想，我就不会感到如此痛苦、如此悲伤、如此难过、如此令人悲从中来了。但是，如果我没有遇见你。我也不会知道那么欢愉、那么温柔、那么相爱、那么温暖、那么幸福的心情了……噙着泪水的我，今天，依旧仰望着天空。...

如何加载一个SWF文件并控制其位置等相应属性……新建一个空地MC，将它放在主场景中，实体名改为OK，写AS： loadMovie("test.swf", "_root.ok"); 控制这个MC的位置，大小等相对属性（Property）就会影响调入SWF的位置...

sqlserver数据库分页问题，急、、、楼主zhaosy（盛）2005-11-03 11:04:18 在 Java / J2SE / 基础类提问各位兄弟姐妹，这个程序再oracle、mysql上执行没任何问题其中：$where为条件，currentPage为当前页码，...

一面：1. 主要是简历面，问了很多项目和实习2....共投递65家，目前2个offer，整体投递时间都比较晚，进度很慢，有进度的包括：互联网类：滴滴：最近才约面，拒京东：管培生和JDS，笔试后无消息美团：笔试后无消。

微软专家来看看，因为我是打了.NET Framework SP1 后不能用的！！关于在 Windows .NET 中创建 ASP .NET 出错相关问题管理多人共同开发的项目关于大规模数据的选择功能服务器“拒绝访问...