当前位置：网站首页 >> 建站知识 >> 网站技术 >>


网站建设中使用ASP语言进行数据库操作的技巧

来源：郑州凯讯网站    发布人：郑州凯讯公司    发布日期：2014-09-28

我们平时进行网站建设，少不了要与数据库打交道。而利用ASP语言操作数据库是网站建设中相对较为简单的一种技术，也是网站编码人员必须具备的技术。本文以实际代码的方式展现如何采用ASP语言操作数据库，从连接数据库到数据库的各种常见操作，都有具体的代码里子，比较容易理解。下面，郑州网站建设就来介绍一下这个问题。

一、ASP与数据库连接：
ASP与SQL Server数据库的连接：
<%
Dim DbServerName, DbName, DbUserID, DbPassword
Dim conn

DbName = "数据库名"
DbServerName = "数据库IP地址"
DbUserID = "数据库用户名"
DbPassword = "数据库用户密码"

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={SQL Server};SERVER=" & DbServerName & ";UID=" & DbUserID & "; PWD=" & DbPassword &";database="&DbName
%>

ASP与Access数据库的链接：
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "provider=Microsoft.Jet.OLEDB.4.0;data source="&Server.MapPath("/")&"/data.mdb"
%>

二、打开并查询数据库数据：
下面是实现的例子，以access数据库为例，查询结束后要关闭数据库连接实例：
<%
dim sql
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "provider=Microsoft.Jet.OLEDB.4.0;data source="&Server.MapPath("/")&"/data.mdb"

set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from userrec order by 编号 desc"
rs.open sql,conn,1,3

if rs.eof then
response.Write("当前并没有查询到任何数据！")
else
bh = rs("编号")
myname = rs("姓名")
sex = rs("性别")
tele = rs("电话")
province = rs("省份")
response.Write("编号为："&"<%=bh%>")
response.Write("姓名为："&"<%=myname%>")
response.Write("性别为："&"<%=sex%>")
response.Write("电话为："&"<%=tele%>")
response.Write("省份为："&"<%=province%>")
end if

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

三、删除表中记录的数据：
下面是实现的例子，以access数据库为例，删除结束后要关闭数据库连接实例：
<%
id=request.QueryString("id")
curid = CStr(id)
dim sql,msg

set conn = Server.CreateObject("ADODB.Connection")
conn.Open "provider=Microsoft.Jet.OLEDB.4.0;data source="&Server.MapPath("/")&"/data.mdb"

sql = "delete from userrec where 编号="&curid&""
conn.execute(sql)

if (err.number = 0) then
msg="删除记录成功."
else
msg="删除记录失败."
end if

conn.close
set conn=nothing

response.Write(msg)
%>

四、修改表记录操作：
下面是实现的例子，以access数据库为例，修改完毕后要关闭数据库连接实例：
<%
newpassword=request.form("newpassword")

if isEmpty(newpassword) or len(newpassword)<1 then
response.Write("密码不能为空")
response.End()
end if

dim sql,msg
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "provider=Microsoft.Jet.OLEDB.4.0;data source="&Server.MapPath("/")&"/data.mdb"

sql = "update userinfo set 密码='"&newpassword&"'"
conn.execute(sql)

if (err.number = 0) then
msg="密码修改成功."
else
msg="密码修改失败."
end if

conn.close
set conn=nothing

response.Write(msg)
%>