<%
dim exp_title,exp_people
if request("exp_title")="" then
    response.write "<script language=JavaScript>" & chr(13) & "alert('请输入实验名！');" & "history.back()" & "</script>"
    Response.End
end if
if request("exp_people")="" then
    response.write "<script language=JavaScript>" & chr(13) & "alert('请输入实验人！');" & "history.back()" & "</script>"
    Response.End
end if

exp_title=request("exp_title")
exp_people=request("exp_people")
dim sql
dim rs
dim conn
set rs=server.createobject("adodb.recordset")
conn = "DBQ=" + server.mappath("baogao.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
sql="insert into baogao(exp_title,exp_people) values('"&exp_title&"','"&exp_people&"')"
rs.Open sql,conn,3,3
Response.Write "记录添加成功!"
%>

我试了一下确实可以，但是为什么在我的总程序中不可以