<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunctionMain.asp"-->
<%
If session("username")="" or RegExpTest("[^A-Za-z0-9]",session("username")) Then
	ef=True
	ec="用户名没填或非法！"
If session("HOSTAUID")<>"" Then ec="主机面板中不能操作用户区的内容，请您先登陆用户区。"
If session("EmailAUID")<>"" Then ec="邮箱面板中不能操作用户区的内容，请您先登陆用户区。"
If session("SQLAUID")<>"" Then ec="数据库面板中不能操作用户区的内容，请您先登陆用户区。"
elseIf session("password")="" Then
	ef=True
	ec="密码没填！"
End if


'验证会员资格
If not ef then
Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
  Set dsreg = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_USER where username='"&session("username")&"'"
		if Instr(1,sql, ";", 1)>0 or Instr(1,sql, "--", 1)>0 then
Response.Write "非法字符！"
Response.End
end if
		dsreg.Open Sql,conn,1,1
If dsreg.Eof Then
		ef=True
		ec="会员名不存在！"
end if
end if

if not ef then
if session ("password")<>dsreg("password") then
		ef=True
		ec="密码不正确！"
end if
end if

if not ef then
%>
<!--#include virtual="/inc-freehost-function/htmlwrite.asp"--><%=htmlwrite("html2")%>
　用户修改资料
<%=htmlwrite("html3")%>
<form name="form1" method="post" action="modify3.asp">
<table width="100%"  border="0" cellspacing="1" bgcolor="#CCCCCC">
    <tr>
      <td width="9%" height="30" rowspan="2" bgcolor="#FFFFFF">
	  
	  
	  
	<table width="100%"  border="0" cellpadding="0" cellspacing="1" bgcolor="#E6F4F9">
    <tr>
                    <td width="34%" height="31" bgcolor="#F5F5F5"><font color="#000000">　　　用户名：</font></td>
                    <td colspan="3" bgcolor="#FAFAF5">　　<%=dsreg("username")%>
                      <input name="username" type="hidden" value="<%=dsreg("username")%>">
            <input name="password" type="hidden" id="password" value="<%=session ("password")%>"></td>
    </tr>
                  <tr>
                    <td height="28" bgcolor="#F5F5F5"><font color="#000000">　　　重设新密码：</font></td>
                    <td width="26%" bgcolor="#FAFAF5">　
                    <input name="newpassword" type="password" id="newpassword" size="14" maxlength="50"></td>
                    <td width="16%" bgcolor="#FAFAF5">重复新密码<font color="#000000">：</font></td>
                    <td width="24%" bgcolor="#FAFAF5">　
                    <input name="renewpassword" type="password" id="renewpassword" size="14" maxlength="50"></td>
    </tr>
                  <tr>
                    <td height="26" bgcolor="#F5F5F5"><font color="#000000">　　　Email：</font></td>
                    <td colspan="3" bgcolor="#FAFAF5">　
                    <input name="email" type="text" id="email" value="<%=dsreg("email")%>"></td>
    </tr>
                  <tr>
                    <td height="28" bgcolor="#F5F5F5"><font color="#000000">　　　姓名(或企业名称)：</font></td>
                    <td colspan="3" bgcolor="#FAFAF5"><strong>
                      　
                      <input name="truename" type="text" id="truename" value="<%=dsreg("truename")%>">
                    </strong> </td>
    </tr>
<%
if session("agentname")="n" then
Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
	Set dskefu = Server.CreateObject("ADODB.Recordset")	
	Sql="Select * from FreeHost.FreeHost_KeFu order by id desc"
	dskefu.Open Sql,conn,1,1
if not dskefu.Eof then
%>	
                  <tr>
                    <td height="28" bgcolor="#F5F5F5"><font color="#000000">　　　所属业务专员：</font></td>
                    <td colspan="3" bgcolor="#FAFAF5">
                      　
                      <%=dsreg("kefunow")%>　　<%if isnull(dsreg("kefuto")) then%>如果不满意当前的客服人员可以更换：</strong> <select name="kefunow">
                <option selected>请选择: </option>
<%while not dskefu.eof%>				
                <option value="<%=dskefu("kefu")%>" <%if request("id")=cstr(dskefu("id")) then%>selected<%end if%>><%=dskefu("kefu")%></option>
