admin_uploadset.asp

Art2008 CMS是一款具有强大的功能的基于ASP语言的网站管理软件

		<td width=32% align=left><b><u>FLASH上传大小</u></b><br><font color="#FF0000">0 为无限制</font></td>
		<td height="25"><input type="text" name="U_FlashSize" size="23" value="<%=split(aStyle(11),"|||")(12)%>"> KB</td>
	</tr>
	<tr bgcolor="#F7F7F7" onMouseOut="this.style.backgroundColor='#F7F7F7'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
		<td width=32% align=left><b><u>其它文件类型</u></b><br><font color="#FF0000">用 | 分开</font></td>
		<td height="25"><input type="text" name="U_FileExt" size="49" value="<%=split(aStyle(11),"|||")(6)%>"></td>
	</tr>
	<tr bgcolor="#FFFFFF" onMouseOut="this.style.backgroundColor='#FFFFFF'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
		<td width=32% align=left><b><u>其它文件大小</u></b><br><font color="#FF0000">0 为无限制</font></td>
		<td height="25"><input type="text" name="U_FileSize" size="23" value="<%=split(aStyle(11),"|||")(11)%>"> KB</td>
    </tr>
	<tr>
    <td align="center" height="40" colspan="2"class="tableBorder"><input type="submit" value=" 提  交 " name="B1">　　　<input type="reset" value=" 重  置 " name="B2"></td>
	</tr></form>	
</table>

<!--选项内容结束 2008.9.22 -->
<%
end Sub

