accountview.asp

蓝芒3.0A最新所有功能完整破解版

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

strSQL="Select a.UATime,a.UAMoney,a.UserID,a.UAVoucher,a.UAStat,a.OtherInfo,b.TypeName,c.UserName from T_DNS_UserAccount a, T_DNS_AccountType b,T_DNS_UserInfo c where a.UAType='1' and a.TypeCode=b.TypeCode and a.UserID=c.UserID "
strSQL=strSQL & " and a.UAVoucher='" & UAVoucher & "'"


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">
            凭证编号
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <%=Rs("UAVoucher")%>
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            用户ID号
          </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%>">
            <%=Rs("TypeName")%>
          </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("OtherInfo")%>
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            状态
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
        <%
        Select Case Rs("UAStat")
        	Case "1"
        		Response.Write "正常"
        	Case "2"
        		Response.Write "待审"
        	Case "3"
        		Response.Write "作废"
        End Select
        %>
          </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
%>