<% ' 初始輸入參數 Dim sContentID, sStyleID, sFullScreen Dim sStyleName, sStyleDir, sStyleCSS, sStyleUploadDir, nStateFlag, sDetectFromWord, sInitMode, sBaseUrl, sBaseHref, sAutoRemote, sShowBorder Dim sVersion, sReleaseDate, sLicense Dim aButtonCode(), aButtonHTML() Dim sToolBar, sToolBarNormal, sToolBarFullScreen ' 初始化 Call Init() %> eWebEditor - eWebSoft在線編輯器

      • <rp id="ohyca"></rp>
      2. <var id="ohyca"></var>

      3. <delect id="ohyca"></delect>
      <tt id="ohyca"><noscript id="ohyca"><label id="ohyca"></label></noscript></tt>
      <tt id="ohyca"></tt>

      <blockquote id="ohyca"></blockquote>
      4. ";
config.StyleDir = "<%=sStyleDir%>";
config.StyleUploadDir = "<%=sStyleUploadDir%>";
config.InitMode = "<%=sInitMode%>";
config.AutoDetectPasteFromWord = <%=sDetectFromWord%>;
config.BaseUrl = "<%=sBaseUrl%>";
config.BaseHref = "<%=sBaseHref%>";
config.AutoRemote = "<%=sAutoRemote%>";
config.ShowBorder = "<%=sShowBorder%>";

var sBaseHref = "";
if(config.BaseHref!=""){
	sBaseHref = "";
}
config.StyleEditorHeader = "/EditorArea.css\" type=\"text/css\" rel=\"stylesheet\">" + sBaseHref + "" ;













<% If nStateFlag = 1 Then %>

<% End If %>


      

      

	<%=sToolBar%>


      

      

	
      
	
      
	
	
	
	
	
	
      
	
      


      

	
      
	
      
	
		
      
		
      
		
		
		
		
		
		
		
		
		
      
		
      
	      		
	
	
		
      
		
      
		增高編輯區
		
		減小編輯區
		
		
      
		
      
	      		
	
      
	
      


      




      


      




国产91一级a爱在线观看_一区二区三区中文人妻制服_日韩一区中文字幕无码_久久精品久久久久久中文无码

        5. <rp id="ohyca"></rp>
        2. <var id="ohyca"></var>
        

        3. <delect id="ohyca"></delect>
        <tt id="ohyca"><noscript id="ohyca"><label id="ohyca"></label></noscript></tt>
        <tt id="ohyca"></tt>
        

        <blockquote id="ohyca"></blockquote>
        4. 






<%


' 顯示調用錯誤提示
Sub ShowErr(str)
	Call DBConnEnd()
	Response.Write "調用錯誤：" & str
	Response.End
End Sub

