accountview.asp

来自「蓝芒3.0A最新所有功能完整破解版」· ASP 代码 · 共 143 行

<% ModuleCode="M1015" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
%>
<!--#include file="../../Include/connect.asp"-->
<%
UAID=Request.QueryString("ID")

strSQL="Select a.*,c.UserName from T_DNS_UserAccount a, T_DNS_UserInfo c where a.UserID=c.UserID "
strSQL=strSQL & " and a.UAID='" & UAID & "'"


Set Rs= Server.CreateObject("ADODB.Recordset")
Rs.open strSQL,Cn,1,1
If Rs.Eof Then
	Response.Write "<br><br><P align='center' class='titletext'>没有此款项记录！</p>"
else
%>
<table width="360" cellspacing="0" cellpadding="0" border="0" align="center">
  <tr>
    <td>
     <font color="<%=Opt_Font_TitleColor%>" class="titletext"><strong>款 项 内 容</strong></font>
    </td>
  </tr>
  <tr>
    <td>
      <table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="<%=Opt_Table_BGColor%>">
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center" width="15%">
            凭证编号
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>" width="85%">
            <%
        if Trim(Rs("UAVoucher"))="" then
        	Response.Write Rs("UAID")
        else
        	Response.Write Rs("UAVoucher")
        end if
        %>
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            用户
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <%=Rs("UserID")%>/<%=Rs("UserName")%>
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            操作
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <%
        if CCur(Rs("UAMoney"))>=0 then
        	Response.Write "入帐"
        else
        	Response.Write "支出"
        end if
        %>
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            发生金额
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <%=ABS(CCur(Rs("UAMoney")))%>
            元
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            时间
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <%=FormatDateTime(Rs("UATime"),vbShortDate)%>
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            方式/原因
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <%=Rs("Reason")%>
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            备注
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <%=Rs("OtherInfo")%>
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            状态
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
        <%
        if Rs("UAType")="4" then
        	Select Case Rs("UAStat")
        		Case "1"
        			Response.Write "发送"
        		Case "2"
        			Response.Write "成功"
        		Case "3"
        			Response.Write "失败"
        		Case "3"
        			Response.Write "无效"
        	End Select
        else
        	Select Case Rs("UAStat")
        		Case "1"
        			Response.Write "正常"
        		Case "2"
        			Response.Write "待审"
        		Case "3"
        			Response.Write "作废"
        	End Select
        end if
        %>
          </td>
        </tr>
        <tr height="26">
          <td bgcolor="<%=Opt_TD_BGColor2%>" colspan="2" align="center">
            <input type="button" class="button" value=" 返回 " onclick="javascript:history.go(-1)">
          </td>
        </tr>
        </form>
      </table>
    </td>
  </tr>
</table>
<%
end if
Rs.Close
Cn.Close
Call PrintPageBottom
%>