learnasp.asp

怎样用ASP连接数据库系统

<%
        dim sql,rs,conn
	dim name,grade

	'直接变量赋值写入
	'name="王五"
	'grade=95

	'通过表单提交写入
	name=request.form("name")
	grade=request.form("grade")

	'建立数据库连接对象
	set conn=server.createobject("ADODB.Connection") 
	'取数据库绝对路径
        DBPath =Server.MapPath("LearnAsp.mdb") 
	'打开数据库
	conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
	'建立记录集对象
	set rs=server.createobject("ADODB.Recordset")
	'标准SQL查询语句
        sql="select * from [大圣]"
	'打开记录集
        rs.open sql,conn,1,3

	'写入数据
	rs.addnew
	rs("姓名")=name
	rs("成绩")=grade
	rs.update

	'读取数据
	rs.movefirst
        do while not rs.eof
        response.write rs("姓名") & " " & rs("成绩") &"分<br>"
        rs.movenext
        loop

	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
%>