<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunctionMain.asp"-->
<%
If session("admau")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
elseIf session("canshowuser")="" Then
	ef=True
	ec="您没有此操作的权限。"
elseIf Request ("username")="" or RegExpTest("[^A-Za-z0-9]",Request ("username")) 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='"&Request ("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
%>
<!--#include virtual="/inc-freehost-function/htmlwrite.asp"--><%=htmlwrite("html8")%>
<%=htmlwrite("html9")%>
<TABLE width="100%" border=0 cellPadding=0 cellSpacing=0 background="img/midtop4.gif">
  <TBODY>
    <TR>
      <TD width=53 align="left" background="img/midtop1.gif" onClick="ShowDtable(1,6)"><strong> 　 </strong><font color="#FFFFFF">─<strong>&gt;</strong></font> </TD>
      <TD width="83"><table height="59"  border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td width="7" background="img/midtop.gif">&nbsp;</td>
            <td width="60" align="center" valign="middle" background="img/r3.jpg" style="FONT-WEIGHT: bolder; Cursor:hand"    id="tableTop1"><font color="#FFFFFF"> 资料修改</font><br></td>
            <td width="5" background="img/midtop2.gif">&nbsp;</td>
          </tr>
      </table></TD>
      <TD width="83">&nbsp;</TD>
      <TD width="83">&nbsp;</TD>
      <TD width="83" align="left">&nbsp;</TD>
      <TD width="83" align="left">&nbsp;</TD>
      <TD align="left">&nbsp;</TD>
      <TD width=23 align="right"><IMG height=59 
                  src="img/rtop4.jpg" 
                  width=19></TD>
    </TR>
  </TBODY>
</TABLE>
<TABLE width="100%" border=0 cellPadding=0 cellSpacing=0>
  <TBODY>
    <TR>
      <TD width=19 background="img/midlef.gif"  id=rightid>&nbsp;</TD>
      <TD height="400" align="left" vAlign=top background="contopa.gif" bgcolor="#FFFFFF"><form name="form1" method="post" action="usercheckid2.asp">
              <table width="100%"  border="0" cellpadding="0" cellspacing="1" bgcolor="#E6F4F9">
                <tr>
                  <td height="31" bgcolor="#F5F5F5"><font color="#000000">　　　类型：</font></td>
                  <td bgcolor="#FAFAF5">　　当前用户提交的注册信息
                  <%If Application("mustcheckid")=True Then%>
                  |　
                  　                  保存在实名表的注册信息(如果不一致才会显示)
                                    <%end if%></td>
                </tr>
                <tr>
                  <td width="200" height="31" bgcolor="#F5F5F5"><font color="#000000">　　　用户名：</font></td>
                  <td bgcolor="#FAFAF5">　　<%=dsreg("username")%>
                      <input name="username" type="hidden" value="<%=dsreg("username")%>">
                      <input name="password" type="hidden" id="password" value="<%=session ("password")%>">　
                      <%If Application("mustcheckid")=True Then%>
                      上次审核人：<%=dsreg("auadmR")%>　上次审核时间：<%=dsreg("lastauRtime")%>
                    <%end if%>                    </td>
                </tr>
                <tr>
                  <td width="200" height="26" bgcolor="#F5F5F5"><font color="#000000">　　　Email：</font></td>
                  <td bgcolor="#FAFAF5">　
                      <input name="email" type="text" id="email" value="<%=dsreg("email")%>">
                      <%If Application("mustcheckid")=True and dsreg("emailR")<>dsreg("email") Then%> <font color="#FF0000"><%=dsreg("emailR")%></font>
                      <%end if%></td>
                </tr>
                <tr>
                  <td width="200" height="28" bgcolor="#F5F5F5"><font color="#000000">　　　姓名(或企业名称)：</font></td>
                  <td bgcolor="#FAFAF5">　
                      <input name="truename" type="text" id="truename" value="<%=dsreg("truename")%>">
                        <%If Application("mustcheckid")=True and dsreg("truename")<>dsreg("truenameR") Then%>
                        <font color="#FF0000"><%=dsreg("truenameR")%></font>
                        <%end if%>
</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
%>
                <%end if
