<%
adminname=Trim(Request.Form("adminname"))
userpw=Request.Form("pw")
quanxian=Request.Form("quanxian")
if adminname="" or userpw="" or quanxian="" then
response.Write""
response.End()
end if
set rs1=server.CreateObject("ADODB.Recordset")
sql1="select * from user where User_Name='"&adminname&"'"
rs1.open sql1,conn,1,3
if rs1.eof or rs1.bof then
set rs=server.CreateObject("ADODB.Recordset")
strsql="select * from user"
rs.open strsql,conn,1,3
rs.addnew
rs("User_Name")=adminname
rs("User_Pwd")=md5(userpw)
rs("User_qx")=quanxian
response.Write adminname&md5(userpw)&quanxian
rs.update
rs.close
set rs=nothing
response.Write""
else
response.Write""
end if
rs1.close
set rs1=nothing
conn.close
set conn=nothing
%>
这样试试。。再不然就得检查数据库类型等等。