aspÊÂÎñÎÊÌâ

<%On Error Resume Next
Set conn=Server.CreateObject("ADODB.Connection")
conn.begintrans
conn.Open ("Driver={SQL Server};server=(local);uid=sa;database=student;pwd=")
sql="insert into class(id, class) values('8','ËÄ°à')"
conn.Execute(sql)
sql1="insert into student(name,class)values('333333','666')"
conn.Execute(sql1)
If Err <>0 Then
conn.rollbacktrans
response.Write(err.description)
%>
<script language="javascript">
alert("Êý¾ÝÌí¼Óʧ°Ü£¡");
</script>
<%
Else
%>
<script language="javascript">
alert("Êý¾ÝÌí¼Ó³É¹¦£¡");
</script>
<%
conn.committrans
conn.close
set conn=nothing
End If

%>
response.Write Êä³öµÄÊÇûÓлÊÂÎñ 
Êý¾ÝÌí¼Óʧ°Ü ¶Ô»°¿ò»áµ¯³öÀ´µÄ    ¿ÉÊÇÊÂÎñûÓлعö

---

VBScript code:

<%
On Error Resume Next
Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=SQLOLEDB;Data source=127.0.0.1;Initial Catalog=student;User ID=sa;Password=;"

conn.begintrans
sql="insert into class(id, class) values('8','ËÄ°à');insert into student(n