我的分页显示asp代码连接数据库的时候有问题,一直报错500,
<%@LANGUAGE="VBSCRIPT"%><%session("user_ID")="10000"%><html><head></head><body><%setd...
<%@LANGUAGE="VBSCRIPT"%>
<%
session("user_ID")="10000"
%>
<html>
<head>
</head>
<body>
<%
set db= server.createobject("ADODB.connection")
db.open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("edu_manage.mdb")
dim rs,sql,user_ID
user_ID= session("user_ID")
set rs=server.createobject("ADODB.recordset")
sql="select * from where techer_ID= user_ID"
rs.open sql,db,1 '参数设置为键盘指针
'分页显示
if not rs.bof and not rs.eof then
dim intPage
if request.querystring("varPage")="" then
intPage=1
else
intPage=cint(request.querystring("varPage"))
end if
'每页显示数量
rs.pagesize=8
rs.absolutepage=intPage
'在表格中显示记录
response.write "<table border="1" width="100%">"
response.write "<th>课程号</th><th>课序号</th><th>课程名</th><th>学分</th><th>开设学院 </th><th>学期学年</th><th>校区</th><th>删除</th><th>修改</th>"
dim i
for i=1 to rs.pagesize
response.write "<tr>"
response.write "<td>" $rs("course_ID") &"</td>"
response.write "<td>" $rs("course_num") &"</td>"
response.write "<td>" $rs("") &"</td>"
response.write "<td>" $rs("course_cre") &"</td>"
response.write "<td>" $rs("school") &"</td>"
response.write "<td>" $rs("acadYear_term") &"</td>"
response.write "<td>" $rs("campus") &"</td>"
response.write "</tr>
rs.movenext
next
response.write "</table>"
response.write "<p><a href='course.asp?varpage=1'>第1页</a> "
if intPage>1 then
response.write "<p><a href='"course.asp?varpage="&(intPage-1)&"'>上一页</a> "
else
response.write "上一页 "
end if
if intPage<rs.pagecount then
response.write "<p><a href='"course.asp?varpage="&(intPage+1)&"'>下一页</a> "
else
response.write "下一页 "
end if
response.write "<p><a href='"course.asp?varpage="&rs.pagecount&"'>下一页</a> "
else
response.write "课程记录为空"
end if
%>
</body>
</html>
下面是数据库:
courseinfoIDcourse_IDcourse_numcourse_creschoolacadYear_termcampusteacherteacher_ID110000java3计算机2012-2013学年秋(上学期)望江校区袁莉10000210001java3计算机2012-2013学年秋(上学期)望江校区袁莉10000310002java3计算机2012-2013学年秋(上学期)望江校区袁莉10000410003java3计算机2012-2013学年秋(上学期)望江校区袁莉10000510004java3计算机2012-2013学年秋(上学期)望江校区袁莉10000 展开
<%
session("user_ID")="10000"
%>
<html>
<head>
</head>
<body>
<%
set db= server.createobject("ADODB.connection")
db.open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("edu_manage.mdb")
dim rs,sql,user_ID
user_ID= session("user_ID")
set rs=server.createobject("ADODB.recordset")
sql="select * from where techer_ID= user_ID"
rs.open sql,db,1 '参数设置为键盘指针
'分页显示
if not rs.bof and not rs.eof then
dim intPage
if request.querystring("varPage")="" then
intPage=1
else
intPage=cint(request.querystring("varPage"))
end if
'每页显示数量
rs.pagesize=8
rs.absolutepage=intPage
'在表格中显示记录
response.write "<table border="1" width="100%">"
response.write "<th>课程号</th><th>课序号</th><th>课程名</th><th>学分</th><th>开设学院 </th><th>学期学年</th><th>校区</th><th>删除</th><th>修改</th>"
dim i
for i=1 to rs.pagesize
response.write "<tr>"
response.write "<td>" $rs("course_ID") &"</td>"
response.write "<td>" $rs("course_num") &"</td>"
response.write "<td>" $rs("") &"</td>"
response.write "<td>" $rs("course_cre") &"</td>"
response.write "<td>" $rs("school") &"</td>"
response.write "<td>" $rs("acadYear_term") &"</td>"
response.write "<td>" $rs("campus") &"</td>"
response.write "</tr>
rs.movenext
next
response.write "</table>"
response.write "<p><a href='course.asp?varpage=1'>第1页</a> "
if intPage>1 then
response.write "<p><a href='"course.asp?varpage="&(intPage-1)&"'>上一页</a> "
else
response.write "上一页 "
end if
if intPage<rs.pagecount then
response.write "<p><a href='"course.asp?varpage="&(intPage+1)&"'>下一页</a> "
else
response.write "下一页 "
end if
response.write "<p><a href='"course.asp?varpage="&rs.pagecount&"'>下一页</a> "
else
response.write "课程记录为空"
end if
%>
</body>
</html>
下面是数据库:
courseinfoIDcourse_IDcourse_numcourse_creschoolacadYear_termcampusteacherteacher_ID110000java3计算机2012-2013学年秋(上学期)望江校区袁莉10000210001java3计算机2012-2013学年秋(上学期)望江校区袁莉10000310002java3计算机2012-2013学年秋(上学期)望江校区袁莉10000410003java3计算机2012-2013学年秋(上学期)望江校区袁莉10000510004java3计算机2012-2013学年秋(上学期)望江校区袁莉10000 展开
3个回答
展开全部
亲,这里有错sql="select * from where techer_ID= user_ID" 应该改为
sql="select * from where techer_ID= “&user_ID
亲,你这分页循环并不完善哦,代码如下
for i=1 to rs.pagesize
......
rs.movenext
if rs.eof then exit for '要加上这句不然在输出最后一页时可能会出错(当最后一页的记录数小于pagesize时)
next
还有这里有笔误哦$rs("course_ID")应该是&rs("course_ID") asp里连接字符串只有&
还有最后一个”下一页“应该改为”末页“
暂时发现这么多,有问题再追问
另外:刚去查了下500错误,是server error ,就是服务器错误。貌似还没轮上代码错误,汗。500就是账户权限的问题,这个问题我觉得很复杂,你可以上网搜搜这个问题的解决方法。我以前也遇到过,现在都没解决。我是直接建的一个虚拟目录,然后都是在虚拟目录里运行的代码,你也可以试试,但是这个问题到最后还是最好搞明白,毕竟是搞这行的,以后肯定会遇到。
亲,要好评哦
sql="select * from where techer_ID= “&user_ID
亲,你这分页循环并不完善哦,代码如下
for i=1 to rs.pagesize
......
rs.movenext
if rs.eof then exit for '要加上这句不然在输出最后一页时可能会出错(当最后一页的记录数小于pagesize时)
next
还有这里有笔误哦$rs("course_ID")应该是&rs("course_ID") asp里连接字符串只有&
还有最后一个”下一页“应该改为”末页“
暂时发现这么多,有问题再追问
另外:刚去查了下500错误,是server error ,就是服务器错误。貌似还没轮上代码错误,汗。500就是账户权限的问题,这个问题我觉得很复杂,你可以上网搜搜这个问题的解决方法。我以前也遇到过,现在都没解决。我是直接建的一个虚拟目录,然后都是在虚拟目录里运行的代码,你也可以试试,但是这个问题到最后还是最好搞明白,毕竟是搞这行的,以后肯定会遇到。
亲,要好评哦
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询