<%
dskefu.movenext
wend%>
              </select>更换原因：<input name="changekefufor" type="text" size="25">(25个汉字内)<%else%>
              <font color="#FF0000">已要求更换为<%=dsreg("kefuto")%></font>
              <%end if%></td>
    </tr>
<%end if
end if
%>	
                  <tr>
                    <td height="27" bgcolor="#F5F5F5"><font color="#000000">　　　国家：</font></td>
                    <td colspan="3" bgcolor="#FAFAF5">　
                    <input name="coun" type="text" id="coun" value="<%=dsreg("coun")%>" size="10">　</td>
    </tr>
                  <tr>
                    <td height="28" bgcolor="#F5F5F5"><font color="#000000">　　　省份：</font></td>
                    <td colspan="3" bgcolor="#FAFAF5">
					
					
					 <%prv=dsreg("prv")
if Request("prv")<>"" then prv=Request("prv")%>　
                     <select name="prv">
                <option value="" <%if prv="" then%>selected<%end if%>>请选择: </option>
                <option value="北京" <%if prv="北京" then%>selected<%end if%>>北京</option>
                <option value="广东" <%if prv="广东" then%>selected<%end if%>>广东</option>
                <option value="上海" <%if prv="上海" then%>selected<%end if%>>上海</option>
                <option value="广西" <%if prv="广西" then%>selected<%end if%>>广西</option>
                <option value="天津" <%if prv="天津" then%>selected<%end if%>>天津</option>
                <option value="重庆" <%if prv="重庆" then%>selected<%end if%>>重庆</option>
                <option value="河北" <%if prv="河北" then%>selected<%end if%>>河北</option>
                <option value="河南" <%if prv="河南" then%>selected<%end if%>>河南</option>
                <option value="黑龙江" <%if prv="黑龙江" then%>selected<%end if%>>黑龙江</option>
                <option value="吉林" <%if prv="吉林" then%>selected<%end if%>>吉林</option>
                <option value="辽宁" <%if prv="辽宁" then%>selected<%end if%>>辽宁</option>
                <option value="内蒙古" <%if prv="内蒙古" then%>selected<%end if%>>内蒙古</option>
                <option value="海南" <%if prv="海南" then%>selected<%end if%>>海南</option>
                <option value="山西" <%if prv="山西" then%>selected<%end if%>>山西</option>
                <option value="陕西" <%if prv="陕西" then%>selected<%end if%>>陕西</option>
                <option value="山东" <%if prv="山东" then%>selected<%end if%>>山东</option>
                <option value="江苏" <%if prv="江苏" then%>selected<%end if%>>江苏</option>
                <option value="浙江" <%if prv="浙江" then%>selected<%end if%>>浙江</option>
                <option value="安徽" <%if prv="安徽" then%>selected<%end if%>>安徽</option>
                <option value="江西" <%if prv="江西" then%>selected<%end if%>>江西</option>
                <option value="福建" <%if prv="福建" then%>selected<%end if%>>福建</option>
                <option value="甘肃" <%if prv="甘肃" then%>selected<%end if%>>甘肃</option>
                <option value="宁夏" <%if prv="宁夏" then%>selected<%end if%>>宁夏</option>
                <option value="青海" <%if prv="青海" then%>selected<%end if%>>青海</option>
                <option value="新疆" <%if prv="新疆" then%>selected<%end if%>>新疆</option>
                <option value="湖北" <%if prv="湖北" then%>selected<%end if%>>湖北</option>
                <option value="湖南" <%if prv="湖南" then%>selected<%end if%>>湖南</option>
                <option value="四川" <%if prv="四川" then%>selected<%end if%>>四川</option>
                <option value="贵州" <%if prv="贵州" then%>selected<%end if%>>贵州</option>
                <option value="云南" <%if prv="云南" then%>selected<%end if%>>云南</option>
                <option value="西藏" <%if prv="西藏" then%>selected<%end if%>>西藏</option>
                <option value="香港" <%if prv="香港" then%>selected<%end if%>>香港</option>
                <option value="澳门" <%if prv="澳门" then%>selected<%end if%>>澳门</option>
                <option value="台湾" <%if prv="台湾" then%>selected<%end if%>>台湾</option>
                <option value="其它" <%if prv="其它" then%>selected<%end if%>>其它</option>
              </select>
			  </td>
                  </tr>
                  <tr>
                    <td height="25" bgcolor="#F5F5F5"><font color="#000000">　　　城市：</font></td>
                    <td colspan="3" bgcolor="#FAFAF5">　
                    <input name="city" type="text" id="city" value="<%=dsreg("city")%>" size="10"></td>
    </tr>
                  <tr>
                    <td height="30" bgcolor="#F5F5F5"><font color="#000000">　　　地址：</font></td>
                    <td colspan="3" bgcolor="#FAFAF5">　
                      <input name="address" type="text" id="address" value="<%=dsreg("address")%>" size="40" maxlength="50"></td>
    </tr>
	
 <tr>
                    <td height="30" bgcolor="#F5F5F5"><font color="#000000">　　　联系人：</font></td>
                    <td colspan="3" bgcolor="#FAFAF5">　
                      <input name="contact" type="text" id="contact" value="<%=dsreg("contact")%>" size="20" maxlength="20"></td>
    </tr>	
                  <tr>
                    <td height="31" bgcolor="#F5F5F5"><font color="#000000">　　　邮政编码： </font></td>
                    <td colspan="3" bgcolor="#FAFAF5">　
                    <input name="postid" type="text" id="postid" value="<%=dsreg("postid")%>" size="10" maxlength="10"></td>
    </tr>
                  <tr>
                    <td height="31" bgcolor="#F5F5F5"><font color="#000000">　　　身份证号码(或营业执照)： </font></td>
                    <td colspan="3" bgcolor="#FAFAF5">　
                    <input name="perid" type="text" id="postid" value="<%=dsreg("perid")%>" size="18" maxlength="40" <%if dsreg("perid")<>"" and session("FormUser")<>"freehost" then%>disabled<%end if%>></td>
                  </tr>
	                  <tr>
                    <td height="31" bgcolor="#F5F5F5"><font color="#000000">　　　联系电话：</font></td>
                    <td colspan="3" bgcolor="#FAFAF5">　
                      <input name="tel" type="text" id="tel" value="<%=dsreg("tel")%>" size="20" maxlength="50"></td>
    </tr>
	<tr>
                    <td height="31" bgcolor="#F5F5F5"><font color="#000000">　　　联系手机：</font></td>
                    <td colspan="3" bgcolor="#FAFAF5">　
                      <input name="mobi" type="text" id="mobi" value="<%=dsreg("mobi")%>" size="20" maxlength="50"></td>
    </tr>
                  <tr>
                    <td height="34" bgcolor="#F5F5F5"><font color="#000000"> 　　　传　　真：</font></td>
                    <td bgcolor="#FAFAF5">　
                    <input name="fax" type="text" id="fax" value="<%=dsreg("fax")%>" size="20" maxlength="50">  </td>
                    <td bgcolor="#FAFAF5"> QQ<font color="#000000">：</font> 　</td>
                    <td bgcolor="#FAFAF5">　
                    <input name="qq" type="text" id="qq" value="<%=dsreg("qq")%>" size="20" maxlength="50"></td>
    </tr>
<%if session("FormUser")="freehost" then%><tr>
                    <td height="31" bgcolor="#F5F5F5"><font color="#000000">　　　内部备注：</font></td>
            <td colspan="3" bgcolor="#FAFAF5">　
            <input name="coreinfo" type="text" id="tel" value="<%=dsreg("coreinfo")%>" size="20" maxlength="50"></td>
    </tr>
	<%end if%>
                  <tr bgcolor="#FFFFFF">
                    <td height="34">　　　
                    <input type="submit" name="Submit" value="提交"></td>
                    <td colspan="3">&nbsp;</td>
                  </tr>
        </table>  
	  
	  
	  
	  
	  
	  </td>
    </tr>
  </table>

</form>
<%=htmlwrite("html4")%>
<%
dsreg.close
conn.Close
set conn=nothing
end if

if ef then
Response.Redirect "e.asp?e="&ec
end if%>
