请大家帮忙做一道ASP动态网页(4个页面(首页面如下,添加页面,删除,编辑)加一个数据库)
题目:利用Recordset对象的PageSize属性等相关属性的设置和利用OLEDB链接字符串访问Access数据库,一实现页面的分页显示,其界面如下:学号姓名性别专业...
题目:利用Recordset对象的PageSize属性等相关属性的设置和利用OLEDB链接字符串访问Access数据库,一实现页面的分页显示,其界面如下:
学号 姓名 性别 专业 操作
** ** * * 编辑 删除
添加(学生的信息) 展开
学号 姓名 性别 专业 操作
** ** * * 编辑 删除
添加(学生的信息) 展开
3个回答
展开全部
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>"
上面的为我不完全代码,找葫芦画瓢应该能完成,楼主觉得合适的话,赞助点分数吧
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>"
上面的为我不完全代码,找葫芦画瓢应该能完成,楼主觉得合适的话,赞助点分数吧
追问
可以在详细一点吗?
追答
你试着做做吧,遇到问题然后贴出来看看
展开全部
真是佩服你
如果我读书的时候
应该像你一样
再次佩服!
如果我读书的时候
应该像你一样
再次佩服!
追问
哪里哪里!
追答
谦虚了
不过最好掏点小费买一下别人的劳动时间
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
真懒。 就想用现成的。
更多追问追答
追问
大哥啊, 我做不来啊
追答
数据库是ACCESS?我这个有一个现成的,是员工数据。有工号,姓名之类,你拿去改一下就可以用了。我也是这样在网上找别人的来改。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询