<% Response.Buffer = true Response.ExpiresAbsolute=now()-1 Response.Expires=0 Response.CacheControl="no-cache" %> <% if Not ChkPost then response.redirect ("chklogin.asp?login=4") user=Replace_Text(request.form("user")) pass=Replace_Text(request.form("pass")) question=Replace_Text(request.form("question")) answer=Replace_Text(request.form("answer")) name1=Replace_Text(request.form("name")) ch=Replace_Text(request.form("ch")) email=Replace_Text(request.form("email")) phonecountry=Replace_Text(request.form("phonecountry")) phonearea=Replace_Text(request.form("phonearea")) phonenumber=Replace_Text(request.form("phonenumber")) phone=phonecountry&" "&phonearea&" "&phonenumber country=Replace_Text(request.form("country1")) sf=Replace_Text(request.form("province")) city=Replace_Text(request.form("city")) address=Replace_Text(request.form("address")) faxcountry=Replace_Text(request.form("faxcountry")) faxarea=Replace_Text(request.form("faxarea")) faxnumber=Replace_Text(request.form("faxnumber")) fax=faxcountry&" "&faxarea&" "&faxnumber mobile=Replace_Text(request.form("mobile")) post=Replace_Text(request.form("post")) qymc=Replace_Text(request.form("qymc")) zw=Replace_Text(request.form("zw")) sortid=Replace_Text(request.form("sortid")) typeid=Replace_Text(request.form("typeid")) p_z_Z_productionService=Replace_Text(request.form("p_z_Z_productionService")) 'isournotify=Replace_Text(request.form("isournotify")) 'if isournotify="" then '此处屏蔽掉订阅信息功能 'isournotify=0 'else 'isournotify=1 'end if 'isothernotify=Replace_Text(request.form("isothernotify")) 'if isothernotify="" then 'isothernotify=0 'else 'isothernotify=1 'end if idate=date() %> <% 'if conn.execute("select id from [corporation] where user='"&user&"' or qymc='"&qymc&"'").eof then 'sql="insert into corporation(user,pass,question,answer,name,ch,email,phone,country,sf,city,address,fax,mobile,post,qymc,zw,sortid,typeid,buykeywords,salekeywords,isournotify,isothernotify,idate) values('"&user&"','"&pass&"','"&question&"','"&answer&"','"&name1&"','"&ch&"','"&email&"','"&phone&"','"&country&"','"&sf&"','"&city&"','"&address&"','"&fax&"','"&mobile&"','"&post&"','"&qymc&"','"&zw&"',"&sortid&","&typeid&",'"&buykeywords&"','"&salekeywords&"','"&isournotify&"','"&isothernotify&"','"&idate&"')" 'response.Write sql 'conn.execute(sql) 'else 'response.write"" response.end else rs.addnew rs("user")=user rs("pass")=pass rs("question")=question rs("answer")=answer rs("name")=name1 rs("ch")=ch rs("email")=email rs("phone")=phone rs("country")=country rs("sf")=sf rs("city")=city rs("address")=address rs("fax")=fax rs("mobile")=mobile rs("post")=post rs("qymc")=qymc rs("zw")=zw rs("sortid")=sortid rs("typeid")=typeid rs("zycp")=p_z_Z_productionService 'rs("isournotify")=isournotify 'rs("isothernotify")=isothernotify rs("idate")=idate 'rs("hybz")=true '申请时即认为其已要求申请诚信通会员服务 rs("uflag")=0 '申请时即开通普通会员，但申请者的公司仍需审核 rs("cflag")=0 '申请时即通过审核申请者的公司 rs("flag")=0 '申请时即开通诚信通会员服务 'rs("begindate")=idate '既然已是诚信通会员，申请者的诚信通会员服务期限从注册之日起 'rs("enddate")=idate+365 '到一年后结束 rs("trust_score")=0 '既然已是诚信通会员，则申请者诚信通指数为10 rs.update session("id")=rs("id") session("user")=rs("user") session("uflag")=rs("uflag") '申请即开通普通会员 'session("cflag")=rs("cflag") '按目前需要而加 'session("flag")=rs("flag") '按目前需要而加 Response.Cookies("MyalibabaName") = rs("user") Response.Cookies("MyalibabaName").Expires=date()+365 pharry=split(rs("phone")," ") response.write"" 'response.redirect ("../member/index.asp") response.end end if %>