startup.asp

网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。

     arrButtons(60) = "Btn§合并列（向右侧）§TableColMerge§TableColMerge.gif§0§TableColMerge()"
     arrButtons(61) = "Btn§拆分列§TableColSplit§TableColSplit.gif§0§TableColSplit(2)"
     arrButtons(62) = "Btn§删除列§TableColDelete§TableColDelete.gif§0§TableColDelete()"
     arrButtons(63) = "Btn§插入输入框§FormText§FormText.gif§0§format('InsertInputText')"
     arrButtons(64) = "Btn§插入文字输入区§FormTextArea§FormTextArea.gif§0§format('InsertTextArea')"
     arrButtons(65) = "Btn§插入单选钮§FormRadio§FormRadio.gif§0§format('InsertInputRadio')"
     arrButtons(66) = "Btn§插入复选框§FormCheckbox§FormCheckbox.gif§0§format('InsertInputCheckbox')"
     arrButtons(67) = "Btn§插入下拉框§FormDropdown§FormDropdown.gif§0§format('InsertSelectDropdown')"
     arrButtons(68) = "Btn§插入按钮§FormButton§FormButton.gif§0§format('InsertButton')"
     arrButtons(69) = "Btn§插入或修改字幕§Marquee§Marquee.gif§0§ShowDialog('dialog/marquee.htm', 395, 150, true)"
     arrButtons(70) = "Btn§插入水平尺§HorizontalRule§InsertHorizontalRule.gif§0§format('InsertHorizontalRule')"
     arrButtons(71) = "Btn§插入换行符§BR§BR.gif§0§InsertLabel('<br>')"
     arrButtons(72) = "Btn§插入段落§Paragraph§InsertParagraph.gif§0§format('InsertParagraph')"
     arrButtons(73) = "Btn§插入或修改超级连接§CreateLink§CreateLink.gif§0§createLink()"
     arrButtons(74) = "Btn§取消超级连接或标签§Unlink§Unlink.gif§0§format('UnLink')"
     arrButtons(75) = "Btn§图形热点连接§Map§map.gif§0§mapEdit()"
     arrButtons(76) = "Btn§书签管理§Anchor§anchor.gif§0§ShowDialog('dialog/anchor.htm', 270, 220, true);"
     arrButtons(77) = "Btn§插入或修改栏目框§Fieldset§fieldset.gif§0§ShowDialog('dialog/fieldset.htm', 350, 170, true)"
     arrButtons(78) = "Btn§插入或修改网页帧§Iframe§iframe.gif§0§ShowDialog('dialog/iframe.htm', 350, 200, true)"
     arrButtons(79) = "Btn§全屏修改§Maximize§maximize.gif§0§Maximize()"
     arrButtons(80) = "Btn§全屏返回§Minimize§minimize.gif§0§parent.Minimize()"
     arrButtons(81) = "Btn§保存并返回§Save§save.gif§0§parent.doSave()"
	 arrButtons(82) = "Btn§插入手动分页符§PageNext§Page.gif§0§insert('pagenext')"
     arrButtons(83) = "Btn§插入Excel表格§Excel§excel.gif§0§insert('excel')"
     arrButtons(84) = "Btn§插入特殊字符§Symbol§symbol.gif§0§ShowDialog('dialog/symbol.htm', 350, 220, true)"
     arrButtons(85) = "Btn§插入表情图标§Emot§emot.gif§0§ShowDialog('dialog/emot.htm', 300, 290, true)"
     arrButtons(86) = "Btn§插入当前日期§NowDate§date.gif§0§insert('nowdate')"
     arrButtons(87) = "Btn§插入当前时间§NowTime§time.gif§0§insert('nowtime')"
     arrButtons(88) = "Btn§引用样式§Quote§quote.gif§0§insert('quote')"
     arrButtons(89) = "Btn§代码样式§Code§code.gif§0§insert('code')"
     arrButtons(90) = "Btn§显示或隐藏指导方针§ShowBorders§ShowBorders.gif§0§showBorders()"
     arrButtons(91) = "TBGen§缩放下拉框§ZoomSelect§<option value=10>10%</option><option value=25>25%</option><option value=50>50%</option><option value=75>75%</option><option value=100 selected>100%</option><option value=150>150%</option><option value=200>200%</option><option value=500>500%</option>§1§doZoom(this[this.selectedIndex].value)"
     arrButtons(92) = "Btn§打印§Print§print.gif§0§format('Print')"
     arrButtons(93) = "Btn§下移一层§zIndexBackward§backward.gif§0§zIndex('backward')"
     arrButtons(94) = "Btn§上移一层§zIndexForward§forward.gif§0§zIndex('forward')"
     arrButtons(95) = "Btn§增高修改区§SizePlus§sizeplus.gif§0§sizeChange(300)"
     arrButtons(96) = "Btn§减小修改区§SizeMinus§sizeminus.gif§0§sizeChange(-300)"
     arrButtons(97) = "Btn§代码状态§ModeCode§modecodebtn.gif§0§setMode('CODE')"
     arrButtons(98) = "Btn§修改状态§ModeEdit§modeeditbtn.gif§0§setMode('EDIT')"
     arrButtons(99) = "Btn§文本状态§ModeText§modetextbtn.gif§0§setMode('TEXT')"
     arrButtons(100) = "Btn§预览状态§ModeView§modeviewbtn.gif§0§setMode('VIEW')"
	 arrButtons(101) = "Btn§内容自动排版§PaiBan§PaiBan.gif§0§LayOut()"

     For i = 0 to UBound(arrButtons)
		Redim Preserve aButtonCode(i)
		Redim Preserve aButtonHTML(i)
		arrButtonOption = Split(arrButtons(i),"§")
		aButtonCode(i) = arrButtonOption(2)
		Select Case arrButtonOption(4)
		Case 0
			aButtonHTML(i) = "<DIV CLASS=""" & arrButtonOption(0) & """ TITLE=""" & arrButtonOption(1) & """ onclick=""" & arrButtonOption(5) & """><img CLASS=""Ico"" SRC=""../../Images/Button/" & arrButtonOption(3) & """></DIV>"
		Case 1
			aButtonHTML(i) = "<SELECT CLASS=""" & arrButtonOption(0) & """ onchange=""" & arrButtonOption(5) & """>" & arrButtonOption(3) & "</SELECT>"
		Case 2
			aButtonHTML(i) = "<DIV CLASS=""" & arrButtonOption(0) & """>" & arrButtonOption(3) & "</DIV>"
		Case 3
			aButtonHTML(i) = "<DIV CLASS=""" & arrButtonOption(0) & """ TITLE=""" & arrButtonOption(1) & """ onclick=""" & arrButtonOption(5) & """><img CLASS=""MenuIco"" SRC=""../../Images/Button/" & arrButtonOption(3) & """></DIV>"
		End Select
     Next

	Select Case Str
	  Case "ARTICLE"
	    A_InitTool = "TBHandle|FormatBlock|FontName|FontSize|ZoomSelect|TBSep|TableInsert|TableRowMerge|TableColMerge|TableMenu|FormText|FormTextArea|FormButton|FormMenu|Emot|TBSep|NowDate|PageNext|PaiBan|ToolMenu"
		A_InitTool = A_InitTool & "§"
		A_InitTool = A_InitTool & "TBHandle|SelectAll|TBSep|UnDo|ReDo|TBSep|Cut|Copy|Paste|TBSep|FindReplace|TBSep|RemoveFormat|Delete|EditMenu|Bold|Italic|ForeColor|FontMenu|JustifyLeft|JustifyCenter|TBSep|OrderedList|UnOrderedList|ParagraphMenu|Quote|Code|ObjectMenu|Map|CreateLink|TBSep|HorizontalRule|Marquee|ComponentMenu"
	  Case "SINGLEPAGE"
	    A_InitTool = "TBHandle|FormatBlock|FontName|FontSize|ZoomSelect|TBSep|TableInsert|TableRowMerge|TableColMerge|TableMenu|FormText|FormTextArea|FormButton|FormMenu|Emot|Symbol|TBSep|NowDate|PaiBan|ToolMenu"
		A_InitTool = A_InitTool & "§"
		A_InitTool = A_InitTool & "TBHandle|SelectAll|TBSep|UnDo|ReDo|TBSep|Cut|Copy|Paste|TBSep|FindReplace|TBSep|RemoveFormat|Delete|EditMenu|Bold|Italic|ForeColor|FontMenu|JustifyLeft|JustifyCenter|TBSep|OrderedList|UnOrderedList|ParagraphMenu|Quote|Code|ObjectMenu|Map|CreateLink|TBSep|HorizontalRule|Marquee|ComponentMenu"
	  Case "NONE"
	    A_InitTool = ""
	  Case Else
	    A_InitTool = "TBHandle|FormatBlock|FontName|FontSize|TBSep|Bold|Italic|UnderLine|ForeColor|BackColor|TBSep|JustifyLeft|JustifyCenter|TBSep|Quote|Code|TBSep|Emot"
	End Select

	sToolBarNormal = "<table border=0 cellpadding=0 cellspacing=0 width='100%' class='Toolbar' id='HtmlEdit_toolbar'>"
	A_InitTool = Split(A_InitTool,"§")
    For L_i=0 To UBound(A_InitTool)
	    sToolBarNormal = sToolBarNormal & "<tr><td><div class=yToolbar>"
	    aButton = Split(A_InitTool(L_i), "|")
	    For n = 0 To UBound(aButton)
	       sToolBarNormal = sToolBarNormal & Code2HTML(aButton(n))
	    Next
        sToolBarNormal = sToolBarNormal & "</div></td></tr>"
    Next
    sToolBarNormal = sToolBarNormal & "</table>"
End Function

'由按钮代码得到按钮的最终输出
Function Code2HTML(s_Code)
	Dim i
	Code2HTML = ""
	For i = 0 To UBound(aButtonCode)
		If UCase(aButtonCode(i)) = UCase(s_Code) Then
			Code2HTML = aButtonHTML(i)
			Exit Function
		End If
	Next
End Function
%>