6-7.asp

来自「ASP+SQL Server动态网站开发从基础到实践教程」· ASP 代码 · 共 47 行

<html>

<head>

<title>操作数据</title>
</head>

<body>

<%
on error resume next
Dim ConnStr,myConn,mySQL
ConnStr="Provider=SQLOLEDB;data source=(local);initial catalog=图书馆管理系统;user id=sa;password=;"  '参照表6-2的连接字符串
Set myConn=Server.CreateObject ("ADODB.Connection")
Myconn. ConnectionString=ConnStr
myConn.open  '直接打开数据库连接
myConn.BeginTrans

'修改学号为0002的的学生的姓名为小张,原名为小章
mySQL="update 学生信息表 set 姓名='小章' where 学号='0002'"
myConn.Execute mySQL   '执行

'修改学号为0002的的学生的姓名为小张,原名为小章
mySQL="update 学生信息表 set 性别='女' where 学号='0002'"
myConn.Execute mySQL   '执行




if err.number>0 then
	myConn.RollbackTrans
else
	myConn.CommitTrans	
end if

response.write "操作成功"

myConn.close
set myConn=nothing

%>


</body>

</html>