<%
dim conn,connstr
connstr = "Provider=Microsoft.Jet.Oledb.4.0;data source="&Server.MapPath("data/exam.mdb")
set conn = Server.CreateObject("adodb.connection")
conn.open connstr
'sql="delete from TB_PROF where 专业编码='" & Request.QueryString("id") & "'"
conn.execute("delete from TB_PROF where 专业编码='02'")
response.write sql
'Response.Redirect "search.asp"
conn.close
set conn=nothing
%>