📄 templet_newsstyleadd.asp

📁 asp源码图片ASP整站
💻 ASP
字号:
<% Option Explicit %>
<!--#include file="../../../Inc/Const.asp" -->
<!--#include file="../../../Inc/Cls_DB.asp" -->
<!--#include file="../../../Inc/Function.asp" -->
<%
Dim DBC,Conn
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
Set DBC = Nothing
%>
<!--#include file="../../../Inc/Session.asp" -->
<!--#include file="../../../Inc/CheckPopedom.asp" -->
<%
if Not ((JudgePopedomTF(Session("Name"),"P031001")) OR (JudgePopedomTF(Session("Name"),"P031002"))) then Call ReturnError()'权限判断自己做一个就可以

Dim StyleID,RsStyleObj,SQLStr,StyleName,StyleContent,Operation
StyleID = Request("ID")
If (Not IsNumeric(StyleID)) and StyleID<>"" then response.end
If instr(Request.form("StyleName"),";")<>0 or instr(Request.form("StyleName"),"'")<>0 then response.end
Operation = Request.Form("Operation")
if StyleID <> "" then
	if Operation = "Modify" then
		StyleName = NoCSSHackAdmin(Request.Form("StyleName"),"样式名称")
		StyleContent = Request.Form("StyleContent")
	else
		Set RsStyleObj = CreateObject("ADODB.RecordSet")
		SQLStr = "Select * From FS_NewsListStyle where ID=" & StyleID & ""
		RsStyleObj.Open SQLStr,Conn,1,3
		if Not RsStyleObj.Eof then
			StyleName = RsStyleObj("Name")
			StyleContent = RsStyleObj("Content")
		else
			StyleName = ""
			StyleContent = ""
		end if
		Set RsStyleObj = Nothing
	end if
else
	StyleName = NoCSSHackAdmin(Request.Form("StyleName"),"样式名称")
	StyleContent = Request.Form("StyleContent")
