有懂asp的吗?看一下这段代码哪些有错?
<% dim MyConndim MyCommdim connstrdim xuehaodim mysql✀创建一个 Connection 对象 Set MyConn=Server.CreateObject("ADODB.Connection") ✀用 Connection 对象连接数据库 db="/in.mdb" ✀数据库文件位置connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"MyConn.open connstr✀创建一个 Command 对象 Set MyComm=Server.CreateObject("ADODB.Command")✀使用 Command 对象的 ActiveConnection 属性把 Command 对象和一个打开的连接联系起来 MyComm.ActiveConnection = MyConn MyComm.CommandType = 1xuehao=request.Form("xuehao")mysql="delete from stu where stu_number=✀" & xuehao & "✀"✀使用 Command 对象的 CommandText 属性指定要执行的 SQL 语句 MyComm.CommandText = mysql✀调用 Command 对象的 Execute 方法执行这条命令 Set rs = MyComm.Execute()mysql="select * from student"MyComm.CommandText = mysql✀调用 Command 对象的 Execute 方法执行这条命令 Set rs = MyComm.Execute()Response.Write "<center><h3>该学生信息<h3></center>"Response.Write ("<center><TABLE border=1 bordercolor=RoyalBlue bgcolor=LightBlue width=500> ") Response.Write "<tr><td>标题</td>" Response.Write "<td>内容</td><tr>" Do While Not rs.EOF Response.Write "<td>"&rs("stu_number")&"</td>" Response.Write "<td>"&rs("stu_name")&"</td></tr>" rs.MoveNext Loop Response.Write ("</center></Table>") rs.Close Set rs=nothing ✀关闭连接,删除连接对象 MyConn.Close Set MyConn=nothing %>