<!--#include file="Common/inc_usercheck.asp"-->
<!--#include file="Common/Inc_DatConn.asp"-->
<!--#include file="Common/Inc_Function.asp"-->
<%
Dim intClsId,MemberKey
MemberKey =Session("intMemberKey")
	set rdsMemberss1 = Server.CreateObject("ADODB.Recordset")
	sqlMemberss1 = "Select * From Dat_Member Where MemberKey = "& MemberKey
	rdsMemberss1.Open sqlMemberss1,Conn
	Name = rdsMemberss1("RealName")
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>用户中心 - <% =strSiteName%></title>
<meta name="Keywords" content="重庆信息网" />
<meta name="Description" content="重庆信息网" />
<link href="imger/css.css" type="text/css" rel="stylesheet">
<style type="text/css">
<!--
.STYLE11 {
	color: #FF0000;
	font-size: 14px;
}
.STYLE12 {font-size: 14px}
-->
</style>
<SCRIPT language=JavaScript src="common/inc_DateSelect.htm" type=text/JavaScript></SCRIPT>
<script language="javascript">
<!--
function IsDigit(){
  return ((event.keyCode >= 48) && (event.keyCode <= 57));
}
// -->
</script>
</head>
<body>
<!--#include file="head.asp"-->
<table width="778" border="0" align="center" cellpadding="0" cellspacing="10" bgcolor="f2f2f2">
  <tr>
    <td width="26%" valign="top"><table width="100%" border="0" cellpadding="9" cellspacing="1" bgcolor="#e6e6e6">
        <tr>
          <td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td><img src="imger/user.gif" width="172" height="37"></td>
            </tr>
            <tr>
              <td><table border="0" width="100%" cellspacing="0" cellpadding="0">
			  <tr>
			    <td width="100%" height="23" class="F16"><span class="STYLE11">·</span><a href="add.asp"><span class="STYLE2">信息发布</span></a></td>
			  </tr><tr>
						  <td width="100%" height="1" colspan="2" background="images/dotline.gif"></td>
						</tr>
			  <tr>
			    <td height="23" class="F16"><span class="STYLE11">·</span><a href="me.asp"><span class="STYLE2">信息管理</span></a></td>
			    </tr><tr>
						  <td width="100%" height="1" colspan="2" background="images/dotline.gif"></td>
						</tr>
			  <tr>
			    <td height="23" class="F16"><span class="STYLE11">·</span><a href="edit_user.asp"><span class="STYLE2">资料维护</span></a></td>
			    </tr><tr>
						  <td width="100%" height="1" colspan="2" background="images/dotline.gif"></td>
						</tr>
						<tr>
			    <td height="23" class="F16"><span class="STYLE11">·</span><a href="Feedback.asp"><span class="STYLE2">留言反馈</span></a></td>
			    </tr><tr>
						  <td width="100%" height="1" colspan="2" background="images/dotline.gif"></td>
						</tr>
						<tr>
			    <td height="23" class="F16"><span class="STYLE11">·</span><a href="sjgj.asp"><span class="STYLE2">会员升级</span></a></td>
			    </tr><tr>
						  <td width="100%" height="1" colspan="2" background="images/dotline.gif"></td>
						</tr>
						<tr>
			    <td height="23" class="F16"><span class="STYLE11">·</span><a href="logout.asp"><span class="STYLE2">安全退出</span></a></td>
			    </tr><tr>
						  <td width="100%" height="1" colspan="2" background="images/dotline.gif"></td>
						</tr>
                  </table></td>
            </tr>
          </table></td>
        </tr>
      </table>
    </td>
    <td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#e6e6e6">
      <tr>
        <td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="10" cellpadding="0">
          <tr>
            <td height="24" background="imger/09.gif"><span class="STYLE6">≡</span> <span class="STYLE2"><b>您的位置：</b></span><span class="STYLE4">首页 &gt;&gt; 会员中心</span></td>
          </tr>
          <tr>
            <td height="24" align="center" background="imger/09.gif">&nbsp;</td>
          </tr>
          <tr>
            <td class="STYLE4" style="line-height: 180%">
