请大家帮忙做一道ASP动态网页(4个页面(首页面如下,添加页面,删除,编辑)加一个数据库)

题目:利用Recordset对象的PageSize属性等相关属性的设置和利用OLEDB链接字符串访问Access数据库,一实现页面的分页显示,其界面如下:学号姓名性别专业... 题目:利用Recordset对象的PageSize属性等相关属性的设置和利用OLEDB链接字符串访问Access数据库,一实现页面的分页显示,其界面如下:
学号 姓名 性别 专业 操作
** ** * * 编辑 删除
添加(学生的信息)
展开
 我来答
linzi2
2011-12-19 · TA获得超过1261个赞
知道大有可为答主
回答量:1563
采纳率:0%
帮助的人:551万
展开全部
Sub DBConnBegin()
If IsObject(oConn) = True Then Exit Sub
Set oConn = Server.CreateObject("ADODB.Connection")
On Error Resume Next
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db.mdb")
If Err.Number > 0 Then
Response.End
End If
End Sub
Call DBConnBegin()
Dim Page,MaxNum,RecordCounts,PageCounts
Page = Request("Page")
MaxNum=10 : PageCounts=1 : RecordCounts=0
set rs=server.createobject("adodb.recordset")
sql="select * from student"
rs.open sql,conn,1,1
response.write "<table>"
if rs.eof And rs.bof Then
Response.write "<tr><td colspan=5>没有数据记录</td></tr>"
else
rs.pagesize=MaxNum
if Page>rs.pagecount then Page=rs.pagecount
rs.absolutepage=Page
PageCounts=rs.pagecount
RecordCounts=rs.RecordCount
Response.write "<tr><td>学号</td><td>姓名</td>...<td>操作</td></tr>"
Response.write "<tr>"
for i=0 to MaxNum-1
If rs.eof Then Exit For
Response.write "<td>"&rs("stuID")&"</td><td>"&rs("stuName")&"</td>......"
Response.write "<td><a href=?Action=Edit&stuID="&rs("stuID")&">编辑</td>......"
Next
Response.write "</tr>"
Response.write "<tr><td colspan=5 align=center><a href=?Action=Add>添加</a></td></tr>"
Response.write "</table>"
上面的为我不完全代码,找葫芦画瓢应该能完成,楼主觉得合适的话,赞助点分数吧
追问
可以在详细一点吗?
追答
你试着做做吧,遇到问题然后贴出来看看
阿高牛也
2011-12-19 · TA获得超过803个赞
知道小有建树答主
回答量:498
采纳率:0%
帮助的人:308万
展开全部
真是佩服你
如果我读书的时候
应该像你一样

再次佩服!
追问
哪里哪里!
追答
谦虚了
不过最好掏点小费买一下别人的劳动时间
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友6c122c89b
2011-12-19 · TA获得超过108个赞
知道小有建树答主
回答量:427
采纳率:0%
帮助的人:169万
展开全部
真懒。 就想用现成的。
更多追问追答
追问
大哥啊, 我做不来啊
追答
数据库是ACCESS?我这个有一个现成的,是员工数据。有工号,姓名之类,你拿去改一下就可以用了。我也是这样在网上找别人的来改。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式