<%Session.CodePage=65001%> <%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")%>