这是asp操纵数据库的基本资料,建议楼主参考着,边学习边写出你想要的代码,如果实在写不出,再联系我帮你写。
-----------------------------------------------
1. ASP与Access数据库连接:
<%
dim conn,mdbfile
mdbfile=server.mappath("数据库名称.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=数据库密码;dbq="&mdbfile
%>
2. ASP与SQL数据库连接:
<%
dim conn
set conn=server.createobject("ADODB.connection")
con.open "PROVIDER=SQLOLEDB;DATA SOURCE=SQL服务器名称或IP地址;UID=sa;PWD=数据库密码;DATABASE=数据库名称
%>
3. 建立记录集对象:
set rs=server.createobject("adodb.recordset")
rs.open SQL语句,conn,3,2
4. RS记录集对象的方法:
rs.movenext 将记录指针从当前的位置向下移一行
rs.moveprevious 将记录指针从当前的位置向上移一行
rs.movefirst 将记录指针移到数据表第一行
rs.movelast 将记录指针移到数据表最后一行
rs.absoluteposition=N 将记录指针移到数据表第N行
rs.absolutepage=N 将记录指针移到第N页的第一行
rs.pagesize=N 设置每页为N条记录
rs.pagecount 根据 pagesize 的设置返回总页数
rs.recordcount 返回记录总数
rs.bof 返回记录指针是否超出数据表首端,true表示是,false为否
rs.eof 返回记录指针是否超出数据表末端,true表示是,false为否
rs.delete 删除当前记录,但记录指针不会向下移动
rs.addnew 添加记录到数据表末端
rs.update 更新数据表记录
1、数据库连接
dim conn,connstr,db
db="/data/student.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
2、通过学号查询,(HTML表单页你自己写,这是查询显示页)
<%
dim sXH
sXH=request.form("XH") '学号
sql = "SELECT * FROM [Student] WHERE XH='" &sXH& "'"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if rs.bof and rs.eof then
rs.close
set rs=nothing
Response.write "查无记录!"
response.End()
else
sXH = rs("XH") '学号
sXM = rs("XM") '姓名
sXB = rs("XB") '性别
sMZ = rs("MZ") '民族
sBH = rs("BH") '班号
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
学号:<%=sXH%>
姓名:<%=sXM%>
性别:<%=sXB%>
民族:<%=sMZ%>
班号:<%=sBH%>
首先新建一个数据库连接文件,conn.asp
<%
'On Error Resume Next
dbpath = "你的数据库"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.Mappath(dbpath)
Set conn=Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err.Number <> 0 Then
Response.write "数据库链接出错!文件:inc/conn.asp!"
Response.End()
end if
%>
-------------------这种方法要更加技术化,后面对数据库的连接进行了判断,下面这种方法要简单得多,适合新学者。
新建一个数据库连接文件 conn.asp
<%
set conn=server.createobject("adodb.connection")
conn.open "DRIVER={Microsoft access driver (*.mdb)}; dbq="&server.mappath("bbs.mdb")
%>
现在再来做你想要实现的功能,就是在数据添加成功后直接显示在页面里面,有两种方法可行,第一种就是在判断成功后的JS事件里面加上一个页面跳转,将页面跳转到你的数据库信息显示的哪一个页面,另外一种方法就是在数据添加的页面在做一个能够显示数据的功能。当然我推荐第一种方法,比较简单。
<%
response.end
end if
rs.close
set rs=nothing
'把值添加入数据库
strtable="user"
set rs=server.createobject("adodb.recordset")
rs.open strtable,conn,1,3
rs.addnew
rs("username")=strname
rs("userpassword")=strpassword1
rs("useremail")=stremail
rs("userhomepage")=strhomepage
rs("usernote")=strnote
rs.update
rs.close
'返回
set rs=nothing
response.write "祝贺你,你已经更新成功"
%>
返回
你现在只需要把其中的一些数据库地址和相应的代码更改一下就可以使用了。
现在ASP已经没有以前重要了,只要懂得ASP的编程思想就行了。如果你是自己的话,我推荐你学C#和.net这两种编程语言更适合自学,而且简单实用。
如果有不懂的可以回我,我再给你看!
在HTML页面里的表单内输入数据,然后提交到下一个页面进行处理,用“request”进行接受数据,拿到数据后,就可以对数据库进行处理了,无非就是增,删,改,查,看你提问的意思好象是输入一个信息后,然后把他的详细信息查询出来,这里就要用到查询语句:“rs.open select * from 表名 where 条件,conn,1”然后把你查询到的信息输出就行了。
不晓得你能看明白不,你可以给个需求,我在来发代码。