📄 admin_mold.asp

📁 1
💻 ASP
字号:
<!--#include file="../Conn.asp" -->
<!--#include file="../Inc/Admin_checkuser.asp"-->
<%
Call Admin_Check(9999,"您的权限状态错误，请使用超级管理员的账号登陆后再进行操作")
Dim action,A,N
action=FY_CLng(request("G"))
A=ReplaceBadChar(trim(request("A")))
N=trim(request("N"))
If A="" Then
response.redirect "Admin_Index.asp?action=admin_main"
Response.End
ElseIf UCase(A)<>UCase("Index") And  UCase(A)<>UCase("Class") And  UCase(A)<>UCase("Novel") And  UCase(A)<>UCase("List") And  UCase(A)<>UCase("Contents") And UCase(A)<>UCase("search") Then
response.redirect "Admin_Index.asp?action=admin_main"
Response.End
End if
%>
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="../images/admin/admin.css" type=text/css rel=StyleSheet>
<META content="MSHTML 6.00.2800.1126" name=GENERATOR>
<TITLE>模板管理中心</TITLE>
<SCRIPT LANGUAGE="JavaScript">
var lang = new Array();
var userAgent = navigator.userAgent.toLowerCase();
var is_opera = userAgent.indexOf('opera') != -1 && opera.version();
var is_moz = (navigator.product == 'Gecko') && userAgent.substr(userAgent.indexOf('firefox') + 8, 3);
var is_ie = (userAgent.indexOf('msie') != -1 && !is_opera) && userAgent.substr(userAgent.indexOf('msie') + 5, 3);

function insertLabel(strLabel)
{
  myform.N.focus();
  var str = document.selection.createRange();
  str.text = strLabel
}
    function sizeMIntro(num,objname){
        var obj = document.getElementById(objname);
        if (parseInt(obj.rows)+num>=1) {
            obj.rows = parseInt(obj.rows) + num;
        }
        if (num>0){
            obj.width="90%";
        }
    }
</SCRIPT>
</HEAD>
<body>
<%
Select Case action
Case "1"
    Call FY_Mold_G
Case Else
    Call FY_Mold_Main
End Select
sub  FY_Mold_G
If Len(N)>100000 Or Len(N)<5 Then
  founderr=true
  errmsg=errmsg&"<br>"+"<li>风格块内容字符数错误！</li><li>风格块字符数最高允许10万，最低要求是5字符</li>"
End If
If founderr=False Then
   createhtml "../template/"&FY_Config(16)&"/"&A&".Html",Replace(Replace(N,"&gt;",">"),"&lt;","<")
   Call WriteSuccessMsg("<li>"&A&".Html 风格模板块修改成功！</Li><li>如果您现在是非ASP模式，请重新生成相关文件</Li>",Request.ServerVariables("HTTP_REFERER"))
   	Call FY_Cache.DelAllCache()
Else
	 Call WriteErrMsg(errmsg)
End if
end sub
sub  FY_Mold_Main%>
<table width=100% align="center" border="1" cellspacing="0" cellpadding="4" class=KenQiao_Net_bk style="border-collapse: collapse">
<form name="myform" method="post" action="?G=1">
<tr class=KenQiao_Net_ss>
<td colspan="2" height="25">模板管理中心 --- <%=A%></td>
</tr>
<tr class=KenQiao_Net_ds>
<td height="25">风格名称：</td>
<td width="85%"> <%=trim(FY_Config(16))%>  [如果要修改其他风格，请到基本设置处修改后再更改]</td>
</tr>
<tr class=KenQiao_Net_ds>
<td height="25">风格块内容：</td>
<td width="85%"><textarea rows="20" name="N" cols="90"><%
If IsFolder("../template/"&FY_Config(16))=False Then
Response.Write "风格文件夹不存在 【../template/"&FY_Config(16)&" 文件夹缺失】     如果您继续提交信息的话，系统将会自动创建这个风格文件"
Else
If IsExists("../template/"&FY_Config(16)&"/"&A&".Html")=False Then
Response.Write "风格文件 "&A&".Html 不存在 【../template/"&FY_Config(16)&"/"&A&".Html 文件缺失】    如果您继续提交信息的话，系统将会自动创建这个风格文件"
Else
Response.Write Replace(Replace(FSOFileRead("../template/"&FY_Config(16)&"/"&A&".Html"),">","&gt;"),"<","&lt;")
End if
End if
%></textarea>
<br>注意：模板当中不能出现ASP语法，请不要在模板中附加
<p align='right'><img  src='../images/admin/sizeplus.gif' width='20' height='20' onclick="sizeMIntro(5,'N');">&nbsp;<img  src='../images/admin/sizeminus.gif' width='20' height='20' onclick="sizeMIntro(-5,'N');">&nbsp;&nbsp;</td>
</tr>
<tr class='KenQiao_Net_qs' height='22'>
<td align='center' colspan='2'><strong>标 签 内 容</strong></td>
</tr>
<%call  KenQiao_BiaoQian()%>
<tr class=KenQiao_Net_qs>
<td colspan="2" align="center"><input name="A" type="hidden" id="A" value="<%=A%>" /><input type="submit" value=" 更 新 数 据 " class="button">
  <input name="Reset" type="reset" class="button" id="Reset" value=" 还 原 重 来 "> </td>
</tr>
</form>
</table>
<%
end sub
call admin_footer()
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -