moduletype.asp

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

<% ModuleCode="M0116" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
%>
<!--#include file="../../Include/connect.asp"-->
<script Language="JavaScript">
<!--
function CheckAll()
{  
	//检查非空
	if (!CheckEmpty(addform.TypeCode, "类别代号"))			return false;
	if (!CheckEmpty(addform.TypeName, "类别名称"))			return false; 
	if (!CheckEmpty(addform.TypePic, "显示图片"))			return false; 
	if (!CheckEmpty(addform.TypePic2, "链接图片"))			return false;   
	if (!CheckEmpty(addform.DispSeq, "显示顺序"))			return false; 
	if (!CheckInteger(addform.DispSeq, "显示顺序"))			return false; 
	//全部通过
	submitonce(addform);
	return true;
}
-->
</script>
<%
strSQL="Select * from T_DNS_ModuleType order by DispSeq"
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>
          <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="ModuleTypeSQL.asp" method="post">
            <input type="hidden" name="TypeCode" value="<%=Rs("TypeCode")%>">
            <td><a href="ModuleInfo.asp?TypeCode=<%=Rs("TypeCode")%>" class="a2"><%=Rs("TypeCode")%></a></font></td>
            <td><input name="TypeName" type="text" class="input" value="<%=Rs("TypeName")%>" size="10" maxlength="20"></td>
            <td><input name="TypePic" type="text" class="input" value="<%=Rs("TypePic")%>" size="20" maxlength="100"></td>
            <td><input name="TypePic2" type="text" class="input" value="<%=Rs("TypePic2")%>" size="20" maxlength="100"></td>
            <td><input name="DispSeq" type="text" class="input" value="<%=Rs("DispSeq")%>" size="4" maxlength="4"></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="20">&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="ModuleTypeSQL.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="TypeCode" type="text" class="input"  size="5" maxlength="5" value="T">
            * 请参考上面的代码，请勿重复
            </td>
          </tr>
          <tr height="24">
            <td width="74" bgcolor="<%=Opt_TR_BGColor%>">类别名称</td>
            <td width="311" bgcolor="<%=Opt_TD_BGColor2%>"><input name="TypeName" type="text" class="input" size="20" maxlength="20">
            </td>
          </tr>
          <tr height="24">
            <td width="74" bgcolor="<%=Opt_TR_BGColor%>">显示图片</td>
            <td width="311" bgcolor="<%=Opt_TD_BGColor2%>"><input name="TypePic" type="text" class="input" size="40" maxlength="100">
            </td>
          </tr>
          <tr height="24">
            <td width="74" bgcolor="<%=Opt_TR_BGColor%>">链接图片</td>
            <td width="311" bgcolor="<%=Opt_TD_BGColor2%>"><input name="TypePic2" type="text" class="input" size="40" maxlength="100">
            </td>
          </tr>
          <tr height="24">
            <td width="74" bgcolor="<%=Opt_TR_BGColor%>">显示顺序</td>
            <td width="311" bgcolor="<%=Opt_TD_BGColor2%>"><input name="DispSeq" type="text" class="input" size="4" maxlength="4">
            </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
%>