<script language="javascript"> 
			//检查email的合法性
			function checkemail(inputstr){
				if(inputstr.indexOf('@') != -1 && inputstr.indexOf('.')!= -1)
					return true;
				else 
			   		return false;	
			}
			//检验表单的合法性
			function FeedBack() {
				<%if strhylx=1 then%>
				if (document.edituser.RealName.value == "") {
					alert("\请正确填写您的真实姓名！");
					document.edituser.RealName.focus();
					return false;
				}
				<%end if%>
				if (document.edituser.Password.value == "") {
					alert("\密码不能为空！");
					document.edituser.Password.focus();
					return false;
				}
				if ((document.edituser.Password.value).length<4) {
					alert("\密码至少4位！");
					document.edituser.Password.focus();
					return false;
				}
				if (document.edituser.PasswordTwo.value != document.edituser.Password.value ) {
					alert("\两次输入密码不相同！");
					document.edituser.PasswordTwo.focus();
					return false;
				}
				if (document.edituser.Tel.value == "") {
					alert("\请正确填写您的联系电话！");
					document.edituser.Tel.focus();
					return false;
				}
				if (document.edituser.ContactMan.value == "") {
					alert("\请正确填写您的联系人！");
					document.edituser.ContactMan.focus();
					return false;
				}
				if (document.edituser.Email.value == "") {
					alert("\E-Mail 不能为空！");
					document.edituser.Email.focus();
					return false;
				}
				if (document.edituser.Email.value == "" || !checkemail(document.edituser.Email.value)) {
					alert("\请正确填写您的E-Mail！");
					document.edituser.Email.focus();
					return false;
				}
				if (document.edituser.Add.value == "") {
					alert("\请正确填写您的联系地址！");
					document.edituser.Add.focus();
					return false;
				}
			    return true;
			}
			</script>
