![]() |
#2
ysf01812012-09-21 20:05
|
代码如下:
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后就弹不出警告框了,但也不会执行写入数据库语句。