startup.asp

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

<!--#include file="../../Inc/Conn.asp"-->
<!--#include file="../../Inc/Cls.Common.asp"-->
<%
If WRMPS.GetCache("UpLoad") = "" Then
  Response.Write"<style>body{margin:5;font size:12}</style>超时，请刷新页面重试！"
  Response.End
End if

Dim aButtonCode(), aButtonHTML(),L_i,sToolBarNormal
Dim i

' 显示调用错误提示
Sub ShowErr(str)
	Response.Write "调用错误：" & str
	Response.End
End Sub

' ============================================
' 去除Html格式，用于从数据中取出值填入输入框时
' ============================================
Function inHTML(str)
	Dim sTemp
	sTemp = str
	inHTML = ""
	If IsNull(sTemp) = True Then
		Exit Function
	End If
	sTemp = Replace(sTemp, "&", "&amp;")
	sTemp = Replace(sTemp, "<", "&lt;")
	sTemp = Replace(sTemp, ">", "&gt;")
	sTemp = Replace(sTemp, Chr(34), "&quot;")
	inHTML = sTemp
End Function

' 初始化工具栏
Function InitToolBar(Str)
	 Dim aButton, n, A_InitTool
     Dim arrButtons(101),arrButtonOption
     '菜单
     arrButtons(0) = "MenuBtn§工具菜单§ToolMenu§menu.gif§3§showToolMenu('tool',0)"
     arrButtons(1) = "MenuBtn§字体菜单§FontMenu§menu.gif§3§showToolMenu('font',0)"
     arrButtons(2) = "MenuBtn§组件菜单§ComponentMenu§Menu.gif§3§showToolMenu('component',0)"
     arrButtons(3) = "MenuBtn§段落菜单§ParagraphMenu§Menu.gif§3§showToolMenu('paragraph',0)"
     arrButtons(4) = "MenuBtn§缩放菜单§ZoomMenu§menu.gif§3§showToolMenu('zoom',0)"
     arrButtons(5) = "MenuBtn§对象效果菜单§ObjectMenu§menu.gif§3§showToolMenu('object',0)"
     arrButtons(6) = "MenuBtn§文件视图菜单§FileMenu§menu.gif§3§showToolMenu('file',0)"
     arrButtons(7) = "MenuBtn§修改菜单§EditMenu§menu.gif§3§showToolMenu('edit',1)"
     arrButtons(8) = "MenuBtn§表单菜单§FormMenu§Menu.gif§3§showToolMenu('form',0)"
     arrButtons(9) = "MenuBtn§表格菜单§TableMenu§menu.gif§3§showToolMenu('table',0)"
	 '按钮
     arrButtons(10) = "TBSep§分隔线§TBSep§§2§"
     arrButtons(11) = "TBHandle§工具栏头§TBHandle§§2§"
     arrButtons(12) = "TBGen§空格§Space§&nbsp;§2§"
     arrButtons(13) = "TBGen§字体§FontName§<option selected>字体</option><option value=宋体>宋体</option><option value=黑体>黑体</option><option value=楷体_GB2312>楷体</option><option value=仿宋_GB2312>仿宋</option><option value=隶书>隶书</option><option value=幼圆>幼圆</option><option value='Arial'>Arial</option><option value='Arial Black'>Arial Black</option><option value='Arial Narrow'>Arial Narrow</option><option value='Brush Script MT'>Brush Script MT</option><option value='Century Gothic'>Century Gothic</option><option value='Comic Sans MS'>Comic Sans MS</option><option value='Courier'>Courier</option><option value='Courier New'>Courier New</option><option value='MS Sans Serif'>MS Sans Serif</option><option value='System'>System</option><option value='Times New Roman'>Times New Roman</option><option value='Verdana'>Verdana</option><option value='Wide Latin'>Wide Latin</option><option value='Wingdings'>Wingdings</option>§1§format('fontname',this[this.selectedIndex].value);this.selectedIndex=0"
     arrButtons(14) = "Btn§字体增大§Big§tobig.gif§0§insert('big')"
     arrButtons(15) = "TBGen§字体大小§FontSize§<option selected>字号</option><option value=7>一号</option><option value=6>二号</option><option value=5>三号</option><option value=4>四号</option><option value=3>五号</option><option value=2>六号</option><option value=1>七号</option>§1§format('fontsize',this[this.selectedIndex].value);this.selectedIndex=0"
     arrButtons(16) = "Btn§字体减小§Small§tosmall.gif§0§insert('small')"
     arrButtons(17) = "TBGen§段落样式§FormatBlock§<option selected>段落样式</option><option value='&lt;P&gt;'>普通</option><option value='&lt;H1&gt;'>标题一</option><option value='&lt;H2&gt;'>标题二</option><option value='&lt;H3&gt;'>标题三</option><option value='&lt;H4&gt;'>标题四</option><option value='&lt;H5&gt;'>标题五</option><option value='&lt;H6&gt;'>标题六</option><option value='&lt;p&gt;'>段落</option><option value='&lt;dd&gt;'>定义</option><option value='&lt;dt&gt;'>术语定义</option><option value='&lt;dir&gt;'>目录列表</option><option value='&lt;menu&gt;'>菜单列表</option><option value='&lt;PRE&gt;'>已编排格式</option>§1§format('FormatBlock',this[this.selectedIndex].value);this.selectedIndex=0"
     arrButtons(18) = "Btn§粗体§Bold§bold.gif§0§format('bold')"
     arrButtons(19) = "Btn§斜体§Italic§italic.gif§0§format('italic')"
     arrButtons(20) = "Btn§下划线§UnderLine§underline.gif§0§format('underline')"
     arrButtons(21) = "Btn§中划线§StrikeThrough§strikethrough.gif§0§format('StrikeThrough')"
     arrButtons(22) = "Btn§左对齐§JustifyLeft§JustifyLeft.gif§0§format('justifyleft')"
     arrButtons(23) = "Btn§居中对齐§JustifyCenter§JustifyCenter.gif§0§format('justifycenter')"
     arrButtons(24) = "Btn§右对齐§JustifyRight§JustifyRight.gif§0§format('justifyright')"
     arrButtons(25) = "Btn§两端对齐§JustifyFull§JustifyFull.gif§0§format('JustifyFull')"
     arrButtons(26) = "Btn§编号§OrderedList§insertorderedlist.gif§0§format('insertorderedlist')"
     arrButtons(27) = "Btn§项目符号§UnOrderedList§insertunorderedlist.gif§0§format('insertunorderedlist')"
     arrButtons(28) = "Btn§增加缩进量§Indent§indent.gif§0§format('indent')"
     arrButtons(29) = "Btn§减少缩进量§Outdent§outdent.gif§0§format('outdent')"
     arrButtons(30) = "Btn§字体颜色§ForeColor§forecolor.gif§0§ShowDialog('dialog/selcolor.htm?action=forecolor', 280, 250, true)"
     arrButtons(31) = "Btn§对象背景颜色§BgColor§bgcolor.gif§0§ShowDialog('dialog/selcolor.htm?action=bgcolor', 280, 250, true)"
     arrButtons(32) = "Btn§字体背景颜色§BackColor§backcolor.gif§0§ShowDialog('dialog/selcolor.htm?action=backcolor', 280, 250, true)"
     arrButtons(33) = "Btn§绝对或相对位置§absolutePosition§abspos.gif§0§absolutePosition()"
     arrButtons(34) = "Btn§上标§SuperScript§superscript.gif§0§format('superscript')"
     arrButtons(35) = "Btn§下标§SubScript§subscript.gif§0§format('subscript')"
     arrButtons(36) = "Btn§撤消§UnDo§undo.gif§0§goHistory(-1)"
     arrButtons(37) = "Btn§恢复§ReDo§redo.gif§0§goHistory(1)"
     arrButtons(38) = "Btn§全部选中§SelectAll§selectAll.gif§0§format('SelectAll')"
     arrButtons(39) = "Btn§取消选择§UnSelect§unselect.gif§0§format('Unselect')"
     arrButtons(40) = "Btn§剪切§Cut§cut.gif§0§format('cut')"
     arrButtons(41) = "Btn§复制§Copy§copy.gif§0§format('copy')"
     arrButtons(42) = "Btn§常规粘贴§Paste§paste.gif§0§format('paste')"
     arrButtons(43) = "Btn§纯文本粘贴§PasteText§pastetext.gif§0§PasteText()"
     arrButtons(44) = "Btn§从Word中粘贴§PasteWord§pasteword.gif§0§PasteWord()"
     arrButtons(45) = "Btn§查找替换§FindReplace§findreplace.gif§0§findReplace()"
     arrButtons(46) = "Btn§删除§Delete§delete.gif§0§format('delete')"
     arrButtons(47) = "Btn§删除文字格式§RemoveFormat§RemoveFormat.gif§0§format('RemoveFormat')"
     arrButtons(48) = "Btn§插入表格§TableInsert§tableinsert.gif§0§TableInsert()"
     arrButtons(49) = "Btn§修改表格属性§TableProp§tableProp.gif§0§TableProp()"
     arrButtons(50) = "Btn§单元格属性§TableCellProp§TableCellProp.gif§0§TableCellProp()"
     arrButtons(51) = "Btn§拆分单元格§TableCellSplit§TableCellSplit.gif§0§TableCellSplit()"
     arrButtons(52) = "Btn§表格行属性§TableRowProp§TableRowProp.gif§0§TableRowProp()"
     arrButtons(53) = "Btn§插入行（在上方）§TableRowInsertAbove§TableRowInsertAbove.gif§0§TableRowInsertAbove()"
     arrButtons(54) = "Btn§插入行（在下方）§TableRowInsertBelow§TableRowInsertBelow.gif§0§TableRowInsertBelow()"
     arrButtons(55) = "Btn§合并行（向下方）§TableRowMerge§TableRowMerge.gif§0§TableRowMerge()"
     arrButtons(56) = "Btn§拆分行§TableRowSplit§TableRowSplit.gif§0§TableRowSplit(2)"
     arrButtons(57) = "Btn§删除行§TableRowDelete§TableRowDelete.gif§0§TableRowDelete()"
     arrButtons(58) = "Btn§插入列（在左侧）§TableColInsertLeft§TableColInsertLeft.gif§0§TableColInsertLeft()"
     arrButtons(59) = "Btn§插入列（在右侧）§TableColInsertRight§TableColInsertRight.gif§0§TableColInsertRight()"