<body topmargin="3" leftmargin="0">
			<%
			Dim inff
			Dim rsd
			Dim sql

			inff=Session("intMemberKey")
			
			set rsd = Server.CreateObject("ADODB.Recordset")
						sql = "Select * From Dat_Member Where MemberKey = "&inff
						rsd.Open sql,Conn,1,1
						if not rsd.EOF then
						strhylx=rsd("MemberType")
						if strhylx=0 then
						Response.write("<script>alert(""请先完善资料"");location.href=""lx.asp?id="&inff&""";</script>")
Response.end
end if%><table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#CCCCCC" width="96%" height="64">
    <form action="save_user.asp" name="edituser" method="POST" OnSubmit="return FeedBack()">
      <input type="hidden" name="id" value="<%=inff%>">
      <tr>
      <td width="95" height="25" align="right">
      帐&nbsp;&nbsp;&nbsp; 
                号：</td>
      <td width="294" height="25" align="left">
						<input type="text" name="Member" size="20" maxlength="20" value="<% = rsd("Member")%>" readonly="ture"></td>
    </tr><%If is_gqot_user=1 then%><tr>
      <td width="95" height="25" align="right">
      修改密码：</td>
      <td width="294" height="25" align="left">
      <a target="_blank" href="<%=ot_modIfypass1%>">我要修改密码</a></td>
    </tr><%else%><tr>
      <td width="95" height="25" align="right">
      密&nbsp;&nbsp;&nbsp; 
                码：</td>
      <td width="294" height="25" align="left">
      <input type="password" name="Password" value="<% = rsd("Password")%>">&nbsp;<font color="#FF0000">**</font>&nbsp;[至少4位]</td>
    </tr>
    <tr>
      <td width="95" height="25" align="right" valign="middle">
      密码确认：</td>
      <td width="294" height="25" align="left">
      <input type="password" name="PasswordTwo" value="<% = rsd("Password")%>">&nbsp;<font color="#FF0000">**</font></td>
    </tr><%end if%>
    <tr>
      <td width="95" height="13" align="right">
      单位/网店名称：</td>
      <td width="294" height="13" align="left">
      <input type="text" name="CompanyName" size="40" maxlength="100" value="<% = rsd("CompanyName")%>">&nbsp;<font color="#FF0000">**</font></td>
    </tr>
<%if strhylx=1 then%>
    <tr>
      <td width="95" height="25" align="right">
      会员类型：</td>
      
      <td width="294" height="25" align="left">&nbsp;<font color="#FF0000">个人会员</font>
						　</td><tr>
      <td width="95" height="25" align="right">
      真实姓名：</td>
      <td width="294" height="25" align="left">
      <input type="text" name="RealName" size="20" maxlength="20" value="<% = rsd("RealName")%>"></td>
    </tr><%else%><tr>
      <td width="95" height="25" align="right">
      会员类型：</td>
      
      <td width="294" height="25" align="left">&nbsp;<font color="#FF0000">企业会员</font>
						　</td><tr>
      <td width="95" height="12" align="right">
      		选择模板：</td>
<td width="294" height="25" align="left">
<input type="radio" value="1" name="mb" <%if rsd("mb")="1" then Response.write("checked")%>>网店型&nbsp;&nbsp;&nbsp;
				<input type="radio" value="2" name="mb"  <%if rsd("mb")="2" then Response.write("checked")%>>名片型</td>
    </tr><tr>
      <td width="95" height="12" align="right">
      所属分类：</td>
<td width="294" height="25" align="left"><%
		set rsb=server.createobject("adodb.recordset")
        sqlb = "select * from hyBigClass order by sj desc"
        rsb.open sqlb,conn,1,1
		if rsb.eof and rsb.bof then
			response.write "请先添加栏目。"
		else
		%><select name="BigClassName" onChange="changelocation(document.edituser.BigClassName.options[document.edituser.BigClassName.selectedIndex].value)" size="1">
      <%
		    do while not rsb.eof
		    dim selclass
		    selclass=cstr(rsb("id"))
			%>
                      <option <%if rsd("dl") =selclass then Response.Write "selected" end if%> value="<%=trim(rsb("id"))%>"><%=trim(rsb("BigClassName"))%></option>
                      <%
		        rsb.movenext
    	    loop
		end if
        rsb.close
			%>
                    </select> <select name="SmallClassName">
                      <option value="" selected>不指定小类</option>
                      <%
           set rsss=server.createobject("adodb.recordset")
			sqlss="select * from hySmallClass where dl='"&rsd("dl")&"' order by sj desc"
			rsss.open sqlss,conn,1,1
			if not(rsss.eof and rsss.bof) then
				do while not rsss.eof
				xlid=rsss("id")
				%>
                      <option <%if rsd("xl") =cstr(xlid) then Response.Write "selected" end if%> value="<%=rsss("id")%>"><%=rsss("SmallClassName")%></option>
                      <%
			    	rsss.movenext
				loop
			end if
	        rsss.close
			%>
</td>
    </tr><tr>
      <td width="95" height="25" align="right">
      单位性质：</td>
      <td width="294" height="25" align="left">
      <font color="#01297e"><select name="qyxz" class="face"><%strqyxz=rsd("qyxz")%>
      				<option value="民营" <%if strqyxz="民营" then Response.write("selected")%>>民营</option>
				<option value="国营" <%if strqyxz="国营" then Response.write("selected")%>>国营</option>
				<option value="集体" <%if strqyxz="集体" then Response.write("selected")%>>集体</option>
				<option value="乡镇" <%if strqyxz="乡镇" then Response.write("selected")%>>乡镇</option>
				<option value="股份制" <%if strqyxz="股份制" then Response.write("selected")%>>股份制</option>
				<option value="有限责任公司" <%if strqyxz="有限责任公司" then Response.write("selected")%>>有限责任公司</option>
				<option value="中外合资" <%if strqyxz="中外合资" then Response.write("selected")%>>中外合资</option>
				<option value="中外合作" <%if strqyxz="中外合作" then Response.write("selected")%>>中外合作</option>
				<option value="外商独资" <%if strqyxz="外商独资" then Response.write("selected")%>>外商独资</option>
				</select></font></td>
    </tr><tr>
      <td width="95" height="25" align="right">
      所在地区：</td>
      <td width="294" height="25" align="left">
						<select name="dq" size="1">
                          <option value="0" selected>地区</option>
<%
	  set mxdq=server.CreateObject("adodb.recordset")
	  	sqlmxdq = "Select * From mxdq order by sj desc"
 mxdq.Open sqlmxdq,Conn,1,1
	  if not( mxdq.bof and  mxdq.eof) then
		do while not  mxdq.eof
		dqm=mxdq("name")
	%>
                          <option <%if rsd("dq") =dqm then Response.Write "selected"%>  value="<%=dqm%>"><%=dqm%></option>
<%
mxdq.movenext
loop
end if
mxdq.close
set mxdq=nothing
%>
</select></td>
    </tr><tr>
      <td width="95" height="25" align="right">
      		成立日期：</td>
      <td width="294" height="25" align="left">
      <input type="text" name="clrq" size="15" value="<% = rsd("clrq")%>" onfocus=setday(this) readonly></td>
    </tr><tr>
      <td width="95" height="25" align="right">
      注册资金：</td>
      <td width="294" height="25" align="left">
      <input type="text" name="zczj" size="11" value="<% = rsd("zczj")%>"> 万元</td>
    </tr><tr>
      <td width="95" height="25" align="right">
      		经营类型：</td>
      <td width="294" height="25" align="left"><%strjylx=rsd("jylx")%>
      <input type="checkbox"  value="生产型" name="jylx" <%if InStr(strjylx,"生产型")>0 then Response.write("CHECKED")%>>生产型<input type="checkbox" value="贸易型" name="jylx"  <%if InStr(strjylx,"生产型")>0 then Response.write("CHECKED")%>>贸易型<input type="checkbox" value="服务型" name="jylx"  <%if InStr(strjylx,"服务型")>0 then Response.write("CHECKED")%>>服务型<input type="checkbox" value="政府|机构及其它" name="jylx"  <%if InStr(strjylx,"政府|机构及其它")>0 then Response.write("CHECKED")%>>政府|机构及其它</td>
    </tr><%end if%>
    <tr>
      <td width="95" height="25" align="right">
      公 告 板：</td>
      <td width="294" height="25" align="left">
      <textarea rows="7" name="gg" cols="39"><%=bbHTMLDecode(rsd("gg"))%></textarea></td>
    </tr><tr>
      <td width="95" height="25" align="right">
      简&nbsp;&nbsp;&nbsp;&nbsp;介：</td>
      <td width="294" height="25" align="left">
      <textarea rows="7" name="js" cols="39"><%=bbHTMLDecode(rsd("js"))%></textarea></td>
    </tr>
    </tr>
    <tr>
      <td width="95" height="25" align="right">
      腾讯&nbsp;Q&nbsp;Q：</td>
      <td width="294" height="25" align="left">
      <input name="qq" type="text" size="20" value="<% = rsd("qq")%>" ONKEYPRESS="event.returnValue=IsDigit();"></td>
    </tr>
    <tr>
      <td width="95" height="25" align="right">
      联&nbsp;系&nbsp;人：</td>
      <td width="294" height="25" align="left">
      <input type="text" name="ContactMan" size="20" maxlength="20" value="<% = rsd("ContactMan")%>">&nbsp;<font color="#FF0000">**</font></td>
    </tr>
    <tr>
      <td width="95" height="25" align="right">
      电&nbsp;&nbsp;&nbsp; 
                话：</td>
      <td width="294" height="25" align="left">
      <input name="Tel" type="text" size="20" maxlength="15" value="<% = rsd("Tel")%>">&nbsp;<font color="#FF0000">**</font></td>
    </tr>
    <tr>
      <td width="95" height="25" align="right">
      传&nbsp;&nbsp;&nbsp; 
                真：</td>
      <td width="294" height="25" align="left">
      <input name="Fax" type="text" size="40" maxlength="15" value="<% = rsd("Fax")%>"></td>
    </tr>
    <tr>
      <td width="95" height="25" align="right">
      网&nbsp;&nbsp;&nbsp; 
                址：</td>
      <td width="294" height="25" align="left">
      <input type="text" name="Homepage" size="40" maxlength="200" value="<% = rsd("Homepage")%>"></td>
    </tr>
    <tr>
      <td width="95" height="25" align="right">
      电子邮件：</td>
      <td width="294" height="25" align="left">
      <input type="text" name="Email" size="20" value="<% = rsd("Email")%>">&nbsp;<font color="#FF0000">**</font></td>
    </tr>
    <tr>
      <td width="95" height="25" align="right">
      联系地址：</td>
      <td width="294" height="25" align="left">
      <input type="text" name="Add" size="20" maxlength="20" value="<% = rsd("Add")%>">&nbsp;<font color="#FF0000">**</font></td>
    </tr>
    <tr>
      <td width="95" height="25" align="right">
      邮政编码：</td>
      <td width="294" height="25" align="left">
      <input type="text" name="Postalcode" size="20" maxlength="20" value="<% = rsd("Postalcode")%>"></td>
    </tr>
    <tr>
      <td width="390" height="35" colspan="2">
      <p align="center"><input type="submit" value="提交修改" name="Submit" class="button">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type="reset" value="重新填写" name="Reset" class="Button">      　</td>
    </tr>
    </form>
  </table></td>
          </tr>
        </table><%else%><table width="379" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#CCCCCC">
					<tr>
						<td>
						<p align="center"><font color="#FF0000">
						对不起，您没有登录或超时或您的帐号被管理员锁定，请重新登录。</font></td>
					</tr>
				</table>
<%end if
			rsd.Close
set rsd = nothing%></td>
      </tr>
    </table>      </td>
  </tr>
</table>
<!--#include file="boot.asp"-->
</body>
</html>
