servicetype.asp

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

<% ModuleCode="M0630" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
%>
<!--#include file="../../Include/connect.asp"-->
<script Language="JavaScript">
<!--
function CheckAll()
{  
	//检查非空
	if (!CheckEmpty(addform.STCode, "类型代号"))			return false;
	if (!CheckInteger(addform.STCode, "类型代号"))			return false; 
	if (!CheckEmpty(addform.STName, "类型名称"))			return false;   
	//全部通过
	submitonce(addform);
	return true;
}
-->
</script>
<%
strSQL="Select * from T_DNS_ServiceType"
Set Rs= Server.CreateObject("ADODB.Recordset")
Rs.open strSQL,Cn,1,1

If Rs.Eof Then
	Response.Write "目前还没有服务类型！"
else

%>
      
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td height="26" class="titletext"><font color="<%=Opt_Font_TitleColor%>"><strong>产品服务类型</strong></fong></td>
  </tr>
  <tr> 
    <td>
       <table border="0" cellpadding="3" cellspacing="1" bgcolor="<%=Opt_Table_BGColor%>" width="100%">
        <tr bgcolor="<%=Opt_TR_BGColor%>" height="24"> 
          <td>类型代码</td>
          <td>类型名称</td>
          <td>操作</td>
        </tr>
<%
	i=0
	Do While Not Rs.Eof
	if i mod 2 =0 Then %>
     <tr bgcolor="<%=Opt_TD_BGColor1%>" height="20">
     <% else %>
     <tr bgcolor="<%=Opt_TD_BGColor2%>" height="20">
     <% end if %>
          <form name="form<%=i%>" action="ServiceTypeDo.asp" method="post">
            <input type="hidden" name="STCode" value="<%=Rs("STCode")%>">
            <td><font color="<%=Opt_Font_IndexColor%>"><%=Rs("STCode")%></font></td>
            <td><input name="STName" type="text" class="input" value="<%=Rs("STName")%>" size="20" maxlength="20"></td>
            </td>
            <td width="80">
            <input name="act" type="submit" class="button" value="修改">
            <input name="act" type="submit" class="button" value="删除">
            </td>
          </form>
        </tr>
        <%
		i=i+1
		Rs.MoveNext
	Loop
	Rs.Close
	Cn.Close
%>
      </table>
<%
end if
%>
	</td>
  </tr>
  <tr> 
    <td height="40">&nbsp;</td>
  </tr>
  <tr> 
    <td height="26" bgcolor="#FFFFFF" class="titletext"><font color="<%=Opt_Font_TitleColor%>"><strong>添加新服务类型</strong></font></td>
  </tr>
  <tr>
    <td><table width="400" border="0" cellpadding="3" cellspacing="1" bgcolor="<%=Opt_Table_BGColor%>">
        <form name="addform" method="post" action="ServiceTypeDo.asp" onSubmit="return(CheckAll());">
          <input type="hidden" name="act" value="添加">
          <tr height="24">
            <td width="74" bgcolor="<%=Opt_TR_BGColor%>">类型代码</td>
            <td width="311" bgcolor="<%=Opt_TD_BGColor2%>"><input name="STCode" type="text" class="input"  size="5" maxlength="5">
            * 请参考上面的代码，请勿重复
            </td>
          </tr>
          <tr height="24">
            <td width="74" bgcolor="<%=Opt_TR_BGColor%>">类型名称</td>
            <td width="311" bgcolor="<%=Opt_TD_BGColor2%>"><input name="STName" type="text" class="input" size="20" maxlength="20">
            </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
%>