accounttypeedt.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>
<%
TypeCode = Request.QueryString("TypeCode")
strSQL="Select * from T_DNS_AccountType where TypeCode='" & TypeCode & "'"
Set Rs= Server.CreateObject("ADODB.Recordset")
Rs.open strSQL,Cn,1,1
If Rs.Eof Then
	Response.Write "没有此帐务类型！"
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>
    <td align="right">
     <a href="#" OnClick="javascript:history.go(-1)" class="a2">返 回</a>
    </td>
  </tr>
  <tr>
    <td colspan="2">
      <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="1">
       <input type="hidden" name="TypeCode" value="<%=TypeCode%>">
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            类型代号
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <font color="<%=Opt_Font_IndexColor%>"><%=Rs("TypeCode")%></font>
          </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" value="<%=Rs("TypeName")%>">
          </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" <% if Rs("UserAM")="2" then Response.Write "Selected" %>>增加</option>
            <option value="1" <% if Rs("UserAM")="1" then Response.Write "Selected" %>>持平</option>
            <option value="0" <% if Rs("UserAM")="0" then Response.Write "Selected" %>>减少</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" <% if Rs("CorpAM")="2" then Response.Write "Selected" %>>增加</option>
            <option value="1" <% if Rs("CorpAM")="1" then Response.Write "Selected" %>>持平</option>
            <option value="0" <% if Rs("CorpAM")="0" then Response.Write "Selected" %>>减少</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>
  


<%
end if
Rs.Close
Cn.Close

Call PrintPageBottom
%>