sub SaveConfig()
    If not IsObjInstalled("Scripting.FileSystemObject") Then 
  	Call Alert("您的服务器不支持本次操作！！！","admin_uploadset.asp")

	  exit sub
	end if
	dim fso,hf
	set fso=Server.CreateObject("Scripting.FileSystemObject")
	set hf=fso.CreateTextFile(Server.mappath("../edit/asp/config.asp"),true)
	hf.write "<" & "%" & vbcrlf
	hf.write "Dim sUsername, sPassword" & vbcrlf
    hf.write "sUsername = " & chr(34) & "admin" & chr(34) & vbcrlf
    hf.write "sPassword = " & chr(34) & "admin" & chr(34) & vbcrlf
	hf.write "Dim aStyle()" & vbcrlf
    hf.write "Redim aStyle(11)" & vbcrlf
    hf.write "aStyle(1) = "  & chr(34) & "gray|||gray|||office|||uploadfile/|||550|||350|||rar|zip|exe|doc|xls|chm|hlp|||swf|||gif|jpg|jpeg|bmp|||rm|mp3|wav|mid|midi|ra|avi|mpg|mpeg|asf|asx|wma|mov|||gif|jpg|jpeg|bmp|||500|||100|||10000|||100|||100|||1|||1|||EDIT|||1|||0|||0|||||||||1|||0|||Office标准风格，部分常用按钮，标准适合界面宽度|||1|||zh-cn|||0|||500|||300|||1|||版权所有|||FF0000|||12|||宋体||||||0|||jpg|jpeg|||300|||FFFFFF|||1" & chr(34) & vbcrlf
    hf.write "aStyle(2) = "  & chr(34) &"full|||blue|||coolblue|||uploadfile/|||550|||400|||rar|zip|exe|doc|xls|chm|hlp|||swf|||gif|jpg|jpeg|bmp|||rm|mp3|wav|mid|midi|ra|avi|mpg|mpeg|asf|asx|wma|mov|||gif|jpg|jpeg|bmp|||500|||100|||100|||100|||100|||1|||1|||EDIT|||1|||0|||0|||||||||1|||0|||酷蓝样式，全部功能按钮|||1|||zh-cn|||0|||500|||300|||0|||版权所有...|||FF0000|||12|||宋体||||||0|||jpg|jpeg|||300|||FFFFFF|||1" & chr(34) & vbcrlf
    hf.write "aStyle(3) = "  & chr(34) &"light|||gray|||light|||uploadfile/|||550|||350|||rar|zip|exe|doc|xls|chm|hlp|||swf|||gif|jpg|jpeg|bmp|||rm|mp3|wav|mid|midi|ra|avi|mpg|mpeg|asf|asx|wma|mov|||gif|jpg|jpeg|bmp|||500|||100|||100|||100|||100|||1|||1|||EDIT|||1|||0|||0|||||||||1|||0|||Office标准风格按钮+淡色，部分常用按钮，标准适合界面宽度|||1|||zh-cn|||0|||500|||300|||0|||版权所有...|||FF0000|||12|||宋体||||||0|||jpg|jpeg|||300|||FFFFFF|||1" & chr(34) & vbcrlf
    hf.write "aStyle(4) ="  & chr(34) &"blue|||blue|||blue|||uploadfile/|||550|||350|||rar|zip|exe|doc|xls|chm|hlp|||swf|||gif|jpg|jpeg|bmp|||rm|mp3|wav|mid|midi|ra|avi|mpg|mpeg|asf|asx|wma|mov|||gif|jpg|jpeg|bmp|||204800|||100|||102400|||100|||100|||1|||1|||EDIT|||1|||0|||3|||||||||1|||1|||Office标准风格按钮+蓝色，部分常用按钮，标准适合界面宽度|||1|||zh-cn|||1|||500|||300|||1|||des.yi.org|||FF0000|||12|||宋体||||||0|||jpg|jpeg|||300|||FFFFFF|||1" & chr(34) & vbcrlf
    hf.write "aStyle(5) ="  & chr(34) &"green|||gray|||green|||uploadfile/|||550|||350|||rar|zip|exe|doc|xls|chm|hlp|||swf|||gif|jpg|jpeg|bmp|||rm|mp3|wav|mid|midi|ra|avi|mpg|mpeg|asf|asx|wma|mov|||gif|jpg|jpeg|bmp|||500|||100|||100|||100|||100|||1|||1|||EDIT|||1|||0|||0|||||||||1|||0|||Office标准风格按钮+绿色，部分常用按钮，标准适合界面宽度|||1|||zh-cn|||0|||500|||300|||0|||版权所有...|||FF0000|||12|||宋体||||||0|||jpg|jpeg|||300|||FFFFFF|||1" & chr(34) & vbcrlf
    hf.write "aStyle(6) ="  & chr(34) &"red|||gray|||red|||uploadfile/|||550|||350|||rar|zip|exe|doc|xls|chm|hlp|||swf|||gif|jpg|jpeg|bmp|||rm|mp3|wav|mid|midi|ra|avi|mpg|mpeg|asf|asx|wma|mov|||gif|jpg|jpeg|bmp|||500|||100|||100|||100|||100|||1|||1|||EDIT|||1|||0|||0|||||||||1|||0|||Office标准风格按钮+红色，部分常用按钮，标准适合界面宽度|||1|||zh-cn|||0|||500|||300|||0|||版权所有...|||FF0000|||12|||宋体||||||0|||jpg|jpeg|||300|||FFFFFF|||1" & chr(34) & vbcrlf
    hf.write "aStyle(7) = "  & chr(34) &"yellow|||gray|||yellow|||uploadfile/|||550|||350|||rar|zip|exe|doc|xls|chm|hlp|||swf|||gif|jpg|jpeg|bmp|||rm|mp3|wav|mid|midi|ra|avi|mpg|mpeg|asf|asx|wma|mov|||gif|jpg|jpeg|bmp|||500|||100|||100|||100|||100|||1|||1|||EDIT|||1|||0|||0|||||||||1|||0|||Office标准风格按钮+黄色，部分常用按钮，标准适合界面宽度|||1|||zh-cn|||0|||500|||300|||0|||版权所有...|||FF0000|||12|||宋体||||||0|||jpg|jpeg|||300|||FFFFFF|||1" & chr(34) & vbcrlf
    hf.write "aStyle(8) ="  & chr(34) &"3d|||gray|||office3d|||uploadfile/|||550|||350|||rar|zip|exe|doc|xls|chm|hlp|||swf|||gif|jpg|jpeg|bmp|||rm|mp3|wav|mid|midi|ra|avi|mpg|mpeg|asf|asx|wma|mov|||gif|jpg|jpeg|bmp|||500|||100|||100|||100|||100|||1|||1|||EDIT|||1|||0|||0|||||||||1|||0|||Office标准风格3D凹凸按钮，部分常用按钮，标准适合界面宽度|||1|||zh-cn|||0|||500|||300|||0|||版权所有...|||FF0000|||12|||宋体||||||0|||jpg|jpeg|||300|||FFFFFF|||1" & chr(34) & vbcrlf
    hf.write "aStyle(9) = "  & chr(34) &"coolblue|||standard|||office2|||"& trim(request("S_uploadfile")) &"|||651|||350|||"& trim(request("S_FileExt")) &"|||"& trim(request("S_FlashExt"))&"|||"& trim(request("S_ImageExt")) &"|||"& trim(request("S_MediaExt")) &"|||"& trim(request("S_RemoteExt")) &"|||"& trim(request("S_FileSize")) &"|||"& trim(request("S_FlashSize")) &"|||"& trim(request("S_ImageSize")) &"|||"& trim(request("S_MediaSize")) &"|||"& trim(request("S_RemoteSize")) &"|||1|||1|||EDIT|||1|||0|||2|||||||||1|||0|||COOL界面，蓝色主调，标准风格，部分常用按钮，标准适合界面宽度，默认样式|||1|||zh-cn|||0|||500|||300|||0|||版权所有...|||000000|||12|||宋体||||||0|||jpg|jpeg|||300|||FFFFFF|||1" & chr(34) & vbcrlf
    hf.write "aStyle(10) = "  & chr(34) &"Simple|||standard|||office2|||uploadfile/|||650|||350|||rar|zip|exe|doc|xls|chm|hlp|||swf|||gif|jpg|jpeg|bmp|||rm|mp3|wav|mid|midi|ra|avi|mpg|mpeg|asf|asx|wma|mov|||gif|jpg|jpeg|bmp|||500|||100|||100|||100|||100|||0|||0|||EDIT|||1|||0|||2|||||||||0|||0|||简洁菜单风格，部分常规功能按钮。|||1|||zh-cn|||0|||500|||300|||0|||版权所有...|||FF0000|||12|||宋体||||||0|||jpg|jpeg|||300|||FFFFFF|||1" & chr(34) & vbcrlf
    hf.write "aStyle(11) = "  & chr(34) &"upload|||standard|||office2|||"& trim(request("u_uploadfile")) &"|||651|||350|||"& trim(request("u_FileExt")) &"|||"& trim(request("u_FlashExt"))&"|||gif|jpg|jpeg|bmp|||rm|mp3|wav|mid|midi|ra|avi|mpg|mpeg|asf|asx|wma|mov|||"& trim(request("u_RemoteExt")) &"|||"& trim(request("u_FileSize")) &"|||"& trim(request("u_FlashSize")) &"|||"& trim(request("u_ImageSize")) &"|||100|||100|||0|||0|||EDIT|||1|||0|||2|||||||||0|||0|||限定上传文件大小，部分常规功能按钮。|||1|||zh-cn|||0|||500|||300|||0|||版权所有...|||FF0000|||12|||宋体||||||0|||jpg|jpeg|||300|||FFFFFF|||1" & chr(34) & vbcrlf

    hf.write "Dim aToolbar()" & vbcrlf
    hf.write "Redim aToolbar(32)" & vbcrlf
    hf.write "aToolbar(1) = "  & chr(34) &"1|||TBHandle|FormatBlock|FontName|FontSize|ZoomSelect|Bold|Italic|UnderLine|StrikeThrough|SuperScript|SubScript|TBSep|JustifyLeft|JustifyCenter|JustifyRight|JustifyFull|||格式工具栏|||1" & chr(34) & vbcrlf
    hf.write "aToolbar(2) = "  & chr(34) &"1|||TBHandle|Cut|Copy|Paste|PasteText|PasteWord|FindReplace|Delete|RemoveFormat|TBSep|UnDo|ReDo|SelectAll|UnSelect|TBSep|OrderedList|UnOrderedList|Indent|Outdent|ParagraphAttr|TBSep|ForeColor|BgColor|BackColor|BackImage|TBSep|absolutePosition|zIndexForward|zIndexBackward|||常用工具栏|||2" & chr(34) & vbcrlf
    hf.write "aToolbar(3) = "  & chr(34) &"1|||TBHandle|Image|Flash|Media|File|TBSep|TableMenu|FormMenu|ShowBorders|TBSep|Fieldset|Iframe|HorizontalRule|Marquee|CreateLink|Anchor|Map|Unlink|TBSep|Symbol|Emot|Excel|Art|NowDate|NowTime|Quote|TBSep|Maximize|About|||高级工具栏|||3" & chr(34) & vbcrlf
    hf.write "aToolbar(4) = "  & chr(34) &"2|||TBHandle|FormatBlock|FontName|FontSize|ZoomSelect|Bold|Italic|UnderLine|StrikeThrough|SuperScript|SubScript|TBSep|JustifyLeft|JustifyCenter|JustifyRight|JustifyFull|||格式工具栏|||1" & chr(34) & vbcrlf
    hf.write "aToolbar(5) = "  & chr(34) &"2|||TBHandle|Cut|Copy|Paste|PasteText|PasteWord|FindReplace|Delete|RemoveFormat|TBSep|UnDo|ReDo|SelectAll|UnSelect|TBSep|OrderedList|UnOrderedList|Indent|Outdent|ParagraphAttr|TBSep|ForeColor|BgColor|BackColor|BackImage|TBSep|absolutePosition|zIndexForward|zIndexBackward|||常用工具栏|||2" & chr(34) & vbcrlf
    hf.write "aToolbar(6) = "  & chr(34) &"2|||TBHandle|Image|Flash|Media|File|RemoteUpload|TBSep|TableMenu|FormMenu|ShowBorders|TBSep|Fieldset|Iframe|HorizontalRule|Marquee|CreateLink|Anchor|Map|Unlink|TBSep|Symbol|Emot|Excel|Art|NowDate|NowTime|TBSep|Quote|Code|||高级工具栏|||3" & chr(34) & vbcrlf
    hf.write "aToolbar(7) = "  & chr(34) &"2|||TBHandle|Paragraph|BR|TBSep|TableInsert|TableProp|TBSep|TableCellProp|TableCellSplit|TBSep|TableRowProp|TableRowInsertAbove|TableRowInsertBelow|TableRowMerge|TableRowSplit|TableRowDelete|TBSep|TableColInsertLeft|TableColInsertRight|TableColMerge|TableColSplit|TableColDelete|TBSep|FormText|FormTextArea|FormRadio|FormCheckbox|FormDropdown|FormButton|||表格与表单|||4" & chr(34) & vbcrlf
    hf.write "aToolbar(8) = "  & chr(34) &"2|||TBHandle|EditMenu|FontMenu|ParagraphMenu|ComponentMenu|ObjectMenu|ToolMenu|TableMenu|FormMenu|FileMenu|ZoomMenu|TBSep|Refresh|Save|TBSep|Print|TBSep|ModeCode|ModeEdit|ModeText|ModeView|TBSep|SizePlus|SizeMinus|TBSep|Maximize|TBSep|EQ|TBSep|About|Site|||菜单与状态|||5" & chr(34) & vbcrlf
    hf.write "aToolbar(9) = "  & chr(34) &"3|||TBHandle|FormatBlock|FontName|FontSize|ZoomSelect|Bold|Italic|UnderLine|StrikeThrough|SuperScript|SubScript|TBSep|JustifyLeft|JustifyCenter|JustifyRight|JustifyFull|||格式工具栏|||1" & chr(34) & vbcrlf
    hf.write "aToolbar(10) = "  & chr(34) &"3|||TBHandle|Cut|Copy|Paste|PasteText|PasteWord|FindReplace|Delete|RemoveFormat|TBSep|UnDo|ReDo|SelectAll|UnSelect|TBSep|OrderedList|UnOrderedList|Indent|Outdent|ParagraphAttr|TBSep|ForeColor|BgColor|BackColor|BackImage|TBSep|absolutePosition|zIndexForward|zIndexBackward|||常用工具栏|||2" & chr(34) & vbcrlf
    hf.write "aToolbar(11) = "  & chr(34) &"3|||TBHandle|Image|Flash|Media|File|TBSep|TableMenu|FormMenu|ShowBorders|TBSep|Fieldset|Iframe|HorizontalRule|Marquee|CreateLink|Anchor|Map|Unlink|TBSep|Symbol|Emot|Excel|Art|NowDate|NowTime|Quote|TBSep|Maximize|About|||高级工具栏|||3" & chr(34) & vbcrlf
    hf.write "aToolbar(12) = "  & chr(34) &"4|||TBHandle|FormatBlock|FontName|FontSize|ZoomSelect|Bold|Italic|UnderLine|StrikeThrough|SuperScript|SubScript|TBSep|JustifyLeft|JustifyCenter|JustifyRight|JustifyFull|||格式工具栏|||1" & chr(34) & vbcrlf
    hf.write "aToolbar(13) = "  & chr(34) &"4|||TBHandle|Cut|Copy|Paste|PasteText|PasteWord|FindReplace|Delete|RemoveFormat|TBSep|UnDo|ReDo|SelectAll|UnSelect|TBSep|OrderedList|UnOrderedList|Indent|Outdent|ParagraphAttr|TBSep|ForeColor|BgColor|BackColor|BackImage|TBSep|absolutePosition|zIndexForward|zIndexBackward|||常用工具栏|||2" & chr(34) & vbcrlf
    hf.write "aToolbar(14) = "  & chr(34) &"4|||TBHandle|Image|Flash|Media|File|TBSep|TableMenu|FormMenu|ShowBorders|TBSep|Fieldset|Iframe|HorizontalRule|Marquee|CreateLink|Anchor|Map|Unlink|TBSep|Symbol|Emot|Art|NowDate|NowTime|Quote|TBSep|Maximize|LocalUpload|ImportWord|RemoteUpload|||高级工具栏|||3" & chr(34) & vbcrlf
    hf.write "aToolbar(15) = "  & chr(34) &"5|||TBHandle|FormatBlock|FontName|FontSize|ZoomSelect|Bold|Italic|UnderLine|StrikeThrough|SuperScript|SubScript|TBSep|JustifyLeft|JustifyCenter|JustifyRight|JustifyFull|||格式工具栏|||1" & chr(34) & vbcrlf
    hf.write "aToolbar(16) = "  & chr(34) &"5|||TBHandle|Cut|Copy|Paste|PasteText|PasteWord|FindReplace|Delete|RemoveFormat|TBSep|UnDo|ReDo|SelectAll|UnSelect|TBSep|OrderedList|UnOrderedList|Indent|Outdent|ParagraphAttr|TBSep|ForeColor|BgColor|BackColor|BackImage|TBSep|absolutePosition|zIndexForward|zIndexBackward|||常用工具栏|||2" & chr(34) & vbcrlf
    hf.write "aToolbar(17) = "  & chr(34) &"5|||TBHandle|Image|Flash|Media|File|TBSep|TableMenu|FormMenu|ShowBorders|TBSep|Fieldset|Iframe|HorizontalRule|Marquee|CreateLink|Anchor|Map|Unlink|TBSep|Symbol|Emot|Excel|Art|NowDate|NowTime|Quote|TBSep|Maximize|About|||高级工具栏|||3" & chr(34) & vbcrlf
    hf.write "aToolbar(18) = "  & chr(34) &"6|||TBHandle|FormatBlock|FontName|FontSize|ZoomSelect|Bold|Italic|UnderLine|StrikeThrough|SuperScript|SubScript|TBSep|JustifyLeft|JustifyCenter|JustifyRight|JustifyFull|||格式工具栏|||1" & chr(34) & vbcrlf
    hf.write "aToolbar(19) = "  & chr(34) &"6|||TBHandle|Cut|Copy|Paste|PasteText|PasteWord|FindReplace|Delete|RemoveFormat|TBSep|UnDo|ReDo|SelectAll|UnSelect|TBSep|OrderedList|UnOrderedList|Indent|Outdent|ParagraphAttr|TBSep|ForeColor|BgColor|BackColor|BackImage|TBSep|absolutePosition|zIndexForward|zIndexBackward|||常用工具栏|||2" & chr(34) & vbcrlf
    hf.write "aToolbar(20) = "  & chr(34) &"6|||TBHandle|Image|Flash|Media|File|TBSep|TableMenu|FormMenu|ShowBorders|TBSep|Fieldset|Iframe|HorizontalRule|Marquee|CreateLink|Anchor|Map|Unlink|TBSep|Symbol|Emot|Excel|Art|NowDate|NowTime|Quote|TBSep|Maximize|About|||高级工具栏|||3" & chr(34) & vbcrlf
    hf.write "aToolbar(21) = "  & chr(34) &"7|||TBHandle|FormatBlock|FontName|FontSize|ZoomSelect|Bold|Italic|UnderLine|StrikeThrough|SuperScript|SubScript|TBSep|JustifyLeft|JustifyCenter|JustifyRight|JustifyFull|||格式工具栏|||1" & chr(34) & vbcrlf
    hf.write "aToolbar(22) = "  & chr(34) &"7|||TBHandle|Cut|Copy|Paste|PasteText|PasteWord|FindReplace|Delete|RemoveFormat|TBSep|UnDo|ReDo|SelectAll|UnSelect|TBSep|OrderedList|UnOrderedList|Indent|Outdent|ParagraphAttr|TBSep|ForeColor|BgColor|BackColor|BackImage|TBSep|absolutePosition|zIndexForward|zIndexBackward|||常用工具栏|||2" & chr(34) & vbcrlf
    hf.write "aToolbar(23) = "  & chr(34) &"7|||TBHandle|Image|Flash|Media|File|TBSep|TableMenu|FormMenu|ShowBorders|TBSep|Fieldset|Iframe|HorizontalRule|Marquee|CreateLink|Anchor|Map|Unlink|TBSep|Symbol|Emot|Excel|Art|NowDate|NowTime|Quote|TBSep|Maximize|About|||高级工具栏|||3" & chr(34) & vbcrlf
    hf.write "aToolbar(24) = "  & chr(34) &"8|||TBHandle|FormatBlock|FontName|FontSize|ZoomSelect|Bold|Italic|UnderLine|StrikeThrough|SuperScript|SubScript|TBSep|JustifyLeft|JustifyCenter|JustifyRight|JustifyFull|||格式工具栏|||1" & chr(34) & vbcrlf
    hf.write "aToolbar(25) = "  & chr(34) &"8|||TBHandle|Cut|Copy|Paste|PasteText|PasteWord|FindReplace|Delete|RemoveFormat|TBSep|UnDo|ReDo|SelectAll|UnSelect|TBSep|OrderedList|UnOrderedList|Indent|Outdent|ParagraphAttr|TBSep|ForeColor|BgColor|BackColor|BackImage|TBSep|absolutePosition|zIndexForward|zIndexBackward|||常用工具栏|||2" & chr(34) & vbcrlf
    hf.write "aToolbar(26) = "  & chr(34) &"8|||TBHandle|Image|Flash|Media|File|TBSep|TableMenu|FormMenu|ShowBorders|TBSep|Fieldset|Iframe|HorizontalRule|Marquee|CreateLink|Anchor|Map|Unlink|TBSep|Symbol|Emot|Excel|Art|NowDate|NowTime|Quote|TBSep|Maximize|About|||高级工具栏|||3" & chr(34) & vbcrlf
    hf.write "aToolbar(27) = "  & chr(34) &"9|||TBHandle|FormatBlock|FontName|FontSize|Cut|Copy|Paste|PasteText|PasteWord|Delete|RemoveFormat|FindReplace|TBSep|absolutePosition|zIndexBackward|zIndexForward|TBSep|CreateLink|Anchor|Map|Unlink|||格式工具栏|||1" & chr(34) & vbcrlf
    hf.write "aToolbar(28) = "  & chr(34) &"9|||TBHandle|Bold|Italic|UnderLine|StrikeThrough|TBSep|SuperScript|SubScript|TBSep|UnDo|ReDo|TBSep|JustifyLeft|JustifyCenter|JustifyRight|JustifyFull|TBSep|OrderedList|UnOrderedList|Indent|Outdent|TBSep|ForeColor|BackColor|TBSep|BgColor|BackImage|TBSep|Fieldset|Iframe|TBSep|HorizontalRule|Marquee|||常用工具栏|||2" & chr(34) & vbcrlf
    hf.write "aToolbar(29) = "  & chr(34) &"9|||TBHandle|Image|Flash|Media|File|TBSep|TableMenu|FormMenu|TBSep|RemoteUpload|LocalUpload|ImportWord|TBSep|BR|Paragraph|ParagraphAttr|TBSep|Symbol|Art|Excel|Quote|Emot|TBSep|NowDate|NowTime|TBSep|UnSelect|SelectAll|TBSep|ShowBorders|ZoomMenu|Maximize|TBSep|||高级工具栏|||3" & chr(34) & vbcrlf
    hf.write "aToolbar(30) = "  & chr(34) &"10|||Cut|Copy|Paste|PasteText|FindReplace|TBSep|UnDo|ReDo|SelectAll|Delete|TBSep|ForeColor|BgColor|BackColor|TBSep|Art|Emot|TBSep|CreateLink|Unlink|TBSep|ZoomMenu|Maximize|||Simple1|||1" & chr(34) & vbcrlf
    hf.write "aToolbar(31) = "  & chr(34) &"11|||TBHandle|FormatBlock|FontName|FontSize|TBSep|Bold|Italic|UnderLine|StrikeThrough|JustifyLeft|JustifyCenter|JustifyRight|JustifyFull|TBSep|ForeColor|BgColor|BackColor|||格式工具栏|||1" & chr(34) & vbcrlf
    hf.write "aToolbar(32) = "  & chr(34) &"11|||Image|Flash|File|TBSep|Cut|Copy|Paste|PasteText|PasteWord|FindReplace|TBSep|UnDo|ReDo|SelectAll|Delete|TBSep|TableInsert|Art|Emot|Iframe|TBSep|CreateLink|Unlink|TBSep|ZoomMenu|Maximize|||Simple1|||1" & chr(34) & vbcrlf

    hf.write "%" & ">"
	hf.close
	set hf=nothing
	set fso=nothing

	call ArtErr("<li>您已修改成功上传文件选项设置！。</li>","2")
end sub

Sub SaveCj()
	 Dim CjUpFilePath:CjUpFilePath=trim(request("CjUpFilePath"))
	 set rs = Server.CreateObject("ADODB.RecordSet")
	 rs.Open "select * from [config] order by id desc",conn,1,3
		rs("CjUpFilePath")=CjUpFilePath
		rs.update
	 rs.close:set rs=nothing
End Sub
%>