⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 ks_editorcls.asp

📁 SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件.
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
<!--#Include File="../Conn.asp"-->
<%
'===================================================================================================================
'软件名称：科汛网站管理系统
'当前版本：科汛网站管理系统 V2.2 SP2 Free
'Copyright (C) 2005-2006 Kesion.Com  All rights reserved.
'产品咨询QQ：9537636,41904294
'技术支持QQ：111394,54004407 
'程序版权：科汛网络
'程序开发：科汛网络开发组（总策划：林文仲）
'E-Mail  :kesioncms@hotmail.com webmaster@kesion.com
'官方网站：http://www.kesion.com  
'演示站点：http://test.kesion.com 
'郑重声明:
'    ①、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
'    ②、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
'    ③、科汛网络保留此软件的法律追究权利
'===================================================================================================================


Class KesionEditor
   Private KSCMS
   Private AdminDirStr
   Private Style            '调用的模板1文章管理编辑器,2标签编辑器,3模板编辑器等
   Private FullScreenFlag   '全屏标志 0普通,1全屏
   Private ID               '引用的表单ID
   Private Domain,AdminDir
   Private EditorFromType,TemplateType,sChannelID
   Private ShowLabel,DomainStr,InstallStr,ChannelID,ButtonList
   Private ButtonArr(2,30)
   
   Private Sub Class_Initialize()
    'On Error ReSume Next
     Set KSCMS=New CommonCls
  End Sub

  Private Sub Class_Terminate()
   Set KSCMS=Nothing 
  End Sub
  
  '参数：EditorFrom   0 代表前台调用 1 代表后台调用
  Sub Execute(EditorFrom)
     EditorFromType=EditorFrom
	 
	 Domain=KSCMS.GetDomain
	 AdminDir=KSCMS.GetConfig("AdminDir")
     DomainStr=Replace(KSCMS.GetConfig("WebUrl"),"/","\\/")
     InstallStr=Replace(KSCMS.GetConfig("InstallDir"),"/","\\/")
     AdminDirStr=Replace(KSCMS.GetConfig("AdminDir"),"/","\\/")
     Style = Cint(KSCMS.G("Style"))
     ChannelID=KSCMS.G("ChannelID"):IF ChannelID="" Then ChannelID=0
	 sChannelID=KSCMS.G("sChannelID"):IF sChannelID="" Then sChannelID=0
	 TemplateType=KSCMS.G("TemplateType"):IF TemplateType="" Then TemplateType=0
     FullScreenFlag  = KSCMS.G("FullScreenFlag"):IF FullScreenFlag="" Then FullScreenFlag=0

        IF Err THEN 
		   Response.Write("参数传递出错!")
		   Err.clear
		   Exit sub
		  END IF
		 ID=KSCMS.G("ID")
	
		  Call InitialButton()
		  Dim KSCache:Set KSCache = New ClsCache
		  KSCache.name=Cstr(KSCMS.SiteSN & "KSEditor" &ChannelID&Style)
		  IF KSCache.valid and KSCache.value<>"" Then 
		   ButtonList=KSCache.value
		  Else   
		   Call KSCache.clean
		   Select Case ChannelID
		    Case 9999  '简单编辑器,适合简短内容的调用
			ButtonList=ButtonList &"<tr><td height=""25"" class=""ToolSet""><table height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0""><tr>" &ButtonArr(1,2)&ButtonArr(2,2)&ButtonArr(2,3)&ButtonArr(2,4)&ButtonArr(2,5)&ButtonArr(2,8)&ButtonArr(2,9)&ButtonArr(2,11)&ButtonArr(2,17)&ButtonArr(2,18)&ButtonArr(2,19)&ButtonArr(1,0)& "</tr></table></td></tr>"
			ButtonList=ButtonList &"<tr style='display:none'><td height='22'><table width='100%' height='100%' border='0' cellpadding='0' cellspacing='0' class='ToolSet'><tr> <td height='22' id='ShowObject'>&nbsp;</td></tr></table></td></tr>"
			Case 9998  '前台添加文章调用
			 ButtonList="<tr><td height=""25"" class=""ToolSet""><table height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0""><tr>" & ButtonArr(1,0)&ButtonArr(2,1)&ButtonArr(2,2)&ButtonArr(2,7)&ButtonArr(1,3)&ButtonArr(1,4)&ButtonArr(1,5)&ButtonArr(1,6)&ButtonArr(1,0)&ButtonArr(1,7)&ButtonArr(1,8)&ButtonArr(1,0)&ButtonArr(1,9)&ButtonArr(1,10)&ButtonArr(1,0)&ButtonArr(2,18)&ButtonArr(2,19) & "</tr></table></td></tr>"
			 ButtonList=ButtonList &"<tr><td height=""25"" class=""ToolSet""><table height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0""><tr>" & ButtonArr(1,0)&ButtonArr(2,3)&ButtonArr(2,4)&ButtonArr(2,5)&ButtonArr(2,8)&ButtonArr(1,12)&ButtonArr(1,13)&ButtonArr(1,14)&ButtonArr(1,0)&ButtonArr(1,15)&ButtonArr(1,16)&ButtonArr(1,0)&ButtonArr(2,11)&ButtonArr(2,12)&ButtonArr(2,13)&ButtonArr(2,14)&ButtonArr(2,15)&ButtonArr(2,16)&ButtonArr(2,17)&ButtonArr(1,0)& "</tr></table></td></tr>"
			 
			ButtonList=ButtonList &"<tr style='display:none'><td height='22'><table width='100%' height='100%' border='0' cellpadding='0' cellspacing='0' class='ToolSet'><tr> <td height='22' id='ShowObject'>&nbsp;</td></tr></table></td></tr>"
			
		   Case 1   '文章中心
			 ButtonList="<tr><td height=""25"" class=""ToolSet""><table height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0""><tr>" & ButtonArr(1,0)&ButtonArr(1,1)&ButtonArr(1,0)&ButtonArr(1,2)&ButtonArr(1,0)&ButtonArr(1,3)&ButtonArr(1,4)&ButtonArr(1,5)&ButtonArr(1,6)&ButtonArr(1,0)&ButtonArr(1,7)&ButtonArr(1,8)&ButtonArr(1,0)&ButtonArr(1,9)&ButtonArr(1,10)&ButtonArr(1,0)&ButtonArr(1,11)&ButtonArr(1,12)&ButtonArr(1,13)&ButtonArr(1,14)&ButtonArr(1,0)&ButtonArr(1,15)&ButtonArr(1,16)&ButtonArr(1,17)&ButtonArr(1,18)&ButtonArr(1,19)&ButtonArr(1,23)&ButtonArr(1,24)&ButtonArr(1,25)&ButtonArr(1,0)&ButtonArr(2,18)&ButtonArr(2,19) & "</tr></table></td></tr>"
			 ButtonList=ButtonList &"<tr><td height=""25"" class=""ToolSet""><table height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0""><tr>" & ButtonArr(1,0)&ButtonArr(2,1)&ButtonArr(2,2)&ButtonArr(2,3)&ButtonArr(2,4)&ButtonArr(2,5)&ButtonArr(2,6)&ButtonArr(2,7)&ButtonArr(2,8)&ButtonArr(2,9)&ButtonArr(2,10)&ButtonArr(2,11)&ButtonArr(2,12)&ButtonArr(2,13)&ButtonArr(2,14)&ButtonArr(2,15)&ButtonArr(2,21)&ButtonArr(2,16)&ButtonArr(2,17)&ButtonArr(1,0)& "</tr></table></td></tr>"
			 
			ButtonList=ButtonList &"<tr style='display:none'><td height='22'><table width='100%' height='100%' border='0' cellpadding='0' cellspacing='0' class='ToolSet'><tr> <td height='22' id='ShowObject'>&nbsp;</td></tr></table></td></tr>"
	
		 Case 2,3,4  '图片、下载、Flash中心
			 ButtonList=ButtonList &"<tr><td height=""25"" class=""ToolSet""><table height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0""><tr>" &ButtonArr(1,2)&ButtonArr(1,0)&ButtonArr(2,1)&ButtonArr(2,2)&ButtonArr(2,3)&ButtonArr(2,4)&ButtonArr(2,5)&ButtonArr(2,6)&ButtonArr(2,7)&ButtonArr(2,8)&ButtonArr(2,9)&ButtonArr(2,11)&ButtonArr(2,12)&ButtonArr(2,13)&ButtonArr(2,14)&ButtonArr(2,15)&ButtonArr(2,16)&ButtonArr(2,17)&ButtonArr(2,18)&ButtonArr(2,19)&ButtonArr(1,0)& "</tr></table></td></tr>"
			ButtonList=ButtonList &"<tr style='display:none'><td height='22'><table width='100%' height='100%' border='0' cellpadding='0' cellspacing='0' class='ToolSet'><tr> <td height='22' id='ShowObject'>&nbsp;</td></tr></table></td></tr>"
		
			 
		Case Else
			IF Style=2 Or Style=3 Then  '模板标签调用
			 ' Dim TempBtn:TempBtn="<td width='30' align='center'><img src='" & Domain & "Editor/Images/label0.gif' class='Btn' oncontextmenu='LabelInsertTemplate();return false;' onClick='LabelInsertTemplate();'></td>"
			  ButtonList=ButtonList & "<tr><td height=""25"" class=""ToolSet""><table height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0""><tr>"& ButtonArr(1,0)&ButtonArr(2,20) & ButtonArr(1,0)& "</tr></table></td></tr>"
			 ButtonList=ButtonList & "<tr><td height=""25"" class=""ToolSet""><table height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0""><tr>" & ButtonArr(1,0)&ButtonArr(1,2)&ButtonArr(1,0)&ButtonArr(1,3)&ButtonArr(1,4)&ButtonArr(1,5)&ButtonArr(1,6)&ButtonArr(1,0)&ButtonArr(1,7)&ButtonArr(1,8)&ButtonArr(1,0)&ButtonArr(1,9)&ButtonArr(1,10)&ButtonArr(1,0)&ButtonArr(1,11)&ButtonArr(1,12)&ButtonArr(1,13)&ButtonArr(1,14)&ButtonArr(1,0)&ButtonArr(1,15)&ButtonArr(1,16)&ButtonArr(1,17)&ButtonArr(1,18)&ButtonArr(1,19)&ButtonArr(1,23)&ButtonArr(1,24)&ButtonArr(1,25)&ButtonArr(1,0)&ButtonArr(2,18)&ButtonArr(2,19) & "</tr></table></td></tr>"
			
			 
			 ButtonList=ButtonList &"<tr><td height=""25"" class=""ToolSet""><table height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0""><tr>" & ButtonArr(1,0)&ButtonArr(2,1)&ButtonArr(2,2)&ButtonArr(2,3)&ButtonArr(2,4)&ButtonArr(2,5)&ButtonArr(2,6)&ButtonArr(2,7)&ButtonArr(2,8)&ButtonArr(2,9)&ButtonArr(2,10)&ButtonArr(2,11)&ButtonArr(2,12)&ButtonArr(2,13)&ButtonArr(2,14)&ButtonArr(2,15)&ButtonArr(2,16)&ButtonArr(2,17)&ButtonArr(1,0)& "</tr></table></td></tr>"
			 ButtonList=ButtonList &"<tr><td height='22'><table width='100%' height='100%' border='0' cellpadding='0' cellspacing='0' class='ToolSet'><tr> <td height='22' id='ShowObject'>&nbsp;</td></tr></table></td></tr>"
		   Else  '其它地方调用，如公告等
			  ButtonList="<tr><td height=""25"" class=""ToolSet""><table height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0""><tr>" & ButtonArr(1,0)&ButtonArr(1,2)&ButtonArr(1,0)&ButtonArr(1,3)&ButtonArr(1,4)&ButtonArr(1,5)&ButtonArr(1,6)&ButtonArr(1,0)&ButtonArr(1,7)&ButtonArr(1,8)&ButtonArr(1,0)&ButtonArr(1,9)&ButtonArr(1,10)&ButtonArr(1,0)&ButtonArr(1,11)&ButtonArr(1,12)&ButtonArr(1,13)&ButtonArr(1,14)&ButtonArr(1,0)&ButtonArr(1,15)&ButtonArr(1,16)&ButtonArr(1,17)&ButtonArr(1,18)&ButtonArr(1,19)&ButtonArr(1,23)&ButtonArr(1,24)&ButtonArr(1,25)&ButtonArr(1,0)&ButtonArr(2,18)&ButtonArr(2,19) & "</tr></table></td></tr>"
			  ButtonList=ButtonList &"<tr><td height=""25"" class=""ToolSet""><table height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0""><tr>" &ButtonArr(1,0)&ButtonArr(2,1)&ButtonArr(2,2)&ButtonArr(2,3)&ButtonArr(2,4)&ButtonArr(2,5)&ButtonArr(2,6)&ButtonArr(2,7)&ButtonArr(2,8)&ButtonArr(2,9)&ButtonArr(2,11)&ButtonArr(2,12)&ButtonArr(2,13)&ButtonArr(2,14)&ButtonArr(2,15)&ButtonArr(2,16)&ButtonArr(2,17)&ButtonArr(2,18)&ButtonArr(2,19)&ButtonArr(1,0)& "</tr></table></td></tr>"
			 
			 ButtonList=ButtonList &"<tr style='display:none'><td height='22'><table width='100%' height='100%' border='0' cellpadding='0' cellspacing='0' class='ToolSet'><tr> <td height='22' id='ShowObject'>&nbsp;</td></tr></table></td></tr>"
	
		   End if
	   End Select
	   
	    KSCache.add ButtonList,dateadd("n",1000000000,now) '将内容赋值给缓存，并设置缓存有效期是当前时间＋1000000000分钟
	 End IF
	 Set KSCache=nothing

   Response.Write "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"">" &vbcrlf
   Response.Write "<html>"&vbcrlf
   Response.Write "<head>"&vbcrlf
   Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"&vbcrlf
   Response.Write "<title>可视编辑器</title>"&vbcrlf
   Response.Write "<link rel=""stylesheet"" href=""" & Domain & "Editor/editor.css"">"&vbcrlf
   Response.Write "</head>"&vbcrlf
   Response.Write "<script language=""JavaScript"" src=""" & Domain & "Inc/editor.js""></script>"&vbcrlf
   Response.Write "<script language=""vbscript"" src=""" & domain & "Inc/editor.vbs""></script>" & vbcrlf
   Response.Write "<script language=""JavaScript"" src=""" & Domain & "Inc/Common.js""><//script>"&vbcrlf
   Response.Write "<script language=""javascript"" event=""onerror(msg, url, line)"" for=""window"">return true;</script>"&vbcrlf
   Response.Write "<body leftmargin=""0"" topmargin=""0"" marginwidth=""0"" marginheight=""0"" class=""ToolSet"">"
   Response.Write "<table height=""100%"" id=""Toolbar"" width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
   Response.Write ButtonList
   Response.Write "<tr>"&vbcrlf
   Response.Write " <td height=""100%"" valign=""top""><iframe  name=""KS_EditArea"" id=""KS_EditArea"" marginheight=""1"" marginwidth=""1"" style=""font-size:12px;height:100%;width:100%"" scrolling=""yes""></iframe></td>"&vbcrlf
   Response.Write "</tr>"&vbcrlf
   Response.Write "<tr> "&vbcrlf
   Response.Write " <td height=""22""> <table width=""100%"" height=""22"" border=""0"" cellpadding=""0"" cellspacing=""0"" class=""ToolSet"">"&vbcrlf
   Response.Write "        <tr> "&vbcrlf
   Response.Write "       <td id=""SetModeArea""> <table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">"
   Response.Write "           <tr> "&vbcrlf
   IF  Style<>3 Then
   Response.Write "             <td width=""25"" align=""center"" class=""ModeBarBtnOff"" id=editor_CODE onClick=""setMode('CODE'," & Style& ",'" & DomainStr & "','" & InstallStr & "','" & AdminDirStr & "');""><img src=""" & Domain & "editor/images/CodeMode.GIF"" height=""15""></td>"&vbcrlf
   Else
   Response.Write "             <td style=""display:none""  width=""25"" align=""center"" class=""ModeBarBtnOff"" id=editor_CODE onClick=""setMode('CODE'," & Style& ",'" & DomainStr & "','" & InstallStr & "','" & AdminDirStr & "');""><img src=""" & Domain & "editor/images/CodeMode.GIF"" height=""15""></td>"&vbcrlf
   End If
   Response.Write "                <td width=""25"" height=""20"" align=""center"" class=""ModeBarBtnOff"" id=editor_VIEW onClick=""setMode('VIEW'," & Style & ",'" & DomainStr & "','" & InstallStr & "','" & AdminDirStr & "');""><img src=""" & Domain & "editor/images/PreviewMode.gif"" height=""15""></td>"&vbcrlf
   Response.Write "             <td width=""25"" align=""center"" class=""ModeBarBtnOn"" id=editor_EDIT onClick=""setMode('EDIT',"& Style & ",'" & DomainStr & "','" & InstallStr & "','" & AdminDirStr & "');""><img src=""" & Domain & "editor/images/EditMode.GIF"" height=""15""></td>"&vbcrlf
   IF Style<>2 and Style<>3 Then
   Response.Write "                <td width=""25"" height=""20"" align=""center"" class=""ModeBarBtnOff"" id=editor_TEXT onClick=""setMode('TEXT'," & Style & ",'" & DomainStr & "','" & InstallStr & "','" & AdminDirStr & "');""><img src=""" & Domain & "editor/images/TextMode.GIF""></td>"&vbcrlf
   Else
   Response.Write "                <td style=""display:none"" width=""25"" height=""20"" align=""center"" class=""ModeBarBtnOff"" id=editor_TEXT onClick=""setMode('TEXT'," & Style & ",'" & DomainStr & "','" & InstallStr & "','" & AdminDirStr & "');""><img src=""" & Domain & "editor/images/TextMode.GIF""></td>"&vbcrlf
123

⌨️ 快捷键说明

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