📄 sliceupdate_mdy.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"-->
<%
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
Db.Open()
Dim Work
Work = Request("Work")
%>
<!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="Javascript1.2">
<!--
_editor_url = "lib/htmlarea/";
var win_ie_ver = parseFloat(navigator.appVersion.split("MSIE")[1]);
if (navigator.userAgent.indexOf('Mac') >= 0) { win_ie_ver = 0; }
if (navigator.userAgent.indexOf('Windows CE') >= 0) { win_ie_ver = 0; }
if (navigator.userAgent.indexOf('Opera') >= 0) { win_ie_ver = 0; }
if (win_ie_ver >= 5.5) {
document.write('<scr' + 'ipt src="' +_editor_url+ 'editor.js"');
document.write(' language="Javascript1.2"></scr' + 'ipt>');
} else { document.write('<scr'+'ipt>function editor_generate() { return false; }</scr'+'ipt>'); }
function InitEditor()
{
var config = new Object(); // create new config object
config.width = "100%";
config.height = "90%";
config.bodyStyle = 'background-color: white; font-family: "Verdana"; font-size: x-small;';
config.debug = 0;
// NOTE: You can remove any of these blocks and use the default config!
config.toolbar = [
['fontname'],
['fontsize'],
['bold','italic','underline','separator'],
// ['strikethrough','subscript','superscript','separator'],
['justifyleft','justifycenter','justifyright','separator'],
['OrderedList','UnOrderedList','Outdent','Indent','separator'],
['forecolor','backcolor','separator'],
['HorizontalRule','Createlink','InsertImage','htmlmode','separator','popupeditor'],
];
config.fontnames = {
"Arial": "arial, helvetica, sans-serif",
"Courier New": "courier new, courier, mono",
"Georgia": "Georgia, Times New Roman, Times, Serif",
"Tahoma": "Tahoma, Arial, Helvetica, sans-serif",
"Times New Roman": "times new roman, times, serif",
"Verdana": "Verdana, Arial, Helvetica, sans-serif",
"impact": "impact",
"WingDings": "WingDings"
};
config.fontsizes = {
"1 (8 pt)": "1",
"2 (10 pt)": "2",
"3 (12 pt)": "3",
"4 (14 pt)": "4",
"5 (18 pt)": "5",
"6 (24 pt)": "6",
"7 (36 pt)": "7"
};
//config.stylesheet = "http://www.domain.com/sample.css";
/* config.fontstyles = [ // make sure classNames are defined in the page the content is being display as well in or they won't work!
{ name: "headline", className: "headline", classStyle: "font-family: arial black, arial; font-size: 28px; letter-spacing: -2px;" },
{ name: "arial red", className: "headline2", classStyle: "font-family: arial black, arial; font-size: 12px; letter-spacing: -2px; color:red" },
{ name: "verdana blue", className: "headline4", classStyle: "font-family: verdana; font-size: 18px; letter-spacing: -2px; color:blue" }
// leave classStyle blank if it's defined in config.stylesheet (above), like this:
// { name: "verdana blue", className: "headline4", classStyle: "" }
];*/
editor_generate('slice_data',config);
}
// -->
</script>
<!-- 编辑器结束 -->
</head>
<body leftmargin="0" topmargin="0" scroll="no">
<%
Select Case Work
Case "MdyReco" :
MdyReco()
Case "SaveMdyReco" :
SaveMdyReco()
End Select
Function MdyReco()
Dim Sql, Rs, Id
Id = FLib.SafeSql(Request("rId"))
Sql = "SELECT TOP 1 * FROM slice_list WHERE id=" & Id
Set Rs = Db.ExeCute(Sql)
If Rs.Eof And Rs.Bof Then
Rs.Close
Set Rs = Nothing
FLib.Alert "记录不存在", "BACK", 0
Response.End
End If
If Not FLib.chkPope_AboutTheClass(Rs("class_id"), "slice") Then
FLib.Alert "你无法在此频道更新碎片、碎片包", "BACK", 0
Response.End
End If
%>
<form name="form1" method="post" action="?">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td>
<textarea name="slice_data" id="slice_data" style="width:100%;height:100%"><%=Server.HtmlEncode(Rs("slice_data"))%></textarea>
</td>
</tr>
<tr>
<td align="right" height="20">
<input name="rid" type="hidden" id="rid" value="<%=Rs("id")%>">
<input name="Work" type="hidden" id="Work" value="SaveMdyReco">
<input name="UpdateSliceNow" type="checkbox" class="input_checkbox" id="UpdateSliceNow" value="1">
<label for="UpdateSliceNow">同时更新碎片</label>
<input name="Submit" type="submit" class="input_button" value="确定提交"> <input name="Submit3" type="button" class="input_button" onclick="window.close();" value="关闭">
</td>
</tr>
</table>
</form>
<%
If Rs("editor_type") = 1 Then
Response.Write "<script>InitEditor();</script>" & vbCrLf
End If
Rs.Close()
Set Rs = Nothing
End Function
%>
</body>
</html>
<%
'函数:修改记录
Function SaveMdyReco()
Dim rid, slice_data
rid = FLib.SafeSql(Request("rid"))
slice_data = FLib.SafeSql(Request("slice_data"))
If Not IsNumeric(rid) Then
FLib.Alert "参数有误","BACK",0
Response.End
End If
Dim Sql, Rs
Sql = "UPDATE slice_list SET slice_data='" & slice_data & "' WHERE id=" & rid
Db.ExeCute(Sql)
If Request("UpdateSliceNow") = "1" Then
Response.Redirect "SliceUpdate_Process.asp?Work=ExeCuteSlice&IdList=" & rid
Response.End
Else
FLib.Alert "执行完毕","BACK",0
Response.End
End If
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -