<% '☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆ '★ ★ '☆ eWebEditor - eWebSoft在線文本編輯器 ☆ '★ ★ '☆ 版權(quán)所有: eWebSoft.com ☆ '★ ★ '☆ 程序制作: eWeb開發(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() ' 斷開數(shù)據(jù)庫(kù)連接 Call DBConnEnd() %> 无码区a∨视频体验区30秒,青青草原亚洲

亚洲AV无码久久精品狠狠爱浪潮,国产乱人伦APP精品久久,亚洲啪AV永久无码精品放毛片,色天使色偷偷色噜噜

<% If nStateFlag = 1 Then %> <% End If %>

<%=sToolBar%>

<% ' 顯示調(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 "無效的樣式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 & "" Else ShowErr "對(duì)應(yīng)樣式?jīng)]有設(shè)置工具欄！" End If oRs.Close End Sub %>