xuanjuAsp/xafch315/admag/adAddSave.asp

<%Session.CodePage=65001%>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<!--#include file="../bdcommx/connxyz.asp"-->
<%call log_chk()
dim user,pwd,thelm,Tname,tel
user=trim(request("UserName"))
pwd=md5(trim(request("PassWord")))
thelm=trim(request("thelm"))
Tname=request("Tname")
tel=request("tel")
Set rs=Server.Createobject("Adodb.Recordset")
sql="select * from adminx where adx_name='"&user&"'"
rs.open sql,conn,1,3
if not rs.eof and not rs.bof then
call backurl("帐号已经存在！")
else
rs.addnew
rs("adx_name")=user
rs("adx_pass")=pwd
rs("adx_lm")=thelm
rs("adx_Tname")=Tname
rs("adx_tel")=tel
rs.update
rs.close
set rs=nothing
end if
response.Redirect("adMag.asp")%>