在下面的ASP中用VBScript添加一个查询代码和分页怎么添加？
<%
dim isedit
dim id
dim sql,rs,rsc
dim subjectname
subjectname=trim(request("subjectname"))
<script language=vbscript>
msgbox "操作成功!号码为<%=trim(request("id"))%>的考试纪录已删除!"
</script>
<% end if
end if
%>
<html>
<head>
<title>管理考试成绩----在线考试系统</title>
<script language=javascript>
function SureDel(id)
{
if ( confirm("您确定要删除该考试纪录吗？"))
{
window.location.href = "mgscore.asp?action=del&id=" +id
}
}
</script>
</head>
<body background=../images/backimage.gif >
<center>
</center>
<table>
<tr>
<td ><div align="center"><font face="华文行楷">考试成绩管理</font></div></td>
</tr>
<tr >
<td >
<div><strong>学生姓名</strong></div> </td>
<td>
<div><strong>考试科目</strong></div> </td>
<td>
<div><strong>考试时间</strong></div></td>
<td>
<div align="center"><strong>考试分数</strong></div> </td>
<td>
<div align="center"><strong>操作</strong></div> </td>
</tr>
<tr >
<td >
<div align="center"><%=rs("studentname")%></div> </td>
<td width="20%" height="21" >
<div align="center"><%=rs("subjectname")%></div> </td>
<td width="20%" height="50" >
<div align="center"><%=rs("endtime")%></div> </td>
<td width="20%" height="21" >
<div align="center"><%=rs("score")%></div> </td>
<td width="20%" height="21" >
<div align="center">
<%
response.write "<a href='javascript:SureDel(" & cstr(rs("id")) & ")'>删除</a>"
%>
</div> </td>
</tr>
</table>
</body>
</html> 展开
说下大概步骤，具体的你可以下载我的测试包，挂接运行演示看看
1、建立oledb
'连接OLEDB
Dim conn ,dataSource ,connStr
set conn = server.CreateObject("adodb.connection")
dataSource = server.MapPath("data/data.mdb")
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dataSource
conn.open connStr
2、根据姓名查找，首先是，如果我没有输入姓名的时候，默认是要显示全部的记录，那么我需要一个变量studentname存储
我文本框传过来的值，没值的时候给个默认空吧这样我们就可以先写出sql语句如下
if studentname <> "" then
sqlStr = "select * from [student] where studentname = " & studentname & " order by Addtime desc ,id
desc"
else
sqlStr = "select * from [student] order by newsAddtime desc ,id desc"
end if
3、把数据都输入出来使用我附件里面封装好的插件，可以直接得到你要的分页效果【这边比较复杂就不放出来了我发下大致
的】
<%
Dim myurl : myurl = "111.asp?newsclass=" & newsClass
rs.open sqlStr ,conn ,1 ,1
if not rs.eof then
%>
<!--#include file="fenye/Fenye.asp"--> //具体实现分页是在这个文件实现的
<!--#include file="fenye/Yema.asp"-->
<% while not rs.eof and mypage > 0 %>
<tr >
<td >
<div align="center"><%=rs("newsTitle")%></div> </td>
<td width="20%" height="21" >
<div align="center"><%=left(rs("newsContent") ,30)%></div> </td>
<td width="20%" height="50" >
<div align="center"><%=rs("newsAddtime")%></div> </td>
<td width="20%" height="21" >
<div align="center">
<%
response.write "<a href='javascript:SureDel(" & rs("Id") & ")'>删除</a>"
%>
</div> </td>
</tr>
<%
rs.movenext
mypage = mypage - 1
wend
end if
rs.close
set rs = nothing
%>
<tr><td colspan="4"><!--#include file="fenye/Yema.asp"--></td></tr> //分页显示【最简单的上一页下一页，选择
第几页】
4、那个文本框需要有表单才能提交，不然你就得用脚本传值了，附件里面我给你修改成表单传值的，你可以参照我的附件，
我演示结果如下，
这个是没有提交数据的显示
提交数据后对应显示
吧对应的数据库啊，字段啊，全部修改过来就可以了。。。有问题在留言或者私信
这个是最简单的分页插件，没有经过css修改，其他版面调整你自己添加修改吧，
还是不太会弄，可不可以加下好友帮我弄一下啊？1508733146
<%
set rs=server.createobject("adodb.recordset")
exec="select * from [表名]"
rs.open exec,conn,1,1
rs.PageSize=5
pagecount=rs.PageCount
page=int(request.QueryString ("page"))
if page<=0 then page=1
if request.QueryString("page")="" then page=1
rs.AbsolutePage=page
%>
<--在调用<%=rs(“xxxxx”)%>之前的行标签输入一下代码：!-->
<%
for i=1 to rs.PageSize
if rs.EOF or rs.BOF then exit for
%>
<tr>
......
<td><%=rs("xxxxx")%></td>
<td width="20%" height="21" >
<%
response.write "<a href='javascript:SureDel(" & cstr(rs("id")) & ")'>删除</a>"
%>
</td>
.....
</tr>
<--之后写下以下代码!-->
<%
rs.movenext
next
%>
<--最后需要额外家一行!-->
<tfoot>
<td colspan="5">
<%for i=1 to pagecount%>
<a href="login_student.asp?page=<%=i%>">第<%=i%>页</a><%next%>
</td>
</tfoot>
