<%@ Language=VBScript %>
<%If session("admau")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
elseIf session("canmoneyNew")="" Then
	ef=True
	ec="您没有此操作的权限。"
ElseIf Request("id")<>"" and not IsNumeric(Request("id")) Then
	ef=True
	ec="编号必须是数字"
end if
if not ef then
Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
	Set dsmoney = Server.CreateObject("ADODB.Recordset")	
	Sql="Select * from FreeHost.FreeHost_moneylog where id='"&Request("id")&"'"
	dsmoney.Open Sql,conn,1,1
%>
<!--#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="462" align="center" vAlign=top background="contopa.gif" bgcolor="#FFFFFF"><table width="95%" border=0 cellpadding=4 cellspacing=1 bgcolor="#CCCCCC">
        <tbody>
          <tr bgcolor="#FFFFFF">
            <td width="20%" align="right">编号：</td>
            <td width="80%" align="left"><%=dsmoney("id")%></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td align="right">时间：</td>
            <td width="80%" align="left"><%=dsmoney("attime")%></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td align="right">金额：</td>
            <td align="left"><%if dsmoney("isadd")="y" then%>
        增加
          <%else%>
        扣除
        <%end if%>
        <%=replace(formatCurrency(dsmoney("usermoney"),2,-1),".00","")%> 元</td>
          </tr>
          <%if dsmoney("norusername")<>"" then%>
          <tr bgcolor="#FFFFFF">
            <td align="right">用户名：</td>
            <td align="left"><a href="searchuser.asp?username=<%=dsmoney("norusername")%>" target="iframeFreeHost"><font color="black"><%=dsmoney("norusername")%></font></a></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td align="right">操作前余额：</td>
            <td align="left"><%=dsmoney("norStmoney")%> 元</td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td align="right">操作后余额：</td>
            <td align="left"><%=dsmoney("norEndmoney")%> 元</td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td align="right">公开原因：</td>
            <td align="left"><%=dsmoney("forwhat")%></td>
          </tr>
          <%end if%>
          <%if dsmoney("agnusername")<>"" then%>
          <tr bgcolor="#FFFFFF">
            <td align="right">代理名：</td>
            <td align="left"><a href="searchagent.asp?username=<%=dsmoney("agnusername")%>" target="iframeFreeHost"><font color="black"><%=dsmoney("agnusername")%></font></a></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td align="right">操作前余额：</td>
            <td align="left"><%=dsmoney("agnStmoney")%> 元</td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td align="right">操作后余额：</td>
            <td align="left"><%=dsmoney("agnEndmoney")%> 元</td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td align="right">公开原因：</td>
            <td align="left"><%=dsmoney("forwhat")%></td>
          </tr>
          <%end if%>
          <%if dsmoney("supusername")<>"" then%>
          <tr bgcolor="#FFFFFF">
            <td align="right">管理员：</td>
            <td align="left"><%=dsmoney("supusername")%> </td>
          </tr>
          <%end if%>
          <tr bgcolor="#FFFFFF">
            <td align="right">内部原因：</td>
            <td align="left"><%=dsmoney("corewhat")%></td>
          </tr>
          <%if dsmoney("bank")<>"" then%>
          <tr bgcolor="#FFFFFF">
            <td align="right">相关银行：</td>
            <td align="left"><%=dsmoney("bank")%></td>
          </tr>
          <%end if%>
          <tr bgcolor="#FFFFFF">
            <td align="right">操作区/人：</td>
            <td align="left"><%=dsmoney("atspace")%>　
                <%if dsmoney("atspace")<>"管理区" then%>
                <a href="search<%if dsmoney("atspace")="代理区" then%>agent<%else%>user<%end if%>.asp?username=<%=dsmoney("agnusername")%>" target="iframeFreeHost"><font color="black"><%=dsmoney("opusername")%></font></a>
                <%else%>
                <%=dsmoney("opusername")%>
                <%end if%>
                <%if dsmoney("ishand")="y" then%>
                　 手工
              <%end if%></td>
          </tr>
          <%if dsmoney("isAgnHostSer")=true then%>
          <tr bgcolor="#FFFFFF">
            <td align="right">独立模式：</td>
            <td align="left"><font color=red>是</font></td>
          </tr>
          <%end if%>
          <%if dsmoney("AgnRunasUser")=true then%>
          <tr bgcolor="#FFFFFF">
            <td align="right">代理在用户区：</td>
            <td align="left">以成本价格消费</td>
          </tr>
          <%end if%>
          <tr bgcolor="#FFFFFF">
            <td align="right">分类：</td>
            <td align="left"><%=dsmoney("type1")%></td>
          </tr>
          <%if dsmoney("type1")="入款" or dsmoney("forwhat")="网上支付" then%>
          <tr bgcolor="#FFFFFF">
            <td align="right">到帐：</td>
            <td align="left"><a href="moneyallop.asp?id=<%=dsmoney("id")%>&op=get"><font color="<%if dsmoney("haveget")="否" then%>red<%else%>#000000<%end if%>"><%=dsmoney("haveget")%></font></a></td>
          </tr>
          <%end if%>
          <tr bgcolor="#FFFFFF">
            <td align="right">是否审核：</td>
            <td align="left"><a href="moneyallop.asp?id=<%=dsmoney("id")%>&op=check"><font color="<%if dsmoney("havecheck")="否" then%>red<%else%>#000000<%end if%>"><%=dsmoney("havecheck")%></font></a></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td align="right">操作发生IP：</td>
            <td align="left"><%=dsmoney("ip")%> </td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td align="right">计入提成业员人员：</td>
            <td align="left"><a href="admkefu.asp?kefu=<%=dsmoney("kefu")%>"><%=dsmoney("kefu")%> </a> </td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td align="right">产品分类：</td>
            <td align="left"><%=dsmoney("whichProduct")%></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td align="right">产品类型：</td>
            <td align="left"><%=dsmoney("pdtype")%></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td align="right">相关产品编号：</td>
            <td align="left"><%if dsmoney("pdid")>0 then%>
                <a href="<%if dsmoney("whichProduct")="虚拟主机" then%>handhost1<%elseif dsmoney("whichProduct")="邮箱产品" then%>handemail1<%elseif dsmoney("whichProduct")="IDC产品" then%>handidc1<%elseif dsmoney("whichProduct")="数据库产品" then%>handsql1<%elseif dsmoney("whichProduct")="域名产品" then%>listmydomain<%elseif dsmoney("whichProduct")="其他产品" then%>handother<%elseif dsmoney("whichProduct")="个人主页" then%>a_handhost1<%elseif dsmoney("whichProduct")="发票申请" then%>fapiao<%elseif dsmoney("whichProduct")="万网主机产品" then%>netcnhost1<%end if%>.asp?id=<%=dsmoney("pdid")%>"><font color=black><%=dsmoney("pdid")%></font></a>
              <%end if%></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td align="right">产品开通时间：</td>
            <td align="left"><%=dsmoney("pdsttime")%>　如果是延期/升级操作，这儿代表延期/升级前到期时间</td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td align="right">产品到期时间：</td>
            <td align="left"><%=dsmoney("pdendtime")%></td>
          </tr>
          <%if not isnull(dsmoney("isdel")) then%>
          <tr bgcolor="#FFFFFF">
            <td align="right">状态：</td>
            <td align="left"><font color=red>已删除的财务记录。</font></td>
          </tr>
          <%end if%>
          <%if dsmoney("isfortest")=true then%>
          <tr bgcolor="#FFFFFF">
            <td align="right">状态：</td>
            <td align="left"><font color=red>试用开通。</font></td>
          </tr>
          <%end if%>
        </tbody>
      </table>
	  
	  <iframe name="iframeFreeHost" width="0" height="0" scrolling="no" id="iframeFreeHost" frameborder="0"></iframe>
<table width="98%"  border="0" cellspacing="0" cellpadding="0" id="table0"  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 width="649" align="left" valign="top"><font color="#FFFFFF"><strong>执行结果</strong></font></td>
          <td width="19" align="right"><a href="#"  onClick="table0.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><table width="100%"  border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="10" colspan="3"></td>
        </tr>
        <tr>
          <td width="25" height="50">&nbsp;</td>
          <td height="50" align="left" id=outconM>正在提交数据中.........</td>
          <td width="10" height="50">&nbsp;</td>
        </tr>
        <tr>
          <td colspan="3">&nbsp;</td>
        </tr>
    </table></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")%>
<%end if
if ef then
Response.Redirect "e.asp?e="&ec
end if%>