end if
%>

                <tr>
                  <td width="200" height="28" bgcolor="#F5F5F5"><font color="#000000">　　　省份：</font></td>
                  <td 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>
        <%If Application("mustcheckid")=True and dsreg("prvR")<>dsreg("prv") Then%>
        <font color="#FF0000"><%=dsreg("prvR")%></font>
        <%end if%>
                  </td>
                </tr>
                <tr>
                  <td width="200" height="25" bgcolor="#F5F5F5"><font color="#000000">　　　城市：</font></td>
                  <td bgcolor="#FAFAF5">　
                      <input name="city" type="text" id="city" value="<%=dsreg("city")%>" size="10">
                      <%If Application("mustcheckid")=True and dsreg("cityR")<>dsreg("city") Then%>
                      <font color="#FF0000"><%=dsreg("cityR")%></font>
                      <%end if%></td>
                </tr>
                <tr>
                  <td width="200" height="30" bgcolor="#F5F5F5"><font color="#000000">　　　地址：</font></td>
                  <td bgcolor="#FAFAF5">　
                      <input name="address" type="text" id="address" value="<%=dsreg("address")%>" size="40" maxlength="50">
                      <%If Application("mustcheckid")=True and dsreg("addressR")<>dsreg("address") Then%>
                      <font color="#FF0000"><%=dsreg("addressR")%></font>
                      <%end if%></td>
                </tr>
                <tr>
                  <td width="200" height="30" bgcolor="#F5F5F5"><font color="#000000">　　　联系人：</font></td>
                  <td bgcolor="#FAFAF5">　
                      <input name="contact" type="text" id="contact" value="<%=dsreg("contact")%>" size="20" maxlength="20">
                      <%If Application("mustcheckid")=True and dsreg("contactR")<>dsreg("contact") Then%>
                      <font color="#FF0000"><%=dsreg("contactR")%></font>
                      <%end if%></td>
                </tr>
                <tr>
                  <td width="200" height="31" bgcolor="#F5F5F5"><font color="#000000">　　　邮政编码： </font></td>
                  <td bgcolor="#FAFAF5">　
                      <input name="postid" type="text" id="postid" value="<%=dsreg("postid")%>" size="10" maxlength="10">
                      <%If Application("mustcheckid")=True and dsreg("postidR")<>dsreg("postid") Then%>
                      <font color="#FF0000"><%=dsreg("postidR")%></font>
                      <%end if%></td>
                </tr>
                <tr>
                  <td width="200" height="31" bgcolor="#F5F5F5"><font color="#000000">　　　身份证号码(或营业执照)： </font></td>
                  <td bgcolor="#FAFAF5">　
                      <input name="perid" type="text" id="postid" value="<%=dsreg("perid")%>" size="18" maxlength="18">
                      <%If Application("mustcheckid")=True and dsreg("peridR")<>dsreg("perid") Then%>
                      <font color="#FF0000"><%=dsreg("peridR")%></font>
                      <%end if%></td>
                </tr>
                <tr>
                  <td width="200" height="31" bgcolor="#F5F5F5"><font color="#000000">　　　联系电话：</font></td>
                  <td bgcolor="#FAFAF5">　
                      <input name="tel" type="text" id="tel" value="<%=dsreg("tel")%>" size="20" maxlength="50">
                      <%If Application("mustcheckid")=True and dsreg("telR")<>dsreg("tel") Then%>
                      <font color="#FF0000"><%=dsreg("telR")%></font>
                      <%end if%></td>
                </tr>
                <tr>
                  <td width="200" height="31" bgcolor="#F5F5F5"><font color="#000000">　　　联系手机：</font></td>
                  <td bgcolor="#FAFAF5">　
                      <input name="mobi" type="text" id="mobi" value="<%=dsreg("mobi")%>" size="20" maxlength="50">
                      <%If Application("mustcheckid")=True and dsreg("mobiR")<>dsreg("mobi") Then%>
                      <font color="#FF0000"><%=dsreg("mobiR")%></font>
                      <%end if%></td>
                </tr>
                <tr>
                  <td width="200" 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">                   <%If Application("mustcheckid")=True and dsreg("faxR")<>dsreg("fax") Then%>
                  <font color="#FF0000"><%=dsreg("faxR")%></font>
                  <%end if%>　                  </td>
                </tr>
                <tr>
                  <td height="31" bgcolor="#F5F5F5"><font color="#000000">　　　QQ：</font></td>
                  <td bgcolor="#FAFAF5">　
                      <input name="qq" type="text" id="qq" value="<%=dsreg("qq")%>" size="20" maxlength="50">
                      <%If Application("mustcheckid")=True and dsreg("qqR")<>dsreg("qq") Then%>
                      <font color="#FF0000"><%=dsreg("qqR")%></font>
                      <%end if%></td>
                </tr>
                <tr>
                  <td width="200" height="31" bgcolor="#F5F5F5"><font color="#000000">　　　内部备注：</font></td>
                  <td bgcolor="#FAFAF5">　
                      <input name="coreinfo" type="text" id="tel" value="<%=dsreg("coreinfo")%>" size="20" maxlength="50">