end if
StyleContent = Replace(Replace(StyleContent,"""","%22"),"'","%27")
if Operation = "Modify" then SaveStyle StyleID
Sub SaveStyle(EditStyleID)
	Dim RsTemp,EditSql,RsCheckObj,CheckSql
	if Request.form("StyleName") = "" then
		Alert "请填写样式名称"
		Exit Sub
	else
		if EditStyleID = "" then
			CheckSql = "Select * from FS_NewsListStyle where Name='" & Request.form("StyleName") & "'"
		else
			CheckSql = "Select * from FS_NewsListStyle where Name='" & Request.form("StyleName") & "' and ID<>" & EditStyleID
		end if
		Set RsCheckObj = Conn.Execute(CheckSql)
		if Not RsCheckObj.Eof then
			Alert "标签名已经存在"
			Set RsCheckObj = Nothing
			Exit Sub
		end if
		Set RsCheckObj = Nothing
	end if
	'On Error Resume Next
	Set RsTemp = Server.CreateObject("ADODB.recordset")
	if EditStyleID = "" then
		EditSql = "Select * from FS_NewsListStyle where 1=0"
		RsTemp.Open EditSql,Conn,3,3
		RsTemp.AddNew
	else
		EditSql = "Select * from FS_NewsListStyle where ID=" & StyleID
		RsTemp.Open EditSql,Conn,3,3
		if RsTemp.Eof then Alert "修改的标签不存在"
	end if
	RsTemp("Name") = Request.Form("StyleName")
	RsTemp("Content") = Request.form("StyleContent")
	RsTemp.UpDate
	RsTemp.Close
	Set RsTemp = Nothing
	if err.Number=0 then
		Response.Redirect("Templet_NewsStyleList.asp")
	else
		if StyleID <> "" then
			Alert "修改失败"
		else
			Alert "添加失败"
		end if
	end if
End Sub
Sub Alert(ErrorStr)
%>
<script language="javascript">
	alert ('<% = ErrorStr %>')
</script>
<%
End Sub
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>添加和修改新闻列表样式</title>
</head>
<script language="javascript" event="onerror(msg, url, line)" for="window">return true;</script>
<script src="../../SysJS/PublicJS.js" language="JavaScript"></script>
<link href="../../../CSS/FS_css.css" rel="stylesheet">
<body topmargin="0" leftmargin="0">
<table width="100%" height="100%" border="0" cellpadding="1" cellspacing="1">
  <form name=StyleForm method=post action="" >
    <tr> 
      <td colspan="5" height="32" valign="top"> 
        <table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#999999">
		  <tr bgcolor="#EEEEEE"> 
			<td height="26" colspan="5" valign="middle">
			  <table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
				<tr>
				  <td width=35 align="center" alt="保存" onClick="AddLableHead();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">保存</td>
				  <td width=2 class="Gray">|</td>
				  <td width=35 align="center" alt="后退" onClick="top.GetEkMainObject().history.back();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">后退</td>
				  <td>&nbsp;</td>
				</tr>
			  </table>
			  </td>
		  </tr>
		</table>
	  </td>
    </tr>
	<tr> 
      <td  height="30" id="StyleNameArea"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
          <tr> 
            <td width="60"> <div align="center">样式名称</div></td>
            <td><input value="<% = StyleName %>" name="StyleName" style="width:100%;">
			<input type="hidden" name="ID" value="<% = StyleID %>"> 
        <input type="hidden" name="operation" value="Modify">
              <input type="hidden" name="StyleContent" value="<% = StyleContent %>">
            </td>
          </tr>
        </table></td>
    </tr>
    <tr> 
      <td  height="30" id="StyleNameArea"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
          <tr> 
            <td width="60"> <div align="center">插入字段</div></td>
            <td> <select style="width:82%;" name="FieldList">
                <option value="" selected>选择插入的字段</option>
                <option value="{News_Title}">正标题</option>
                <option value="{News_SubTitle}">副标题</option>
                <option value="{News_Content}">新闻内容</option>
                <option value="{News_TxtSource}">来源</option>
                <option value="{News_Author}">新闻作者</option>
                <option value="{News_Editer}">责任编辑</option>
                <option value="{News_ClickNum}">点击数</option>
				<option value="{News_Pic}">新闻图片</option>
                <option value="{News_AddDate}">添加时间</option>
              </select> <input name="Submitfff" type="button" id="Submitfff" onClick="InsertField();" value="插入字段" style="color=#FF0000"> 
            </td>
          </tr>
        </table></td>
    </tr>
    <tr> 
      <td colspan="2" align="center"><iframe id="Editer" src="../../Editer/DownStyleEditer.asp" scrolling="no" width="100%" height="100%" frameborder="0"></iframe></td>
    </tr>
  </form>
</table>
</body>
</html>
<%
Set Conn = Nothing
%>
<script language="JavaScript">
var BodyHeight=document.body.clientHeight;
var EditAreaHeight=BodyHeight;
setTimeout('SetHTML();',300);
function SetHTML()
{
	if (frames["Editer"].EditArea)
	{
		frames["Editer"].EditArea.document.body.innerHTML=unescape(document.all.StyleContent.value);
		frames["Editer"].ShowTableBorders();
	}
	else
	{
		setTimeout('SetHTML();',300);
	}
}
function AddLableHead()
{
	if (CheckAdminForm()) 
	{
		
		document.StyleForm.submit();
	}
}
function CheckAdminForm()
{
	var ErrorCode='';
	document.StyleForm.StyleContent.value=frames["Editer"].EditArea.document.body.innerHTML;
	if (frames["Editer"].CurrMode!='EDIT') {alert('其他模式下无法保存，请切换到编辑模式');return;}
	if (document.StyleForm.StyleName.value=='') ErrorCode=ErrorCode+'样式名称不能为空！\n';
	if (document.StyleForm.StyleContent.value=='') ErrorCode=ErrorCode+'样式内容不能为空！\n';
	if (ErrorCode!='') 
	{
		alert(ErrorCode);
		return false
	}
	else return true;
}
function InsertField()
{
	var ReturnValue=document.all.FieldList.value;
	frames["Editer"].EditArea.focus();
	if (ReturnValue!='') frames["Editer"].InsertHTMLStr(ReturnValue);
}
</script>
⌨️ 快捷键说明

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