<% call ShowTop(4,3,"") If request("REQUEST_METHOD") = "POST" Then If Request.Form("mim") <> Request.Form("qr_mim") Then Response.Write "密码与确认密码不一致，请重新输入！" Response.End End If Dim con_ Dim rst_ Dim strMsg Set con_ = Server.CreateObject("ADODB.CONNECTION") Set rst_ = Server.CreateObject("ADODB.recordset") con_.Open con_gongs rst_.Open "select * from 公司 where 用户代号='" & trim(Request.form("yhdh")) & "'", con_, 1, 2 if rst_.EOF then rst_.addnew session("0668_rc_user_hydh")=trim(Request.form("yhdh")) session("0668_rc_user_type")="gs" rst_("用户代号") = Request.form("yhdh") rst_("密码") = Request.form("mim") rst_("公司名称") = Request.form("gsmc") rst_("公司地址") = Request.form("gsdz") rst_("邮编") = Request.form("youb") rst_("电话") = Request.form("dianh") rst_("传真") = Request.form("chuanz") rst_("联系人") = Request.form("lianxr") rst_("电子邮件") = Request.form("dzyj") rst_("公司网址") = Request.form("gswz") rst_("公司性质") = Request.form("gsxz") rst_("公司规模") = Request.form("gsgm") rst_("所属行业") = Request.form("sshy") rst_("公司简介") = Request.form("gsjj") rst_("注册日期") = FormatDateTime(Date, vbShortDate) rst_("注册时间") = FormatDateTime(Time, vbShortTime) rst_("IP") = Request.ServerVariables("REMOTE_ADDR") rst_.Update Response.Write "

公司用户注册成功

点击此处登录会员管理中心
" else Response.Write "
公司用户注册失败，会员代号已经存在！" end if rst_.Close Set rst_ = Nothing con_.Close Set con_ = Nothing Else %>
用户代号 10字节以内的数字或字母
密码 8位以内的字母或数字
确认密码 8位以内的字母或数字
公司名称
公司地址
邮编 例如：525000
电话
传真
联系人
电子邮件
公司网址
公司性质
公司规模
所属行业
公司简介

  
<% End If %>