accounttype.asp

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

<% ModuleCode="M0210" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
%>
<!--#include file="../../Include/connect.asp"-->
<script Language="JavaScript">
<!--
function CheckAll()
{  
	//检查非空
	if (!CheckEmpty(form3.TypeCode, "类型代号"))			return false;
	if (!CheckInteger(form3.TypeCode, "类型代号"))			return false; 
	if (!CheckEmpty(form3.TypeName, "类型名称"))			return false;   
	//全部通过
	submitonce(form3);
	return true;
}
-->
</script>
<%
strSQL="Select * from T_DNS_AccountType"
Set Rs= Server.CreateObject("ADODB.Recordset")
Rs.open strSQL,Cn,1,1
If Rs.Eof Then
	Response.Write "目前还没有帐务类型记录！"
else

Rs.PageSize=Opt_PageSize
pages=Rs.pagecount
records=Rs.recordcount
currentpage=request("currentpage")
if currentpage="" or currentpage<1 then currentpage=1
currentpage=cint(currentpage)
if currentpage>pages then currentpage=pages
Rs.absolutepage=currentpage
%>
      
<table border="0" cellpadding="0" cellspacing="0" width="100%">
    <tbody>
      <tr>
        <td height="22" class="titletext"><font color="<%=Opt_Font_TitleColor%>"><strong>帐务类型管理</strong></font></td>
        <td align="right">共 <font color="red"><b><%=Records%></b></font> 个项目　页次: 
          <font color="red"><b><%=currentpage%></b></font> / <font color="red"><b><%=Pages%></b></font> 
          页
        </td>
      </tr>
    </tbody>
</table>
<!------------------------------------------------------------------------------------->
<table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="<%=Opt_Table_BGColor%>">
  <tr bgcolor="<%=Opt_TR_BGColor%>" height="24"> 
     <td>类型代号</td>
     <td>类型名称</td>
     <td>用户增减</td>
     <td>公司增减</td>
     <td width="70">操作</td>
  </tr>
<%
linenumber=Rs.pagesize
do while (not Rs.eof) and (line<linenumber)
     if line mod 2 =0 Then %>
     <tr bgcolor="<%=Opt_TD_BGColor1%>" height="20">
     <% else %>
     <tr bgcolor="<%=Opt_TD_BGColor2%>" height="20">
     <% end if %>
        <td><font color="<%=Opt_Font_IndexColor%>"><%=Rs("TypeCode")%></font></td>
        <td><%=Rs("TypeName")%></td>
        <td>
        <%
        Select Case Rs("UserAM")
        Case "2"
        	Response.Write "增加"
        Case "1"
        	Response.Write "持平"
        Case "0"
        	Response.Write "减少"
        End Select
        %></td>
        <td>
        <%
        Select Case Rs("CorpAM")
        Case "2"
        	Response.Write "增加"
        Case "1"
        	Response.Write "持平"
        Case "0"
        	Response.Write "减少"
        End Select
        %>
        </td>
        <td>
        <a href="AccountTypeEdt.asp?TypeCode=<%=Rs("TypeCode")%>" class="a2">修改</a>&nbsp;
        <a href="AccountTypeDo.asp?act=2&TypeCode=<%=Rs("TypeCode")%>" class="a2">删除</a>
        </td>
      </tr>
    <%
	Rs.MoveNext
	line=line+1
  Loop
%>
</table>
<!-------------------------------------分页导航--------------------------------------->
  
<table width="100%" cellspacing="0" cellpadding="0" border="0">
  <tbody>
  <form name="pageform" method="Post" action="<%=Request("SCRIPT_NAME")%>?TicketType=<%=TicketType%>&px=<%=px%>">
  <tr height="26">
      <td>     
          <%if currentpage>1 then%>
              <a href="<%=Request("SCRIPT_NAME")%>?currentpage=1&TicketType=<%=TicketType%>&px=<%=px%>" class="a2">首页</a> <a href="<%=Request("SCRIPT_NAME")%>?currentpage=<%=currentpage-1%>&TicketType=<%=TicketType%>&px=<%=px%>" class="a2">上一页</a>
          <%end if%>
          <%if currentpage<pages then%>
              <a href="<%=Request("SCRIPT_NAME")%>?currentpage=<%=currentpage+1%>&TicketType=<%=TicketType%>&px=<%=px%>" class="a2">下一页</a> <a href="<%=Request("SCRIPT_NAME")%>?currentpage=<%=pages%>&TicketType=<%=TicketType%>&px=<%=px%>" class="a2">末页</a>
          <%end if%>
      </td>
      <td align="right">
          转到: <input type="text" name="currentpage" size="2" maxlength="6" class="input" value="<%=currentpage%>"> 页
      </td></tr>
  </form>
  </tbody>
</table>
<%  
end if

Rs.Close
Cn.Close
Set Rs=Nothing
Set Cn=Nothing
%>
<br><br>
<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%>">
       <form name="form3" action="AccountTypeDo.asp" method="post" onSubmit="return(CheckAll());">
       <input type="hidden" name="act" value="0">
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            类型代号
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <input type="text" name="TypeCode" size="5" maxlength="5" class="input">
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            类型名称
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <input type="text" name="TypeName" size="30" maxlength="30" class="input">
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            用户增减
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <select name="UserAM" class="input">
            <option value="2">增加</option>
            <option value="1">持平</option>
            <option value="0">减少</option>
            </select>
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            公司增减
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <select name="CorpAM" class="input">
            <option value="2">增加</option>
            <option value="1">持平</option>
            <option value="0">减少</option>
            </select>
          </td>
        </tr>
        <tr height="26">
          <td bgcolor="<%=Opt_TD_BGColor2%>" colspan="2" align="center">
            <input type="submit" class="button" value=" 添加 ">
            <input type="reset" class="button" value=" 重写 ">
          </td>
        </tr>
        </form>
      </table>
    </td>
  </tr>
</table>
  


<%
Call PrintPageBottom
%>