加上翻页的代码后就不对了,帮忙看看啊,急急急……
在进行运行的时候总是显示“参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突。第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>
以下是我的代码,本页即为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>
...全文
相关推荐
c + + 计 时 器 急 急 急急 急 急急 急 急急 急 急急 急 急急 急 急急 急 急急 急 急急 急 急急 急 急
c + + 计 时 器 急 急 急急 急 急急 急 急急 急 急急 急 急急 急 急急 急 急急 急 急急 急 急急 急 急
急急急平面波matlab仿真中如何用颜色表示声压级的大小-Doc1.doc
急急急平面波matlab仿真中如何用颜色表示声压级的大小-Doc1.doc 原程序是: f=125; c0=344; k=2*f*pi./c0; r=0:0.001:0.5; p=exp; P=abs; plot; xlabel'); ylabel'); 不知程序对不对 请问怎么在平面波matlab仿真中如何用颜色表示声压级的大小,能不能帮忙把程序完整的表示出来
这是sdk调用源文件,急急急急急急
这是sdk调用源文件,急急急急急急
java代码-和急急急借记卡
java代码-和急急急借记卡
远程桌面登录蓝色屏幕、不显示桌面怎么解决?
不要急急忙忙的让机房值班给你重启机器,因为此时除了远程连接不可用,其他一切应用是不受影响的,网站依旧可以打开,FTP依旧可以上传下载,不属于紧急故 障。 解决办法1: 远程桌面连接-》选项-》高级-》去掉“主题”和“位图缓存”这两个选项,然后登陆服务器 解決的方法2: 一个用户黑屏后,使用另外一个管理员用户登陆。然后打开任务管理器,点用户,注销掉黑屏的用户链接! 解决办法3: 用增强的3389远程桌面登陆器登录试一试,能正常登录就重启服务器或vps。 解决办法4: 超出最大连接数(同样可以处理远程黑屏和蓝屏问题): 在本地电脑运行命令行: mstsc /console /v:你的服务器IP:远


