<% '☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆ '★ ★ '☆ eWebEditor - eWebSoft在線(xiàn)文本編輯器 ☆ '★ ★ '☆ 版權(quán)所有: eWebSoft.com ☆ '★ ★ '☆ 程序制作: eWeb開(kāi)發(fā)團(tuán)隊(duì) ☆ '★ email:webmaster@webasp.net ★ '☆ QQ:589808 ☆ '★ ★ '☆ 相關(guān)網(wǎng)址: [產(chǎn)品介紹]http://www.eWebSoft.com/Product/eWebEditor/ ☆ '★ [支持論壇]http://bbs.eWebSoft.com/ ★ '☆ ☆ '★ 主頁(yè)地址: http://www.eWebSoft.com/ eWebSoft團(tuán)隊(duì)及產(chǎn)品 ★ '☆ http://www.webasp.net/ WEB技術(shù)及應(yīng)用資源網(wǎng)站 ☆ '★ http://bbs.webasp.net/ WEB技術(shù)交流論壇 ★ '★ ★ '☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆ %> <% ' 初始輸入?yún)?shù) 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() ' 斷開(kāi)數(shù)據(jù)庫(kù)連接 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%>


      

      

	
      
	
      
	
	
	
	
	
      
	
      


      

	
      
	
      

	

	
	
	代碼狀態(tài)
	預(yù)覽狀態(tài)
	 

	

	
      
	
      


      








主站蜘蛛池模板：
少妇xxxxx性开放|
很很操av|
精品一区二区三区无码视频无码|
国产午夜精品理论片久久影院|
国产亚洲精品a在线观看下载
|
欧美va天堂va视频va在线|
成人文学区人妻|
永久免费观看美女裸体的网站|
亚洲男人精品青春的天堂|
扒开粉嫩的小缝隙喷白浆视频|
91精品一区二区三区在线观看|
任我爽精品视频在线播放|
亚洲5555|
中文字幕国产三区|
久久综合精品无码AV一区二区三区
|
成人AV三级|
亚洲AV成人一区国产精品|
国产精品欧美福利久久|
毛片自拍|
国产精品自拍超碰在线|
国产一区二区三区在线电影|
97视频精品全国免费观看|
91精品国产一二三产区|
老少配老妇老熟女中文普通话|
日本福利一区二区精品|
久久精品午夜视频|
久久国产精品1区2区3区网页|
中文毛片无遮挡高潮|
免费看成人欧美片爱潮app|
国产一区二区不卡精品视频|
激情影院内射美女|
全球av集中精品导航福利|
67194国产|
国产va免费精品观看精品|
国产AV天堂亚洲国产AV天堂|
国产成人狂喷潮在线观看2345|
亚洲成人高清在线观看|
亚洲熟妇乱色一区二区三区|
wwwwcom色是|
郓城县|
欧美不卡视频一区发布|





<%


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

' 初始化輸入?yún)?shù)
Sub InitPara()
	' 取全屏標(biāo)志
	sFullScreen = Trim(Request.QueryString("fullscreen"))
	' 取對(duì)應(yīng)的內(nèi)容ID
	sContentID = Trim(Request.QueryString("id"))
	If sContentID = "" Then ShowErr "請(qǐng)傳入調(diào)用參數(shù)ID，即隱藏的內(nèi)容表單項(xiàng)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 "無(wú)效的樣式Style參數(shù)傳入，如果要使用默認(rèn)值，請(qǐng)留空！"
	End If
	oRs.Close

	' 取版本號(hào)及發(fā)布日期
	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

' 初始化按鈕數(shù)組
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 "對(duì)應(yīng)樣式?jīng)]有設(shè)置工具欄！"
	End If
	oRs.Close
End Sub

%>