📄 slice_review.asp

📁 一个很好的asp cms管理系统
💻 ASP
字号:
<%
Option Explicit
'----------------------------------------------------------------------------------
'本页:
'	碎片编辑页面
'说明:
'
'----------------------------------------------------------------------------------
%>
<!--#include file="inc/Config.class.asp"-->
<!--#include file="inc/DBControl.class.asp"-->
<!--#include file="inc/FunctionLib.class.asp"-->
<!--#include file="inc/Manager.class.asp"-->
<!--#include file="inc/TagParser.class.asp"-->
<!--#include file="inc/SliceParser.class.asp"-->
<%
Dim Cfg, Db, FLib, Admin
Set Cfg = New Config
Set Db = New DBControl
Set FLib = New FunctionLib
Set Admin = New Manager

If Not Admin.Logined Then
    FLib.Alert "对不起，你已经超时或未登录","./",1
    Response.End
End If

If Not Admin.CheckPopedom("TSYS_GROUP2_SLICE") Then
    FLib.Alert "权限不足", "BACK", 0
    Response.End
End If

Db.Open()

Dim Work
    Work = Request("Work")

If Work = "PreviewSlice" Then
	PreviewSlice()
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>动态碎片编辑器</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="inc/style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
BODY {
	SCROLLBAR-HIGHLIGHT-COLOR: buttonface;
	SCROLLBAR-SHADOW-COLOR: buttonface;
	SCROLLBAR-3DLIGHT-COLOR: buttonhighlight;
	SCROLLBAR-TRACK-COLOR: #eeeeee;
	SCROLLBAR-DARKSHADOW-COLOR: buttonshadow;
	background-color:buttonface;
	font:12px;

    margin: 3px;
    padding: 0px;
    border: none;
}
-->
</style>
<script language="JavaScript">
<!--
function ReturnVal()
{
	opener.form1.slice_data1.value = form1.slice_data.value;
	window.close();
	opener.focus();
}

function PreviewSlice(obj)
{
	if(obj.slice_data.value == "")
	{
		alert("碎片数据不能为空");
        obj.slice_data.focus();
		return false;
	}
	var win = window.open("about:blank", "previewWin");
	win.focus();
    obj.submit();
}
//-->
</script>
</head>

<body scroll="no">
<%
Select Case Work
    Case "SliceEditor" :
        SliceEditor()
End Select

Function SliceEditor()
%>
<form name="form1" method="post" action="Slice_Review.asp?Work=PreviewSlice" target="previewWin">
  <table width="100%" height="100%" border="0" cellpadding="2" cellspacing="0">
    <tr> 
      <td valign="top"><textarea name="slice_data" style="width:100%;height:100%"></textarea></td>
    </tr>
    <tr>
      <td height="20" align="right"><input type="button" name="Submit" value="确  定" onclick="ReturnVal()">
        <input type="button" name="Submit2" value="预览" onclick="PreviewSlice(document.all.form1)">
        <input type="button" name="Submit3" value="关闭" onclick="window.close();opener.focus();"></td>
    </tr>
  </table>
</form>
<script language="JavaScript">
<!--
form1.slice_data.value = opener.form1.slice_data1.value;
//-->
</script>
<%
End Function
%>
</body>
</html>
<%
Function PreviewSlice
	Dim SParser
	Set SParser = New SliceParser
	Dim tmpContent
	tmpContent = SParser.Compile(Request("slice_data"))
	Response.Write "<html><head><title>预览效果</title><style>body{font-size:12px;}" & vbCrLf & "table{font-size:12px;}</style></head><body>" & vbCrLf & "<!-- 碎片内容区－开始 -->" & vbCrLf & tmpContent & vbCrlf & "<!-- 碎片内容区－结束 -->" & vbCrLf & "</body></html>"
	Set SParser = Nothing
	Response.End
End Function
%>
⌨️ 快捷键说明

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