save_register.asp

asp+access开发的网上购物程序

<%@ codepage ="936" %>
<!--#include file="../../conn/dbconn2.asp" -->
<script LANGUAGE="JavaScript">
function goHist(a) 
{
history.go(a); 
}
</script>
<%
dim rsgs
dim gssql
dim user
dim pass
dim question
dim answer
dim qymc
dim qylb
dim qyxz
dim zczj
dim frdb
dim ygrs
dim zh
dim bank
dim nyye
dim zycp
dim qyjj
dim sf
dim city
dim post
dim address
dim phone
dim fax
dim email
dim web
dim name
dim ch
dim bm
dim zw 
dim bighy
dim lithy
dim qylb1
dim qylb2
dim qylb3
dim qylb4
dim gsid
dim sortid
dim typeid
dim errmsg
user=request.form("user")
pass=request.form("pass")
question=request.form("question")
answer=request.form("answer")
qymc=request.form("qymc")
qyxz=request.form("qyxz")
zczj=request.form("zczj")
frdb=request.form("frdb")
ygrs=request.form("ygrs")
nyye=request.form("nyye")
zycp=request.form("zycp")
qyjj=request.form("qyjj")
sf=request.form("sf")
city=request.form("city")
post=request.form("post")
address=request.form("address")
phone=request.form("phone")
email=request.form("email")
name=request.form("name")
ch=request.form("ch")
bm=request.form("bm")
zw=request.form("zw")
bighy=request.form("bighy")
lithy=request.form("lithy")
qylb=request.form("qylb1")
if trim(request.form("sf"))="北京" then
cityid="1"
end if
if trim(request.form("sf"))="上海" then
cityid="2"
end if
if trim(request.form("sf"))="天津" then
cityid="3"
end if
if trim(request.form("sf"))="重庆" then
cityid="4"
end if
if trim(request.form("sf"))="黑龙江" then
cityid="5"
end if
if trim(request.form("sf"))="吉林" then
cityid="6"
end if
if trim(request.form("sf"))="辽宁" then
cityid="7"
end if
if trim(request.form("sf"))="内蒙古" then
cityid="8"
end if
if trim(request.form("sf"))="河北" then
cityid="9"
end if
if trim(request.form("sf"))="新疆" then
cityid="10"
end if
if trim(request.form("sf"))="甘肃" then
cityid="11"
end if
if trim(request.form("sf"))="宁夏" then
cityid="12"
end if
if trim(request.form("sf"))="山西" then
cityid="13"
end if
if trim(request.form("sf"))="山东" then
cityid="14"
end if
if trim(request.form("sf"))="青海" then
cityid="15"
end if
if trim(request.form("sf"))="西藏" then
cityid="16"
end if
if trim(request.form("sf"))="四川" then
cityid="17"
end if
if trim(request.form("sf"))="陕西" then
cityid="18"
end if
if trim(request.form("sf"))="河南" then
cityid="19"
end if
if trim(request.form("sf"))="湖北" then
cityid="20"
end if
if trim(request.form("sf"))="安徽" then
cityid="21"
end if
if trim(request.form("sf"))="江苏" then
cityid="22"
end if
if trim(request.form("sf"))="浙江" then
cityid="23"
end if
if trim(request.form("sf"))="江西" then
cityid="24"
end if
if trim(request.form("sf"))="湖南" then
cityid="25"
end if
if trim(request.form("sf"))="贵州" then
cityid="26"
end if
if trim(request.form("sf"))="云南" then
cityid="27"
end if
if trim(request.form("sf"))="广西" then
cityid="28"
end if
if trim(request.form("sf"))="广东" then
cityid="29"
end if
if trim(request.form("sf"))="福建" then
cityid="30"
end if
if trim(request.form("sf"))="海南" then
cityid="31"
end if
if trim(request.form("sf"))="香港" then
cityid="32"
end if
if trim(request.form("sf"))="澳门" then
cityid="33"
end if
if trim(request.form("sf"))="台湾" then
cityid="34"
end if
if trim(request.form("fax"))="" then
fax="空"
else
fax=request.form("fax")
end if
if trim(request.form("bank"))="" then
bank="空"
else
bank=request.form("bank")
end if
if trim(request.form("zh"))="" then
zh="空"
else
zh=request.form("zh")
end if
if trim(request.form("web"))="" then
web="空"
else
web=request.form("web")
end if
%>
<%
set rs=server.CreateObject ("adodb.recordset")
sql="select * from qyml where user='"&request("user")&"'"
rs.open sql,conn,1,3
if not rs.eof then
%>
<table border="0" cellspacing="0" width="100%" cellpadding="0">
<tr>
<td width="100%" height="250" valign="middle" align="center"><font color="#000000" class=f12><b>该户名已经存在，请点击返回按钮，重新填写用户名。</b><form method="post"><input type="button" VALUE="返回" onClick="goHist(-1)">
</form></font>
</td>
</tr>
</table>
<%else
rs.addnew
rs("user")=user
rs("pass")=pass
rs("question")=question
rs("answer")=answer
rs("qymc")=qymc
rs("qylb")=qylb
rs("qyxz")=qyxz
rs("zczj")=zczj
rs("frdb")=frdb
rs("ygrs")=ygrs
rs("zh")=zh
rs("bank")=bank
rs("nyye")=nyye
rs("zycp")=zycp
rs("qyjj")=qyjj
rs("sf")=sf
rs("city")=city
rs("post")=post
rs("address")=address
rs("phone")=phone
rs("fax")=fax
rs("email")=email
rs("web")=web
rs("name")=name
rs("ch")=ch
rs("bm")=bm
rs("zw")=zw
rs("gsid")=user
rs("cityid")=cityid
rs("sortid")=bighy
rs("typeid")=lithy
rs.update
rs.close
set rs=noting
conn.close
set conn=nothing 
%>
<table border="0" cellspacing="0" width="100%" cellpadding="0">
<tr>
<td width="100%" height="230" valign="middle" align="center"><IMG src="../../pict/success.gif"><br><br><font color="#000000" class=f12><b>恭喜您，您已经成为《电子采购》的会员!!</b></font></td>
</tr>
</table>
<%end if%>