register_confirm1.asp

北京商务网

<%@ codepage ="936" %>
<!--#include file="../conn/dbconn1.asp"-->
<!--#include file="../inc/config.asp"-->

<%
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
response.write"<SCRIPT language=JavaScript>alert('该用户名已经存在，重新填写用户名。');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end 
%>
<%else%>
<%
 set myrs=server.CreateObject ("adodb.recordset")
mysql="select * from qyml where qymc='"&request("qymc")&"'"
myrs.open mysql,conn,1,3
if not myrs.eof then
response.write"<SCRIPT language=JavaScript>alert('您的公司信息已经存在，请不要重复提交。');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end 
%>
<%
else
dim user
dim pass
dim question
dim answer
dim name
dim ch
dim sf
dim city
dim address
dim post
dim zw
dim phone
dim mobile
dim fax
dim email
dim web
dim hybz
dim cityid
dim qymc,zycp,qyxz,nyye,ygrs,frdb,zczj,bank,zh,sortid,typeid,cat,qyjj

user=request.form("user")
pass=request.form("pass")
question=request.form("question")
answer=request.form("answer")
name=request.form("name")
ch=request.form("ch")
sf=request.form("sf")
city=request.form("city")
address=request.form("address")
post=request.form("post")
zw=request.form("zw")
phone=request.form("phone")
mobile=request.form("mobile")
fax=request.form("fax")
email=request.form("email")
web=request.form("web")
hybz=request.form("hybz")
'--------企业部分
qymc=request.form("qymc")
zycp=request.form("zycp")
qyxz=request.form("qyxz")
nyye=request.form("nyye")
ygrs=request.form("ygrs")
frdb=request.form("frdb")
zczj=request.form("zczj")
bank=request.form("bank")
zh=request.form("zh")
sortid=request.form("sortid")
cat=request.form("cat")
qyjj=request.form("qyjj")

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("sf"))="郑州市" then
cityid="35"
end if
if trim(request.form("sf"))="安阳市" then
cityid="36"
end if
if trim(request.form("sf"))="濮阳市" then
cityid="37"
end if
if trim(request.form("sf"))="鹤壁市" then
cityid="38"
end if
if trim(request.form("sf"))="新乡市" then
cityid="39"
end if
if trim(request.form("sf"))="焦作市" then
cityid="40"
end if
if trim(request.form("sf"))="三门峡" then
cityid="41"
end if
if trim(request.form("sf"))="洛阳市" then
cityid="42"
end if
if trim(request.form("sf"))="南阳市" then
cityid="43"
end if
if trim(request.form("sf"))="平顶山" then
cityid="44"
end if
if trim(request.form("sf"))="漯河市" then
cityid="45"
end if
if trim(request.form("sf"))="许昌市" then
cityid="46"
end if
if trim(request.form("sf"))="开封市" then
cityid="47"
end if
if trim(request.form("sf"))="商丘市" then
cityid="48"
end if
if trim(request.form("sf"))="驻马店" then
cityid="49"
end if
if trim(request.form("sf"))="周口市" then
cityid="50"
end if
if trim(request.form("sf"))="信阳市" then
cityid="51"
end if
if trim(request.form("sf"))="济源市" then
cityid="52"
end if
if trim(request.form("sf"))="其它" then
cityid="53"
end if
if trim(request.form("mobile"))="" then
mobile="空"
else
mobile=request.form("mobile")
end if
if trim(request.form("zw"))="" then
zw="空"
else
zw=request.form("zw")
end if
if trim(request.form("fax"))="" then
fax="空"
else
fax=request.form("fax")
end if
if trim(request.form("web"))="" then
web="空"
else
web=request.form("web")
end if
%>
<%
rs.addnew
rs("user")=user
rs("pass")=pass
rs("question")=question
rs("answer")=answer
rs("sf")=sf
rs("city")=city
rs("post")=post
rs("address")=address
rs("mobile")=mobile
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("cityid")=cityid
'-----设置会员等级
rs("hybz")=hybz
rs("idate")=date()
rs("begindate")=date()
rs("enddate")=date()+tianshu
	if shenhe=0 then '需要后台审核后才能成为正式会员
		rs("uflag")=0 '待审核
		   if hybz=0 then
		      rs("flag")=5  '待审核免费会员
		   end if
		   if hybz=1 then
		      rs("flag")=3  '待审核收费会员
		   end if
	else '不需要后台审核就可以成为正式会员
		rs("uflag")=1 '通过审核
		   if hybz=0 then
		      rs("flag")=4  '正式免费会员
		   end if
		   if hybz=1 then
		      rs("flag")=2  '未付费正式会员
		   end if
	end if
'-------------企业部分
rs("qymc")=qymc
rs("zycp")=zycp
rs("qyxz")=qyxz
rs("nyye")=nyye
rs("ygrs")=ygrs
rs("frdb")=frdb
rs("zczj")=zczj
rs("bank")=bank
rs("zh")=zh
rs("sortid")=sortid
rs("typeid")=typeid
rs("cat")=cat
rs("qyjj")=qyjj

rs.update
rs.close
set rs=noting
conn.close
set conn=nothing
response.write"<SCRIPT language=JavaScript>alert('恭喜您!成为"&WebName&"的会员,请登录！');"
response.write"this.location.href='login.asp';</SCRIPT>" 
response.end
%>
<%end if%><%end if%>