<% Response.Buffer=true %> <% ' 文件名:user_modify.asp ' 功能:前台用户注册信息修改 %> <% '定义变量 Dim strSQL, rsSQL, struser, rsuser, typeid, strtype, rstype, strclass, srclass If Session("userid")= "" Then Response.Redirect "login.asp?link=user_modify.asp" struser="Select * from user Where userid="&Session("userid") set rsuser= Conn.Execute(struser) If Request.QueryString("typeid") = "" Then typeid=rsuser("industrytypeid") Else typeid=Request.QueryString("typeid") End If strtype="select * from industrytype order by industrytypeid" set rstype= Conn.Execute(strtype) strclass="select * from industryclass where industrytypeid="&typeid set rsclass= Conn.Execute(strclass) %> 欢迎进入科迅电子电器有限公司主页--修改注册信息
     
     
科迅首页 信息平台 产品介绍 在线订购 企业服务
<%If Request("step")="modify" then if Request.Form("homeurl")="http://" then strURL="" else strURL=Request.Form("homeurl") end if strUpdate="Update user set password='" & Request.Form("password") &"'" _ & ",companyname='" & Request.Form("companyname") &"'" _ & ",industrytypeid=" & Request.Form("industrytype") _ & ",industryclassid=" & Request.Form("industryclass") _ & ",city='" & Request.Form("city") &"'" _ & ",contractor='" & Request.Form("contractor")&"'" _ & ",tel='" & Request.Form("tel")&"'" _ & ",fax='" & Request.Form("fax") &"'" _ & ",address='" & Request.Form("address") &"'" _ & ",zip='" & Request.Form("zip") &"'" _ & ",email='" & Request.Form("email") &"'" _ & ",homeurl='" & strURL & "'" _ & " Where userid=" & Session("userid") Conn.Execute(strUpdate) %>

恭喜您，修改信息成功!

<% rsuser.close set rsuser = nothing struser="Select * from user Where userid="&Session("userid") set rsuser= Conn.Execute(struser) End if %>
 
会员信息修改
用户名： <%=rsuser("username")%>
用户密码： size="20" maxlength="10"> *
验证密码： > *
所属行业大类： *
所属行业小类： *
会员名称： " size="20" maxlength="50"> *
所在省市： " size="20" maxlength="20"> *
联系地址
(Address)： 		" size="20" maxlength="100">
联系人： " size="20" maxlength="10"> *
邮　编(Zip)： " size="20">
电　话(Tel)： " size="20" maxlength="10">
传　真(Fax)： " size="20" maxlength="10">
电子邮件(Email)： " size="20" maxlength="40"> *
公司主页(homepage)： <% if rsuser("homeurl")<>"" then%> "> <% else %> <% end if %>
注:带*号项必须填写!
          返回
<% set rsUser = nothing Conn.close set Conn = nothing %>

作为科迅电子电器有限公司主页网的注册会员,您将获得如下服务:
　　1.将自己所在的公司加注到企业名录，就象到“114”查询台登了记，开辟了一个向外界宣传企业的新窗口。依托科迅主页强大的数据库功能，您的信息能被不同国家、不同地区的数以万计的用户检索到。
　　2.随时发布企业的供求和合作信息，让您无须投入即可轻松把握互联网时代的无限商机，坐等定单到来。
　　3.在科迅投放Banner广告，向科迅下广告订单。在人气旺盛的科迅主页做广告，是网站营销的一个好方法。
　　4.参与科迅论坛，就企业上网等专题发表您的高见。
　　5.在科迅聊天室与不能见面的商业伙伴或者同窗好友聊天，不失为一种享受。
 
建议使用IE5.0浏览器、分辨率800*600以上观看 　
科迅电子电器有限公司 版权所有
Copyright (C) 2002 Kesun All rights reserved