<% '☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆ '★ ★ '☆ eWebEditor - eWebSoft在線文本編輯器 ☆ '★ ★ '☆ 版權所有: eWebSoft.com ☆ '★ ★ '☆ 程序制作: eWeb開發團隊 ☆ '★ email:webmaster@webasp.net ★ '☆ QQ:589808 ☆ '★ ★ '☆ 相關網址: [產品介紹]http://www.eWebSoft.com/Product/eWebEditor/ ☆ '★ [支持論壇]http://bbs.eWebSoft.com/ ★ '☆ ☆ '★ 主頁地址: http://www.eWebSoft.com/ eWebSoft團隊及產品 ★ '☆ http://www.webasp.net/ WEB技術及應用資源網站 ☆ '★ http://bbs.webasp.net/ WEB技術交流論壇 ★ '★ ★ '☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆ %> <% ' 初始輸入參數 Dim sContentID, sStyleID, sFullScreen Dim sStyleName, sStyleDir, sStyleEditorHeader, sStyleBody, nStateFlag, sDetectFromWord Dim sVersion, sReleaseDate Call InitPara() ' 取所有按鈕 Dim aButtonCode(), aButtonHTML() Call InitButtonArray() ' 取樣式下的工具欄及按鈕 Dim sToolBar Call InitToolBar() ' 斷開數據庫連接 Call DBConnEnd() %> 亚洲人午夜精品射精日韩,亚洲成在人天堂一区二区,在线精品自拍亚洲第一区 
    1. <s id="fhuig"><li id="fhuig"></li></s>
      

      3. <center id="fhuig"></center>

    3. 
国产色无码精品视频免费,天堂va欧美ⅴa亚洲va在线,插插射啊爱视频日a级,亚洲av精选一区二区,手机无码人妻一区二区三区免费,国产在线乱子伦一区二区,亚洲欧美综合一区二区三区,国内精品大秀视频日韩精品 




<% If nStateFlag = 1 Then %>

<% End If %>


      

      

	<%=sToolBar%>


      

      

	
      
	
      
	
	
	
	
	
      
	
      


      

	
      
	
      

	

	
	
	代碼狀態
	預覽狀態
	 

	

	
      
	
      


      








主站蜘蛛池模板：
色综合久久一区二区三区|
人妻人久久精品中文字幕|
综合色区亚洲熟女妇p|
欧美人妻精品|
A片首页制服丝袜|
中文日韩一区二区|
日韩一级亚洲一午夜免费观看中文版国语版
|
久久午夜无码免费|
99国产午夜福利在线观看|
亚洲欧洲美洲无码精品va|
国产av一区二区午夜福利|
日韩秘 无码一区二区三区|
久久精品国产亚洲av麻豆本色|
少妇人妻偷人精品免费|
白白发布视频一区二区视频|
无码精品人妻|
日日碰狠狠添天天爽超碰97|
久久婷婷大香萑太香蕉av人|
影音先锋在线资源网站|
久久精品一区二区东京热|
日屄屄|
国产成人刺激视频在线观看|
中文字幕高清|
精品一日韩美女性夜视频|
一区国产传媒国产精品|
亚洲激情综合|
亚洲中文字幕成人无码|
国产高清不卡视频|
国产成人免费高清AⅤ|
福利社影院|
色综合久久人妻精品日韩|
色综合天天综合网中文伊|
亚洲成av人片天堂网站|
亚洲?欧美?自拍?偷拍|
中文字幕一区二区人妻出轨|
激情五月久久|
久久精品国产国产精品四凭|
婷婷伊人綜合中文字幕小说|
99精品热视频|
亚洲自偷自偷在线成人网站传媒|
av在线播放观看国产|





<%


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

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

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

	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")
		sStyleEditorHeader = oRs("S_EditorHeader")
		sStyleBody = oRs("S_Body")
		nStateFlag = oRs("S_StateFlag")
		sDetectFromWord = oRs("S_DetectFromWord")
	Else
		ShowErr "無效的樣式Style參數傳入，如果要使用默認值，請留空！"
	End If
	oRs.Close

	' 取版本號及發布日期
	sSql = "select sys_version,sys_releasedate from ewebeditor_system"
	oRs.Open sSql, oConn, 0, 1
	sVersion = oRs(0)
	sReleaseDate = oRs(1)
	oRs.Close
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
		sToolBar = ""
		Do While Not oRs.Eof
			sToolBar = sToolBar & ""
			oRs.MoveNext
		Loop
		sToolBar = sToolBar & "
      "
			aButton = Split(oRs("T_Button"), "|")
			For n = 0 To UBound(aButton)
				If sFullScreen = "1" And UCase(aButton(n)) = "MAXIMIZE" Then
					aButton(n) = "Minimize"
				End If
				sToolBar = sToolBar & Code2HTML(aButton(n))
			Next
			sToolBar = sToolBar & "
      "
	Else
		ShowErr "對應樣式沒有設置工具欄！"
	End If
	oRs.Close
End Sub

%>