</td>
                </tr>
                <tr bgcolor="#F5F5F5">
                  <td height="34" colspan="3">　　　
                      <input type="submit" name="Submit" value="保存(当前提交的信息审批通过)">
                  </td>
                </tr>
              </table>
      </form>
      <table width="98%"  border="0" cellspacing="0" cellpadding="0" id="table3"style="display:none">
            <tr>
              <td width="10" height="23" background="img/contopa.gif">&nbsp;</td>
              <td height="23" align="left" valign="top" background="img/contopb.gif"><table width="100%"  border="0" cellpadding="0" cellspacing="0">
                  <tr>
                    <td height="8" colspan="3"></td>
                  </tr>
                  <tr>
                    <td width="25">&nbsp;</td>
                    <td align="left" valign="top"><font color="#FFFFFF"><strong>查询与统计</strong></font></td>
                    <td width="10"><a href="#"  onClick="table3.style.display='none';"><font color="#FFFFFF">X</font></a></td>
                  </tr>
              </table></td>
              <td width="10" height="23" background="img/contopc.gif">&nbsp;</td>
            </tr>
            <tr>
              <td background="img/conmid1.gif">&nbsp;</td>
              <td align="left"><form action="moneyalllist.asp" method="get" name="form1">
                  <input name="op" type="hidden" value="search">
                  <br>
                  <p>　选择类型：
                      <select name="selecttype" id="selecttype">
                        <option value="全部" selected>全部</option>
                        <option value="非手工操作">非手工操作</option>
                        <option value="手工操作">手工操作</option>
                        <option value="入款">入款</option>
                        <option value="退款">退款</option>
                        <option value="优惠虚增">优惠虚增</option>
                        <option value="所有实收记录">所有实收记录</option>
                        <option value="直接扣款">直接扣款</option>
                        <option value="消费扣款">消费扣款</option>
                      </select>
                      <br>
                      <br>
                  　用户名或代理名：
                  <input name="username" type="text" size="10">
                  或凭证：
                  <input name="pingzheng" type="text" id="pingzheng" size="10">
                  或关键词：
                  <input name="key" type="text" id="key" size="10">
                  <br>
                  　或开始时间：
                  <input name="starttime" type="text" id="starttime" size="19" maxlength="19">
                  (2005-2-11)结束：
                  <input name="endtime" type="text" id="endtime" size="19" maxlength="19">
                  <input type="submit" name="Submit" value="执行">
                  <br>
                  <br>
                  <br>
                  　<a href="moneyalllist.asp?op=all" target="_blank"><font color="#000000">所有财务记录</font></a>　<a href="moneyalllist.asp?op=notget" target="_blank"><font color="#000000">所有未到帐记录</font></a>　<a href="moneyalllist.asp?op=get" target="_blank"><font color="#000000">所有已到帐记录</font></a>　<a href="moneyalllist.asp?op=notcheck" target="_blank"><font color="#000000">所有未审核记录</font></a><br>
                  <br>
                  　<a href="moneycount.asp?type=add&d=0&dend=1" target="_blank"><font color="#000000">今天的资金变动统计(正)</font></a> <a href="moneycount.asp?type=dec&d=0&dend=1" target="_blank"><font color="#000000">(负)</font></a>　<a href="moneycount.asp?type=add&d=-1&dend=0" target="_blank"><font color="#000000">昨天的变动(正)</font></a> <a href="moneycount.asp?type=dec&d=-1&dend=0" target="_blank"><font color="#000000">(负)</font></a>　<a href="moneycount.asp?type=add&d=-30&dend=1" target="_blank"><font color="#000000">近三十天的变动(正)</font></a> <a href="moneycount.asp?type=dec&d=-30&dend=1" target="_blank"><font color="#000000">(负)</font></a><br>
                </form></td>
              <td width="10" background="img/conmid2.gif">&nbsp;</td>
            </tr>
            <tr>
              <td width="10" height="10"><img src="img/conend1.gif" width="10" height="10"></td>
              <td height="10" background="img/conend2.gif"></td>
              <td width="10" height="10"><img src="img/conend3.gif" width="10" height="10"></td>
            </tr>
      </table></TD>
      <TD width=18 background="img/midri.gif">&nbsp;</TD>
    </TR>
  </TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TBODY>
    <TR>
      <TD width=30><IMG height=19 
                  src="img/rb1.jpg" 
                  width=30></TD>
      <TD 
                background=img/rb2.jpg>&nbsp;</TD>
      <TD width=30><IMG height=19 
                  src="img/rb3.jpg" 
                  width=30></TD>
    </TR>
  </TBODY>
</TABLE>
<%=htmlwrite("html10")%>
<%
dsreg.close
conn.Close
set conn=nothing
end if

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