style.asp

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

<% ModuleCode="M0715" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
%>
<!--#include file="../../Include/connect.asp"-->
<script Language="JavaScript">
<!--
function CheckAll()
{  
	//检查非空
	if (!CheckEmpty(addform.StyleCode, "界面风格代号"))			return false;
	if (!CheckEmpty(addform.StyleName, "界面风格名称"))			return false;   
	if (!CheckEmpty(addform.StyleFile, "界面风格文件"))			return false;   
	//全部通过
	submitonce(addform);
	return true;
}
-->
</script>
<%
strActionName="StyleSQL.asp"

strSQL="Select * from T_DNS_WebStyle"
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>
        </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="<%=strActionName%>" method="post">
            <input type="hidden" name="StyleCode" value="<%=Rs("StyleCode")%>">
            <td><font color="<%=Opt_Font_IndexColor%>">&nbsp;<%=Rs("StyleCode")%></font></td>
            <td><input name="StyleName" type="text" class="input" value="<%=Rs("StyleName")%>" size="10" maxlength="50"></td>
            <td><input name="StyleFile" type="text" class="input" value="<%=Rs("StyleFile")%>" size="20" maxlength="100"></td>
            <td><input type="checkbox" name="IfUse" value="YES" 
            <%
            if rs("IfUse")="Y" then
            	response.write " checked"
            end if
            %> 
            ></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="<%=strActionName%>" 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="StyleCode" type="text" class="input"  size="5" maxlength="5" value="">
            * 请参考上面的代码，请勿重复
            </td>
          </tr>
          <tr height="24">
            <td width="74" bgcolor="<%=Opt_TR_BGColor%>">界面风格名称</td>
            <td width="311" bgcolor="<%=Opt_TD_BGColor2%>"><input name="StyleName" type="text" class="input" size="20" maxlength="50">
            </td>
          </tr>
          <tr height="24">
            <td width="74" bgcolor="<%=Opt_TR_BGColor%>">界面风格文件</td>
            <td width="311" bgcolor="<%=Opt_TD_BGColor2%>"><input name="StyleFile" type="text" class="input" size="30" maxlength="100">
            </td>
          </tr>
          <tr height="24">
            <td width="74" bgcolor="<%=Opt_TR_BGColor%>">是否在用</td>
            <td width="311" bgcolor="<%=Opt_TD_BGColor2%>">
            <input type="checkbox" name="IfUse" value="YES" checked >是否在用</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
%>