shenxl03 2012年12月25日
加上翻页的代码后就不对了,帮忙看看啊,急急急……
在进行运行的时候总是显示“参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突。第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>
...全文
60 点赞 收藏 3
写回复
3 条回复

还没有回复,快来抢沙发~

发动态
发帖子
ASP
创建于2007-09-28

1.9w+

社区成员

35.7w+

社区内容

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区公告
暂无公告