<%
if request("action")="add" then
username=trim(request("username"))
password=trim(request("password"))
NameCh=trim(request("NameCh"))
NicknameCh=trim(request("NicknameCh"))
NameEn=trim(request("NameEn"))
NicknameEn=trim(request("NicknameEn"))
xingzuo=trim(request("xingzuo"))
Email=trim(request("Email"))
gongzuohangye=trim(request("gongzuohangye"))
companyWeb=trim(request("companyWeb"))
jiuliang=trim(request("jiuliang"))
koutouchan=trim(request("koutouchan"))
shihao=trim(request("shihao"))
daibiaoZi=trim(request("daibiaoZi"))
intro=trim(request("intro"))
set rshadreg=conn.execute("select * from [user] where username='"&username&"'")
if rshadreg.bof and rshadreg.eof then
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [user]",conn,1,3
rs.addnew
rs("UserName")=UserName
rs("Password")=Password
rs("NameCh")=NameCh
rs("NicknameCh")=NicknameCh
rs("NameEn")=NameEn
rs("NicknameEn")=NicknameEn
rs("xingzuo")=xingzuo
rs("Email")=Email
rs("gongzuohangye")=gongzuohangye
rs("companyWeb")=companyWeb
rs("jiuliang")=jiuliang
rs("koutouchan")=koutouchan
rs("shihao")=shihao
rs("daibiaoZi")=daibiaoZi
rs("intro")=intro
rs("Purview")=1
rs.update
rs.close
set rs=nothing
response.Write("")
response.Cookies("username")=username
response.Cookies("username").Expires=Date+1
response.Redirect("index.asp")
else
response.Write("")
end if
end if
%>