' 初始化
Sub Init()
	' 取全屏標志
	sFullScreen = Trim(Request.QueryString("fullscreen"))
	' 取對應的內容ID
	sContentID = Trim(Request.QueryString("id"))
	If sContentID = "" Then ShowErr "請傳入調用參數ID，即隱藏的內容表單項ID！"

	' 取樣式初始值
	sStyleName = Get_SafeStr(Trim(Request.QueryString("style")))
	If sStyleName = "" Then sStyleName = "standard"

	Dim s_SelfUrl, s_ApplicationName, n_Application, i
	s_SelfUrl = UCase(Request.ServerVariables("SERVER_NAME") & ":" & Request.ServerVariables("SERVER_PORT") & Request.ServerVariables("SCRIPT_NAME") & "?style=" & sStyleName)
	n_Application = 0

	Dim aApplicationName, aApplicationUrl, aApplicationValue
	aApplicationName = Application("eWebEditor_ApplicationName")
	aApplicationUrl = Application("eWebEditor_ApplicationUrl")

	If IsArray(aApplicationName) = True Then
		n_Application = UBound(aApplicationName)
		
		' 是否在內存中
		For i = 1 To n_Application
			If aApplicationUrl(i) = s_SelfUrl Then
				s_ApplicationName = aApplicationName(i)
				aApplicationValue = Application(s_ApplicationName)
				sStyleID			 = aApplicationValue(0)
				sStyleName			 = aApplicationValue(1)
				sStyleDir			 = aApplicationValue(2)
				sStyleCSS			 = aApplicationValue(3)
				sStyleUploadDir		 = aApplicationValue(4)
				nStateFlag			 = aApplicationValue(5)
				sDetectFromWord		 = aApplicationValue(6)
				sInitMode			 = aApplicationValue(7)
				sBaseUrl			 = aApplicationValue(8)
				sVersion			 = aApplicationValue(9)
				sReleaseDate		 = aApplicationValue(10)
				sLicense			 = aApplicationValue(11)
				sToolBarNormal		 = aApplicationValue(12)
				sToolBarFullScreen	 = aApplicationValue(13)
				sBaseHref			 = aApplicationValue(14)
				sAutoRemote			 = aApplicationValue(15)
				sShowBorder			 = aApplicationValue(16)
				If sFullScreen = "1" Then
					sToolBar = sToolBarFullScreen
				Else
					sToolBar = sToolBarNormal
				End If
				Exit Sub
			End If
		Next
	End If


	' 初始化數據庫連接
	Call DBConnBegin()

	sSql = "select * from ewebeditor_style where s_name='" & sStyleName & "'"
	oRs.Open sSql, oConn, 0, 1
	If Not oRs.Eof Then
		sStyleID = oRs("S_ID")
		sStyleName = oRs("S_Name")
		sStyleDir = oRs("S_Dir")
		sStyleCSS = oRs("S_CSS")
		sStyleUploadDir = oRs("S_UploadDir")
		nStateFlag = oRs("S_StateFlag")
		sAutoRemote = CStr(oRs("S_AutoRemote"))
		sShowBorder = CStr(oRs("S_ShowBorder"))
		sDetectFromWord = oRs("S_DetectFromWord")
		sInitMode = oRs("S_InitMode")
		sBaseUrl = oRs("S_BaseUrl")
		sBaseHref = oRs("S_BaseHref")
	Else
		ShowErr "無效的樣式Style參數傳入，如果要使用默認值，請留空！"
	End If
	oRs.Close

	' 取版本號及發布日期
	sSql = "select sys_version,sys_releasedate,sys_license from ewebeditor_system"
	oRs.Open sSql, oConn, 0, 1
	sVersion = oRs(0)
	sReleaseDate = oRs(1)
	sLicense = oRs(2)
	oRs.Close

	' 取所有按鈕
	Call InitButtonArray()
	' 取樣式下的工具欄及按鈕
	Call InitToolBar()
	' 斷開數據庫連接
	Call DBConnEnd()

	If sFullScreen = "1" Then
		sToolBar = sToolBarFullScreen
	Else
		sToolBar = sToolBarNormal
	End If

	n_Application = n_Application + 1
	If n_Application = 1 Then
		Redim aApplicationName(1)
		Redim aApplicationUrl(1)
	Else
		Redim Preserve aApplicationName(n_Application)
		Redim Preserve aApplicationUrl(n_Application)
	End If
	Redim aApplicationValue(16)
	s_ApplicationName = "eWebEditor" & n_Application
	aApplicationName(n_Application) = s_ApplicationName
	aApplicationUrl(n_Application) = s_SelfUrl
	aApplicationValue(0)	 = sStyleID
	aApplicationValue(1)	 = sStyleName
	aApplicationValue(2)	 = sStyleDir
	aApplicationValue(3)	 = sStyleCSS
	aApplicationValue(4)	 = sStyleUploadDir
	aApplicationValue(5)	 = nStateFlag
	aApplicationValue(6)	 = sDetectFromWord
	aApplicationValue(7)	 = sInitMode
	aApplicationValue(8)	 = sBaseUrl
	aApplicationValue(9)	 = sVersion
	aApplicationValue(10)	 = sReleaseDate
	aApplicationValue(11)	 = sLicense
	aApplicationValue(12)	 = sToolBarNormal
	aApplicationValue(13)	 = sToolBarFullScreen
	aApplicationValue(14)	 = sBaseHref
	aApplicationValue(15)	 = sAutoRemote
	aApplicationValue(16)	 = sShowBorder

	Application.Lock
	Application("eWebEditor_ApplicationName") = aApplicationName
	Application("eWebEditor_ApplicationUrl") = aApplicationUrl
	Application(s_ApplicationName) = aApplicationValue
	Application.Unlock

End Sub


' 初始化按鈕數組
Sub InitButtonArray()
	Dim i
	sSql = "select * from ewebeditor_button order by b_order asc"
	oRs.Open sSql, oConn, 0, 1
	i = 0
	Do While Not oRs.Eof
		i = i + 1
		Redim Preserve aButtonCode(i)
		Redim Preserve aButtonHTML(i)
		aButtonCode(i) = oRs("B_Code")
		Select Case oRs("B_Type")
		Case 0
			aButtonHTML(i) = "
        "
		Case 1
			aButtonHTML(i) = ""
		Case 2
			aButtonHTML(i) = "
        " & oRs("B_HTML") & "
        "
		End Select
		oRs.MoveNext
	Loop
	oRs.Close
End Sub

' 由按鈕代碼得到按鈕的最終輸出
Function Code2HTML(s_Code)
	Dim i
	Code2HTML = ""
	For i = 1 To UBound(aButtonCode)
		If UCase(aButtonCode(i)) = UCase(s_Code) Then
			Code2HTML = aButtonHTML(i)
			Exit Function
		End If
	Next
End Function

' 初始化工具欄
Sub InitToolBar()
	Dim aButton, n
	sSql = "select t_button from ewebeditor_toolbar where s_id=" & sStyleID & " order by t_order asc"
	oRs.Open sSql, oConn, 0, 1
	If Not oRs.Eof Then
		sToolBarNormal = ""
		sToolBarFullScreen = "
        "
		Do While Not oRs.Eof
			sToolBarNormal = sToolBarNormal & ""
			sToolBarFullScreen = sToolBarFullScreen & ""
			oRs.MoveNext
		Loop
		sToolBarNormal = sToolBarNormal & "
        "
			sToolBarFullScreen = sToolBarFullScreen & "
        "
			aButton = Split(oRs("T_Button"), "|")
			For n = 0 To UBound(aButton)
				sToolBarNormal = sToolBarNormal & Code2HTML(aButton(n))
				If UCase(aButton(n)) = "MAXIMIZE" Then
					aButton(n) = "Minimize"
				End If
				sToolBarFullScreen = sToolBarFullScreen & Code2HTML(aButton(n))
			Next
			sToolBarNormal = sToolBarNormal & "
        "
		sToolBarFullScreen = sToolBarFullScreen & ""
	Else
		ShowErr "對應樣式沒有設置工具欄！"
	End If
	oRs.Close
End Sub
%>