代码如下：
if request.Form("B1")<>"" then
unitname=request.form("unitname")
username=trim(request.form("user"))
password=request.form("pass")

sql0 = "select UNIT_user from unit where UNIT_user='"&username&"'"
Set rs0 = Server.CreateObject("ADODB.RecordSet")
rs0.Open sql0,conn,1,1
if not rs0.eof then
Response.write "<script language=javascript>"
Response.write "alert('系统里已经有相同的用户名，请重新填写用户名!');"
Response.write "history.back();"
Response.write "</script>"
set rs0=nothing
set conn=nothing
end if

conn.Execute"insert into unit(UNIT_name,UNIT_user,UNIT_pass)Values('"&unitname&"','"&username&"','"&password&"')"
Response.Redirect"admin_unit.asp"
end   if

问题描述：连接sql数据库的时候运转正常，可以弹出警告框，换成了ACCESS后就弹不出警告框了，但也不会执行写入数据库语句。

第一个：检查  conn  连接 access 连接 和SQL连接不一样的代码。

第二个：

Response.write "<script language=javascript>"
Response.write "alert('系统里已经有相同的用户名，请重新填写用户名!');"
Response.write "history.back();"
Response.write "</script>"
最好一个 response.write 建议


增加数据时最好
rs.open"select * form 表" ,conn,1,1
rs.addnew
rs("字段")= 量
rs.update
rs.close


[ 本帖最后由 ysf0181 于 2012-9-21 20:08 编辑 ]

学习

2楼正解！