arrFiles=new Array();arrFiles[0]=new Array("Admin_check.asp","<%=webname%>-空间查看       ","空间的使用情况 1024 then size=(size \\1024) showsize=size & \"KB \"	end if	if size1024 then size=(size/1024) showsize=size & \"MB \"	end if	if size1024 then size=(size/1024) showsize=size & \"GB \"	end if	response.write \" \" & showsize & \" \"	End Sub	Sub Showspecialspaceinfo(method)	dim fso,d,fc,f1,size,showsize,drvpath	set fso=server.createobject( \"scripting.filesystemobject \")	drvpath=server.mappath( \"pic \")	drvpath=left(drvpath,(instrrev(drvpath, \" \\ \")-1))	set d=fso.getfolder(drvpath)	if method= \"All \" then	size=d.size	elseif method= \"Program \" then	set fc=d.Files	for each f1 in fc	size=size+f1.size	next	end if	showsize=size & \"Byte \"	if size1024 then size=(size \\1024) showsize=size & \"KB \"	end if	if size1024 then size=(size/1024) showsize=size & \"MB \"	end if	if size1024 then size=(size/1024) showsize=size & \"GB \"	end if	response.write \" \" & showsize & \" \"	end sub	Function Drawbar(drvpath)	dim fso,drvpathroot,d,size,totalsize,barsize	set fso=server.createobject( \"scripting.filesystemobject \")	drvpathroot=server.mappath( \"pic \")	drvpathroot=left(drvpathroot,(instrrev(drvpathroot, \" \\ \")-1))	set d=fso.getfolder(drvpathroot)	totalsize=d.size	drvpath=server.mappath(drvpath)	set d=fso.getfolder(drvpath)	size=d.size	barsize=cint((size/totalsize)*400)	Drawbar=barsize	End Function	Function Drawspecialbar()	dim fso,drvpathroot,d,fc,f1,size,totalsize,barsize	set fso=server.createobject( \"scripting.filesystemobject \")	drvpathroot=server.mappath( \"pic \")	drvpathroot=left(drvpathroot,(instrrev(drvpathroot, \" \\ \")-1))	set d=fso.getfolder(drvpathroot)	totalsize=d.size	set fc=d.files	for each f1 in fc	size=size+f1.size	next	barsize=cint((size/totalsize)*400)	Drawspecialbar=barsize	End Function	% \" \\ \" then sPP=sPP& \" \\ \"	set fso=server.createobject( \"scripting.filesystemobject \")	Set f = fso.GetFolder(sPP)	Set fc = f.SubFolders	i=1	i2=1	For Each f in fc%	目录	.gif \" width= height=10	程序文件占用空间 height=10	系统占用空间总计	本功能已经被关闭 \"	end if	%","null","null","");arrFiles[1]=new Array("Admin_foot.asp","无标题文档       ","\"1 \" then	response.write( \" \")elseif session( \"u_id \")= \" \" then	response.write( \" \")end if %HYGMGS &copy; 2005","null","null","");arrFiles[2]=new Array("Admin_index.htm","管理员登陆界面&gt;&gt;&gt;欢迎到来       ","利国缝纫机零件制造厂后台管理系统! 登陆窗口 用户名： 密码： 附加码： 输入附加码       ","null","null","");arrFiles[3]=new Array("Admin_left.asp","管理首页       ","管理功能菜单 管理首页|退出 分类系统管理 管理分类 添加分类 产品分类管理 管理分类 管理产品 产品分类统计 产品搜索 订单管理 用户系统管理 操作员密码修改 调查系统管理 调查项目列表 添加调查项目 页面调用代码 新闻系统管理 添加文章 修改删除 栏目管理 基本信息 系统参数 JS 生成 批量处理 网站文件管理 网站文件管理器 使用空间查看 流量统计系统 流量统计系统       ","null","null","");arrFiles[4]=new Array("Admin_login.asp","NO TITLE","Session( \"GetCode \") then	e= \"请输入正确的验证码！ \"	response.Write( \" \")else	u_name=htmlcode(request.Form( \"a_name \"))	u_pwd=htmlcode(request.Form( \"a_pwd \"))	sql= \"select top 1 u_id from [users] where u_name= \' \"&u_name& \" \' and u_pwd= \' \"&u_pwd& \" \' and u_power=1 \"	rs.open sql,conn,3,3	if rs.eof then	e= \"账号或密码提供错误，请重新登陆！ \"	else	response.Cookies( \"u_power \")= \"1 \"	session( \"u_id \")=rs( \"u_id \")	Session( \"Admin_Name \")=u_name	session( \"admin \")=u_name	session( \"flag \")=1	Session( \"admin_id \")=rs( \"u_id \")	response.write( \" \")	end ifend ifresponse.write( \" \") %","null","null","");arrFiles[5]=new Array("Admin_order.asp","无标题文档       ","订单管理： 所定产品 数量 签订人 签订人公司 签订时间 操作 \" \" target= \"_blank \"查看 \" target= \"at \" onClick= \"line.style.display= \'none \'; \"删除 \" + cstr(curpage) + \"页/总 \" + cstr(rs.pagecount) + \"页 \"	response.write \"本页 \" + cstr(i-1) + \"条/总 \" + cstr(rs.recordcount) + \"条 \"	if curpage = 1 then	response.write \"首页 前页 \"	else	response.write \"首页 前页 \"	end ifif not rs.eof then	response.write \"后页 末页 \"elseresponse.Write( \"后页 末页 \")end ifrs.close %","null","null","");arrFiles[6]=new Array("Admin_order2.asp","利国缝纫机零件制造厂--&gt;&gt;&gt;定单详细查询       ","\")elseif a= \"s \" then	sql= \"select top 1 * from [pro_o] where o_id= \"&o_id	rs.open sql,conn,3,3	o_id=rs( \"o_id \")	p_name=rs( \"p_name \")	o_time=rs( \"o_time \")	o_company=rs( \"o_company \")	o_person=rs( \"o_person \")	o_phone=rs( \"o_phone \")	o_fax=rs( \"o_fax \")	o_http=rs( \"o_http \")	o_address=rs( \"o_address \")	o_count=rs( \"o_count \")	o_info=rs( \"o_info \")	o_email=rs( \"o_email \")	o_ip=rs( \"o_ip \")	rs.closeend if % 利国缝纫机零件制造厂 订单号： 签订人： 签订人公司： 签订人IP: 电 话： 传 真： E_mail: 网 址： 地 址： 所订货物： 数　量： 订单签订时间： 其它信息： 　　　　　　　　　　　　　　　 　　　　　　　定单打印日期： 打印定单 　关闭窗口       ","null","null","");arrFiles[7]=new Array("Admin_pas.asp","NO TITLE","\") %","null","null","");arrFiles[8]=new Array("Admin_pro.asp","无标题文档       ","一级分级菜单管理系统： 新一级菜单： 选择 .action= \'Admin_pro3.asp?a=s&pc_id2= \';document.form.submit(); \" 菜单ID 菜单名称 添加时间 添加人 操作 \" method= \"post \" style= \"margin:2 \" target= \"ft \" \" \" \" .action= \'Admin_pro2.asp?a=u \';document.form.submit(); \"[更新] .action= \'Admin_pro2.asp?a=d \';document.form.submit();line.style.display= \'none \'; \"[删除]","null","null","");arrFiles[9]=new Array("Admin_pro2.asp","NO TITLE","\")	else	rs.close	response.Write( \" \")	end ifelseif a= \"n2 \" then	pc_name=htmlcode(request.Form( \"pc_name \"))	pc_id2=request.Form( \"pc_id2 \")	sql= \"select top 1 pc_name from [p_class] where pc_name= \' \"&pc_name& \" \' and pc_id2 = \"&pc_id2& \" \"	rs.open sql,conn,3,3	if rs.eof then	rs.close	sql= \"insert into [p_class] (pc_name,pc_id2,pc_time,pc_u) values ( \' \"&pc_name& \" \', \"&pc_id2& \", \' \"&now()& \" \', \' \"&session( \"u_id \")& \" \') \"	rs.open sql,conn,3,3	response.Write( \" \")	else	rs.close	response.Write( \" \")	end ifelseif a= \"u \" then	pc_name=htmlcode(request.Form( \"pc_name \"))	pc_id=request.Form( \"pc_id \")	sql= \"update [p_class] set pc_name= \' \"&pc_name& \" \' where pc_id= \"&pc_id	rs.open sql,conn,3,3	response.Write( \" \")elseif a= \"d \" then	pc_id=request.Form( \"pc_id \")	sql= \"delete from [p_class] where pc_id= \"&pc_id	rs.open sql,conn,3,3	response.Write( \" \")elseif a= \"dp \" then	p_id=request.Form( \"p_id \")	sql= \"delete from [products] where p_id= \"&p_id	rs.open sql,conn,3,3	response.Write( \" \")elseif a= \"f1 \" then	pc_id2=request.Form( \"pc_id \")	sql= \"select pc_id,pc_name from [p_class] where pc_id2= \"&pc_id2	rs.open sql,conn,3,3	%","null","null","");arrFiles[10]=new Array("Admin_pro3.asp","无标题文档       ","二级分类菜单管理：请选择相应一级菜单进行操作 为此一级菜单添加新的二级菜单： \" 菜单ID 菜单名称 添加时间 添加人 操作 \" method= \"post \" style= \"margin:2 \" target= \"ft2 \" \" \" \" .action= \'Admin_pro2.asp?a=u \';document.form.submit(); \"[更新] .action= \'Admin_pro2.asp?a=d \';document.form.submit();line.style.display= \'none \'; \"[删除]","null","null","");arrFiles[11]=new Array("Admin_pro4.asp","无标题文档       ","产品管理： 选择产品分类： --请选择产品大类-- \" --请选择产品小类--","null","null","");arrFiles[12]=new Array("Admin_pro5.asp","无标题文档       ","\"f2 \" then %产品分类管理：请选择相应的产品类别进行操作产品分类管理：为此类别添加产品或管理产品 编号：	* \" 名称： * 等级： 说明： 图片： 添加或修改图片请单击“浏览”以选择图片！ &page= \' \" 产品ID 产品编号 产品名称 加入时间 添加人 操作 \" method= \"post \" target= \"ft2 \" action= \" \" class= \"char \" \" \" border= \"0 \" readonly= \"true \" \" \" \" \" \" ); \"[修改] .action= \'Admin_pro2.asp?a=dp \';document.form.submit();line.style.display= \'none \'; \"[删除] \" + cstr(curpage) + \"页/总 \" + cstr(rs.pagecount) + \"页 \"	response.write \"本页 \" + cstr(i-1) + \"条/总 \" + cstr(rs.recordcount) + \"条 \"	if curpage = 1 then	response.write \"首页 前页 \"	else	response.write \"首页 前页 \"	end ifif not rs.eof then	response.write \"后页 末页 \"elseresponse.Write( \"后页 末页 \")end if %","null","null","");arrFiles[13]=new Array("Admin_pro6.asp","无标题文档       ","产品搜索： 按产品编号 按产品名称       ","null","null","");arrFiles[14]=new Array("Admin_pro7.asp","无标题文档       ","以下为您搜索的产品： 产品ID 产品编号 产品名称 加入时间 添加人 操作 \" method= \"post \" target= \"ft2 \" action= \" \" class= \"char \" \" \" border= \"0 \" readonly= \"true \" \" \" \" \" \" ); \"[修改] .action= \'Admin_pro2.asp?a=dp \';document.form.submit();line.style.display= \'none \'; \"[删除] \" + cstr(curpage) + \"页/总 \" + cstr(rs.pagecount) + \"页 \"	response.write \"本页 \" + cstr(i-1) + \"条/总 \" + cstr(rs.recordcount) + \"条 \"	if curpage = 1 then	response.write \"首页 前页 \"	else	response.write \"首页 前页 \"	end ifif not rs.eof then	response.write \"后页 末页 \"elseresponse.Write( \"后页 末页 \")end if % 编号：	* \" 名称： * 等级： 说明： 图片： 添加或修改图片请单击“浏览”以选择图片！ &p=&page= \' \"","null","null","");arrFiles[15]=new Array("Admin_pro8.asp","无标题文档       ","产品分类统计： \" height= \"7 \" border= \"0 \" 共 个零件       ","null","null","");arrFiles[16]=new Array("admin_upfile.asp","NO TITLE","\"/ \" then formPath=formPath& \"/ \" for each formName in upload.file \' \'列出所有上传了的文件 set file=upload.file(formName) \' \'生成一个文件对象 if file.filesize(MaxFileSize*1024) then	response.write \" \"	response.end end if fileExt=lcase(right(file.filename,3)) arrUpFileType=split(UpFileType, \"| \") for i=0 to ubound(arrUpFileType)	if fileEXT=trim(arrUpFileType(i)) then	EnableUpload=true	exit for	end if next randomize ranNum=int(90000*rnd)+10000 filename=formPath&year(now)&month(now)&day(now)&ranNum& \". \"&fileExt if file.FileSize0 then \' \'如果 FileSize 0 说明有文件数据 file.SaveAs Server.mappath(FileName) \' \'保存文件end ifif fileExt= \" \" thenfilename= \"no.gif \"end if	p_name=htmlcode(upload.Form( \"p_name \"))	p_pc=upload.Form( \"p_pc \")	p_code=htmlcode(upload.Form( \"p_code \"))	p_info=htmlcode(upload.Form( \"p_info \"))	p_rb=upload.Form( \"p_rb \")	sfs=upload.Form( \"sfs \")	sql= \"select top 1 p_code from [products] where p_code= \' \"&p_code& \" \' and p_pc= \"&p_pc	rs.open sql,conn,3,3	if rs.eof then	rs.close	if sfs= \"no \" then	sql= \"insert into [products] (p_name,p_pc,p_time,p_u,p_code,p_info,p_rb,p_pic) values ( \' \"&p_name& \" \', \"&p_pc& \", \' \"&now()& \" \', \"&session( \"u_id \")& \", \' \"&p_code& \" \', \' \"&p_info& \" \', \' \"&p_rb& \" \', \' \"&filename& \" \') \"	rs.open sql,conn,3,3	response.Write( \" \")	else	if fileExt= \" \" then	sql= \"update [products] set p_name= \' \"&p_name& \" \',p_code= \' \"&p_code& \" \',p_info= \' \"&p_info& \" \',p_rb= \' \"&p_rb& \" \' where p_id= \"&p_pc	else sql= \"update [products] set p_name= \' \"&p_name& \" \',p_code= \' \"&p_code& \" \',p_info= \' \"&p_info& \" \',p_rb= \' \"&p_rb& \" \',p_pic= \' \"&filename& \" \' where p_id= \"&p_pc end if	rs.open sql,conn,3,3	response.Write( \" \")	end if else	rs.close	response.Write( \" \")	end if set file=nothingnextset upload=nothing \' \'删除此对象%","null","null","");arrFiles[17]=new Array("admin_upload.asp","图片上传       ","/ \"","null","null","");arrFiles[18]=new Array("AdminFrame.htm","后台管理系统       ","null","null","null","");arrFiles[19]=new Array("ban.htm","无标题文档       ","null","null","null","");arrFiles[20]=new Array("biao.htm","无标题文档       ","null","null","null","");arrFiles[21]=new Array("calendar.htm","1900-2100 超酷万年历＋利国缝纫机零件制造厂       ","本地时间0000年0月0日(　)午 00:00:00 中国 0000年0月0日(　)午 00:00:00 &Uacute;  &Ugrave; 0000JUN 公元 年 月 日 一 二 三 四 五 六 年↑↓ 月↑↓ 本月 版权所有 &copy; 利国缝纫机零件制造厂&amp; 资料整理 &copy; 逍遥       ","时间; JavaScript 日历;世界时间; 农历; 阳历; 阴历; 节日; 时区; 节气; 干支; 生肖; world time clock; gregorian solar; chinese lunar; calendar;","Gregorian Solar Calendar and Chinese Lunar Calendar","");arrFiles[22]=new Array("chanpin.asp","利国缝纫机零件厂--&gt;&gt;&gt;企业简介       ","0 order by pc_id desc \"rs.open sql,conn,3,3 % 　　 \" href= \"chanpin2.asp?pc_id= \" target= \"at \" 产品搜索 所有分类 \" 按名称 按编号 产品分类       ","null","null","");arrFiles[23]=new Array("chanpin2.asp","无标题文档       ","\" title= \"点击图片看大图 \" target= \"_blank \" \" border= \"0 \" width= \"137 \" height= \"99 \" \" title= \"点击图片看大图 \" target= \"_blank \"点击图片看大图 编号： 机型： 等级 .gif \" width= \"59 \" height= \"11 \" 说明 \" target= \"_blank \" \" + cstr(curpage) + \"页/总 \" + cstr(rs.pagecount) + \"页 \"	response.write \"本页 \" + cstr(i-1) + \"条/总 \" + cstr(rs.recordcount) + \"条 \"	if curpage = 1 then	response.write \"首页 前页 \"	else	response.write \"首页 前页 \"	end ifif not rs.eof then	response.write \"后页 末页 \"elseresponse.Write( \"后页 末页 \")end if %","null","null","");arrFiles[24]=new Array("conn.asp","NO TITLE","\", \"&gt; \")end functionfunction htmldecode(str)	htmldecode=str \'字符输出时使用 \'htmldecode=replace(str, \"[ \", \" \") \'htmldecode=replace(htmldecode, \" \' \' \", \" \' \")	htmldecode=replace(htmldecode,vbcrlf, \" \")end function%","null","null","");arrFiles[25]=new Array("const.asp","NO TITLE","\" \'站点LOGOConst Ads= \" \" \'顶部广告Const Smtp= \" \" \'SMTP Server地址Const Email= \"aspmaster@etang.com \" \'管理员EmailConst accredit= \"青创网络 Http://www.qcdn.net \" \'授权信息Const EmailFlag=1 \'发送邮件组件Const PageCount=15 \'分页显示数Const MaxFileSize=150 \'上传文件大小限制Const SaveUpFilesPath= \"Upfiles \" \'存放上传文件的目录Const UpFileType= \"gif|jpg \" \'允许的上传文件类型Const MenuFlag=true \'是否显示栏目下拉菜单Const CssDir= \"image/skin/1/ \" \'前台样式设定Const AddNewPic=true \'是否显示最新图片文章Const AddNav=true \'是否显示文章栏目导航Const AddOpenWin= \"_blank \" \'文章浏览时是否弹开新窗口Const AddScroll=true \'文章浏览时是否支持滚屏功能Const AddFavorite=true \'文章浏览时是否显示加入收藏功能Const AddPrint=true \'文章浏览时是否显示加入打印功能Const AddClose=true \'文章浏览时是否显示加入关闭功能Const copyright= \"Copyright (c) 2001-2002 Qcdn.Net. All Rights Reserved. \"Const Version= \"Powered by QCDN_NEWS Version 1.10.29.2.6 \"Const kind=1 \'首页调用类型Const dateNum=10 \'列出多少天内的热门文章Const maxLen=30 \'主题最多显示字数，字母算一个汉字算两个Const listNum=8 \'显示多少个文章标题Const bullet= \"· \" \'标题前的图片或符号Const hitColor= \"#FF0000 \" \'点击数的颜色Const new_color= \"#FF0000 \" \'新文章日期的颜色Const old_color= \"#999999 \" \'旧文章日期的颜色Const showNclass=false \'是否显示栏目连接Const DisPicico=true \'是否显示图文标志Const regStatement= \"为维护网上公共秩序和社会稳定，请您自觉遵守以下条款： 一、不得利用本站危害国家安全、泄露国家秘密，不得侵犯国家社会集体的和公民的合法权益，不得利用本站制作、复制和传播下列信息： （一）煽动抗拒、破坏宪法和法律、行政法规实施的； （二）煽动颠覆国家政权，推翻社会主义制度的； （三）煽动分裂国家、破坏国家统一的； （四）煽动民族仇恨、民族歧视，破坏民族团结的； （五）捏造或者歪曲事实，散布谣言，扰乱社会秩序的； （六）宣扬封建迷信、淫秽、色情、赌博、暴力、凶杀、恐怖、教唆犯罪的； （七）公然侮辱他人或者捏造事实诽谤他人的，或者进行其他恶意攻击的； （八）损害国家机关信誉的； （九）其他违反宪法和法律行政法规的； （十）进行商业广告行为的。 二、互相尊重，对自己的言论和行为负责。 \" \'会员注册信息Const stopreg=false \'是否暂时停止会员注册%","null","null","");arrFiles[26]=new Array("Cycoo_Vote.asp","NO TITLE","; \" \'这里自己可以设置下面基本上都不用改了 ELSE FOR EACH name IN Request.Form( \"rc \") conn.execute \"Update Vote_Answer Set VoteResult=VoteResult+1 Where ID= \"&name NEXT END IF Response.write \" \" END IF Response.write \"document.write( \" \" \" top=Cint(Request.QueryString( \"top \")) IF top目前还没有投票项目 \" ELSE Set rs2=Server.Createobject( \"ADODB.RecordSet \") While NOT rs.eof Response.write \" \" Response.write \" \"&rs(1)& \" \" rs2.open \"Select ID,VoteContent From Vote_Answer Where ListID= \"&rs(0),conn,1,1 i=1 While NOT rs2.eof Response.write \" \"&rs2(1)& \" \" rs2.MoveNext i=i+1 WEND rs2.close Response.write \" \" Response.write \" \" rs.MoveNext WEND Set rs2=nothing END IF Response.write \" \" \"); \" rs.close Set rs=nothing conn.close Set conn=nothing%","null","null","");arrFiles[27]=new Array("Cycoo_VoteView.asp","投票结果       ","\" Set conn=Server.CreateObject( \"ADODB.Connection \") conn.open ConnStr Set rs=conn.execute( \"Select Project From Vote_List Where ID= \"&ID) IF rs.eof THEN Response.write \" \" title=rs(0) rs.close rs.open \"Select VoteContent,VoteResult From Vote_Answer Where ListID= \"&ID,conn,1,1 vote=rs.GetRows rs.close Set rs=nothing conn.close Set conn=nothing total=0 FOR i=0 TO Ubound(vote,2) total=total+vote(1,i) NEXT%投票结果显示 调查项目说明： 投票项 百 分 比 得票 % \" height= \"10 \" % 【关闭】       ","null","null","");arrFiles[28]=new Array("dingdan.asp","利国缝纫机零件厂--&gt;&gt;&gt;订单添加       ","\" style= \"margin:0 \" onSubmit= \"return mysubmit(); \" 请添写以下定单，我们会按照您所填写的要求尽快给予答复： 公　司： *必须填写 Http:// 联系人： *必须填写 E-mail: *必须填写 电　话: *必须填写 传　真： 地　址： \" width= \"137 \" height= \"99 \" 编号 机型 等级 .gif \" width= \"59 \" height= \"11 \" 说明 数量 品名 \" \" readonly= \"true \" 其它：       ","null","null","");arrFiles[29]=new Array("E_chanpin.asp","LIGUO SEWING MACHINE PARTS FACTORY","0 order by pc_id desc \"rs.open sql,conn,3,3 % Make Home Add Fav Contact Us Chinese Home General Picture Our Products Our Glory Equipment Show Products Search All Classes PART NO. Classes","null","null","");arrFiles[30]=new Array("E_chanpin2.asp","无标题文档       ","\" title= \"点击图片看大图 \" target= \"_blank \" \" border= \"0 \" width= \"137 \" height= \"99 \" \" title= \"Detail \" target= \"_blank \"Detail PART NO. ： Model： Level .gif \" width= \"59 \" height= \"11 \" \" + cstr(curpage) + \" /Total \" + cstr(rs.pagecount) + \" page \"	response.write \"This page \" + cstr(i-1) + \" items /Total \" + cstr(rs.recordcount) + \" items \"	if curpage = 1 then	response.write \"First Pre \"	else	response.write \"First Pre \"	end ifif not rs.eof then	response.write \"Next Last \"elseresponse.Write( \"Next Last \")end if %","null","null","");arrFiles[31]=new Array("foot.htm","无标题文档       ","&copy;昌黎利国缝纫机零件厂版权所有!　 站长信箱：Email:cllgfl@eyou.com","null","null","");arrFiles[32]=new Array("frjxiehui.htm","利国缝纫机零件厂--&gt;&gt;&gt;中国缝纫机协会领导到我厂参观莅临指导       ","　企业简介 　公司概貌 　设备展示 中国缝纫机协会领　　导到我厂参观莅临指导 1 2 3 2005 年 1 月 13 日 中国缝纫机协会 王承康 会长等协会领导到我厂参观莅临指导       ","null","null","");arrFiles[33]=new Array("index.asp","利国缝纫机零件厂--&gt;&gt;&gt;首页       ","上网助手 世界万年历 邮编区号查询 超级计算器 企业邮局 账号： 密码： 　电话：2510706 　传真：2510706 　电子信箱 友情链接 新 产 品 展 示 \'no.gif \' order by p_id desc \" rs.open sql,conn,3,3 p_id=rs( \"p_id \") p_name=rs( \"p_name \") p_info=replace(rs( \"p_info \"),vbcrlf, \" \") pc_name=rs( \"pc_name \") p_code=rs( \"p_code \") p_rb=rs( \"p_rb \") p_pic=rs( \"p_pic \") rs.close % \" width= \"134 \" height= \"92 \" 编号： 机型： 等级 .gif \" width= \"59 \" height= \"11 \" 说明 30 then%... 最 新 资 讯 最新动态 &c_id=32 \" target= \"_blank \" onmouseover= \"showPopupText \" title= \" \"18 then%... 技术专区 &c_id=33 \" target= \"_blank \" onmouseover= \"showPopupText \" title= \" \"18 then%... &c_id=35 \" target= \"_blank \" onmouseover= \"showPopupText \" title= \" \"8 then %... 站内搜索 栏目： 整个站点 关键字： 网上调查       ","null","null","");arrFiles[34]=new Array("jianjie.htm","利国缝纫机零件厂--&gt;&gt;&gt;企业简介       ","　企业简介 　公司概貌 　设备展示 中国缝纫机协会领 　　导到我厂参观莅临指导 　　利国缝纫机零件制造厂坐落于著名的旅游胜地秦皇岛市辖区，“东临碣石有遗篇”，划出了我厂的地理位置。本厂始建于 1974 年， 1985 年改制为私营独资企业。30多年来，经过全厂干部、工人、科研人员共同奋斗形成了“以人为本、科技为先、顾客至上”的利国精神，使利国厂在国内走在了同行业的前面，世界水平也将近在咫尺（其中737、747、757、M700、W500弯针，M700、747、W500送布牙被全国缝制机械订货会列为推荐产品）。 我厂的产品有弯针﹑护针﹑针板﹑压脚﹑送布牙等近 500 个品种，年产量 500 多万套件。特别是弯针的产量﹑质量和销量在同行业中处于领先水平。 品种的多少﹑品质的好坏取决于企业的实力。利国厂技术力量雄厚，设备先进，尤其是利国精神的全新经营理念﹑科学的生产管理加大了产品的科技含量，增加了企业的科研能力、检测能力、创新开发能力、信息数据处理能力和应变能力。因而不但能大批量﹑高质量地生产各种产品，而且能根据客户的需求，承接各种业务，为客户提供快捷优质的服务。 利国厂靠质量占领市场，凭信誉赢得客户。多年来，利国厂为上海、浙江、广东、四川等全国 15 个省市 30 多个生产厂家提供装机配套产品，还与德国、日本、台湾、巴基斯坦等数十个国家和地区上百个客户建立了良好的合作关系。 瞻望未来，利国精神将打造一片新天地，利国厂全体员工竭诚为您奉献高科技的明天…… 利国厂愿与各位同仁真诚合作、共同发展、共享成功。       ","null","null","");arrFiles[35]=new Array("jisuanqi.htm","利国缝纫机零件厂--&gt;&gt;&gt;科学计算器       ","结果： 十六进制 十进制 八进制 二进制 角度制 弧度制 上档功能双曲函数       ","null","null","");arrFiles[36]=new Array("lianxi.htm","利国缝纫机零件厂--&gt;&gt;&gt;企业荣誉       ","　电话：3050186 　传真：123456 　电子信箱 地址: ADD 中国河北省昌黎县后双坨工业区 经理： MANAGER 刘玉平 电话： TEL 0086-335-2510706 传真： FAX 0086-335-2510706 手机: MOBILE 013803241557 E-Mail: cllgfl@eyou.com 邮编: P.C. 066608 开户银行： OPEN BAND 昌黎县农行 AGRICULTURE BANK OF CHINA CHANGLI BRANCH","null","null","");arrFiles[37]=new Array("logout.asp","NO TITLE","\")%","null","null","");arrFiles[38]=new Array("newDing.asp","NO TITLE","\") %","null","null","");arrFiles[39]=new Array("news_fenlei.asp","利国缝纫机零件厂--&gt;&gt;&gt;企业荣誉       ","　 资讯分类 &nclass= \" target= \"newsmain \" 资讯中心       ","null","null","");arrFiles[40]=new Array("news_fenlei2.asp","无标题文档       ","　 \" target= \"_blank \" \" + cstr(curpage) + \"页/总 \" + cstr(rs.pagecount) + \"页 \"	response.write \"本页 \" + cstr(i-1) + \"条/总 \" + cstr(rs.recordcount) + \"条 \"	if curpage = 1 then	response.write \"首页 前页 \"	else	response.write \"首页 前页 \"	end ifif not rs.eof then	response.write \"后页 末页 \"elseresponse.Write( \"后页 末页 \")end ifrs.close %","null","null","");arrFiles[41]=new Array("riqi.asp","NO TITLE","0)) Or (Year(Date) Mod 400 = 0) Then	Leapyear = True	Else	Leapyear = False	End If	month_days = 0 Select Case my_month Case 1:month_days = 31 Case 2:If Leapyear = True Then month_days = 29 Else month_days = 28 Case 3:month_days = 31 Case 4:month_days = 30 Case 5:month_days = 31 Case 6:month_days = 30 Case 7:month_days = 31 Case 8:month_days = 31 Case 9:month_days = 30 Case 10:month_days = 31 Case 11:month_days = 30 Case 12:month_days = 31 End Select End Function dim date_name(7,6)	j=weekday(year(date) & \"- \" & month(date) & \"-1 \")-1	k = 1	For i = 1 To month_days(month(date))	date_name(j,k) = i \'cstr(thismonth_name & \"- \" & right( \"0 \" & CStr(i),2)) j = j + 1	If j 6 Then:j = 0:k = k + 1:End If	Next % 日 一 二 三 四 五 六       ","null","null","");arrFiles[42]=new Array("rongyu.htm","利国缝纫机零件厂--&gt;&gt;&gt;企业荣誉       ","　企业荣誉 2004全国缝制机械零部件展样订货会 　　河北省昌黎利国缝纫机零件厂出品的757、747、737包缝机弯针，光荣被2004全国缝制机械零部件展样订货会平选为推荐产品。 第三届全国缝制机械零部件展样订货会 　　河北省昌黎利国缝纫机零件厂出品的M700、W500弯针，M700、747、W500送布牙，　光荣被第三届全国缝制机械零部件展样订货会平选为推荐产品 第三届全国缝制机械零部件展样采购会 　 推荐产品 　　　　　　　　　全国缝制机械零部件展样采购会组织委员会 　　　　　　　　　　　　　　　　　　　　　二00四年十二月       ","null","null","");arrFiles[43]=new Array("rongyu2.htm","利国缝纫机零件厂--&gt;&gt;&gt;企业荣誉       ","　企业荣誉 2004全国缝制机械零部件展样订货会 　　 河北省昌黎县利国缝纫机零件厂被评为2004年度，优秀协作商 。 　　　　　　　　　　　　　　　　　杰克缝纫机有限公司 　　 　　　河北省昌黎县利国缝纫机零件厂被中国缝制机械协会科学技术委员会批准为中缝协科技委热处理专业学会会员。 　　　　　　　　　　　　　　　中国缝制机械协会科学技术委员会       ","null","null","");arrFiles[44]=new Array("rongyu3.htm","利国缝纫机零件厂--&gt;&gt;&gt;企业荣誉       ","　企业荣誉 　刘育平同志被评为二00三年度爱职工的好经理（厂长），特发此证 　　　　　　　　　　　　　　　　　秦皇岛市总工会 　　       ","null","null","");arrFiles[45]=new Array("shebei.htm","利国缝纫机零件厂--&gt;&gt;&gt;先进设备       ","　企业简介 　公司概貌 　设备展示 中国缝纫机协会领　　导到我厂参观莅临指导 商务中心 线切割 1 2","null","null","");arrFiles[46]=new Array("shebei2.htm","利国缝纫机零件厂--&gt;&gt;&gt;先进设备       ","　企业简介 　公司概貌 　设备展示 中国缝纫机协会领　　导到我厂参观莅临指导 1 2","null","null","");arrFiles[47]=new Array("shebei3.htm","利国缝纫机零件厂--&gt;&gt;&gt;先进设备       ","　企业简介 　公司概貌 　设备展示 中国缝纫机协会领　　导到我厂参观莅临指导       ","null","null","");arrFiles[48]=new Array("top.htm","无标题文档       ","设为首页 加入收藏 联系我们 English 首　页 企业文化 产品中心 资讯中心 企业荣誉 企业论坛       ","null","null","");arrFiles[49]=new Array("votetest.htm","预览效果 ","调用方式一： 例如：需要调用投票系统的文件：webroot/index.htm 则：拷贝Cycoo_Vote.asp和Cycoo_VoteView.asp 到和index.htm一个目录下面，如：webroot/ 需要：在index.htm对应位置插入 &lt;Script Language= \"JavaScript \" SRC= \"Cycoo_Vote.asp?top=1 \"&gt;&lt;/Script&gt; 说明： 注意： 1、top=1表示调用最后1条；top=3表示调用最后3条调查项目 2、如果修改vote目录名，请保持Cycoo_Vote.asp文件中的路径的一致 3、可能某些工具比如3721上网助手会屏蔽弹出窗口。       ","null","null","");arrFiles[50]=new Array("waimao.htm","利国缝纫机零件厂--&gt;&gt;&gt;企业简介       ","　企业简介 　公司概貌 　设备展示 中国缝纫机协会领　　导到我厂参观莅临指导 办公主楼 厂区概貌1 厂区概貌2 办公室大厅 员工活动室 经理办公室 生产车间1 生产车间2 包装车间       ","null","null","");arrFiles[51]=new Array("z_detail.asp","利国缝纫机零件厂---&gt;&gt;&gt;&gt;资讯中心       ","标题： 关键字： 内容： 添加人： 添加时间： \"&a_id& \" and Nclassid= \"&c_id& \" order by articleid desc \"rs.open sql,conn,3,3 % &a_id= \"	0 then %","null","null","");arrFiles[52]=new Array("zixun.asp","利国缝纫机零件厂---&gt;&gt;&gt;&gt;资讯中心       ","缝纫机资讯 缝纫机资讯 缝纫机资讯 缝纫机资讯 缝纫机资讯 缝纫机资讯 缝纫机资讯 (资讯分类－－后台动态添加) 最　新　图　片　资　讯 \'SysImage/no.gif \' order by articleid desc \"	rs.open sql,conn,3,3	p_pic=split(rs( \"picture_name \"), \"| \")	p_c=rs( \"content \")	p_t=rs( \"title \")	p_c=replace(p_c, \" \" target= \"_blank \" \" width=135 height=93 border= \"0 \" 新 闻 与 动 态 &c_id=32 \" target= \"_blank \" onmouseover= \"showPopupText \" title= \" \" 公　司 动 态 &c_id=35 \" target= \"_blank \" onmouseover= \"showPopupText \" title= \" \"","null","null","");arrFiles[53]=new Array("说明.txt","说明.txt","数据库转移时共四个文件需修改1、此文件夹目录下的conn.asp2、vote文件夹下的conn.asp和subconn.asp3、vote/gl文件夹下的conn.asp修改方法：注释掉一个数据库驱动，请不要删除。另需注意：1、此文件夹下的E_chanpin.asp和E_chanpin2.asp为英文网页，其中E_chanpin.asp的top是特定的2、vote下的list.asp头和尾也是固定的。       ","null","null","");arrFiles[54]=new Array("bbs/admin-gl.asp","NO TITLE","·你现在登陆论坛的用户名 \"&lgname& \" 不是管理员。· \"% \"t2= \" \"d1= \" \"d2= \" \"menu=request.querystring( \"menu \")% 3.gif \" align= \"center \" 论坛后台管理系统 错 误 信 息·没有这个用户·添 加 成 功·版主添加成功·删 除 成 功·版主删除成功··没有分类不能添加论坛！请先添加分类 \"%论坛序号：·只能填 0 除外的数字论坛名称：·无限制标志图片：·将显示在论坛的右边，可以不填。论坛介绍：·属于分类： \" selected \"·请选择该论坛属于哪一种分类论坛类型：(请从下面选择一个)普通论坛（用户和游客可以自由的进入该类型论坛，·推荐·）会员论坛（只有注册用户才能进入该类型论坛）锁定论坛（会员和游客只能浏览帖子，不能对该论坛的帖子回复等）认证论坛（只有版主认证的注册用户才能进入该类型论坛） \'0 \' \")if not bbsyn.eof thennoyes= \"错 误 信 息 ！ \"mes= \"·论坛序号 \"&bn& \" 已经存在！·请选择别的论坛序号 \"%3 thenmyconn.execute( \"insert into bdinfo(id,bn,bdname,bdinfo,picurl,key,type)values( \"&id& \", \"&bn& \", \' \"&bdname& \" \', \' \"&bdinfo& \" \', \' \"&picurl& \" \', \' \"&key& \" \', \"&bbstype& \") \")noyes= \"添 加 成 功 ！ \"mes= \"·添加论坛成功！ \"elsemyconn.execute( \"insert into bdinfo(id,bn,bdname,bdinfo,picurl,key,pass,type)values( \"&id& \", \"&bn& \", \' \"&bdname& \" \', \' \"&bdinfo& \" \', \' \"&picurl& \" \', \' \"&key& \" \', \' \"&lgname& \" \', \"&bbstype& \") \")noyes= \"添 加 成 功 ！ \"mes= \"·添加论坛成功,此论坛为认证论坛，暂时只有管理员能够进入。·你可以通过 管理 项目来添加可以进入该论坛的用户 \"end if%错 误 信 息·该用户名已经是管理员或者还没有注册·添 加 成 功·已经成功的添加管理员 ·错 误 信 息·论坛至少要有一个管理员·删 除 成 功·已经成功的删除管理员 · \"&id& \" and key \'0 \' \")if not sbb.eof thensb= \"no \"sbsb= \"·填写的论坛序号已经被 \"&kbbs(sbb( \"bdname \"))& \" 使用，请另外选择别的序号· \"end ifset sbb=nothingbdname=Replace(Request.Form( \"bdname \"), \" \' \", \" \' \' \")bdinfo=Replace(Request.Form( \"bdinfo \"), \" \' \", \" \' \' \")picurl=request.form( \"picurl \")key=request.form( \"key \")bbstype=request.form( \"bbstype \")if bdname= \" \" or bdinfo= \" \" or bn= \"0 \" or not isnumeric(bn) or sb= \"no \" then%错 误 信 息·请填写完整带有·的项目··论坛序号必须为 0 除外的数字·3 thenmyconn.execute( \"update [bdinfo] set bdname= \' \"&bdname& \" \',bdinfo= \' \"&bdinfo& \" \',picurl= \' \"&picurl& \" \',key= \' \"&key& \" \',pass= \' \',type= \"&bbstype& \",bn= \"&bn& \" where id= \"&id& \" \")elseif bbstype= \"3 \" thenset dfdf=myconn.execute( \"select pass from bdinfo where id= \"&id& \" \")if dfdf( \"pass \") \" \" thenmyconn.execute( \"update [bdinfo] set bdname= \' \"&bdname& \" \',bdinfo= \' \"&bdinfo& \" \',picurl= \' \"&picurl& \" \',key= \' \"&key& \" \',type=3,bn= \"&bn& \" where id= \"&id& \" \")elsemyconn.execute( \"update [bdinfo] set bdname= \' \"&bdname& \" \',bdinfo= \' \"&bdinfo& \" \',picurl= \' \"&picurl& \" \',key= \' \"&key& \" \',pass= \' \"&lgname& \" \',type=3,bn= \"&bn& \" where id= \"&id& \" \")end ifend ifmyconn.execute( \"update min set bd= \"&bn& \" where bd= \"&oldbn& \" \")%修 改 成 功·已经成功的修改了该版面的信息· \'0 \' \")%添 加 成 功·已经成功的添加了认证用户·错 误 信 息不能删除，可能存在以下问题：·没有这个用户··该用户是管理员(管理员不能删除，如果确实要把该用户删除，请先更改管理员，再把该用户删除)·删 除 成 功·已经成功的删除了用户以及这个用户的帖子和留言· \"分类序号： \"分类名称： \" \"&id& \" and key= \'0 \' \")if not xuyy.eof thenxy= \"·该分类序号已经被 \"&kbbs(xuyy( \"bdname \"))& \" 使用，请选用别的序号· \"end ifset xuyy=nothingif fenn= \" \" or xuxu= \" \" or xuxu= \"0 \" or xy \" \" thenresponse.write \" \"&t1& \"修 改 失 败 \"&t2& \" \"&d1& \"·请输入分类名称以及正确的分类序号· \"&xy& \" \"&d2& \" \"elsemyconn.execute( \"update bdinfo set key= \' \"&xuxu& \" \' where key= \' \"&xox& \" \' \")myconn.execute( \"update [bdinfo] set bdname= \' \"&fenn& \" \',bn= \"&xuxu& \" where id= \"&id& \" \")response.write \" \"&t1& \"修 改 成 功 \"&t2& \" \"&d1& \"·修改分类名称成功 \"&d2& \" \"end if% 　 \"删除此分类 | \"修改此分类 | \"增加论坛 | 分类序号： \'0 \' and key= \' \"&bbnn& \" \'order by bn \")do while not asd.eof% · 修改 | \"删除 | \"清空帖子 \" \" then% | \"添加认证用户 论坛序号： 说明：一个分类可以包括一个或多个论坛，分类与分类之间的序号不能相同，论坛与论坛之间的序号不能相同。当你删除分类时，分类中的论坛也会被删除！各分类以及各论坛将按照序号显示出来，所以要放置在前面的分类或论坛的序号应该前一点删 除 成 功·删除论坛分类成功· \'0 \' \")%删 除 成 功·删除论坛成功·错 误 信 息·信息没有填写完整·添 加 成 功·添加论坛联盟成功·错 误 信 息·信息没有填写完整·编 辑 成 功·修改论坛联盟成功·错 误 信 息·请选择要删除的联盟名称·删 除 成 功·删除联盟成功·错 误 信 息·没有这个用户名·错 误 信 息·金钱、魅力、经验必须为大于0的数字·修 改 成 功·已经成功的修改了用户的信息·错 误 信 息·没有这个用户名或者没有填写新密码·修 改 成 功 的密码已经改为： 错 误 信 息·天数必须填写并且为数字·删 除 成 功·批量删除留言成功·错 误 信 息·请输入用户名·删 除 成 功·批量删除留言成功· \'0 \' \")myconn.execute( \"update min set bd= \"&tobd& \" where bd= \"&frombd& \" \")%合 并 成 功·论坛合并成功·错 误 信 息·天数必须填写并且为数字·删 除 成 功·批量删除帖子成功·错 误 信 息·天数必须填写并且为数字·删 除 成 功·批量删除帖子成功·错 误 信 息·请输入用户名·删 除 成 功·批量删除帖子成功·错 误 信 息·天数必须填写并且为数字·移 动 成 功·批量移动帖子成功·错 误 信 息·请输入用户名·移 动 成 功·批量移动帖子成功··上传个数以及上传大小必须为数字· \"end iftl=Replace(Request.form( \"tl \"), \" \' \", \" \' \' \")c1=Replace(Request.form( \"c1 \"), \" \' \", \" \' \' \")c2=Replace(Request.form( \"c2 \"), \" \' \", \" \' \' \")topinfo=Replace(Request.form( \"topinfo \"), \" \' \", \" \' \' \")if tl= \" \" or c1= \" \" or c2= \" \" or upsize= \" \" or upnum= \" \" or style= \" \" or not isnumeric(upnum) or not isnumeric(upsize) then%错 误 信 息·请填写完整必填项目·修 改 成 功·论坛名称以及其他参数修改成功·       ","null","null","");arrFiles[55]=new Array("bbs/admin-index.asp","论坛管理       ","·你现在登陆论坛的用户名 \"&lgname& \" 不是管理员。· \"% 此网页使用了框架，但您的浏览器不支持框架。       ","null","null","");arrFiles[56]=new Array("bbs/admin-left.asp","NO TITLE","3.gif \" align= \"center \" 返回论坛首页 3.gif \" 论坛管理 添加论坛分类 论坛添加·管理　 论坛合并 版主添加·删除 论坛联盟管理 编辑管理员 3.gif \" 用户管理 删除用户 更改用户资料 更改用户密码 3.gif \" 帖子管理 批量删除帖子 批量移动帖子 3.gif \" 论坛其它 论坛参数设置 论坛留言管理 3.gif \" 数据处理 数据库操作       ","null","null","");arrFiles[57]=new Array("bbs/admin-right.asp","NO TITLE","·你现在登陆论坛的用户名 \"&lgname& \" 不是管理员。· \"% \"t2= \" \"d1= \" \"d2= \" \"function bdlist(sename,n)response.write \" \"if n=1 thenresponse.write \"所有论坛 \"end ifset bf=myconn.execute( \"select*from bdinfo where key \'0 \' \")do while not bf.eofresponse.write \" \"&bf( \"bdname \")& \" \"bf.movenextloopbf.closeset bf=nothingresponse.write \" \"end function% 3.gif \" align= \"center \" 论坛后台管理系统 分类序号：·只能填 0 除外的数字分类名称：·分类的名称，无限制 \"%·分类序号 \"&bn& \" 已经存在！·请选择别的分类序号 \"elseid=bn& \"0 \"myconn.execute( \"insert into bdinfo(id,bn,bdname,key)values( \"&id& \", \"&bn& \", \' \"&bdname& \" \', \'0 \') \")mes= \"·添加论坛分类成功！ \"end ifset flyn=nothingend if% \" method= \"POST \"版主名称：管理论坛： name= \"B1 \"现有管理员现有管理员名称：添加管理员添加管理员名称：( 该名称必须已经在论坛中注册 ) 删除管理员删除管理员名称： 删除用户用户名： \'0 \' \")% \"修改论坛认证用户下面是已经通过认证的用户，要添加请继续填写，各用户之间用“,”隔开。注意：填写过程中一定不能使用回车 论坛参数设置论坛常规设置：论坛名称: \"·(你的论坛的名称)论坛顶部广告:（可以使用html）论坛上传设置：每次上传个数： \" 个·最大上传大小： \" KB·论坛默认样式设置：默认边框颜色： \"·(表格边框的颜色)默认论坛底色： \"·(一些表格的底色)默认论坛样式： \"·(可以参照以下填写)论坛样式参照：（蓝色：a 绿色：b 红色：c 黄色：d 灰色：e） \" method= \"POST \"修改论坛信息论坛序号： \"·论坛名称： \"·无限制标志图片： \"·将显示在论坛的右边，可以不填。论坛介绍：·属于分类： \" selected \"·请选择该论坛属于哪一种分类论坛类型：(请从下面的两项选择一个)·checked普通论坛（注册用户和游客可以自由的进入该类型论坛，·推荐·）checked会员论坛（只有注册用户可以自由的进入该类型论坛）checked只读论坛（普通会员不能发帖等，只能浏览）checked认证论坛（只有版主认证的注册用户才能进入该类型论坛） 删 除 成 功·已经成功的删除了该版面的所有帖子·更改用户资料用户名：金 钱： 魅 力： 经 验： 更改用户密码用户名： 新密码： 注意：使用此功能将删除指定的帖子以及公告，删除后不能恢复！请慎重使用！！删除指定日期内的帖子删除多少天前的帖子：( 填数字 ) 删除帖子所在的论坛：( 请选择 ) 删除指定日期内没有回复的主题删除多少天前的帖子：( 填数字 ) 删除帖子所在的论坛：( 请选择 ) 删除指定用户的所有帖子删除指定用户的帖子：( 用户名 ) 删除帖子所在的论坛：( 请选择 ) 注意：使用此功能将删除指定的邮件，删除后不能恢复！请慎重使用！！删除指定日期内的留言删除多少天前的留言：( 填数字 ) 删除指定用户的所有留言删除指定用户的留言：( 用户名 ) 查看用户密码用户名： 合并论坛把论坛 合并到 注意：合并后，被合并到别的论坛中去的论坛将被删除 按指定天数移动帖子移动多少天前的帖子：( 填数字 ) 帖子原来所在的论坛：( 请选择 ) 帖子要移动到的论坛：( 请选择 ) 按指定用户移动帖子移动指定用户的帖子：( 用户名 ) 帖子原来所在的论坛：( 请选择 ) 帖子要移动到的论坛：( 请选择 ) 添加论坛联盟论坛名称：论坛地址：论坛图片： 现有论坛联盟 \"&kbbs(ha)& \" \"response.write \"删除编辑 \"slm.movenextloopset slm=nothing% \" method= \"POST \"编辑论坛联盟论坛名称：论坛地址： \"论坛图片： \"","null","null","");arrFiles[58]=new Array("bbs/bbselse.asp","NO TITLE","here thenlaiyuan=falseelselaiyuan=trueend ifend functionlaiyuan()if laiyuan=false thenresponse.redirect \"index.asp \"end ifcomeurl=Request.ServerVariables( \"HTTP_REFERER \")type1=request.querystring( \"type \")id=request.querystring( \"id \")set hhh=myconn.execute( \"select*from vote where id= \"&id& \" \")outtime=hhh( \"outtime \")ddd=hhh( \"vote \")nno=hhh( \"votenum \")ddd=split(ddd, \"| \")nno=split(nno, \"| \")nnn=ubound(ddd)if type1=1 thenxuan1=request.form( \"xuan \")for i=1 to nnnif i=cint(xuan1) thennno(i)=nno(i)+1end ifnum=num& \"| \"&nno(i)nextelsedim xuan(10)dim num1(10)for i=1 to nnnxuan(i)=request.form( \"xuan_ \"&i& \" \")xuan1=xuan(i)&xuan1nextfor j=1 to nnnif xuan(j)= \" \" then num1(j)=nno(j)if cint(xuan(j))=j thennum1(j)=nno(j)+1end ifnum=num& \"| \"&num1(j)nextend ifcanvote= \"yes \"lgname=Request.Cookies(cn)( \"lgname \")lgpwd=Request.Cookies(cn)( \"lgpwd \")if lgname= \" \" thencanvote= \"no \"elseset uss=myconn.execute( \"select name from user where name= \' \"&lgname& \" \' and password= \' \"&lgpwd& \" \' \")if uss.eof thencanvote= \"no \"end ifset uss=nothingset had=myconn.execute( \"select user from voted where user= \' \"&lgname& \" \' and id= \"&id& \" \")if not had.eof thencanvote= \"no \"end ifset had=nothingend ifif nowouttime thencanvote= \"no \"end ifif canvote= \"yes \" thenmyconn.execute( \"update vote set votenum= \' \"&num& \" \' where id= \"&id& \" \")myconn.execute( \"update min set orders= \' \"&now& \" \' where id= \"&id& \" \")myconn.execute( \"insert into voted(id,user,votenum)values( \"&id& \", \' \"&lgname& \" \', \' \"&xuan1& \" \') \")end ifresponse.redirect comeurlcase \" \"comeurl=Replace(Request.Form( \"comeurl \"), \" \' \", \" \' \' \")if comeurl= \" \" thencomeurl=Request.ServerVariables( \"HTTP_REFERER \")end iflgname=Replace(Request.Form( \"lgname \"), \" \' \", \" \' \' \")lgpwd=Replace(Request.Form( \"lgpwd \"), \" \' \", \" \' \' \")lgpwd=md5(lgpwd)cook=Replace(Request.Form( \"cook \"), \" \' \", \" \' \' \")Response.Cookies(cn)( \"lgname \")=lgnameResponse.Cookies(cn)( \"lgpwd \")=lgpwdif cook= \"j1 \" thenResponse.Cookies(cn).Expires=date+1Response.Cookies(cn).Expires=date+1elseif cook= \"j30 \" thenResponse.Cookies(cn).Expires=date+30Response.Cookies(cn).Expires=date+30elseif cook= \"j365 \" thenResponse.Cookies(cn).Expires=date+365Response.Cookies(cn).Expires=date+365elseif cook= \"j0 \" thenResponse.Cookies(cn)( \"lgname \")=lgnameResponse.Cookies(cn)( \"lgpwd \")=lgpwdend if% \"t2= \" \"d1= \" \"d2= \" \"myconn.closeset myconn=nothingresponse.write \" \"&t1& \"登 陆 失 败 \"&t2&d1& \"·你的用户名或密码错误··返回重新登陆· \"&d2& \" \"elsemyconn.execute( \"update [user] set qian=qian+50,meili=meili+8,jingyan=jingyan+8 WHERE name= \' \"&lgname& \" \' \")myconn.closeset myconn=nothing% \"t2= \" \"d1= \" \"d2= \" \"myconn.closeset myconn=nothingresponse.write \" \"&t1& \"登 陆 成 功 \"&t2&d1& \"·进入论坛首页·· \"&kbbs(comeurl)& \"· \"&d2& \" \"end if%","null","null","");arrFiles[59]=new Array("bbs/bbsgl.asp","NO TITLE","·回到帖子 \"t2= \" \"d1= \" \"d2= \" \"if action= \"qk \" and admin= \"yes \" thenmyconn.execute( \"delete*from min where type=5 \")%操 作 成 功 ！·已经清空回收站 \"set bf=myconn.execute( \"select*from bdinfo where key \'0 \' \")do while not bf.eofresponse.write \" \"&bf( \"bdname \")& \" \"bf.movenextloopbf.closeset bf=nothingresponse.write \" \"end functionset del1=myconn.execute( \"select*from admin where name= \' \"&lgname& \" \' and password= \' \"&lgpwd& \" \' and (bd= \'70767766 \' or bd= \' \"&bd& \" \') \")%&bd= \"移动帖子请选择帖子要移动到的论坛： 操 作 失 败 ！·没有该帖子！！操 作 成 功 ！·移动帖子---成功！！操 作 成 功 ！·设定为精华帖子---成功！！操 作 成 功 ！·取消帖子精华---成功！！操 作 成 功 ！·设定为置顶帖子---成功！！操 作 成 功 ！·加锁帖子---成功！！操 作 成 功 ！·解锁帖子---成功！！操 作 成 功 ！·取消置顶帖子---成功！！操 作 成 功 ！·设定为总置顶帖子---成功！！操 作 成 功 ！ \"yes \" then response.endmyconn.execute( \"delete*from min where id= \"&id& \" or bid= \"&id& \" \")myconn.execute( \"update [user] set qian=qian-250,meili=meili-40,jingyan=jingyan-40 where name= \' \"&upwho& \" \' \")%操 作 成 功 ！·永久删除帖子成功· \"yes \" then response.endmyconn.execute( \"update min set type=0 where id= \"&id& \" \")%操 作 成 功 ！·还原帖子成功·操 作 失 败 ！·你不是该版面的的斑竹或总斑竹，不能操作该帖！！       ","null","null","");arrFiles[60]=new Array("bbs/bbsmail.asp","NO TITLE","\"t2= \" \"d1= \" \"d2= \" \"%错 误 信 息进入邮箱失败！可能存在以下问题：·你还没有登陆··你的用户名或密码错误·个人留言板 \" width= \"94% \" \" 发送留言 清空留言板 ·你的留言板共有 个留言· 请珍惜每一点空间，麻烦你及时删除无用的留言信息。谢谢！ (Count \\pagesetup) thenTotalPage=(Count \\pagesetup)+1else TotalPage=(Count \\pagesetup)End IfPageCount= 0RS.MoveFirstif Request.QueryString( \"ToPage \") \" \" then PageCount = cint(Request.QueryString( \"ToPage \"))if PageCount TotalPage then PageCount = TotalPageRS.Move (PageCount-1) * pagesetupaa=1do while not rs.eof% \" width= \"94% \" height= \"150 \" , strength=1); BORDER-COLLAPSE: collapse \" borderColor=#111111 cellSpacing=0 cellPadding=0 width=* border= \"0 \" width= \" \" height= \" \" \' 信 息 \" 留 言 &menu=del \" 删 除 width= \"98% \" size= \"1 \" pagesetup then exit dors.movenextlooprs.Close% cellSpacing=0 cellPadding=0 width= \"94% \" border=1 style= \"border-collapse: collapse; border-left-width: 1px; border-right-width: 1px; border-top-width: 1px \"3.gif \" style= \"border-collapse: collapse; border-left-width:0; border-top-width:0; border-bottom-width:0 \" bgcolor= \" \" 共有 页, 个留言，每页有 个留言 [ TotalPage theniii=TotalPageend ifif PageCount 6 thenResponse.Write \"1 ... \"end iffor i=ii to iiiIf iPageCount thenResponse.Write \" \" & i & \" \"elseResponse.Write \" \"&i& \" \"end ifnextif TotalPage PageCount+5 thenResponse.Write \" ... \"&TotalPage& \" \"end if% ]页码： \" 删 除 成 功·留言删除成功·清 空 成 功·留言清空成功·       ","null","null","");arrFiles[61]=new Array("bbs/chinfo.asp","NO TITLE","255 then t=t+1 end if next strLength=t else strLength=len(str) end if if err.number0 then err.clearend functionfunction ubbg(str)dim re	Set re=new RegExp	re.IgnoreCase=true	re.Global=Truere.Pattern= \"( \\width) \"str=re.Replace(str, \" \")	re.Pattern= \"( \\height) \"str=re.Replace(str, \" \")	set re=Nothingubbg=strend functionsty= \" \"t1= \" \"t2= \" \"d1= \" \"d2= \" \"newpwd=Replace(Request.Form( \"newpwd \"), \" \' \", \" \' \' \")repwd=Replace(Request.Form( \"repwd \"), \" \' \", \" \' \' \")email=Replace(Request.Form( \"email \"), \" \' \", \" \' \' \")anhao=Replace(Request.Form( \"anhao \"), \" \' \", \" \' \' \")sex=Replace(Request.Form( \"sex \"), \" \' \", \" \' \' \")burn=Replace(Request.Form( \"burn \"), \" \' \", \" \' \' \")home=Replace(Request.Form( \"home \"), \" \' \", \" \' \' \")qq=Replace(Request.Form( \"qq \"), \" \' \", \" \' \' \")toupic=Replace(Request.Form( \"toupic \"), \" \' \", \" \' \' \")mypic=Replace(Request.Form( \"mypic \"), \" \' \", \" \' \' \")mypic=ubbg(mypic)ch=Replace(Request.Form( \"ch \"), \" \' \", \" \' \' \")ku=Replace(Request.Form( \"ku \"), \" \' \", \" \' \' \")gxqm=Replace(Request.Form( \"gxqm \"), \" \' \", \" \' \' \")set canl=myconn.execute( \"select*from user where name= \' \"&lgname& \" \' and password= \' \"&lgpwd& \" \' \")if canl.eof or canl.bof then%错 误 信 息·你还没有登陆或者你登陆的用户名或密码错误！·16 or Instr(newpwd, \"= \")0 or Instr(newpwd, \"% \")0 or Instr(newpwd,chr(32))0 or Instr(newpwd, \"? \")0 or Instr(newpwd, \"& \")0 or Instr(newpwd, \"; \")0 or Instr(newpwd, \", \")0 or Instr(newpwd, \" \' \")0 or Instr(newpwd, \", \")0 or Instr(newpwd,chr(34))0 or Instr(newpwd,chr(9))0 or Instr(newpwd, \" \")0 or Instr(newpwd, \"$ \")0 thencan= \"no \"end ifif strlength(anhao)16 or Instr(anhao, \"= \")0 or Instr(anhao, \"% \")0 or Instr(anhao,chr(32))0 or Instr(anhao, \"? \")0 or Instr(anhao, \"& \")0 or Instr(anhao, \"; \")0 or Instr(anhao, \", \")0 or Instr(anhao, \" \' \")0 or Instr(anhao, \", \")0 or Instr(anhao,chr(34))0 or Instr(anhao,chr(9))0 or Instr(anhao, \" \")0 or Instr(anhao, \"$ \")0 thencan= \"no \"end ifif newpwd= \" \" or repwd= \" \" or anhao= \" \" or email= \" \" then%错 误 信 息·对不起！请填写完整必填的项目· 返 回错 误 信 息·你的密码 或 备用密码 含有非法字符或者字符过多· 返 回newpwd then%错 误 信 息·你的重复密码与你的新密码不匹配· 返 回 1 then IsValidEmail = false exit function end if for each name in names if Len(name) 2 and i 3 then IsValidEmail = false exit function end if if InStr(email, \".. \") 0 then IsValidEmail = false end ifend functionemail=request.form( \"email \")email=server.HTMLEncode(email)if not IsValidEmail(email) then%错 误 信 息·请检查你的 E-mail 是否填写准确· 返 回错 误 信 息·你的图像大小设置错误· 返 回120 or ku120 thench=heightku=widthend if%lgpwd thennewpwd=md5(newpwd)end ifif anhaoanan thenanhao=md5(anhao)end ifmyconn.execute( \"update [user] set password= \' \"&newpwd& \" \',burn= \' \"&burn& \" \' ,anhao= \' \"&anhao& \" \',ch= \' \"&ch& \" \',ku= \' \"&ku& \" \',email= \' \"&email& \" \',qq= \' \"&qq& \" \',sex= \' \"&sex& \" \',toupic= \' \"&mytp& \" \',home= \' \"&home& \" \',gxqm= \' \"&gxqm& \" \' WHERE name= \' \"&lgname& \" \' \")myconn.execute( \"update admin set password= \' \"&newpwd& \" \' where name= \' \"&lgname& \" \' \")%修 改 成 功·你已经成功的修改了你的用户信息！如果你有修改密码，请 重新登陆·       ","null","null","");arrFiles[62]=new Array("bbs/conn.asp","NO TITLE","null","null","null","");arrFiles[63]=new Array("bbs/edit.asp","NO TITLE","\", \"&gt; \")str = replace(str, \" \"t2= \" \"d1= \" \"d2= \" \"id=request.querystring( \"id \")set edit=myconn.execute( \"select*from min where id= \"&id& \" \")nnn=edit( \"name \")if lgnamennn thenabc= \"no \"end ifset edit=nothingset che=myconn.execute( \"select name from user where name= \' \"&lgname& \" \' and password= \' \"&lgpwd& \" \' \")if che.eof thenabc= \"no \"end ifset che=nothingset adok=myconn.execute( \"select name from admin where name= \' \"&lgname& \" \' and password= \' \"&lgpwd& \" \' and bd= \'70767766 \' \")if not adok.eof thenabc= \"yes \"end ifset adok=nothingset adok=myconn.execute( \"select name from admin where name= \' \"&lgname& \" \' and password= \' \"&lgpwd& \" \' and bd= \' \"&bd& \" \' \")if not adok.eof thenabc= \"yes \"end ifset adok=nothingif abc= \"no \" then%错 误 信 息·你不是该帖的作者或该版面的斑竹，不能编辑该帖子·编 辑 帖 子 \" width= \"94% \" 帖子主题： \" \"* 你的表情： ·放在帖子前面。 帖子内容： ·HTML标签： 不可用·UBB标签： 可用·贴图标签： 可用·Flash标签：不可用·表情字符转换：不可用·上传图片：可用·最多15KB特殊内容：·等级可见内容·回复可见内容·指定读者内容·金钱·魅力·经验· 功能按钮： 文字大小：1234 颜色：黑色白色绿色褐色橄榄色深蓝色紫色灰色黄色浅绿色浅蓝色粉红色银白色红色蓝色蓝绿色 点击图标插入表情： [按 Ctrl+Enter 直接发送] 修 改 成 功·修改成功 &bd= \" \"回到帖子页面·       ","null","null","");arrFiles[64]=new Array("bbs/elselist.asp","NO TITLE","· \" \" and action \"hsz \" then%我发表的主题 · 我参与的主题 · \"hsz \" then%查看新帖 ·清空回收站 · \"yes \" then noyes= \"操 作 失 败 \"mes= \"你不是管理员，不能浏览回收站！ \"% \"sql = \"select * from min where type=5 order by \"&pai& \" desc \"count=myconn.execute( \"select count(*)from min where bid=0 and type=5 \")(0)case \"jh \"href1= \" \"sql = \"select * from min where bid=0 and gonggao1 and gonggao4 and type=1 order by \"&pai& \" desc \"count=myconn.execute( \"select count(*)from min where bid=0 and gonggao1 and gonggao4 and type=1 \")(0)case \"new \"href1= \" \"sql = \"select * from min where bid=0 and gonggao1 and gonggao4 and type5 order by \"&pai& \" desc \"count=myconn.execute( \"select count(*)from min where bid=0 and gonggao1 and gonggao4 and type5 \")(0)case \"mytop \"href1= \" \"sql = \"select * from min where bid=0 and gonggao1 and gonggao4 and name= \' \"&lgname& \" \' and type5 order by gonggao desc, \"&pai& \" desc \"count=myconn.execute( \"select count(*)from min where bid=0 and gonggao1 and gonggao4 and type5 and name= \' \"&lgname& \" \' \")(0)case \"withmetop \"href1= \" \"sql = \"select * from min where type5 and (id in (select bid from min where gonggao1 and gonggao4 and name= \' \"&lgname& \" \') or (bid=0 and gonggao1 and gonggao4 and name= \' \"&lgname& \" \')) order by gonggao desc, \"&pai& \" desc \"count=myconn.execute( \"select count(*) from min where type5 and (id in (select bid from min where gonggao1 and gonggao4 and name= \' \"&lgname& \" \') or (bid=0 and gonggao1 and gonggao4 and name= \' \"&lgname& \" \')) \")(0)end selecton error resume nextpagesetup=20rs.Open sql,myConn,1If Count/pagesetup (Count \\pagesetup) thenTotalPage=(Count \\pagesetup)+1else TotalPage=(Count \\pagesetup)End IfPageCount= 0RS.MoveFirstif Request.QueryString( \"ToPage \") \" \" then PageCount = cint(Request.QueryString( \"ToPage \"))if PageCount TotalPage then PageCount = TotalPageRS.Move (PageCount-1) * pagesetup% border=1 cellpadding=0 cellspacing=0 style= \"border-collapse:collapse; border-left-width:1px; border-right-width:1px; border-top-width:1px \" bordercolor= width= \"94% \" id=AutoNumber5 height= \"27 \" 3.gif \" 状态 3.gif \" 主 题 ( 点小图标在新窗口浏览 )3.gif \"作 者 3.gif \" 回复/人气3.gif \"最后更新时间 3.gif \" 最后回复0 thenset las=myconn.execute( \"select zhuti from min where id= \"&rs( \"bid \")& \" \")rrzz= \"RE: \"&las( \"zhuti \")set las=nothingend ifend ifset last=myconn.execute( \"select body,name from min where bid= \"&rs( \"id \")& \" order by id desc \")if last.eof thenzui= \"----- \"rb=rs( \"body \")tltltl= \"帖子内容： \"&kbbs(rb)& \" \"elselb=last( \"body \")zui= \" \"&last( \"name \")& \" \"tltltl= \"最后跟帖： \"&kbbs(lb)& \" \"set last=nothingend iffface=rs( \"face \")if rs( \"type \")=1 then fface= \"jing \"response.write \" \"&LeftTrue(rrzz,44)& \" \"bno1=myconn.execute( \"select count(name)from min where bid= \"&rs( \"id \")& \" \")(0)if bno110 thenresponse.write \" \"end ifresponse.write \" \"&kbbs(rs( \"name \"))& \" \"&bno1& \"/ \"&rs( \"hits \")& \" \"&rs( \"orders \")& \" \"&zui& \" \"i=i+1if ipagesetup then exit dors.movenextlooprs.Close% borderColor= cellSpacing=0 cellPadding=0 width= \"94% \" border=1 style= \"border-collapse: collapse; border-left-width: 1px; border-right-width: 1px; border-top-width: 1px \"3.gif \" style= \"border-collapse: collapse; border-left-width:0; border-top-width:0; border-bottom-width:0 \" 本论坛共有 页, 个话题，每页有 张贴子 [ TotalPage theniii=TotalPageend ifif PageCount 6 thenResponse.Write \" \"&href1& \"1 ... \"end iffor i=ii to iiiIf iPageCount thenif action= \"new \" thenhref2= \" \"href3= \" \"end ifif action= \"hsz \" thenhref2= \" \"href3= \" \"end ifif action= \"jh \" thenhref2= \" \"href3= \" \"end ifif action= \"mytop \" thenhref2= \" \"href3= \" \"end ifif action= \"withmetop \" thenhref2= \" \"href3= \" \"end ifResponse.Write \" \"&href2& \" \" & i & \" \"elseResponse.Write \" \"&i& \" \"end ifnextif TotalPage PageCount+5 thenResponse.Write \" ... \"&href3& \" \"&TotalPage& \" \"end if% ]页码： \" border=0 cellpadding=0 cellspacing=0 style= \"border-collapse:collapse; border-left-width:1px; border-right-width:1px; border-top-width:1px \" bordercolor= width= \"94% \" height= \"27 \" \" background= \"pic/3.gif \" 在线统计：目前论坛总共有 人在线。其中有 位会员， 位游客。       ","null","null","");arrFiles[65]=new Array("bbs/fun.asp","NO TITLE","255 thent=t+2Elset=t+1End IfIf tn Then exit forTStr=TStr&(mid(str,i,1))nextLeftTrue = TStr+ \"... \"End IfEnd Functionfunction kbbs(stru)if not isnull(stru) then	stru = replace(stru, \" \", \"&gt; \")	stru = replace(stru, \"","null","null","");arrFiles[66]=new Array("bbs/getpwd.asp","NO TITLE","\"t2= \" \"d1= \" \"d2= \" \"menu=request.querystring( \"menu \")select case menucase \" \"%重 设 密 码 \" width= \"94% \" 请输入你的用户名 请输入你的备用密码 错 误 信 息·你填写的信息错误· 返 回更 改 成 功· 的密码已经更改为备用密码·       ","null","null","");arrFiles[67]=new Array("bbs/index.asp","NO TITLE","欢迎我们的新会员： \"% \"&kbbs(newuser( \"name \"))& \" \"set newuser=nothing regno=myconn.execute( \"select count(name)from user \")(0)response.write \"注册会员： \"&regno& \"现在时间： \"&FormatDateTime(now+timeset/24,4)& \" \"set regno=nothingtienoa=myconn.execute( \"select count(*)from min where gonggao1 \")(0)response.write \"总 帖 数： \"&tienoa& \" \"set tienoa=nothingtieno=myconn.execute( \"select count(*)from min where gonggao1 and bid=0 \")(0)response.write \"话题数： \"&tieno& \"最高日帖数： \"&mosttopic& \"今日帖数： \"&todaynum& \" \"set tieno=nothingresponse.write \" \"igg=1set gg=myconn.execute( \"select zhuti,id,face,bd from min where gonggao=1 and type5 order by id desc \")response.write \" \"do while not gg.eof response.write \" \"&kbbs(gg( \"zhuti \"))& \" \"igg=igg+1if iggggnum then exit dogg.movenextloopresponse.write \" \"set gg=nothingresponse.write \" \"if lgname= \" \" thenresponse.write \" 快 捷 登 陆 用户名：密 码： Cookies：不保存保存一天保存一月保存一年 \"end ifresponse.write \" 论 坛 列 表 \"set bf=myconn.execute( \"select*from bdinfo where key= \'0 \' order by bn \")do while not bf.eofbbnn=bf( \"bn \")response.write \" \"&bf( \"bdname \")& \" \"set asd=myconn.execute( \"select*from bdinfo where key \'0 \' and key= \' \"&bbnn& \" \'order by bn \")do while not asd.eofset hane=myconn.execute( \"select riqi from min where gonggao1 and riqinow-1/2 and bd= \"&asd( \"bn \")& \" \")if not hane.eof thennewtopic= \"yes \"end ifgif= \"on \"if asd( \"type \")=1 then gif= \"member \"if asd( \"type \")=2 then gif= \"lock \"if asd( \"type \")=3 then gif= \"rz \"set hane=nothingresponse.write \" \"&asd( \"bdname \")& \" \"if asd( \"picurl \") \" \" thenresponse.write \" \"end ifresponse.write \" \"set u1=myconn.execute( \"select top 1 * from min where bd= \"&asd( \"bn \")& \" and gonggao1 and gonggao4 and type5 order by id desc \")if u1.eof and u1.bof thenresponse.write \"本版面还没有帖子！ \"elseif u1( \"bid \")=0 thenub=u1( \"zhuti \")lb=kbbs(ub)showid=u1( \"id \")elseub=u1( \"body \")lb=kbbs(ub)showid=u1( \"bid \")end ifresponse.write \"作者： \"&kbbs(u1( \"name \"))& \" 时间： \"&u1( \"orders \")& \"主题： \"&LeftTrue(lb,30)& \" \"end ifset u1=nothingresponse.write \" \"&asd( \"bdinfo \")& \" \"cc=1set cb=myconn.execute( \"select*from admin where bd= \' \"&asd( \"bn \")& \" \' \")if cb.eof or cb.bof thenresponse.write \"该版面还没有斑竹！ \"elseresponse.write \"版面斑竹： \"do while not cb.eofresponse.write \" \"&kbbs(cb( \"name \"))& \" | \"cc=cc+1if cc4 then exit docb.movenextloopend ifcb.Closeset cb=nothingresponse.write \" \"tie=myconn.execute( \"select count(*)from min where gonggao1 and bd= \"&asd( \"bn \")& \" \")(0)response.write \"总帖数： \"&tie& \" \"set tie=nothingresponse.write \" \"asd.movenextLoopasd.Closeset asd=nothingresponse.write \" \"bf.movenextLoopbf.Closeset bf=nothingresponse.write \" 在 线 统 计 \"&_ \" \"&_ \"目前论坛总共有 \"&lineno& \" 人在线 。其中 \"&usno& \" 位会员 ， \"&nusno& \" 位游客。最高峰同时在线人数： \"&mostonline& \" \"ni=1ha=1set useol=myconn.execute( \"select*from online order by name desc \")do while not useol.eofolna=useol( \"name \")if olna \" \" thenset fa=myconn.execute( \"select toupic from user where name= \' \"&olna& \" \' \")mytx=fa( \"toupic \")set fa=nothingiiii= \" \"&kbbs(olna)& \" \"elsemytx= \"pic/youke.gif \"iiii= \" 游客 \"end ifresponse.write \" \"&iiii& \" \"ha=ha+1ni=ni+1if ha4 thenha=1response.write \" \"end ifif nilineno then exit douseol.movenextLoopuseol.Closeset useol=nothingset usno=nothingset lineno=nothingresponse.write \" \"response.write \" 论 坛 联 盟 \"set lmbbs=myconn.execute( \"select*from lmbbs \")lmm=myconn.execute( \"select count(*) from lmbbs \")(0)los=1do while not lmbbs.eofresponse.write \" \"&lmbbs( \"name \")& \" \"lmbbs.movenextlos=los+1if los6 then los=1response.write \" \"end iflooplmbbs.closeset lmbbs=nothingresponse.write \" \"&_ \" 普通论坛 会员论坛 只读论坛 认证论坛 \"%","null","null","");arrFiles[68]=new Array("bbs/line.asp","NO TITLE","\" \" thenset ujilu=myconn.execute( \"select name from online where name= \' \"&lgname& \" \' \")if ujilu.eof thenset ujilu=nothingmyconn.execute( \"delete*from online where ip= \' \"&ip& \" \' \")myconn.execute( \"insert into online (name,ltime)VALUES( \' \"&lgname& \" \', \' \"&now& \" \') \")elsemyconn.execute( \"update online set ltime= \' \"&now& \" \' where name= \' \"&name& \" \' \")end ifend ifusno=myconn.execute( \"Select count(ltime)from online where name \' \' \")(0)lineno=myconn.execute( \"Select count(ltime)from online \")(0)if linenomostonline thenmyconn.execute( \"update bbsinfo set mostonline= \' \"&lineno& \" \' \")mostonline=linenoend ifnusno=lineno-usno%","null","null","");arrFiles[69]=new Array("bbs/list.asp","NO TITLE","\" \" thenresponse.cookies( \"find \")=findend ifsearch=request.querystring( \"search \")mybbs=request.querystring( \"mybbs \")pai=request.querystring( \"pai \")if pai= \" \" thenpai= \"orders \"end if% \"bdlogin(1)if bdtype2 or canre= \"yes \" or admin= \"yes \" then fbt= \" \"end ifresponse.write \" \"&fbt& \"查看我的帖子 \"&_ \" 公告： \"goga=1set showgg=myconn.execute( \"select*from min where bd= \"&bd& \" and gonggao=4 and type5 order by id desc \")if showgg.eof and showgg.bof thenelseresponse.write \" \"do while not showgg.eofresponse.write \" \"&kbbs(showgg( \"name \"))& \" 说： \"&kbbs(showgg( \"zhuti \"))& \" \"goga=goga+1if goga10 then exit doshowgg.movenextloopresponse.write \" \"end ifshowgg.closeset showgg=nothingresponse.write \" \"q1=1set body1=myconn.execute( \"SELECT*FROM admin where bd= \' \"&bd& \" \' \")if body1.eof and body1.bof thenresponse.write \"本版诚聘版主！ \"elseresponse.write \"论坛版主——— \"do while not body1.eofresponse.write \" \"&kbbs(body1( \"name \"))& \" \"q1=q1+1if q14 then exit dobody1.movenextLoopresponse.write \" \"end ifbody1.Closeset body1=nothingresponse.write \" \"dim rsdim sqlset rs = server.createobject( \"adodb.recordset \")if search= \" \" and mybbs= \" \" thenhref1= \" \"sql = \"select * from min where ((bid=0 and bd= \"&bd& \" and gonggao1 and gonggao4) or gonggao=5) and type5 order by gonggao desc, \"&pai& \" desc \"count=myconn.execute( \"select count(*)from min where ((bid=0 and bd= \"&bd& \" and gonggao1 and gonggao4) or gonggao=5) and type5 \")(0)end ifif search= \"yes \" and mybbs= \" \" thenhref1= \" \"find=request.cookies( \"find \")sql = \"select * from min where (zhuti like \'% \" &find& \"% \' or name like \'% \" &find& \"% \' or body like \'% \" &find& \"% \') and ((bid=0 and bd= \"&bd& \" and gonggao1 and gonggao4) or gonggao=5) and type5 order by riqi desc \"count=myconn.execute( \"select count(*) from min where (zhuti like \'% \" &find& \"% \' or name like \'% \" &find& \"% \' or body like \'% \" &find& \"% \') and ((bid=0 and bd= \"&bd& \" and gonggao1 and gonggao4) or gonggao=5) and type5 \")(0)end ifif mybbs \" \" and search= \" \" thenhref1= \" \"sql = \"select * from min where name= \' \"&mybbs& \" \'and ((bid=0 and bd= \"&bd& \" and gonggao1 and gonggao4) or gonggao=5) and type5 order by gonggao desc, \"&pai& \" desc \"count=myconn.execute( \"select count(*) from min where name= \' \"&mybbs& \" \'and ((bid=0 and bd= \"&bd& \" and gonggao1 and gonggao4) or gonggao=5) and type5 \")(0)end ifon error resume nextpagesetup=20rs.Open sql,myConn,1If Count/pagesetup (Count \\pagesetup) thenTotalPage=(Count \\pagesetup)+1else TotalPage=(Count \\pagesetup)End IfPageCount= 0RS.MoveFirstif Request.QueryString( \"ToPage \") \" \" then PageCount = cint(Request.QueryString( \"ToPage \"))if PageCount TotalPage then PageCount = TotalPageRS.Move (PageCount-1) * pagesetupresponse.write \"状态主 题 ( 点小图标在新窗口浏览 ) \"&_ \"作 者回复/人气最后更新时间最后回复 \"i=1do while not rs.eofrrzz=kbbs(rs( \"zhuti \"))set last=myconn.execute( \"select body,name from min where bid= \"&rs( \"id \")& \" order by id desc \")if last.eof thenzui= \"----- \"rb=rs( \"body \")tltltl= \"帖子内容： \"&kbbs(rb)& \" \"elselb=last( \"body \")zui= \" \"&kbbs(last( \"name \"))& \" \"tltltl= \"最后跟帖： \"&kbbs(lb)& \" \"set last=nothingend ifbno1=myconn.execute( \"select count(name)from min where bid= \"&rs( \"id \")& \" \")(0)ggtype=rs( \"gonggao \")bbtype=rs( \"type \")isvote=rs( \"isvote \")face=rs( \"face \")if isvote=2 then face= \"vote \"if bbtype=4 then face= \"lock \"if bbtype=1 then face= \"jing \"if ggtype=3 then face= \"top \"if ggtype=5 then face= \"alltop \"response.write \" \"&LeftTrue(rrzz,44)& \" \"remy=10if bno1/remy(bno1 \\remy) thenrepage=(bno1 \\remy)+1elserepage=bno1 \\remyend ifif repage1 thenresponse.write \" [ \"if repage \"&nnre& \" \"nextelsefor nnnre=1 to 3response.write \" \"&nnnre& \" \"nextresponse.write \"... \"&repage& \" \"end ifresponse.write \" ] \"end ifresponse.write \" \"&kbbs(rs( \"name \"))& \" \"&bno1& \"/ \"&rs( \"hits \")& \" \"&rs( \"orders \")& \" \"&zui& \" \"i=i+1if ipagesetup then exit dors.movenextlooprs.Closeresponse.write \" 本论坛共有 \"&TotalPage& \" 页, \"&count& \" 个话题，每页有 \"&pagesetup& \" 张贴子 [ \"ii=PageCount-5iii=PageCount+5if ii TotalPage theniii=TotalPageend ifif PageCount 6 thenResponse.Write \" \"&href1& \"1 ... \"end iffor i=ii to iiiIf iPageCount thenif search= \" \" and mybbs= \" \" thenhref2= \" \"href3= \" \"end ifif search= \"yes \" and mybbs= \" \" thenhref2= \" \"href3= \" \"end ifif mybbs \" \" and search= \" \" thenhref2= \" \"href3= \" \"end ifResponse.Write \" \"&href2& \" \" & i & \" \"elseResponse.Write \" \"&i& \" \"end ifnextif TotalPage PageCount+5 thenResponse.Write \" ... \"&href3& \" \"&TotalPage& \" \"end ifresponse.write \" ]页码： \"response.write \"跳转论坛至... \"set shsh=myconn.execute( \"select bdname,bn from bdinfo where key= \'0 \' \")do while not shsh.eofresponse.write \"+ \"&shsh( \"bdname \")& \" \"set fen=myconn.execute( \"select bdname,bn from bdinfo where key= \' \"&shsh( \"bn \")& \" \' \")do while not fen.eofresponse.write \"- \"&fen( \"bdname \")& \" \"fen.movenextloopset fen=nothingshsh.movenextloopset shsh=nothingresponse.write \" \"% 在线统计：目前论坛总共有 \"&lineno& \" 人在线。其中有 \"&usno& \" 位会员， \"&nusno& \" 位游客。 \"&_ \" 论坛帖子图例 总置顶帖子 置顶帖子 精华帖子 锁定帖子 投票帖子 热门帖子 \"&_ \" 论坛快速搜索查询字符： \"%","null","null","");arrFiles[70]=new Array("bbs/login.asp","NO TITLE","退 出 论 坛·已经成功的退出论坛··进入论坛首页· \"case \" \"% 论 坛 登 陆 \"&_ \"请输入您的用户名 没有注册？请输入您的密码 忘记密码？ \"&_ \"Cookie 选项请选择你的 Cookie 保存时间，下次访问可以方便输入。不保存，关闭浏览器就失效保存一天保存一月保存一年 \"%","null","null","");arrFiles[71]=new Array("bbs/mailcon.asp","NO TITLE","\"t2= \" \"d1= \" \"d2= \" \"id=request.querystring( \"id \")%错 误 信 息进入邮箱失败！可能存在以下问题：·你还没有登陆··你的用户名或密码错误·发送留言留言对象： \"留言内容：[ 可以使用UBB代码以及论坛帖子的所有功能（除了上传、公告） ] 错 误 信 息·发送失败，留言对象和留言内容不能留空·错 误 信 息·发送失败，论坛中不存在该留言对象·留 言 成 功·已经成功的给 留言·       ","null","null","");arrFiles[72]=new Array("bbs/md5.asp","NO TITLE","31 Then Err.Raise 6 End If If (lValue And m_l2Power(31 - iShiftBits)) Then LShift = ((lValue And m_lOnBits(31 - (iShiftBits + 1))) * m_l2Power(iShiftBits)) Or &H80000000 Else LShift = ((lValue And m_lOnBits(31 - iShiftBits)) * m_l2Power(iShiftBits)) End IfEnd FunctionPrivate Function RShift(lValue, iShiftBits) If iShiftBits = 0 Then RShift = lValue Exit Function ElseIf iShiftBits = 31 Then If lValue And &H80000000 Then RShift = 1 Else RShift = 0 End If Exit Function ElseIf iShiftBits 31 Then Err.Raise 6 End If RShift = (lValue And &H7FFFFFFE) \\ m_l2Power(iShiftBits) If (lValue And &H80000000) Then RShift = (RShift Or (&H40000000 \\ m_l2Power(iShiftBits - 1))) End IfEnd FunctionPrivate Function RotateLeft(lValue, iShiftBits) RotateLeft = LShift(lValue, iShiftBits) Or RShift(lValue, (32 - iShiftBits))End FunctionPrivate Function AddUnsigned(lX, lY) Dim lX4 Dim lY4 Dim lX8 Dim lY8 Dim lResult lX8 = lX And &H80000000 lY8 = lY And &H80000000 lX4 = lX And &H40000000 lY4 = lY And &H40000000 lResult = (lX And &H3FFFFFFF) + (lY And &H3FFFFFFF) If lX4 And lY4 Then lResult = lResult Xor &H80000000 Xor lX8 Xor lY8 ElseIf lX4 Or lY4 Then If lResult And &H40000000 Then lResult = lResult Xor &HC0000000 Xor lX8 Xor lY8 Else lResult = lResult Xor &H40000000 Xor lX8 Xor lY8 End If Else lResult = lResult Xor lX8 Xor lY8 End If AddUnsigned = lResultEnd FunctionPrivate Function md5_F(x, y, z) md5_F = (x And y) Or ((Not x) And z)End FunctionPrivate Function md5_G(x, y, z) md5_G = (x And z) Or (y And (Not z))End FunctionPrivate Function md5_H(x, y, z) md5_H = (x Xor y Xor z)End FunctionPrivate Function md5_I(x, y, z) md5_I = (y Xor (x Or (Not z)))End FunctionPrivate Sub md5_FF(a, b, c, d, x, s, ac) a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_F(b, c, d), x), ac)) a = RotateLeft(a, s) a = AddUnsigned(a, b)End SubPrivate Sub md5_GG(a, b, c, d, x, s, ac) a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_G(b, c, d), x), ac)) a = RotateLeft(a, s) a = AddUnsigned(a, b)End SubPrivate Sub md5_HH(a, b, c, d, x, s, ac) a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_H(b, c, d), x), ac)) a = RotateLeft(a, s) a = AddUnsigned(a, b)End SubPrivate Sub md5_II(a, b, c, d, x, s, ac) a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_I(b, c, d), x), ac)) a = RotateLeft(a, s) a = AddUnsigned(a, b)End SubPrivate Function ConvertToWordArray(sMessage) Dim lMessageLength Dim lNumberOfWords Dim lWordArray() Dim lBytePosition Dim lByteCount Dim lWordCount Const MODULUS_BITS = 512 Const CONGRUENT_BITS = 448 lMessageLength = Len(sMessage) lNumberOfWords = (((lMessageLength + ((MODULUS_BITS - CONGRUENT_BITS) \\ BITS_TO_A_BYTE)) \\ (MODULUS_BITS \\ BITS_TO_A_BYTE)) + 1) * (MODULUS_BITS \\ BITS_TO_A_WORD) ReDim lWordArray(lNumberOfWords - 1) lBytePosition = 0 lByteCount = 0 Do Until lByteCount = lMessageLength lWordCount = lByteCount \\ BYTES_TO_A_WORD lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(Asc(Mid(sMessage, lByteCount + 1, 1)), lBytePosition) lByteCount = lByteCount + 1 Loop lWordCount = lByteCount \\ BYTES_TO_A_WORD lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(&H80, lBytePosition) lWordArray(lNumberOfWords - 2) = LShift(lMessageLength, 3) lWordArray(lNumberOfWords - 1) = RShift(lMessageLength, 29) ConvertToWordArray = lWordArrayEnd FunctionPrivate Function WordToHex(lValue) Dim lByte Dim lCount For lCount = 0 To 3 lByte = RShift(lValue, lCount * BITS_TO_A_BYTE) And m_lOnBits(BITS_TO_A_BYTE - 1) WordToHex = WordToHex & Right( \"0 \" & Hex(lByte), 2) NextEnd FunctionPublic Function MD5(sMessage) m_lOnBits(0) = CLng(1) m_lOnBits(1) = CLng(3) m_lOnBits(2) = CLng(7) m_lOnBits(3) = CLng(15) m_lOnBits(4) = CLng(31) m_lOnBits(5) = CLng(63) m_lOnBits(6) = CLng(127) m_lOnBits(7) = CLng(255) m_lOnBits(8) = CLng(511) m_lOnBits(9) = CLng(1023) m_lOnBits(10) = CLng(2047) m_lOnBits(11) = CLng(4095) m_lOnBits(12) = CLng(8191) m_lOnBits(13) = CLng(16383) m_lOnBits(14) = CLng(32767) m_lOnBits(15) = CLng(65535) m_lOnBits(16) = CLng(131071) m_lOnBits(17) = CLng(262143) m_lOnBits(18) = CLng(524287) m_lOnBits(19) = CLng(1048575) m_lOnBits(20) = CLng(2097151) m_lOnBits(21) = CLng(4194303) m_lOnBits(22) = CLng(8388607) m_lOnBits(23) = CLng(16777215) m_lOnBits(24) = CLng(33554431) m_lOnBits(25) = CLng(67108863) m_lOnBits(26) = CLng(134217727) m_lOnBits(27) = CLng(268435455) m_lOnBits(28) = CLng(536870911) m_lOnBits(29) = CLng(1073741823) m_lOnBits(30) = CLng(2147483647) m_l2Power(0) = CLng(1) m_l2Power(1) = CLng(2) m_l2Power(2) = CLng(4) m_l2Power(3) = CLng(8) m_l2Power(4) = CLng(16) m_l2Power(5) = CLng(32) m_l2Power(6) = CLng(64) m_l2Power(7) = CLng(128) m_l2Power(8) = CLng(256) m_l2Power(9) = CLng(512) m_l2Power(10) = CLng(1024) m_l2Power(11) = CLng(2048) m_l2Power(12) = CLng(4096) m_l2Power(13) = CLng(8192) m_l2Power(14) = CLng(16384) m_l2Power(15) = CLng(32768) m_l2Power(16) = CLng(65536) m_l2Power(17) = CLng(131072) m_l2Power(18) = CLng(262144) m_l2Power(19) = CLng(524288) m_l2Power(20) = CLng(1048576) m_l2Power(21) = CLng(2097152) m_l2Power(22) = CLng(4194304) m_l2Power(23) = CLng(8388608) m_l2Power(24) = CLng(16777216) m_l2Power(25) = CLng(33554432) m_l2Power(26) = CLng(67108864) m_l2Power(27) = CLng(134217728) m_l2Power(28) = CLng(268435456) m_l2Power(29) = CLng(536870912) m_l2Power(30) = CLng(1073741824) Dim x Dim k Dim AA Dim BB Dim CC Dim DD Dim a Dim b Dim c Dim d Const S11 = 7 Const S12 = 12 Const S13 = 17 Const S14 = 22 Const S21 = 5 Const S22 = 9 Const S23 = 14 Const S24 = 20 Const S31 = 4 Const S32 = 11 Const S33 = 16 Const S34 = 23 Const S41 = 6 Const S42 = 10 Const S43 = 15 Const S44 = 21 x = ConvertToWordArray(sMessage) a = &H67452301 b = &HEFCDAB89 c = &H98BADCFE d = &H10325476 For k = 0 To UBound(x) Step 16 AA = a BB = b CC = c DD = d md5_FF a, b, c, d, x(k + 0), S11, &HD76AA478 md5_FF d, a, b, c, x(k + 1), S12, &HE8C7B756 md5_FF c, d, a, b, x(k + 2), S13, &H242070DB md5_FF b, c, d, a, x(k + 3), S14, &HC1BDCEEE md5_FF a, b, c, d, x(k + 4), S11, &HF57C0FAF md5_FF d, a, b, c, x(k + 5), S12, &H4787C62A md5_FF c, d, a, b, x(k + 6), S13, &HA8304613 md5_FF b, c, d, a, x(k + 7), S14, &HFD469501 md5_FF a, b, c, d, x(k + 8), S11, &H698098D8 md5_FF d, a, b, c, x(k + 9), S12, &H8B44F7AF md5_FF c, d, a, b, x(k + 10), S13, &HFFFF5BB1 md5_FF b, c, d, a, x(k + 11), S14, &H895CD7BE md5_FF a, b, c, d, x(k + 12), S11, &H6B901122 md5_FF d, a, b, c, x(k + 13), S12, &HFD987193 md5_FF c, d, a, b, x(k + 14), S13, &HA679438E md5_FF b, c, d, a, x(k + 15), S14, &H49B40821 md5_GG a, b, c, d, x(k + 1), S21, &HF61E2562 md5_GG d, a, b, c, x(k + 6), S22, &HC040B340 md5_GG c, d, a, b, x(k + 11), S23, &H265E5A51 md5_GG b, c, d, a, x(k + 0), S24, &HE9B6C7AA md5_GG a, b, c, d, x(k + 5), S21, &HD62F105D md5_GG d, a, b, c, x(k + 10), S22, &H2441453 md5_GG c, d, a, b, x(k + 15), S23, &HD8A1E681 md5_GG b, c, d, a, x(k + 4), S24, &HE7D3FBC8 md5_GG a, b, c, d, x(k + 9), S21, &H21E1CDE6 md5_GG d, a, b, c, x(k + 14), S22, &HC33707D6 md5_GG c, d, a, b, x(k + 3), S23, &HF4D50D87 md5_GG b, c, d, a, x(k + 8), S24, &H455A14ED md5_GG a, b, c, d, x(k + 13), S21, &HA9E3E905 md5_GG d, a, b, c, x(k + 2), S22, &HFCEFA3F8 md5_GG c, d, a, b, x(k + 7), S23, &H676F02D9 md5_GG b, c, d, a, x(k + 12), S24, &H8D2A4C8A md5_HH a, b, c, d, x(k + 5), S31, &HFFFA3942 md5_HH d, a, b, c, x(k + 8), S32, &H8771F681 md5_HH c, d, a, b, x(k + 11), S33, &H6D9D6122 md5_HH b, c, d, a, x(k + 14), S34, &HFDE5380C md5_HH a, b, c, d, x(k + 1), S31, &HA4BEEA44 md5_HH d, a, b, c, x(k + 4), S32, &H4BDECFA9 md5_HH c, d, a, b, x(k + 7), S33, &HF6BB4B60 md5_HH b, c, d, a, x(k + 10), S34, &HBEBFBC70 md5_HH a, b, c, d, x(k + 13), S31, &H289B7EC6 md5_HH d, a, b, c, x(k + 0), S32, &HEAA127FA md5_HH c, d, a, b, x(k + 3), S33, &HD4EF3085 md5_HH b, c, d, a, x(k + 6), S34, &H4881D05 md5_HH a, b, c, d, x(k + 9), S31, &HD9D4D039 md5_HH d, a, b, c, x(k + 12), S32, &HE6DB99E5 md5_HH c, d, a, b, x(k + 15), S33, &H1FA27CF8 md5_HH b, c, d, a, x(k + 2), S34, &HC4AC5665 md5_II a, b, c, d, x(k + 0), S41, &HF4292244 md5_II d, a, b, c, x(k + 7), S42, &H432AFF97 md5_II c, d, a, b, x(k + 14), S43, &HAB9423A7 md5_II b, c, d, a, x(k + 5), S44, &HFC93A039 md5_II a, b, c, d, x(k + 12), S41, &H655B59C3 md5_II d, a, b, c, x(k + 3), S42, &H8F0CCC92 md5_II c, d, a, b, x(k + 10), S43, &HFFEFF47D md5_II b, c, d, a, x(k + 1), S44, &H85845DD1 md5_II a, b, c, d, x(k + 8), S41, &H6FA87E4F md5_II d, a, b, c, x(k + 15), S42, &HFE2CE6E0 md5_II c, d, a, b, x(k + 6), S43, &HA3014314 md5_II b, c, d, a, x(k + 13), S44, &H4E0811A1 md5_II a, b, c, d, x(k + 4), S41, &HF7537E82 md5_II d, a, b, c, x(k + 11), S42, &HBD3AF235 md5_II c, d, a, b, x(k + 2), S43, &H2AD7D2BB md5_II b, c, d, a, x(k + 9), S44, &HEB86D391 a = AddUnsigned(a, AA) b = AddUnsigned(b, BB) c = AddUnsigned(c, CC) d = AddUnsigned(d, DD) Next \'MD5 = LCase(WordToHex(a) & WordToHex(b) & WordToHex(c) & WordToHex(d)) MD5=LCase(WordToHex(b) & WordToHex(c)) \'I crop this to fit 16byte database password :DEnd Function%","null","null","");arrFiles[73]=new Array("bbs/mdbcon.asp","NO TITLE","3.gif \" align= \"center \" 论坛后台管理系统 \"t2= \" \"d1= \" \"d2= \" \"lgname=Request.Cookies(cn)( \"lgname \")lgpwd=Request.Cookies(cn)( \"lgpwd \")set can=myconn.execute( \"select*from admin where name= \' \"&lgname& \" \' and password= \' \"&lgpwd& \" \' and bd= \'70767766 \' \")if can.eof or can.bof then%权限不够！你没有权限访问该页！！你正在论坛使用的用户：没有斑竹的权限，或者密码错误！请使用具有斑竹权限的用户登陆本论坛备份成功！·备份成功·恢复成功！·恢复成功·来源错误！返回 \"&d2& \" \"response.endend ifConst JET_3X = 4Function CompactDB(dbPath, boolIs97)Dim fso, Engine, strDBPathstrDBPath = left(dbPath,instrrev(DBPath, \" \\ \"))Set fso = CreateObject( \"Scripting.FileSystemObject \")If fso.FileExists(dbPath) ThenSet Engine = CreateObject( \"JRO.JetEngine \")Engine.CompactDatabase \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source= \" & dbpath, _ \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source= \" & strDBPath & \"temp.mdb \"fso.CopyFile strDBPath & \"temp.mdb \",dbpathfso.DeleteFile(strDBPath & \"temp.mdb \")Set fso = nothingSet Engine = nothingCompactDB = \" \"&t1& \"压缩成功！ \"&t2& \" \"&d1& \"压缩成功！返回 \"&d2& \" \"ElseCompactDB = \" \"&t1& \"压缩失败！ \"&t2& \" \"&d1& \"找不到数据库！请检查数据库路径是否输入错误！返回 \"&d2& \" \"End IfEnd FunctionDim dbpath,boolIs97dbpath = request( \"dbpath \")boolIs97 = request( \"boolIs97 \")If dbpath \" \" Thendbpath = server.mappath(dbpath)response.write(CompactDB(dbpath,boolIs97))End If%压缩数据库压缩的数据库路径： 备份数据库原来的数据库路径： 备份的数据库路径： 恢复数据库备份的数据库路径： 原来的数据库路径：       ","null","null","");arrFiles[74]=new Array("bbs/mes.asp","NO TITLE","\"&noyes& \" \"&mes& \" \"%","null","null","");arrFiles[75]=new Array("bbs/myinfo.asp","NO TITLE","\"t1= \" \"t2= \" \"d1= \" \"d2= \" \"set canl=myconn.execute( \"select*from user where name= \' \"&lgname& \" \' and password= \' \"&lgpwd& \" \' \")if canl.eof or canl.bof then%错 误 信 息·你还没有登陆或者你登陆的用户名或密码错误！·我的个人资料 \" width= \"94% \" \"●必填资料：用户名：注册用户名不能超过20个字符（10个汉字）密码(最多16位)：请不要使用任何类似 \'* \'、 \' \' 或 HTML 字符 \"重复密码(最多16位)：请再输一遍确认 \"Email地址：请输入有效的邮件地址，这将使您能用到论坛中的所有功能 \"备用密码：请牢记！忘记密码时可以用这个来充当密码！ \" \"●选填资料：性别：; background-color: #FFFFEC \" 男 女女 男生日：（请按照1900-1-1格式填写） \"主页：填写你的个人主页，让大家见识见识！ \"OICQ号码：填写您的QQ地址，方便与他人的联系 \"我的头像：使用论坛自带的图像 自定义头像：如果图像位置中有连接图片将以自定义的为主 \" 完整Url地址图像宽度： \" 高度： \"（都不能大于120）个性签名：最多255个字符文字将出现在您发表的文章的结尾处。体现您的个性。3.gif \"","null","null","");arrFiles[76]=new Array("bbs/paihang.asp","NO TITLE","论坛十大富翁序号用户名金钱点数以及比例 \"if fw.eof thenelsedo while not fw.eofqianall=qianall+fw( \"qian \")*1fw.movenextloopend ifi=1fw.movefirstdo while not fw.eofwidth=fw( \"qian \")/qianall*90response.write \" \"&i& \"、 \"&kbbs(fw( \"name \"))& \" \"&fw( \"qian \")& \" \"i=i+1if i=11 then exit dofw.movenextloopfw.closeset fw=nothingresponse.write \" \"% 论坛十大魅力人士序号用户名魅力点数以及比例 \"if ml.eof thenelsedo while not ml.eofmeiliall=meiliall+ml( \"meili \")*1ml.movenextloopend ifi=1ml.movefirstdo while not ml.eofwidth=ml( \"meili \")/meiliall*90response.write \" \"&i& \"、 \"&kbbs(ml( \"name \"))& \" \"&ml( \"meili \")& \" \"i=i+1if i=11 then exit doml.movenextloopml.closeset ml=nothingresponse.write \" \"% 论坛十大经验人士序号用户名经验点数以及比例 \"if ml.eof thenelsedo while not ml.eofjingyanall=jingyanall+ml( \"jingyan \")*1ml.movenextloopend ifi=1ml.movefirstdo while not ml.eofwidth=ml( \"jingyan \")/jingyanall*90response.write \" \"&i& \"、 \"&kbbs(ml( \"name \"))& \" \"&ml( \"jingyan \")& \" \"i=i+1if i=11 then exit doml.movenextloopml.closeset ml=nothingresponse.write \" \"% 论坛十大人气最旺帖子序号帖子作者帖子主题以及人气指数 \"if ml.eof thenelsedo while not ml.eofhitsall=hitsall+ml( \"hits \")*1ml.movenextloopend ifi=1ml.movefirstdo while not ml.eofwidth=ml( \"hits \")/hitsall*90response.write \" \"&i& \"、 \"&kbbs(ml( \"name \"))& \" \"&kbbs(ml( \"zhuti \"))& \" \"&ml( \"hits \")& \" \"i=i+1if i=11 then exit doml.movenextloopml.closeset ml=nothingresponse.write \" \"%","null","null","");arrFiles[77]=new Array("bbs/reg.asp","NO TITLE","here thenlaiyuan=falseelselaiyuan=trueend ifend functionlaiyuan()if laiyuan=false thenresponse.redirect \"index.asp \"end iffunction ubbg(str)dim re	Set re=new RegExp	re.IgnoreCase=true	re.Global=Truere.Pattern= \"( \\width) \"str=re.Replace(str, \" \")	re.Pattern= \"( \\height) \"str=re.Replace(str, \" \")	set re=Nothingubbg=strend function%255 then t=t+1 end if next strLength=t else strLength=len(str) end if if err.number0 then err.clearend functionnoyes= \"注 册 失 败 ！ \"name=Replace(Request.Form( \"name \"), \" \' \", \" \' \' \")if strlength(name)16 or Instr(name, \"= \")0 or Instr(name, \"% \")0 or Instr(name,chr(32))0 or Instr(name, \"? \")0 or Instr(name, \"& \")0 or Instr(name, \"; \")0 or Instr(name, \", \")0 or Instr(name, \" \' \")0 or Instr(name, \", \")0 or Instr(name,chr(34))0 or Instr(name,chr(9))0 or Instr(name, \" \")0 or Instr(name, \"$ \")0 thencan= \"no \"end ifpassword=Replace(Request.Form( \"password \"), \" \' \", \" \' \' \")if strlength(password)16 or Instr(password, \"= \")0 or Instr(password, \"% \")0 or Instr(password,chr(32))0 or Instr(password, \"? \")0 or Instr(password, \"& \")0 or Instr(password, \"; \")0 or Instr(password, \", \")0 or Instr(password, \" \' \")0 or Instr(password, \", \")0 or Instr(password,chr(34))0 or Instr(password,chr(9))0 or Instr(password, \" \")0 or Instr(password, \"$ \")0 thencan= \"no \"end ifrepassword=Replace(Request.Form( \"repassword \"), \" \' \", \" \' \' \")anhao=Replace(Request.Form( \"anhao \"), \" \' \", \" \' \' \")if strlength(anhao)16 or Instr(anhao, \"= \")0 or Instr(anhao, \"% \")0 or Instr(anhao,chr(32))0 or Instr(anhao, \"? \")0 or Instr(anhao, \"& \")0 or Instr(anhao, \"; \")0 or Instr(anhao, \", \")0 or Instr(anhao, \" \' \")0 or Instr(anhao, \", \")0 or Instr(anhao,chr(34))0 or Instr(anhao,chr(9))0 or Instr(anhao, \" \")0 or Instr(anhao, \"$ \")0 thencan= \"no \"end ifnameok=Replace(Request.Form( \"name \"), \" \", \" \")passwordok=Replace(Request.Form( \"password \"), \" \", \" \")repasswordok=Replace(Request.Form( \"repassword \"), \" \", \" \")anhaook=Replace(Request.Form( \"anhao \"), \" \", \" \")email=Replace(Request.Form( \"email \"), \" \' \", \" \' \' \")set rs=myconn.execute( \"SELECT*FROM user where name= \' \"&name& \" \' \")if not rs.eof and not rs.bof thenmes= \"对不起！ \"&kbbs(name)& \" 已被人注册了！！！ 返 回 \"%对不起！你不能成功地注册用户！！！请填写完整必填的项目 返 回 \"% 1 then IsValidEmail = false exit function end if for each name in names if Len(name) 2 and i 3 then IsValidEmail = false exit function end if if InStr(email, \".. \") 0 then IsValidEmail = false end ifend functionemail=request.form( \"email \")email=server.HTMLEncode(email)elseif not IsValidEmail(email) thenmes= \"对不起！你不能成功地注册用户！！！请检查你的E-mail是否出错！！ 返 回 \"%你的用户名、密码 或 备用密码 含有非法字符或者字符过多！！ 返 回 \"elseif repasswordpassword thenmes= \"你的重复密码与原密码不相同！！ 返 回 \"%你的图像大小设置错误！！ 返 回 \"%120 or ku120 thench=heightku=widthend if%恭喜你！ \"&kbbs(name)& \" 成功注册！ 进入论坛 \"%","null","null","");arrFiles[78]=new Array("bbs/save.asp","NO TITLE","here thenlaiyuan=falseelselaiyuan=trueend ifend functionlaiyuan()if laiyuan=false thenresponse.redirect \"index.asp \"end if%now() thennoyes= \"发 帖 失 败 ！ \"mes= \"对不起！你不能成功地发出帖子！！！·本论坛为了防止灌水，限制了同一人发帖的时间间隔为 10 秒！ \"elseselect case recase \"no \"gonggao=request.form( \"gonggao \")zhuti=Replace(Request.Form( \"zhuti \"), \" \' \", \" \' \' \")zhutiok=Replace(Request.Form( \"zhuti \"), \" \", \" \")set rs=myconn.execute( \"SELECT*FROM user where name= \' \"&name& \" \'and password= \' \"&password& \" \' \")if rs.eof and rs.bof or zhutiok= \" \" or bodyok= \" \" thennoyes= \"发 帖 失 败 ！ \"mes= \"对不起！你不能成功地发出帖子！！！可能存在以下问题：· 你并没有填写主题或主要内容！· 你填写的名字或密码错误！· 如果你还没有注册一个用户，请立即注册！ \"elseselect case gonggaocase \"4 \"if rs( \"qian \")对不起！你不能成功地发出帖子！· 你的金钱、魅力、经验中有某一项或多项不足够发广告帖！ \"cangg= \"no \"elsecangg= \"yes \"if admin \"yes \" thenmyconn.execute( \"update [user] set qian=qian-1000,meili=meili-200,jingyan=jingyan-200 WHERE name= \' \"&name& \" \' \")end ifend ifcase \"0 \"cangg= \"yes \"case \"1 \"if admin= \"yes \" thencangg= \"yes \"elsecangg= \"no \"end ifend selectisvote= \"0 \"voteyn=request.form( \"voteyn \")if voteyn=1 thenfunction checkStr(str)	if isnull(str) then	checkStr = \" \"	exit function	end if	checkStr=replace(str, \" \' \", \" \' \' \")end functionvotetype=request.form( \"votetype \")vote=Checkstr(trim(replace(request.Form( \"vote \"), \"| \", \" \")))vote=split(vote,chr(13)&chr(10))nnn1=ubound(vote)if nnn19 then nnn1=9for i=0 to nnn1if not (vote(i)= \" \" or vote(i)= \" \") thenbodyv=bodyv& \"| \"&vote(i)num=num& \"|0 \"end ifnextif bodyv= \" \" thenisvote= \"0 \"elseisvote= \"2 \"set lastid=myconn.execute( \"select top 1 id from min order by id desc \")idno=lastid( \"id \")+1set lastid=nothingouttime=request.form( \"outtime \")outt=now+outtimemyconn.execute( \"insert into vote(id,vote,votenum,type,outtime) values( \"&idno& \", \' \"&bodyv& \" \', \' \"&num& \" \', \"&votetype& \", \' \"&outt& \" \') \")end ifcangg= \"yes \"end ifif cangg= \"yes \" thenmyconn.execute( \"insert into min(zhuti,name,body,riqi,face,bd,orders,gonggao,type,isvote)VALUES( \' \"&zhuti& \" \', \' \"&name& \" \', \' \"&body& \" \', \' \"&riqi& \" \', \' \"&face& \" \', \"&bd& \", \' \"&riqi& \" \', \' \"&gonggao& \" \',0, \' \"&isvote& \" \') \")myconn.execute( \"update [user] set qian=qian+200,meili=meili+30,jingyan=jingyan+30 WHERE name= \' \"&name& \" \' \")set seeme=myconn.execute( \"select top 1 id from min order by id desc \")fid=seeme( \"id \")set seeme=nothingnoyes= \"发 帖 成 功 ！ \"mes= \"发表成功----如果你不点击下面的连接，将在 3 秒后自动跳转到 \"&wz& \"！· 回到你所发的帖的页面！· \"&wz& \"· \"&tl& \" \"end ifend ifset rs=nothingcase \"yes \"set lock=myconn.execute( \"select type from min where id= \"&id& \" \")if lock( \"type \")=4 or lock( \"type \")=5 thencanre= \"no \"end ifset lock=nothingif admin= \"yes \" thencanre= \"yes \"end ifset cjbz=myconn.execute( \"select name from admin where name= \' \"&lgname& \" \' and password= \' \"&lgpwd& \" \' and bd= \' \"&bd& \" \' \")if not cjbz.eof thencanre= \"yes \"end ifset cjbz=nothingif canre= \"no \" thennoyes= \"操 作 失 败 \"mes= \"该帖子已经删除或被锁定 \"%对不起！你不能成功地回复帖子！！！可能存在以下问题：· 你并没有填写主要内容！· 你填写的名字或密码错误！· 如果你还没有注册一个用户，请立即注册！ \"elseid=request.querystring( \"id \")set upid=myconn.execute( \"select name from min where id= \"&id& \" \")upname=upid( \"name \")set upid=nothingmyconn.execute( \"insert into min(name,body,riqi,bd,orders,bid,face,type)VALUES( \' \"&name& \" \', \' \"&body& \" \', \' \"&riqi& \" \', \"&bd& \", \' \"&riqi& \" \', \"&id& \", \' \"&face& \" \',0) \")myconn.execute( \"update min set orders= \' \"&riqi& \" \' where id= \"&id& \" \")myconn.execute( \"update [user] set qian=qian+100,meili=meili+15,jingyan=jingyan+25 WHERE name= \' \"&name& \" \' \")myconn.execute( \"update [user] set qian=qian+20,meili=meili+5 WHERE name= \' \"&upname& \" \' \")noyes= \"回 复 成 功 ！ \"mes= \"回复成功----如果你不点击下面的连接，将在 3 秒后自动跳转到 \"&wz& \"！· 回到你所回复的帖的页面！· \"&wz& \"· \"&tl& \" \"end ifend selectset ty=myconn.execute( \"select nyr from bbsinfo \")myconn.execute( \"update bbsinfo set todaynum=todaynum+1 \")if todaynum+1mosttopic thenmyconn.execute( \"update bbsinfo set mosttopic=todaynum \")end ifsession( \"lasttime \")=Now()end if%","null","null","");arrFiles[79]=new Array("bbs/saveup.asp","NO TITLE","upno then	response.write \"一次只能上传 \"&upno& \" 个文件！ \"	response.endend ifmyconn.closeset myconn=nothing% \"/ \" then formPath=formPath& \"/ \" response.write \" \"iCount=0for each formName in upload.file \' \'列出所有上传了的文件 set file=upload.file(formName) \' \'生成一个文件对象 if file.filesize重新上传 ] \"	response.end end if if file.filesizecint(upsize)*1000 then	response.write \"文件大小超过了限制 \"&upsize& \" K　[ 重新上传 ] \"	response.end end if fileExt=lcase(right(file.filename,4)) uploadsuc=false Forumupload=split( \"gif,jpg,bmp,png,swf,zip,rar \", \", \") for i=0 to ubound(Forumupload)	if fileEXT= \". \"&trim(Forumupload(i)) then	uploadsuc=true	exit for	else	uploadsuc=false	end if next if uploadsuc=false then	response.write \"文件格式不正确　[ 重新上传 ] \"	response.end end if randomize ranNum=int(90000*rnd)+10000 filename=formPath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&fileExt if file.FileSize0 then \' \'如果 FileSize 0 说明有文件数据 file.SaveAs Server.mappath( \"upload \"&FileName) \' \'保存文件	for i=0 to ubound(Forumupload)	if fileEXT= \". \"&trim(Forumupload(i)) then	response.write \" \"	exit for	end if	next iCount=iCount+1 end if set file=nothingnextset upload=nothingHtmend iCount& \" 个文件上传结束! \"end subsub HtmEnd(Msg)application(name)=application(name)+1response.write \" \"&application(name)-1& \" 文件上传成功,请copy下边的文件连接,以备后用！继续上传 \" response.endend subfunction MakedownName(filename) dim fname,Forumupload,u fname = now() fname = replace(fname, \"- \", \" \") fname = replace(fname, \" \", \" \") fname = replace(fname, \": \", \" \") fname = replace(fname, \"PM \", \" \") fname = replace(fname, \"AM \", \" \") fname = replace(fname, \"上午 \", \" \") fname = replace(fname, \"下午 \", \" \") fname = int(fname) + int((10-1+1)*Rnd + 1) Forumupload=split(Forum_upload, \", \") for u=0 to ubound(Forumupload)	if instr(filename,Forumupload(u))0 then	uploadfiletype=Forumupload(u)	MakedownName=fname & \". \" & Forumupload(u)	exit for	end if nextend function%","null","null","");arrFiles[80]=new Array("bbs/say.asp","NO TITLE","\", \"&gt; \")str = replace(str, \"4 or canre= \"yes \" thenelseresponse.endend ifset lock=nothingend if%3.gif \' 发 表 帖 子5.gif \'4.gif \' \" width= \"94% \"	用户名： \" \"* 没有注册？ 密 码： \" \"* 忘记密码？ 帖子主题： \" \"* 你的表情： ·放在帖子前面。 帖子类型： 普通帖子 公告帖子 系统公告 帖子内容： ·HTML标签： 不可用·UBB标签： 可用·贴图标签： 可用·Flash标签：不可用·表情字符转换：不可用·上传图片：可用·最多15KB特殊内容：·等级可见内容·回复可见内容·指定读者内容·金钱·魅力·经验· 显示投票选项 功能按钮： 文字大小：1234 颜色：黑色白色绿色褐色橄榄色深蓝色紫色灰色黄色浅绿色浅蓝色粉红色银白色红色蓝色蓝绿色 \" \" thenset quote=myconn.execute( \"select top 1 name,riqi,body from min where bd= \"&bd& \" and id= \"&quoteid& \" \")qqbody=quote( \"body \")%[quote][color=]该内容引用 在 发表的内容：[/color][/quote] 点击图标插入表情： 投票项目·各个项目用回车隔开单选多选过期时间：一天三天一周半个月一个月三个月一年不过期 \" [按 Ctrl+Enter 直接发送]","null","null","");arrFiles[81]=new Array("bbs/show.asp","NO TITLE","\"bdlogin(1)myconn.execute( \"update min set hits=hits+1 WHERE id= \"&id& \" \")count=myconn.execute( \"select count(riqi) from min where bid= \" &id& \" \")(0)pagesetup=10renum=count+1If renum/pagesetup (renum \\pagesetup) thenyenum=(renum \\pagesetup)+1else yenum=(renum \\pagesetup)End Ifdel= \"删除 \"if bbtype=5 then del= \"还原永久删除 \"if admin \"yes \" thennoyes= \"操 作 失 败 \"mes= \"该帖子已经删除或被锁定 \"%解锁 \"elsetestl= \"加锁 \"end iffabiao= \"yes \"backbt= \"yes \"if bbtype=4 thenfabiao= \"yes \"backbt= \"no \"end ifif bdtype=2 then fabiao= \"no \"backbt= \"no \"end ifif canre= \"yes \" or admin= \"yes \" thenfabiao= \"yes \"backbt= \"yes \"end ifif fabiao= \"yes \" then fbt= \" \"if backbt= \"yes \" then bbt= \" \"response.write \" \"&fbt& \" \"&bbt& \" 你是本帖的第 \"&whits+1& \" 位阅读者 \"if isvote=2 thenset hhh=myconn.execute( \"select*from vote where id= \"&id& \" \")outtime=hhh( \"outtime \")votetype=hhh( \"type \")ddd=hhh( \"vote \")nno=hhh( \"votenum \")ddd=split(ddd, \"| \")nno=split(nno, \"| \")nnn=ubound(ddd)allvote=0for j=1 to nnnallvote=allvote+nno(j)nextif allvote=0 then allvote=1response.write \" 投票选项 \"for i=1 to nnn width=nno(i)/allvote*85if votetype=1 thenform1= \" \"elseform1= \" \"end ifresponse.write \"· \"&i& \" \"&form1& \" \"&kbbs(ddd(i))& \" \"&nno(i)& \" 票 \"nextcanvote= \"yes \"if lgname= \" \" theninfo1= \"你还没有登陆，不能进行投票。 \"canvote= \"no \"elseset had=myconn.execute( \"select user from voted where user= \' \"&lgname& \" \' and id= \"&id& \" \")if not had.eof theninfo1= \"你已经投过票了,不能再投票了。 \"canvote= \"no \"end ifset had=nothingend ifif nowouttime theninfo1= \"该投票已经过期，不能进行投票。 \"canvote= \"no \"end ifif canvote= \"yes \" thenbuto= \" \"end ifresponse.write \" \"&info1& \" \"&buto& \" [ 截止时间： \"&outtime& \" ] \"end ifset huati=myconn.execute( \"select*from user where name= \' \"&wname& \" \' \")response.write \"『 帖子主题 』： \"&LeftTrue(wzhuti,50)& \" \"&_ \" \"&_ \" \"&kbbs(wname)& \"金钱： \"q1=huati( \"qian \")response.write \" \"&q1& \"经验： \"j1=huati( \"jingyan \")response.write \" \"&j1& \"魅力： \"m1=huati( \"meili \")response.write \" \"&m1& \"帖数： \"&myconn.execute( \"select count(name)from min where name= \' \"&wname& \" \' \")(0)& \" \"myname=wnamesqltype= \"my \"response.write \"等级： \"% \"&dj& \"『 \"&dd& \" 』 \"kw=kbbs(wname)response.write \" 信 息 留 言 OICQ 邮 箱 主 页 编 辑 引 用 \"gxqm=huati( \"gxqm \")set huati=nothingresponse.write \"楼 顶 \"&wzhuti& \" \"response.write \" \"&ubb(wbody)& \" \"if gxqm \" \" thenresponse.write \"———————————————————— \"&ubb(gxqm)& \" \"end ifresponse.write \"状态： \"set onoff=myconn.execute( \"select name from online where name= \' \"&wname& \" \' \")if onoff.eof thenooo= \"offline \"elseooo= \"online \"end ifset onoff=nothingresponse.write \" \"&wriqi& \" \"if ggtype=3 then testg1= \"解除置顶 \"elsetestg1= \"置顶 \"end ifif ggtype=5 thentestg2= \"解除总置顶 \"elsetestg2= \"总置顶 \"end ifif bbtype=1 then testj= \"取消精华 \"elsetestj= \"精华 \"end ifresponse.write \" 帖子管理： \"&testg2& \" \"&testg1& \" \"&testj& \" \"&testl& \" \"&del& \"移动 \"set huati=nothingdim rsdim sqlset rs = server.createobject( \"adodb.recordset \")sql = \"select*from min where bid= \" &id& \" and type5 order by id \"on error resume nextrs.Open sql,myConn,1If Count/pagesetup (Count \\pagesetup) thenTotalPage=(Count \\pagesetup)+1else TotalPage=(Count \\pagesetup)End IfPageCount= 0RS.MoveFirstif Request.QueryString( \"ToPage \") \" \" then PageCount = cint(Request.QueryString( \"ToPage \"))if PageCount TotalPage then PageCount = TotalPageRS.Move (PageCount-1) * pagesetupai=1do while not rs.eofrnn=rs( \"name \")set back=myconn.execute( \"select*from user where name= \' \"&rnn& \" \' \")lou=pagesetup-aiif lou/2lou \\2 thenbgcl= \" \"&c2& \" \"elsebgcl= \"white \"end ifresponse.write \" \"&_ \" \"response.write \" \"&kbbs(rnn)& \"金钱： \"q1=back( \"qian \")response.write \" \"&q1& \"经验： \"j1=back( \"jingyan \")response.write \" \"&j1& \"魅力： \"m1=back( \"meili \")response.write \" \"&m1& \"帖数： \"&myconn.execute( \"select count(name)from min where name= \' \"&rnn& \" \' \")(0)& \" \"myname=rnnsqltype= \"my \"response.write \"等级： \"% \"&dj& \"『 \"&dd& \" 』 \"&_ \" 信 息 留 言 OICQ 邮 箱 主 页 编 辑 引 用 \"gxqm=back( \"gxqm \")set back=nothingresponse.write \" \"if lou0 thenresponse.write \" \"&CHR(64+zai)& \" 栋 \"&lou& \" 楼 \"elseresponse.write \" \"&CHR(64+zai)& \" 栋 楼 下 \"end ifresponse.write \" \"&ubb(rs( \"body \"))& \" \"if gxqm \" \" thenresponse.write \"———————————————————— \"&ubb(gxqm)& \" \"end ifresponse.write \"状态： \"set onoff=myconn.execute( \"select name from online where name= \' \"&rnn& \" \' \")if onoff.eof thenooo= \"offline \"elseooo= \"online \"end ifset onoff=nothingresponse.write \" \"&rs( \"riqi \")& \" \"&_ \"删除 \"ai=ai+1if aipagesetup then exit dors.movenextlooprs.Closeresponse.write \" 共有 \"&TotalPage& \" 页, \"&count& \" 张回复帖,每页有 \"&pagesetup& \" 张贴子 [ \"ii=PageCount-5iii=PageCount+5if ii TotalPage theniii=TotalPageend ifif PageCount 6 thenResponse.Write \"1 ... \"end iffor i=ii to iiiIf iPageCount thenResponse.Write \" \" & i & \" \"elseResponse.Write \" \"&i& \" \"end ifnextif TotalPage PageCount+5 thenResponse.Write \" ... \"&TotalPage& \" \"end ifresponse.write \" ]页码： \"response.write \"跳转论坛至... \"set shsh=myconn.execute( \"select bdname,bn from bdinfo where key= \'0 \' \")do while not shsh.eofresponse.write \"+ \"&shsh( \"bdname \")& \" \"set fen=myconn.execute( \"select bdname,bn from bdinfo where key= \' \"&shsh( \"bn \")& \" \' \")do while not fen.eofresponse.write \"- \"&fen( \"bdname \")& \" \"fen.movenextloopset fen=nothingshsh.movenextloopset shsh=nothingresponse.write \" \"if backbt= \"yes \" thenresponse.write \" 快 速 回 复用户信息：用户名： 没有注册？密码： 忘记密码？帖子内容：·HTML标签： 不可用·UBB标签： 可用·贴图标签： 可用·Flash标签：不可用·表情字符转换：不可用·最多15KB [按 Ctrl+Enter 直接发送] \"end ifresponse.write \" \"%","null","null","");arrFiles[82]=new Array("bbs/style.asp","NO TITLE","0 thenbd=request.querystring( \"bd \")sty= \"bbs \"&bdelsesty= \"all \"end ifskin=request.querystring( \"skin \")select case skincase \"a \"c1= \"#5E8ACA \"c2= \"#F9FBFD \"case \"b \"c1= \"#14B11C \"c2= \"#F7FFF7 \"case \"c \"c1= \"#CF5C36 \"c2= \"#FFF9F7 \"case \"d \"c1= \"#DE9527 \"c2= \"#FFFDF4 \"case \"e \"c1= \"#A7A7A7 \"c2= \"#FAFAFA \"end selectResponse.Cookies(cn& \"1 \")(sty)=skinResponse.Cookies(cn& \"1 \")(sty& \"c1 \")=c1Response.Cookies(cn& \"1 \")(sty& \"c2 \")=c2Response.Cookies(cn& \"1 \").Expires=date+365response.redirect url%","null","null","");arrFiles[83]=new Array("bbs/ubbcode.asp","NO TITLE","\"tt2= \" \"function ubb(str)str = kb6k(str)dim re	Set re=new RegExp	re.IgnoreCase=true	re.Global=True	re.Pattern= \"(javascript) \"str=re.Replace(str, \"&#106avascript \")re.Pattern= \"(jscript:) \"str=re.Replace(str, \"&#106script: \")re.Pattern= \"(js:) \"str=re.Replace(str, \"&#106s: \")re.Pattern= \"(value) \"str=re.Replace(str, \"&#118alue \")re.Pattern= \"(about:) \"str=re.Replace(str, \"about&#58 \")re.Pattern= \"(file:) \"str=re.Replace(str, \"file&#58 \")re.Pattern= \"(document.cookie) \"str=re.Replace(str, \"documents&#46cookie \")re.Pattern= \"(vbscript:) \"str=re.Replace(str, \"&#118bscript: \")re.Pattern= \"(vbs:) \"str=re.Replace(str, \"&#118bs: \")re.Pattern= \"(on(mouse|exit|error|click|key)) \"str=re.Replace(str, \"&#111n$2 \")re.Pattern= \"(script) \"str=re.Replace(str, \"&#115cript \")	re.Pattern= \" \\[IMG \\](http|https|ftp): \\/ \\/(.[^ \\[]*) \\[ \\/IMG \\] \"	str=re.Replace(str, \"screen.width-333)this.width=screen.width-333 \" \" \")	re.Pattern= \" \\[UPLOAD=(gif|jpg|jpeg|bmp|png) \\](.[^ \\[]*)(gif|jpg|jpeg|bmp|png) \\[ \\/UPLOAD \\] \"	str= re.Replace(str, \" 此主题相关图片如下：screen.width-333)this.width=screen.width-333 \" \" \")	re.Pattern= \"( \\[UPLOAD=(.[^ \\[]*) \\])(.[^ \\[]*)( \\[ \\/UPLOAD \\]) \"	str= re.Replace(str, \" 点击浏览该文件 \")	re.Pattern= \"( \\[FLASH \\])(http://.[^ \\[]*(.swf))( \\[ \\/FLASH \\]) \"	str= re.Replace(str, \"[全屏欣赏]$2 \")	re.Pattern= \"( \\[FLASH=*([0-9]*),*([0-9]*) \\])(http://.[^ \\[]*(.swf))( \\[ \\/FLASH \\]) \"	str= re.Replace(str, \"[全屏欣赏]$4 \")	re.Pattern= \" \\[DIR=*([0-9]*),*([0-9]*) \\](.[^ \\[]*) \\[ \\/DIR] \"	str=re.Replace(str, \" \")	re.Pattern= \" \\[MP=*([0-9]*),*([0-9]*) \\](.[^ \\[]*) \\[ \\/MP] \"	str=re.Replace(str, \" \")	re.Pattern= \" \\[RM=*([0-9]*),*([0-9]*) \\](.[^ \\[]*) \\[ \\/RM] \"	str=re.Replace(str, \" \")	re.Pattern= \" \\[fly \\](.*) \\[ \\/fly \\] \"str=re.Replace(str, \"$1 \")re.Pattern= \" \\[move \\](.*) \\[ \\/move \\] \"str=re.Replace(str, \"$1 \")	re.Pattern= \" \\[SHADOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*) \\](.[^ \\[]*) \\[ \\/SHADOW] \"str=re.Replace(str, \"$4 \")re.Pattern= \" \\[GLOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*) \\](.[^ \\[]*) \\[ \\/GLOW] \"str=re.Replace(str, \"$4 \")	re.Pattern = \"^((http|https|ftp|rtsp|mms):( \\/ \\/| \\ \\ \\ \\)[A-Za-z0-9 \\./= \\?% \\-&_~`@ \':+!]+) \"	str = re.Replace(str, \"$1 \")	re.Pattern = \"((http|https|ftp|rtsp|mms):( \\/ \\/| \\ \\ \\ \\)[A-Za-z0-9 \\./= \\?% \\-&_~`@ \':+!]+)$ \"	str = re.Replace(str, \"$1 \")	re.Pattern = \"([^= \" \"])((http|https|ftp|rtsp|mms):( \\/ \\/| \\ \\ \\ \\)[A-Za-z0-9 \\./= \\?% \\-&_~`@ \':+!]+) \"	str = re.Replace(str, \"$1$2 \")	re.Pattern= \"( \\[size=1 \\])(.[^ \\[]*)( \\[ \\/size \\]) \"	str=re.Replace(str, \"$2 \")	re.Pattern= \"( \\[size=2 \\])(.[^ \\[]*)( \\[ \\/size \\]) \"	str=re.Replace(str, \"$2 \")	re.Pattern= \"( \\[size=3 \\])(.[^ \\[]*)( \\[ \\/size \\]) \"	str=re.Replace(str, \"$2 \")	re.Pattern= \"( \\[size=4 \\])(.[^ \\[]*)( \\[ \\/size \\]) \"	str=re.Replace(str, \"$2 \")	re.Pattern= \"( \\[color=(.[^ \\[]*) \\])(.[^ \\[]*)( \\[ \\/color \\]) \"	str=re.Replace(str, \"$3 \")re.pattern= \"( \\{f1) \\) \"	str=re.replace(str, \" \")re.pattern= \"( \\{f2) \\) \"	str=re.replace(str, \" \")re.pattern= \"( \\{f3) \\) \"	str=re.replace(str, \" \")re.pattern= \"( \\{f4) \\) \"	str=re.replace(str, \" \")re.pattern= \"( \\{f5) \\) \"	str=re.replace(str, \" \")re.pattern= \"( \\{f6) \\) \"	str=re.replace(str, \" \")re.pattern= \"( \\{f7) \\) \"	str=re.replace(str, \" \")re.pattern= \"( \\{f8) \\) \"	str=re.replace(str, \" \")re.pattern= \"( \\{f9) \\) \"	str=re.replace(str, \" \")	re.Pattern= \"( \\[right \\])(.*)( \\[ \\/right \\]) \"	str=re.Replace(str, \"$2 \")re.Pattern= \"(^.*)( \\[smoney=*([0-9]*) \\])(.[^ \\[]*)( \\[ \\/s \\])(.*) \"po=re.Replace(str, \"$3 \")if IsNumeric(po) then ii=int(po) else ii=0if lgname= \" \" thenqq11=0elseset ain=myconn.execute( \"select qian from user where name= \' \"&lgname& \" \' \")qq11=ain( \"qian \")set ain=nothingend ifif lgname=myname or qq11=ii thenstr=re.Replace(str, \"$1 \"&tt1& \"此内容需要拥有金钱 \"&ii& \" 以上的用户以及作者才能浏览：$4 \"&tt2& \"$6 \")elsestr=re.Replace(str, \"$1 \"&tt1& \"此内容需要拥有金钱 \"&ii& \" 以上的用户以及作者才能浏览： \"&tt2& \"$6 \")end ifre.Pattern= \"(^.*)( \\[smeili=*([0-9]*) \\])(.[^ \\[]*)( \\[ \\/s \\])(.*) \"po=re.Replace(str, \"$3 \")if IsNumeric(po) then ii=int(po) else ii=0if lgname= \" \" thenqq11=0elseset ain=myconn.execute( \"select meili from user where name= \' \"&lgname& \" \' \")qq11=ain( \"meili \")set ain=nothingend ifif lgname=myname or qq11=ii thenstr=re.Replace(str, \"$1 \"&tt1& \"此内容需要拥有魅力值 \"&ii& \" 以上的用户以及作者才能浏览：$4 \"&tt2& \"$6 \")elsestr=re.Replace(str, \"$1 \"&tt1& \"此内容需要拥有魅力值 \"&ii& \" 以上的用户以及作者才能浏览： \"&tt2& \"$6 \")end ifre.Pattern= \"(^.*)( \\[sjingyan=*([0-9]*) \\])(.[^ \\[]*)( \\[ \\/s \\])(.*) \"po=re.Replace(str, \"$3 \")if IsNumeric(po) then ii=int(po) else ii=0if lgname= \" \" thenqq11=0elseset ain=myconn.execute( \"select jingyan from user where name= \' \"&lgname& \" \' \")qq11=ain( \"jingyan \")set ain=nothingend ifif lgname=myname or qq11=ii thenstr=re.Replace(str, \"$1 \"&tt1& \"此内容需要拥有经验值 \"&ii& \" 以上的用户以及作者才能浏览：$4 \"&tt2& \"$6 \")elsestr=re.Replace(str, \"$1 \"&tt1& \"此内容需要拥有经验值 \"&ii& \" 以上的用户以及作者才能浏览： \"&tt2& \"$6 \")end ifre.Pattern= \"(^.*)( \\[showtograde=*([0-9]*) \\])(.[^ \\[]*)( \\[ \\/s \\])(.*) \"po=re.Replace(str, \"$3 \")if IsNumeric(po) thenii=int(po) else	ii=0end ifif lgname= \" \" thendj=0elseset ain=myconn.execute( \"select qian,meili,jingyan from user where name= \' \"&lgname& \" \' \")q1=ain( \"qian \")j1=ain( \"jingyan \")m1=ain( \"meili \")set ain=nothing	sqltype= \"lg \"%=ii then% \"&ii& \" 或更高的等级以及作者才能浏览：$4 \"&tt2& \"$6 \")elsestr=re.Replace(str, \"$1 \"&tt1& \"此内容需要等级为 \"&ii& \" 或更高的等级以及作者才能浏览： \"&tt2& \"$6 \")end ifre.Pattern= \"(^.*)( \\[showtoname=(.[^ \\[]*) \\])(.[^ \\[]*)( \\[ \\/s \\])(.*) \"usna=re.replace(str, \"$3 \")if lgname=usna or lgname=myname thenstr=re.Replace(str, \"$1 \"&tt1& \"此内容只有作者和 $3 能浏览：$4 \"&tt2& \"$6 \")elsestr=re.Replace(str, \"$1 \"&tt1& \"此内容只有作者和 $3 能浏览： \"&tt2& \"$6 \")end ifre.Pattern= \"(^.*)( \\[showtoreply \\])(.[^ \\[]*)( \\[ \\/s \\])(.*) \"set see=myconn.execute( \"select riqi from min where bid= \"&id& \" and name= \' \"&lgname& \" \' \")if not see.eof or lgname=myname thenstr=re.Replace(str, \"$1 \"&tt1& \"此内容只有作者和已经回复此帖的浏览者能浏览：$3 \"&tt2& \"$5 \")elsestr=re.Replace(str, \"$1 \"&tt1& \"此内容只有作者和已经回复此帖的浏览者能浏览： \"&tt2& \"$5 \")end ifre.Pattern= \"(^.*)( \\[quote \\])(.[^ \\[]*)( \\[ \\/quote \\])(.*) \"str=re.Replace(str, \"$1 \"&tt1& \"$3 \"&tt2& \"$5 \")re.Pattern= \" \\[align=(center|left|right) \\](.*) \\[ \\/align \\] \"str=re.Replace(str, \"$2 \")re.Pattern= \"( \\[URL=(.[^ \\[]*) \\])(.[^ \\[]*)( \\[ \\/URL \\]) \"str= re.Replace(str, \"$3 \")set re=Nothingubb=strend functionRem 过滤HTML代码function kb6k(fweing)if not isnull(fweing) then	fweing = replace(fweing, \" \", \"&gt; \")	fweing = replace(fweing, \" \")fweing = Replace(fweing, \"[enter] \", \" \")kb6k = fweingend ifend function%","null","null","");arrFiles[84]=new Array("bbs/upji.asp","NO TITLE","null","null","null","");arrFiles[85]=new Array("bbs/upload.asp","NO TITLE","文件： 类型：可上传类型gifjpgbmppngswfziprar，限制：个，每个 K","null","null","");arrFiles[86]=new Array("bbs/userinfo.asp","NO TITLE","3.gif \' 用 户 信 息5.gif \'4.gif \' \" width= \"94% \" \" width= \" \" height= \" \" 留言 \' href=mailcon.asp?menu=write&towho= \"基本资料： \"论坛资料： \"性 别： \"　 \"金 钱：　 \"　 生 日： 　 魅 力：　 　 \" width= \"10% \"E-mail： \" width= \"40% \"　 \" \" width= \"10% \"经 验：　 \" width= \"40% \"　 QQ号码： 　 发表话题：　 　 \" width= \"10% \"主 页： \" width= \"40% \"　 \" \" width= \"10% \"回复帖数：　 \" width= \"40% \"　0 and name= \' \"&myname& \" \' \")(0)% 论坛等级： 　『 』 精华帖子：　 　 　       ","null","null","");arrFiles[87]=new Array("bbs/userlist.asp","NO TITLE","3.gif \' 用 户 列 表5.gif \'4.gif \' \" width= \"94% \" \"用户名 性别 \"E-mail QQ号码 \"主页 发帖数 \"等级 (Count \\pagesetup) thenTotalPage=(Count \\pagesetup)+1else TotalPage=(Count \\pagesetup)End IfPageCount= 0RS.MoveFirstif Request.QueryString( \"ToPage \") \" \" then PageCount = cint(Request.QueryString( \"ToPage \"))if PageCount TotalPage then PageCount = TotalPageRS.Move (PageCount-1) * pagesetupi=1do while not rs.eofresponse.write \" \"myname=kbbs(rs( \"name \"))response.write \" \"&myname& \" \"if rs( \"sex \")=1 thensex1= \"男 \"elsesex1= \"女 \"end ifresponse.write \" \"&sex1& \"　　 \"&rs( \"qq \")& \"　 \"if rs( \"home \")= \" \" thenresponse.write \" \"elseresponse.write \" \"end ifresponse.write \" \"&myconn.execute( \"select count(riqi) from min where name= \' \"&rs( \"name \")& \" \' \")(0)& \"　 \"q1=rs( \"qian \")% \"&dj& \"『 \"&dd& \" 』 \"%pagesetup then exit dors.movenextlooprs.Close% cellSpacing=0 cellPadding=0 width= \"94% \" border=1 style= \"border-collapse: collapse; border-left-width: 1px; border-right-width: 1px; border-top-width: 1px \"3.gif \" style= \"border-collapse: collapse; border-left-width:0; border-top-width:0; border-bottom-width:0 \" bgcolor= \" \" 注册用户共有 页, 位，每页有 位用户 [ TotalPage theniii=TotalPageend ifif PageCount 6 thenResponse.Write \"1 ... \"end iffor i=ii to iiiIf iPageCount thenResponse.Write \" \" & i & \" \"elseResponse.Write \" \"&i& \" \"end ifnextif TotalPage PageCount+5 thenResponse.Write \" ... \"&TotalPage& \" \"end if% ]页码： \"","null","null","");arrFiles[88]=new Array("bbs/zhuce.asp","NO TITLE","\"% \"agree \" thennoyes= \"服务条款和声明 \"mes= \"继续注册前请先阅读论坛协议欢迎您加入本站点参加交流和讨论，本站点为公共论坛，为维护网上公共秩序和社会稳定，请您自觉遵守以下条款：一、不得利用本站危害国家安全、泄露国家秘密，不得侵犯国家社会集体的和公民的合法权益，不得利用本站制作、复制和传播下列信息： （一）煽动抗拒、破坏宪法和法律、行政法规实施的；（二）煽动颠覆国家政权，推翻社会主义制度的；（三）煽动分裂国家、破坏国家统一的；（四）煽动民族仇恨、民族歧视，破坏民族团结的；（五）捏造或者歪曲事实，散布谣言，扰乱社会秩序的；（六）宣扬封建迷信、淫秽、色情、赌博、暴力、凶杀、恐怖、教唆犯罪的；（七）公然侮辱他人或者捏造事实诽谤他人的，或者进行其他恶意攻击的；（八）损害国家机关信誉的；（九）其他违反宪法和法律行政法规的；（十）进行商业广告行为的。二、互相尊重，对自己的言论和行为负责。 \"%3.gif \' 新 用 户 注 册5.gif \'4.gif \' \" width= \"94% \" \"●必填资料：用户名：注册用户名不能超过16个字符（8个汉字）密码(最多16位)：请不要使用任何类似 \'* \'、 \' \' 或 HTML 字符重复密码(最多16位)：请再输一遍确认Email地址：请输入有效的邮件地址，这将使您能用到论坛中的所有功能备用密码：请牢记！忘记密码时可以用这个来充当密码！ \"●选填资料：性别：男女生日：（请按照1900-1-1格式填写）主页：填写你的个人主页，让大家见识见识！OICQ号码：填写您的QQ地址，方便与他人的联系我的头像：使用论坛自带的图像 自定义头像：如果图像位置中有连接图片将以自定义的为主 完整Url地址图像宽度： 高度： （都不能大于120）个性签名：最多255个字符文字将出现在您发表的文章的结尾处。体现您的个性。3.gif \"","null","null","");arrFiles[89]=new Array("bbs/down.asp","NO TITLE","Powered By： 利国缝纫机零件制造厂 本论坛言论纯属发表者个人意见，与本网站立场无关 \"%","null","null","");arrFiles[90]=new Array("bbs/up.asp"," \"&tl& \"","\"url=request( \"url \")if bd \" \" thensty= \"bbs \"&bdelsesty= \"all \"end ifsp=request.cookies(cn& \"1 \")(sty)c1=request.cookies(cn& \"1 \")(sty& \"c1 \")c2=request.cookies(cn& \"1 \")(sty& \"c2 \")if sp= \" \" then sp= \" \"&bbs( \"style \")& \" \"if c1= \" \" then c1=bbs(1)if c2= \" \" then c2=bbs(2)c3=bbs(3)todaynum=bbs(4)mostonline=bbs(6)mosttopic=bbs(7)topinfo=bbs(8)upsize=bbs( \"upsize \")upnum=bbs( \"upnum \")td=FormatDateTime(now+timeset/24,2)if tdbbs(5) thenmyconn.execute( \"update bbsinfo set nyr= \' \"&td& \" \' \")myconn.execute( \"update bbsinfo set todaynum= \'0 \' \")end ifset bbs=nothingid=request.querystring( \"id \")lgname=Request.Cookies(cn)( \"lgname \")lgpwd=request.cookies(cn)( \"lgpwd \")st=Request.Cookies(cn)( \"style \")if st= \" \" then st= \"a \"if lgname= \" \" thenlolo= \"会员登陆 \"elselolo= \"重新登陆 \"mailnewno=myconn.execute( \"select count(tname) from hand where tname= \' \"&lgname& \" \' and isnew= \'0 \' \")(0)if mailnewno0 thentishi= \" 新留言 \"mailnewno= \" \"&mailnewno& \" \"end ifinfo= \"用户助手 \"liu= \"留言板 \"&mailnewno& \" \"ex= \"退出论坛 \"end ifset cjbz=myconn.execute( \"select name from admin where name= \' \"&lgname& \" \' and password= \' \"&lgpwd& \" \' and bd= \'70767766 \' \")if not cjbz.eof thenadmin= \"yes \" gl= \"论坛管理回 收 站 \"elseend ifset cjbz=nothingip=request.servervariables( \"remote_addr \")%-- \"&_ \" \"&lolo& \"会员注册 \"&_ \"论坛菜单论坛样式 \"&info& \" \"&ex& \" \"&gl& \" \"&tishi& \" \"&_ \" \"&topinfo& \" \"response.write \"你的位置： \"&tl& \" \"if bd \" \" thenset wei=myconn.execute( \"select bdname,pass,type from bdinfo where bn= \"&bd& \" and key \'0 \' \")bdtype=wei( \"type \")set cjbz1=myconn.execute( \"select name from admin where name= \' \"&lgname& \" \' and password= \' \"&lgpwd& \" \' and bd= \' \"&bd& \" \' \")if not cjbz1.eof thencanre= \"yes \"end ifset cjbz1=nothingfunction bdlogin(nt)if bdtype=0 thenexit functionelseselect case bdtypecase \"1 \"if lgname= \" \" thenuserin= \"no \" noyes= \"进 入 失 败 ！ \"mes= \"你不能成功的进入该版面，可能存在以下问题：● 该版面为只有注册会员可以进入！ ● 你还没有登陆！ \"end ifcase \"2 \"if nt=1 thenexit functionelseif canre= \"yes \" or admin= \"yes \" thenexit functionelsenoyes= \"操 作 失 败 ！ \"mes= \"你不能 \"&canre& \"成功的操作该版面，可能存在以下问题：● 该版面为只读版面，只有管理员或斑竹能够操作！ \"userin= \"no \" end ifend ifcase \"3 \"if isnull(pass) or pass= \" \" thenuserin= \"ok \"elseuser=split(pass, \", \")for i = 0 to ubound(user)if lgname=trim(user(i)) and lgname \" \" thenuserin= \"ok \"exit forelseuserin= \"no \"end ifnextend ifif userin= \"no \" thennoyes= \"进 入 失 败 ！ \"mes= \"你不能成功的进入该版面，可能存在以下问题：● 该版面为认证论坛，你还没有得版主的认证！ ● 你还没有登陆！ \"elseend ifend selectif userin= \"no \" then% \"wz=wei( \"bdname \")response.write \" \"&wz& \" \"end ifset wei=nothingif instr(Request( \"url \"), \"elselist.asp \")0 and request.querystring( \"action \")= \"hsz \" thenresponse.write \"→ 回 收 站 \"end ifif instr(Request( \"url \"), \"bbsmail.asp \")0 or instr(Request( \"url \"), \"mailcon.asp \")0 thenresponse.write \"→ 个人留言板 \"elseif id \" \" thenset w1=myconn.execute( \"select*from min where id= \"&id& \" \")wzhuti=kbbs(w1( \"zhuti \"))wbody=w1( \"body \")wname=w1( \"name \")wriqi=w1( \"riqi \")wface=w1( \"face \")ggtype=w1( \"gonggao \")bbtype=w1( \"type \")isvote=w1( \"isvote \")if isvote=2 then wface= \"vote \"if bbtype=4 then wface= \"lock \"if bbtype=1 then wface= \"jing \"if ggtype=3 then wface= \"top \"if ggtype=5 then wface= \"alltop \"whits=w1( \"hits \")response.write \"→ 浏览帖子： \"&LeftTrue(wzhuti,44)& \" \"set w1=nothingend ifend ifresponse.write \" \"%","null","null","");arrFiles[91]=new Array("count/使用说明.txt","使用说明.txt","本统计系统是参考了很多统计系统的优点，不断改进的无错版，也是最终版。使用代码的方法请参考index.htm 或test.htm文件中使用代码的方法！使用方法是：<Script language= \"javascript \" src= \"stat.asp \"></Script> 如果你把统计系统放在网站的count的目录下，那你的主页使用的代码为：<Script language= \"javascript \" src= \"count/stat.asp \"></Script> 如果你的网站域名是http://www.abc.com/，本统计系统放在count目录下，那其他网站也可以用下面的代码统计<Script language= \"javascript \" src= \"http://www.abc.com/count/stat.asp \"></Script>同时将stat.asp的文件的url值改成相应的值，如上面的应为var url= \"http://www.abc.com/count \"系统密码是1013 ","null","null","");arrFiles[92]=new Array("count/StatYear.asp","网站统计分析系统       ","0 Then Percent(i)=FormatNumber(Int(Assay(i,0)/TotalNum*10000)/100,2,-1)& \"% \" BarWidth(i)=Assay(i,0)/TotalNum*MaxWidth	End IfNext% 年 访 问 统 计 分 析 （总量：） 月份 访问人数 百分比 图示 年月 \"height= \"12 \"","null","null","");arrFiles[93]=new Array("count/StatWeek.asp","网站统计分析系统       ","0 Then Percent(i)=FormatNumber(Int(Assay(i,0)/TotalNum*10000)/100,2,-1)& \"% \" BarWidth(i)=Assay(i,0)/TotalNum*MaxWidth	End IfNext% 本 周 访 问 统 计 分 析 （总量：）[全部周分析] 星期 访问人数 百分比 图示 \"height= \"12 \"","null","null","");arrFiles[94]=new Array("count/StatMonth.asp","网站统计分析系统       ","0 Then Percent(i)=FormatNumber(Int(Assay(i,0)/TotalNum*10000)/100,2,-1)& \"% \" BarWidth(i)=Assay(i,0)/TotalNum*MaxWidth	End IfNext% 月 访 问 统 计 分 析 （总量：） [全部月分析] 日期 访问人数 百分比 图示	年月日 \"height= \"12 \"","null","null","");arrFiles[95]=new Array("count/StatDay.asp","网站统计分析系统       ","0 Then Percent(i)=FormatNumber(Int(Assay(i,0)/TotalNum*10000)/100,2,-1)& \"% \" BarWidth(i)=Assay(i,0)/TotalNum*MaxWidth	End IfNext% 日 访 问 统 计 分 析 （总量：） [全部日分析] 小时 访问人数 百分比 图示 \"height= \"12 \"","null","null","");arrFiles[96]=new Array("count/StatAllWeek.asp","网站统计分析系统       ","0 Then Percent(i)=FormatNumber(Int(Assay(i,0)/TotalNum*10000)/100,2,-1)& \"% \" BarWidth(i)=Assay(i,0)/TotalNum*MaxWidth	End IfNext% 全 部 周 访 问 统 计 分 析 （总量：）[本周分析] 星期 访问人数 百分比 图示 \"height= \"12 \"","null","null","");arrFiles[97]=new Array("count/StatAllMonth.asp","网站统计分析系统       ","0 Then Percent(i)=FormatNumber(Int(Assay(i,0)/TotalNum*10000)/100,2,-1)& \"% \" BarWidth(i)=Assay(i,0)/TotalNum*MaxWidth	End IfNext% 全 部 月 访 问 统 计 分 析 （总量：） [本月分析] 日期 访问人数 百分比 图示 日 \"height= \"12 \"","null","null","");arrFiles[98]=new Array("count/StatAllDay.asp","网站统计分析系统       ","0 Then Percent(i)=FormatNumber(Int(Assay(i,0)/TotalNum*10000)/100,2,-1)& \"% \" BarWidth(i)=Assay(i,0)/TotalNum*MaxWidth	End IfNext% 全 部 日 访 问 统 计 分 析 （总量：） [今日分析] 小时 访问人数 百分比 图示 \"height= \"12 \"","null","null","");arrFiles[99]=new Array("count/Rereg.asp","网站统计分析系统       ","设 置 网 站 基 本 信 息 网站信息： ( * 为必填内容 ) 网站名称： *统计网站的名称 网站网址： *统计网站的网址 系统密码： *修改信息的密码 新的密码： 更新的密码 验证密码： 必须与新密码相同       ","null","null","");arrFiles[100]=new Array("count/Modify.asp","网站统计分析系统       ","PassWord Then Flag=2 If Rs( \"PassWord \")=PassWord And WebUrl \" \" And WebName \" \" Then Rs( \"Name \")=WebName Rs( \"Url \")=WebUrl StartDate=Rs( \"StartDate \") If NewPsw=Confirm And NewPsw \" \" Then Rs( \"PassWord \")=NewPsw PswMod=1 End If Rs.Update Flag=1 End If Rs.Close Conn.Close Set Rs=Nothing Set Conn=NothingCase \"统计重置 \": Restart=0 Sql= \"Select * from InfoList \" Rs.Open Sql,Conn,1,3 If Rs( \"PassWord \")=PassWord Then OldPasswd=Rs( \"PassWord \")	OldWebName=Rs( \"Name \") OldWebUrl=Rs( \"Url \")	Rs.Delete	Rs.Addnew If WebName \" \" Then OldWebName=WebName If WebUrl \" \" Then OldWebUrl=WebUrl	Rs( \"Name \")=OldWebName	Rs( \"Url \")=OldWebUrl	WebName=Rs( \"Name \")	WebUrl=Rs( \"Url \")	StartDate=Cstr(Year(Date)& \"- \"&Month(Date)& \"- \"&Day(date))	Rs( \"StartDate \")=StartDate	Rs( \"OldDay \")=Cstr(Year(Date)& \"- \"&Month(Date)& \"- \"&Day(date)) Rs( \"PassWord \")=OldPasswd	Restart=1 End If Rs.Update Rs.Close If Restart=1 Then Sql= \"Delete * from FAddress \" Conn.Execute(Sql) Sql= \"Delete * from FArea \"	Conn.Execute(Sql)	Sql= \"Delete * from FIpone \"	Conn.Execute(Sql)	Sql= \"Delete * from FIptwo \"	Conn.Execute(Sql)	Sql= \"Delete * from FBrowser \"	Conn.Execute(Sql)	Sql= \"Delete * from FSystem \"	Conn.Execute(Sql)	Sql= \"Delete * from FScreen \"	Conn.Execute(Sql)	Sql= \"Delete * from FMozilla \"	Conn.Execute(Sql)	Sql= \"Delete * from FRefer \"	Conn.Execute(Sql)	Sql= \"Delete * from FWeburl \"	Conn.Execute(Sql)	Sql= \"Delete * from FVisit \"	Conn.Execute(Sql)	Sql= \"Delete * from StatDay \"	Conn.Execute(Sql)	Sql= \"Delete * from StatMonth \"	Conn.Execute(Sql)	Sql= \"Delete * from StatYear \"	Conn.Execute(Sql)	Sql= \"Delete * from StatWeek \"	Conn.Execute(Sql)	Sql= \"Delete * from Visitor \"	Conn.Execute(Sql) End IfEnd Select% 修 改 网 站 信 息 操作结果： 修改成功！！！ \") Response.write( \"网站名称： \"&WebName& \" \") Response.write( \"网站网址： \"&WebUrl& \" \") Response.write( \"开始日期： \"&StartDate& \" \") If PswMod=1 Then Response.write( \"新的密码： \"&NewPsw& \" \") End If Else Response.write( \"修改失败！！！ \") If WebName= \" \" Then Response.write( \"请输入网站名称. \") If WebUrl= \" \" Then Response.write( \"请输入网站网址. \") If Flag=2 Then Response.write( \"请重新输入系统密码。 \") Response.write( \" 返回上页 \")	End If	% 统计重置成功！！！ \") Response.write( \"网站名称： \"&WebName& \" \") Response.write( \"网站网址： \"&WebUrl& \" \") Response.write( \"开始日期： \"&StartDate& \" \") Else Response.write( \"重置失败！！！ \") Response.write( \"请重新输入密码。 \") Response.write( \" 返回上页 \") End If %","null","null","");arrFiles[101]=new Array("count/History.asp","网站统计分析系统       ","历 史 报 表 查 询 请选择你要查询的报表类型及日期： 报表类型： 日报表 月报表 年报表 报表日期： 2000 2001 2002 2003 2004 2005 年 1 2 3 4 5 6 7 8 9 10 11 12 月 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 日 查询：       ","null","null","");arrFiles[102]=new Array("count/FWeburl.asp","网站统计分析系统       ","0 Then Percent(i)=FormatNumber(Int(Assay(1,i)/TotalNum*10000)/100,2,-1)& \"% \" BarWidth(i)=Assay(1,i)/TotalNum*MaxWidth	End IfNext% 访 问 者 链 接 页 面 分 析 （总量：） [来访页面分析] 来访网站 访问人数 百分比 图示 \" \"height= \"12 \" =30 Then Exit For Next%","null","null","");arrFiles[103]=new Array("count/FVisitor.asp","网站统计分析系统       ","最 近 30 位 访 问 者 信 息 分 析 日期 时间 地址 链接页面 \"","null","null","");arrFiles[104]=new Array("count/FSystem.asp","网站统计分析系统       ","0 Then Percent(i)=FormatNumber(Int(Assay(1,i)/TotalNum*10000)/100,2,-1)& \"% \" BarWidth(i)=Assay(1,i)/TotalNum*MaxWidth	End IfNext%	访 问 者 所 用 操 作 系 统 分 析 （总量：） 操作系统 访问人数 百分比 图示 \"height= \"12 \"","null","null","");arrFiles[105]=new Array("count/FScreen.asp","网站统计分析系统       ","0 Then Percent(i)=FormatNumber(Int(Assay(1,i)/TotalNum*10000)/100,2,-1)& \"% \" BarWidth(i)=Assay(1,i)/TotalNum*MaxWidth	End IfNext%	访 问 者 屏 幕 大 小 分 析 （总量：） 屏幕大小 访问人数 百分比 图示 \"height= \"12 \"","null","null","");arrFiles[106]=new Array("count/FReferer.asp","网站统计分析系统       ","0 Then Percent(i)=FormatNumber(Int(Assay(1,i)/TotalNum*10000)/100,2,-1)& \"% \" BarWidth(i)=Assay(1,i)/TotalNum*MaxWidth	End IfNext% 访 问 者 来 访 网 站 分 析 （总量：） [链接页面分析] 链接页面 访问人数 百分比 图示 \" \"height= \"12 \" =500 Then Exit For Next%","null","null","");arrFiles[107]=new Array("count/FMozilla.asp","网站统计分析系统       ","0 Then Percent(i)=FormatNumber(Int(Assay(1,i)/TotalNum*10000)/100,2,-1)& \"% \" BarWidth(i)=Assay(1,i)/TotalNum*MaxWidth	End IfNext% 访 问 者 HTTP_USER_AGENT 字 符 串 分 析 （总量：） [浏览器分析] USER_AGENT 访问人数 百分比 图示 \"height= \"12 \" =30 Then Exit For Next%","null","null","");arrFiles[108]=new Array("count/FIptwo.asp","网站统计分析系统       ","0 Then Percent(i)=FormatNumber(Int(Assay(1,i)/TotalNum*10000)/100,2,-1)& \"% \" BarWidth(i)=Assay(1,i)/TotalNum*MaxWidth	End IfNext% 访 问 者 IP 地 址 分 析 （总量：） [IP首段分析] IP地址 访问人数 百分比 图示 \"height= \"12 \" =30 Then Exit For Next%","null","null","");arrFiles[109]=new Array("count/FIpone.asp","网站统计分析系统       ","0 Then Percent(i)=FormatNumber(Int(Assay(1,i)/TotalNum*10000)/100,2,-1)& \"% \" BarWidth(i)=Assay(1,i)/TotalNum*MaxWidth	End IfNext% 访 问 者 IP 首 段 分 析 （总量：） [IP地址分析] IP首段 访问人数 百分比 图示 \"height= \"12 \" =30 Then Exit For Next%","null","null","");arrFiles[110]=new Array("count/FCounter.asp","网站统计分析系统       ","0 Then Percent(i)=FormatNumber(Int(Assay(i,0)/TotalNum*10000)/100,2,-1)& \"% \" BarWidth(i)=Assay(i,0)/TotalNum*MaxWidth	End IfNext% 访 问 次 数 统 计 分 析 （总量：） 次数分析 访问人数 百分比 图示 \"height= \"12 \"","null","null","");arrFiles[111]=new Array("count/FBrowser.asp","网站统计分析系统       ","0 Then Percent(i)=FormatNumber(Int(Assay(1,i)/TotalNum*10000)/100,2,-1)& \"% \" BarWidth(i)=Assay(1,i)/TotalNum*MaxWidth	End IfNext% 访 问 者 所 用 浏 览 器 分 析 （总量：） [AGENT字串分析] 浏览器 访问人数 百分比 图示 \"height= \"12 \"","null","null","");arrFiles[112]=new Array("count/FArea.asp","网站统计分析系统       ","0 Then Percent(i)=FormatNumber(Int(Assay(1,i)/TotalNum*10000)/100,2,-1)& \"% \" BarWidth(i)=Assay(1,i)/TotalNum*MaxWidth	End IfNext%	访 问 者 所 处 地 区 分 析 （总量：） 地区 访问人数 百分比 图示 \"height= \"12 \" =30 Then Exit For Next%","null","null","");arrFiles[113]=new Array("count/FAddress.asp","网站统计分析系统       ","0 Then Percent(i)=FormatNumber(Int(Assay(1,i)/TotalNum*10000)/100,2,-1)& \"% \" BarWidth(i)=Assay(1,i)/TotalNum*MaxWidth	End IfNext%	访 问 者 所 在 地 址 分 析 （总量：） 地址 访问人数 百分比 图示 \"height= \"12 \" =30 Then Exit For Next%","null","null","");arrFiles[114]=new Array("count/Count.asp","NO TITLE","= \' \"&SIp& \" \' Order By StartIp \"Rs.Open Sql,Conn,1,3If Rs.Eof Or Rs.Bof Then Area= \"其它地区 \" Address= \"其它地区 \"Else Area=Rs( \"Area \") Address=Rs( \"Area \")&Rs( \"Address \")End IfRs.CloseSql= \"Select Top 1 Scope From IpScope Where StartIp= \' \"&SIp& \" \' Order By Scope DESC \"Rs.Open Sql,Conn,1,3If Rs.Eof Or Rs.Bof Then Scope= \"OtherNum \"Else Scope=Rs( \"Scope \")End IfRs.CloseReferer=Request.QueryString( \"Referer \")If Referer= \" \" Then Referer= \"直接输入或书签导入 \"WebUrl=Request.QueryString( \"weburl \")If WebUrl= \" \" Then WebUrl= \"直接输入或书签导入 \"Width=Request.QueryString( \"Width \")Height=Request.QueryString( \"Height \")If Height= \" \" Or isnumeric(Height)=0 Or Width= \" \" Or isnumeric(Width)=0 Then Screen= \"其它 \"Else Screen=Cstr(Width)& \"x \"&Cstr(Height)End IfVisit=Request.Cookies( \"VisitNum \")If Visit \" \" Then Visit=Visit+1Else Visit=1End IfResponse.Cookies( \"VisitNum \")=VisitResponse.Cookies( \"VisitNum \").Expires= \"January 01, 2010 \"Sql= \"Select * From FVisit \"Rs.Open Sql,Conn,1,3If Rs.Eof Or Rs.Bof Then Rs.AddNew If Visit0 And Visit-10 Then Rs(Visit-1)=Rs(Visit-1)-1 End If End IfEnd IfRs.UpdateRs.CloseMozilla=Request.ServerVariables( \"HTTP_USER_AGENT \")Agent=MozillaAgent=Split(Agent, \"; \")BcType=0If Instr(Agent(1), \"U \") Or Instr(Agent(1), \"I \") Then BcType=1If InStr(Agent(1), \"MSIE \") Then BcType=2Select Case BcTypeCase 0: Browser= \"其它 \" System= \"其它 \"Case 1: Ver=Mid(Agent(0),InStr(Agent(0), \"/ \")+1) Ver=Mid(Ver,1,InStr(Ver, \" \")-1) Browser= \"Netscape \"&Ver System=Mid(Agent(0),InStr(Agent(0), \"( \")+1) System=Replace(System, \"Windows \", \"Win \")case 2: Browser=Agent(1) System=Agent(2) System=Replace(System, \") \", \" \") System=Replace(System, \"Windows \", \"Win \")End SelectSystem=Replace(System, \" \", \" \")System=Replace(System, \"Win \", \"Windows \")System=Replace(System, \"NT5.0 \", \"2000 \")Browser=Replace(Browser, \" \", \" \")Screen=left(Screen,10)System=Left(System,20)Browser=Left(Browser,20)WebUrl=Left(WebUrl,50)Referer=left(Referer,100)Sql= \"Select * From Visitor Order By Id DESC \"Rs.Open Sql,Conn,1,3If Not (Rs.Eof Or Rs.Bof) ThenRs.MovelastIf Rs.RecordCount29 Then Rs.DeleteEnd IfRs.AddnewRs( \"Sdate \")=DateRs( \"STime \")=TimeRs( \"IP \")=IpRs( \"Address \")=AddressRs( \"Browser \")=BrowserRs( \"System \")=SystemRs( \"Screen \")=ScreenRs( \"Referer \")=RefererRs.UpdateRs.CloseStrHour=Cstr(hour(time))StrDay=Cstr(Day(Date))StrMonth=Cstr(Month(Date))StrYear=Cstr(Year(Date))StrWeek=Cstr(Weekday(Date))StrDayLong=Cstr(Year(Date)& \"- \"&Month(Date)& \"- \"&Day(date))StrMonthLong=Cstr(Year(Date)& \"- \"&Month(Date))StrHourLong=StrDayLong& \" \"&Cstr(Hour(Time))& \":00:00 \"ModiMaxNum StrMonthLong, \"OldMonth \", \"MonthNum \", \"MonthMaxDate \", \"MonthMaxNum \"ModiMaxNum StrDayLong, \"OldDay \", \"DayNum \", \"DayMaxDate \", \"DayMaxNum \"ModiMaxNum StrHourLong, \"OldHour \", \"HourNum \", \"HourMaxTime \", \"HourMaxNum \"Sql= \"Select * From InfoList \"Rs.Open Sql,Conn,1,3Rs( \"TotalNum \")=Rs( \"TotalNum \")+1Rs(Scope)=Rs(Scope)+1If IsNull(Rs( \"StartDate \")) Then Rs( \"StartDate \")=StrDayLongOldDay=Rs( \"OldDay \")Rs.UpdateRs.CloseAddNum System, \"FSystem \", \"TSystem \", \"TSysNum \"AddNum Browser, \"FBrowser \", \"TBrowser \", \"TBrwNum \"AddNum Mozilla, \"FMozilla \", \"TMozilla \", \"TMozNum \"AddNum Screen, \"FScreen \", \"TScreen \", \"TScrNum \"AddNum Referer, \"FRefer \", \"TRefer \", \"TRefNum \"AddNum Weburl, \"FWeburl \", \"TWeburl \", \"TWebNum \"AddNum Address, \"FAddress \", \"TAddress \", \"TAddNum \"AddNum Area, \"FArea \", \"TArea \", \"TAreNum \"AddNum Ipone, \"FIpone \", \"TIpone \", \"TOneNum \"AddNum Iptwo, \"FIptwo \", \"TIptwo \", \"TTwoNum \"AddNum StrDayLong, \"StatDay \", \"TDay \",StrHourAddNum \"Total \", \"StatDay \", \"TDay \",StrHourAddNum StrYear, \"StatYear \", \"TYear \",StrMonthAddNum \"Total \", \"StatMonth \", \"TMonth \",StrDayAddNum StrMonthLong, \"StatMonth \", \"TMonth \",StrDayAddNum \"Total \", \"StatWeek \", \"TWeek \",StrWeekIf DateDiff( \"Ww \",Cdate(OldDay),Date)0 Then Sql= \"Delete * From StatWeek Where TWeek= \'Current \' \" Conn.Execute(Sql)End IfAddNum \"Current \", \"StatWeek \", \"TWeek \",StrWeekConn.CloseSet Rs=NothingSet Conn=NothingResponse.Redirect ImageSub ModiMaxNum(CurData,OldData,OldNum,MaxData,MaxNum) Sql= \"Select * From InfoList \" Rs.Open Sql,Conn,1,3 If Rs(OldData)=CurData Then Rs(OldNum)=Rs(OldNum)+1 Else Rs(OldData)=CurData Rs(OldNum)=1 End If If Rs(OldNum)Rs(MaxNum) Then Rs(MaxNum)=Rs(OldNum) Rs(MaxData)=CurData End If Rs.Update Rs.CloseEnd SubSub AddNum(Data,TableName,CompareField,AddField) Sql= \"Select * From \"&TableName& \" Where \"&CompareField& \"= \' \"&Data& \" \' \" Rs.Open Sql,Conn,1,3 If Rs.Eof Or Rs.Bof Then Rs.AddNew Rs(CompareField)=Data Rs(AddField)=1 Else If Isnumeric(Rs(AddField))=0 Then Rs(AddField)=1 Else Rs(AddField)=Rs(AddField)+1 End If End If Rs.Update Rs.CloseEnd Sub%","null","null","");arrFiles[115]=new Array("count/Conn.asp","NO TITLE","null","null","null","");arrFiles[116]=new Array("count/Header.asp","NO TITLE","综合统计 | 最近访问 | 年 报 表 | 月 报 表 | 周 报 表 | 日 报 表 | 历史报表 | 修改信息 地区分析 | 地址分析 | IP 地 址 | 链接页面 | 访问次数 | 操作系统 | 浏 览 器 | 屏幕大小       ","null","null","");arrFiles[117]=new Array("count/复件 stat.asp","NO TITLE","\");document.write( \" \");document.write( \" \");document.write( \" \");","null","null","");arrFiles[118]=new Array("count/stat.asp","NO TITLE","\");document.write( \" \");document.write( \" \");","null","null","");arrFiles[119]=new Array("count/Infolist.asp","网站统计分析系统       ","网 站 综 合 统 计 信 息 网站名称 网站网址 \" 总统计天数 开始统计日期 总访问量 平均日访量 今日访问量 最高月访量 最高月访量月份 最高日访量 最高日访量日期 最高时访量 最高时访量时间 省内访问人数 国内访问人数 国外访问人数 常用浏览器 () 常用操作系统 () 常用屏幕分辨率 () 访问最多的地区 () 访问最多的网站 () \" ()","null","null","");arrFiles[120]=new Array("english/lianxi.htm","LIGUO SEWING MACHINE PARTS FACTORY","　TEL：2510256 　FAX：2510706 　Email ADD ADD :Houshuangtuo,huangdianzhuang Town,Changli County,HeBei Provice, China MANAGER Liu Yu Ping TEL： +86 335 2510256/2511866-802 or 803 FAX： 0086-335-2510706 MOBILE： 013803241557 E-Mail: cllgfl@eyou.com P.C. 066608 OPEN BAND： AGRICULTURE BANK OF CHINA CHANGLI BRANCH","null","null","");arrFiles[121]=new Array("english/foot.htm","NO TITLE","&copy;ChangLi LiGuo Sewing Machine Parts Factory All Rights Reserved Email:cllgfl@eyou.com","null","null","");arrFiles[122]=new Array("english/jianjie.htm","LIGUO SEWING MACHINE PARTS FACTORY","Welcome to LIGUO SEWING MACHINE PARTS FACTORY ！！ HEBEI CHANGLI LIGUO SEWING MACHINE PARTS FACTORY is a large famous private enterprise, integrating the manufacture, development and sales of industrial sewing machine, going ahead in professional technical field. The main products of this factory include Looper, Needlepaltes, Presser feet, Feed dogs, Etc. The annual output is up to more than five millions sets(pieces).This factory provides perfect service based on super product quality and good enterprise reputation to other large factories to fit their machines. The factory organlzes protessional technology personats to dedicate to product development, attaching inportance to technical innovation and oriducing high quality products according to custoners \' requirement. Warmly welcome old and new customers visit the factory and give directions！ LiGuo Sewing Machine Parts Factory welcome to my factory visit and buy!","null","null","");arrFiles[123]=new Array("english/waimao.htm","LIGUO SEWING MACHINE PARTS FACTORY","Office Factory Picture 1 Factory Picture 2 Office Hall Sports Room Manager Office Producing Shop 1 Producing Shop 2 Packing Shop","null","null","");arrFiles[124]=new Array("english/rongyu.htm","LIGUO SEWING MACHINE PARTS FACTORY","　Our Glory","null","null","");arrFiles[125]=new Array("english/shebei3.htm","LIGUO SEWING MACHINE PARTS FACTORY","null","null","null","");arrFiles[126]=new Array("english/shebei2.htm","LIGUO SEWING MACHINE PARTS FACTORY","null","null","null","");arrFiles[127]=new Array("english/shebei.htm","LIGUO SEWING MACHINE PARTS FACTORY","null","null","null","");arrFiles[128]=new Array("english/top.htm","无标题文档       ","Make Home Add Fav Contact Us Chinese Home General Picture Our Products Our Glory Equipment Show","null","null","");arrFiles[129]=new Array("english/js/1.txt","1.txt"," <script  language= \"JavaScript \"src= \"http://www.hygmgs.com/haimeng/js/tou.js \"></script><script  language= \"JavaScript \"src= \"http://www.hygmgs.com/haimeng/js/foot.js \"></script>","null","null","");arrFiles[130]=new Array("fso/CONN.ASP","NO TITLE","\"&_ \" \"&_ \"错 误 信 息 \"&_ \" \"&_ \"产 生 错 误 的 原 因： \"&_ \" \"&info& \" \"	Response.write \" \"&_ \"【进入登录面板】 \"&_ \" \"	Response.write \" \"&_ \"【返回到上一页】 \"&_ \" \"	Response.write \" \"	Response.End()End SUB%","null","null","");arrFiles[131]=new Array("fso/chkuser.ASP","NO TITLE","null","null","null","");arrFiles[132]=new Array("fso/getFile.asp","NO TITLE","\"/ \" then GetPath=GetPath& \"/ \"	SetTemp=CheckFolder(GetPath,1)if SetTemp \"True \" then	EndProc SetTemp,1, \" \"end ifset GetFolder=Fso.GetFolder(Server.mappath(GetPath))% \" style= \"margin:0px \" \" 搜索: \" title= \"可支持统配符号*,如,*AA*,*AA,AA* 无统配符号则相当于*AAA* 并可匹配大小写 \" checked title= \"匹配大小写 \" onClick= \"ChFolder(document.boxobj.curpath.value,0); \" GetRootUrl and GetPath \"/ \" then Response.write \" \"% \',1); \" \',1); \" iMaxPage then GetPage=iMaxPage% 共 个目录 \" \';} \"	该目录共个文件 总KB \" ///页次:/ 1 then Response.write \"&lt;&lt;&lt;上一页 \"else Response.write \" \"end if if GetPage下一页&gt;&gt;&gt; \"else Response.write \" \" end if % 第 \" 页 =GetPageSize then	exit For	elseif CheckFile(theFile.Name,0, \"02 \")= \"True \" and cGetPageSize*(GetPage-1) then	iTotleSize=iTotleSize+theFile.Size	cMaxCount=cMaxCount+1	GetFileExtName=lcase(ExtNameS(theFile.Name))	Select CASE GetFileExtName	CASE \"asp \", \"aspx \", \"htm \", \"html \", \"txt \", \"inc \", \"js \", \"as \", \"asa \", \"css \", \"xml \", \"htc \", \"vbs \", \"jsp \", \"php \", \"cfm \", \"sql \"% .gif \" width= \"18 \" height= \"18 \" \', \'mainFrame \'); \" \', \'_blank \'); \"	当前页共个文件 为KB \" ///页次:/ 1 then	Response.write \"&lt;&lt;&lt;上一页 \"	else	Response.write \" \"	end if	if GetPage下一页&gt;&gt;&gt; \"	else	Response.write \" \"	end if % 第 \" 页       ","null","null","");arrFiles[133]=new Array("fso/ADO_recordset.asp","CooSel Ver1.0005[数据库查询]","\"	Server.Execute( \"TopNav.asp \")	call GetError ( \"没有进入数据库管理面板权限，或你尚未登陆！ \")	end if	call CloseDataBase() \' \'or Session( \"Sflag \")(2)01	if not isMaster then Response.redirect \"login.asp?Action=exit \"	dim BASEtype,ErrOrINFO,SUEssOrINFO	dim myTABLE,BASE_NAME,BaseOwner,PasswordB	BASEtype=trim(request.form( \"BASEtype \"))	BASE_NAME=trim(request.form( \"BASE_NAME \"))	DATA_Source=trim(request.form( \"DATA_Source \"))	BaseOwner=trim(request.form( \"BaseOwner \"))	if BASEtype= \" \" then BASEtype=trim(request.querystring( \"BASEtype \"))	if BASE_NAME= \" \" then BASE_NAME=trim(request.querystring( \"BASE_NAME \"))	if DATA_Source= \" \" then DATA_Source=trim(request.querystring( \"DATA_Source \"))	if BaseOwner= \" \" then BaseOwner=trim(request.querystring( \"BaseOwner \"))	PasswordB=trim(request.form( \"PasswordB \"))	myTABLE=cstr(request.querystring( \"table \"))	dim ASCII	Response.buffer=true	Response.isClientconnectedREM ===========RecordeSet分页参数=============	dim colCount,RowCount,MaxPageSize	dim CurrentPage,Page_Count,PageCountS	dim k,jk,ek,TTT	jk=0	MaxPageSize=20	CurrentPage=request.QueryString( \"page \")	if not isNumeric(CurrentPage) or CurrentPage= \" \" then	CurrentPage=1	else	CurrentPage=clng(CurrentPage)	if err then	CurrentPage=1	err.clear	end if	end if % \\ \\数据库类型： 选择数据库类型 selectedSQLserver2000 selectedMS ACCESS selectedOracle DATABASE &table=&page=1 -- \\ \\库名： \" class= \'tx \' \\ \\ＩＰ： \" class= \'tx \' \\ \\查询方式： 请选择查询命令 ] \"Select（选择） ] SET \"Update（更新） ] () VALUES ( \' \') \"Insert（插入） ] WHERE 01 \"Delete（删除） \\ \\帐号： \" class= \'tx \' \\ \\密码： \\ \\ＳＱＬ语句： \" \" then % \" class= \'tx \' \" class= \'tx \' 请选择数据库类型和输入数据库名。 \" call errorX() Response.endELSE \'-------------------------------------BASE_NAME \'	dim CONN	dim CONNErr \'	dim connstr	dim db \'	dim pass_word \'	dim User_ID \'	dim cntimeout \'	dim rs,sql	db=BASE_NAME	if BASEtype= \"ACCESS \" then REM===========ACCESS 连接======== \'db= \"data/TSbbs.asa \" \'数据库名 \'	Set CONN = Server.CreateObject( \"ADODB.Connection \")	CONNstr= \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source= \" & Server.MapPath( \" \"&db& \" \")	CONN.Open CONNstr	CONNErr= \"请仔细核对你输入的ＡＣＣＥＳＳ数据库名路径是否准确 \"elseif BASEtype= \"SQL2000 \" then	REM===========SQLserver 连接========	if Session( \"PasswordB \")= \" \" then	if PasswordB \" \" then	Pass_word=PasswordB \'PasswordB=密码	end if	else	if PasswordB= \" \" then	Pass_word=Session( \"PasswordB \") \'PasswordB=密码	else	Pass_word=PasswordB	end if end if	User_ID=BaseOwner \'User ID=帐号	cntimeout=15	Set CONN = Server.CreateObject( \"ADODB.CONNection \") CONNStr= \"Provider=SQLOLEDB.1;Password= \' \"&Pass_word& \" \';Persist Security Info=true;User ID= \' \"&User_ID& \" \';Initial Catalog= \' \"&db& \" \';Data Source= \' \"&Data_Source& \" \';CONNect Timeout= \"&cntimeout& \" \" \' \'PasswordB= \" \" \' \'Response.write PasswordB \' \'Response.write CONNStr CONN.Open CONNstr	CONNErr= \"请仔细核对你输入的ＳＱＬ数据库名称，ＩＰ源，帐号密码是否正确。 \"elseif BASEtype= \"Oracle \" then ErrOrINFO= \"尚未未建立ＯＲＡＣＬＥ连接。 \" call errorX() Response.endend if	if err.number=0 and Session( \"PasswordB \")= \" \" then	Session( \"PasswordB \")=PasswordB	Elseif err.number0 then	if Session( \"PasswordB \")= \" \" then CONNErr=CONNErr+ \"或Session 密码过期，请重登陆！ \"	ErrOrINFO= \" \"+ \" \"&Err.Description& \" \"+CONNErr	err.clear	ClosedataBase	call errorX()	end if \'CreatTABLE2if BASEType= \"SQL2000 \" then \'-DB_NAMEREM =========DB NAME =======读去数据库的库名对象集合,仅仅SQL==rem=========(一)用openSchema(1)===set rs=CONN.openSchema(1) \'更多查看ADOVBS.INC \'while not rs.eof \'Response.Write rs.fields( \"CATALOG_NAME \").value& \" \" \'rs.movenext \'wend \'Response.end()rem=========(二)用系统表master.dbo.sysdatabases=== \'dim SQL_dbNAME \'SQL_dbNAME= \"select name from master.dbo.sysdatabases \" \'set rs=CONN.Execute(SQL_dbNAME )	if err.number0 then	ErrOrINFO= \" \"+ \" \"&Err.Description& \"。 \"	err.clear	ClosedataBase	call errorX()	end ifResponse.write \" \"Response.write \" \"&_ \"SQL SERVER 数据库 列表 \"&_ \" \"&_ \" \"	jk=0	dim iDB_NAME	while not rs.EOF	iDB_NAME=rs(0) Response.write \" \"&iDB_NAME& \" \"	jk=jk+1	if jk mod 6 =0 then Response.write \" \"	RS.MoveNext	wend	rs.close	ek=jk mod 6	For i=1 to 6-ek \'用余数计算把剩下的未填充表格填满 \'	Response.write \" \"	next	jk=0	Response.write \" \" \'Response.endend if \'---------DB_NAME \'=============//	REM==有两个方法取表名REM 1=====用openSchema(20|4)函数来选择表名,字段名,对ACESS,SQLserver通用===== set rs=CONN.openSchema(20) \'取得表名/ \'set rs=CONN.openSchema(4) \'取的表的字段名数据类型等//20:TABLE_NAME,TABLE_TYPE// 4:TABLE_COLUMNS,DATA_TYPEdim CATA_ScheMA,TABLE_NAME,ServerIP,iTABLE_NAME,showidsSQL	showidsSQL=trim(request( \"SQL \"))	serverIP=Request.ServerVariables( \"SERVER_NAME \")if BASEtype= \"SQL2000 \" then	CATA_ScheMA= \"数据库： \"&rs( \"TABLE_CATALOG \")& \" 所有者： \"&rs( \"TABLE_ScheMA \")& \"（共 表） // \"&serverIP& \" \"	if showidsSQL= \" \" then	TABLE_NAME= \"当前表： \"&rs( \"TABLE_CATALOG \")& \". \"&rs( \"TABLE_ScheMA \")& \". \"&myTABLE& \"（共字段） \"	else	TABLE_NAME= \"当前结果集： \"&rs( \"TABLE_CATALOG \")& \". \"&rs( \"TABLE_ScheMA \")& \". \"&myTABLE& \"（共列） \"	end ifelseif BASEtype= \"ACCESS \" then	CATA_ScheMA= \"数据库： \"&BASE_NAME& \" （共 表） \"	if showidsSQL= \" \" then	TABLE_NAME= \"当前表： \"&myTABLE& \" （共字段） \"	else	TABLE_NAME= \"当前查询结果： \"&myTABLE& \" （共列） \"	end ifelseif BASEtype= \"Oracle \" then	CATA_ScheMA= \"数据库： \"&rs( \"TABLE_CATALOG \")& \" 所有者： \"&rs( \"TABLE_ScheMA \")& \" （共 表） \"	TABLE_NAME= \"当前查询结果： \"&rs( \"TABLE_CATALOG \")& \". \"&rs( \"TABLE_ScheMA \")& \". \"&myTABLE& \" \"end if	if err.number0 then	ErrOrINFO= \" \"+ \" \"&Err.Description& \"。可能你改变了查询的数据库，请在上面点选新数据库的表 \"	err.clear	ClosedataBase	call errorX()	end ifREM================//REM 2=====用系统表sysobject来选择表名,之后用fields.NAME来取的记录集的名字===== \'for Access: sql=SELECT * from MSysObjects; \'for SQL server: sql= \"SELECT name from sysobjects where type= \'U \' order by crdate desc \" \'type,xtype都是类型,U是用户表,S是系统表 \' \' \' \' \' \' \' \' \'rem \'set rs=server.createobject( \"adodb.recordset \")rem \'sql= \"SELECT name,type,xtype from sysobjects where xtype= \'U \' order by name \" rem \'rs.open sql,CONN,0,1REM =================//Response.write \" \"Response.write \" \"&_ \" \"&CATA_ScheMA& \" \"&_ \" \"&_ \" \"	while not rs.EOF	iTABLE_NAME=rs( \"TABLE_NAME \")	if rs( \"TABLE_type \")= \"TABLE \" then \'屏蔽掉系统表 DATA_Source,BaseOwner,PasswordB \'Response.write \" \"&iTABLE_NAME& \" \" Response.write \" \"&iTABLE_NAME& \" \" \'Response.write \" \"&rs( \"TABLE_catalog \")& \" \" \'库名,ACCESS不支持 \'Response.write \" \"&rs( \"TABLE_Schema \")& \" \" 所有者 \'Response.write \" \"&rs( \"TABLE_type \")& \" \" 类型 表或系统表 \'----用第二种方法读取表名 \' \'Response.write \" \"&rs(0)& \" \" \'===/	jk=jk+1	if jk mod 6 =0 then Response.write \" \"	end if	RS.MoveNext	wend rs.close	ek=jk mod 6 \'---------填充剩余单元格---------	For i=1 to 6-ek \'用余数计算把剩下的未填充表格填满 \'	Response.write \" \"	next	% \", \" \") \' Response.Write RStr \'---------//	Response.write \" \"&_ \" \"&_ \" \"&TABLE_NAME& \" \"&_ \" \"&_ \" \" \' \'IF myTABLE= \" \" then	myTABLE=iTABLE_NAME \'--------1 \' \'IF myTABLE= \" \" then \'--------读出第一个表名 \' \'	set rs=CONN.openSchema(4) \' \'	myTABLE=rs( \"TABLE_NAME \") \' \'	rs.close \' \'END IF	dim cols	cols=false	sql=trim(request( \"SQL \"))	if sql= \" \" then	cols=true	sql= \"SELECT TOP 500 * FROM \"&chr(91)&myTABLE&chr(93)& \" \"	else	if Ucase(left(trim(sql),6)) \"SELECT \" then	CONN.Execute sql	if err.number0 then	ErrOrINFO= \" \"+ \" \"&Err.Description& \"。 \"	err.clear	ClosedataBase	call errorX()	else	SUEssOrINFO= \" \"+ \"查询: \"&SQL& \"完成。 \"	call Suess()	end if	CurrentPage=1	else	TABLE_NAME= \"当前查询结果： \"&myTABLE& \" \"	end if	end if	rs.open sql,CONN,1,1	if err.number0 then \'sql= \"SELECT TOP 500 * from \"&chr(91)&iTABLE_NAME&chr(93)& \" \" \'rs.open sql,CONN,1,1	ErrOrINFO= \" \"+ \" \"&Err.Description& \"。可能你改变了查询的数据库，请在上面点选新数据库的表 \"	err.clear	ClosedataBase	call errorX()	end if	if not rs.eof then	colCount=cint(RS.Fields.count)-1	rs.PageSize = MaxPageSize	rs.AbsolutePage=CurrentPage	Page_Count=0	RowCount=rs.recordcount	PageCountS=rs.PageCount	call listTable()	% \"	Response.write \" \"	for i=0 to RS.Fields.count-1	Response.write \" \"&RS.Fields(i).name& \" \"	next	Response.write \" \"&_ \" \"&_ \"当前所选表无记录 \"&_ \" \"&_ \" \"End SUB	SUB listTable()	Response.write \" \"	Response.write \" \"	for i=0 to colCount	Response.write \" \"&RS.Fields(i).name& \" \"	next	Response.write \" \"	if cols=true then	% \"	for i=0 to colCount	ttt= \" \"	if len(rs(i))16 then ttt= \"... \"	Response.write \" \"&left(rs(i),16)&TTT& \" \" \'Response.write \" \"&RS.Fields(i).value& \" \" \'Response.write \" \"&RS.Fields(i).name& \" \" \'Response.write \" \"&RS.Fields.count& \" \"	next	Response.write \" \"	rs.movenext \'next	Page_Count=Page_Count+1	wend	Response.write \" \"	Response.write \" \"	Response.write \"Source： \"&RS.Source& \" \"	Response.write \" //PageCount： \"&rs.PageCount& \" \"	Response.write \" //PageSize： \"&rs.PageSize& \" \" \'Response.write \"rs.MaxRecords： \"&rs.MaxRecords& \" \" \'Response.write \"rs.EditMode： \"&rs.EditMode& \" \"	Response.write \" //RecordCount： \"&RS.RecordCount& \" \"	Response.write \" //fields.Count： \"&RS.fields.Count& \" \"	Response.write \" //AbsolutePage： \"&RS.AbsolutePage& \" \" \'Response.write \" CurrentPage： \"&CurrentPage& \" \"	Response.write \" \"	Response.write \" \"	Response.write \" \" \'----GetRows的方法--！ \'dim arrRs \'arrRs=rs.GetRows \' Dim numRows \' Dim numFlds \' Dim row \' Dim fld \' numFlds = Ubound(arrRS, 1) \' numRows = Ubound(arrRS, 2) \'Response.write \" \" \' For row= 0 to numRows \' Response.Write( \" \") \' For fld = 0 to numFlds \' Response.Write( \" \" & arrRS(fld, row) & \" \") \' Next \' Response.Write( \" \") \' Next \' Response.Write( \" \") \'== End SUB SUB listPages()	dim LastPage	Response.write \" \"&myTABLE& \"记录数： \"&RowCount& \"页次： \"&CurrentPage& \"/ \"&PageCountS& \" \"&_ \"每页： \"&MaxPageSize& \"条//页号： \"	if CurrentPage 4 then	Response.write \"[1] ... \"	end if	if PageCountSCurrentPage+3 then	LastPage=CurrentPage+3	else	LastPage=PageCountS	end if	for i=CurrentPage-3 to LastPage	if not i[ \"&i& \"] \"	else Response.write \" [ \"&i& \"] \"	end if	end if	next	if CurrentPage+3 [ \"&PageCountS& \"] \"	end ifEnd SUB SUB errorX() \'Rem 错误提示	Response.write \" \"&_ \" \"&_ \"数据库查询器 错误信息 \"&_ \" \"&_ \" \"&ErrOrINFO& \" \"	Response.write \" \"&_ \"【返回到上一页】 \"&_ \" \"	Response.write \" \"	Response.end()	End SUB	Rem \'==== 正常提示	SUB Suess()	Response.write \" \"&_ \" \"&_ \"查 询 执 行 成 功 \"&_ \" \"&_ \" \"&SUEssOrINFO& \" \"	Response.write \" \"&_ \"【返回到上一页】 \"&_ \" \"	Response.write \" \"	closedatabase	Response.endEND SUB \'call CreateBASE() \'call CreatTable()REM=====建立数据库文件.MDB====SUB CreateBASE()	dim CONNcreat,SQLcr,CrBaseName	CrBaseName= \"data/AAABBB.MDB \"	set CONNcreat=SERVER.CreateObject( \"ADOX.CATALOG \")	SQLcr= \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source= \"&server.mappath(CrBaseName)	CONNcreat.Create SQLcrEnd SUBREM=========ACCESS==SUB CreatTable() \'----------需要刚建立的数据库文件才能进行建表!!	dim rs	dim CONNcreat,SQLcr,CrBaseName	CrBaseName= \"data/AAABBB1.MDB \"	set CONNcreat=SERVER.CreateObject( \"ADOX.CATALOG \")	SQLcr= \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source= \"&server.mappath(CrBaseName)	CONNcreat.Create SQLcr	set rs=SERVER.CreateObject( \"ADOX.TABLE \")	rs.Name= \"admins3 \"	rs.columns.append \"liuyan \",203	rs.columns.append \"dt \",7	CONNcreat.tables.append rs	set rs=nothing	if err.number0 then	ErrOrINFO= \" \"+ \" \"&Err.Description& \" \"+CONNErr	err.clear	call errorX()	end if \'Response.endEnd SUBSUB CreatTABLE2() \'for SQL	Dim SQLstr	SQLstr= \" \"&_ \"CREATE TABLE [AAABBB] ( \"&_ \"[userName] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL , \"&_ \"[depositmoney] [int] NULL CONSTRAINT [a1] DEFAULT (0), \"&_ \"[accrual] [int] NULL CONSTRAINT [a2] DEFAULT (0), \"&_ \"[lendmoney] [int] NULL CONSTRAINT [a3] DEFAULT (0), \"&_ \"[lendtime] [smalldatetime] NULL , \"&_ \"[deposittime] [smalldatetime] NULL , \"&_ \"[lockac] [int] NULL CONSTRAINT [a4] DEFAULT (0), \"&_ \"[loaninterest] [int] NULL CONSTRAINT [a5] DEFAULT (0), \"&_ \"[ac] [int] NULL CONSTRAINT [a6] DEFAULT (0) \"&_ \") ON [PRIMARY] \"	CONN.Execute SQLstrEND SUBREM=========改表名===== ACCESSSUB ReNameTable()	dim rs	set rs=server.createObject( \"ADOX.catalog \")	rs.Activeconnection=CONN	rs.tables( \"TEST1reName \").Name= \"test1 \"	set rs=nothing	if err.number0 then	ErrOrINFO= \" \"+ \" \"&Err.Description& \"。 \"	err.clear	ClosedataBase	call errorX()	end if	END SUBSUB EndHtmlTag()% Coosel mess ASP 程序设计.V37=TS= 2002-11-15 .V1.0_By_[WWW.LFGBOX.COM]","null","null","");arrFiles[134]=new Array("fso/This_upfile_adv.asp","NO TITLE","\"/ \" then GetPath=GetPath& \"/ \"	SetTemp=CheckFolder(GetPath,1)if SetTemp \"True \" then	EndProc SetTemp,1, \" \"end ifSelect CASE GetAction	CASE \"DelFile \"	call DelFileS()	CASE \"MkFolder \"	call MakeFolder()	CASE \"previewSwith \"	call previewSwith()End Selectif Preview=0 then	GetPreview= \"关闭预览 \"else	GetPreview= \"打开预览 \"end ifset GetFolder=Fso.GetFolder(Server.mappath(GetPath))% &Option=1 \" enctype= \"multipart/form-data \" target= \"_blank \" style= \"margin:0 \" &gt;&gt;&gt; 请设定你要上传的任务: 　　　　　　　 ● 上传到:http:// \" \';} \" value= \"普通模式 \" ● 上传文件数: 文件1 ●文件1: 文件1 &Option=2 \" style= \"margin:0px; \" http:// \"&Request.ServerVariables( \"SERVER_NAME \")& \" \"% \" size= \"100 \" maxlength= \"0 \" 搜索 checked title= \"匹配大小写 \" onClick= \"ChFolder(document.boxobj.curpath.value,0); \" \" size= \"32 \" title= \"可支持统配符号*,如,*AA*,*AA,AA* 无统配符号则相当于*AAA* 并可匹配大小写 \" GetRootUrl and GetPath \"/ \" then Response.write \" \"% \',1); \" \',1); \" iMaxPage then GetPage=iMaxPage% 共 个目录 \" 远程文件列表 &action=previewSwith \';boxobj.submit();} \" value= \" \" style= \"display:none \" 文件大小 修改时间 共文件总KB \" 页次:/ 1 then Response.write \"&lt;&lt;上页 \"	else Response.write \" \"	end if	if GetPage下页&gt;&gt; \"	else Response.write \" \"	end if % 第 \"页 =GetPageSize then	exit For	elseif CheckFile(theFile.Name,0, \"02 \")= \"True \" and cGetPageSize*(GetPage-1) then	iTotleSize=iTotleSize+theFile.Size	cMaxCount=cMaxCount+1	GetFileExtName=lcase(ExtNameS(theFile.Name))% .gif \" width= \"18 \" height= \"18 \" \'); \" \" \"	ic=ic+1	CASE else	Response.write \" \"&GetFileExtName& \" \"	End Select	else	Response.write \" \"&GetFileExtName& \" \"	end if % \'); \" 当前文件 为KB \" 页次:/ 1 then Response.write \"&lt;&lt;上页 \"else Response.write \" \"end if if GetPage下页&gt;&gt; \"else Response.write \" \" end if % 第 \"页       ","null","null","");arrFiles[135]=new Array("fso/ClipBoard.asp","View ClipBoard","ClipBoard stats / Option:NothingNo dataClip \" Response.end end if sArr=split(Session( \"Folderbuffer \"), \"| \") if sArr(0)= \"Cut \" then Response.write \"Option:Cut \" else Response.write \"Option:Copy \" end if Response.write \"Selected folders: \" for i=2 to ubound(sArr) sStr=sArr(1)&sArr(i) Response.write \" \"&sArr(1)&sArr(i) next Response.write \"Folders: \"&ubound(sArr)-1& \"Selected files: \" sArr=split(Session( \"Filebuffer \"), \"| \") for i=2 to ubound(sArr) sStr=sArr(1)&sArr(i) Response.write \" \"&sArr(1)&sArr(i) next Response.write \"Files: \"&ubound(sArr)-1& \" \"%","null","null","");arrFiles[136]=new Array("fso/EditBrower.asp","文本编辑       ","null","null","null","");arrFiles[137]=new Array("fso/EditBrowerNav.asp","NO TITLE","： 文件管理 | 文件上传 | 文件编辑 |","null","null","");arrFiles[138]=new Array("fso/EditFile_Adv.asp","My New HTML Document","\"	nextif GetQueryString( \"Option \", \"numeric \",-1)=5 then	refreshframe= \"onload={refreshframe(0);popupwin();} \"else	refreshframe= \"{popupwin();} \"end if \'============读行号===========Function readline(fileName)	Const ForReading = 1	dim theFile, retstring	Set theFile = fso.OpenTextFile(fileName, ForReading, False)	Do While theFile.AtEndOfStream True	retstring = theFile.ReadLine	Loop	readline = retstring \'读最后一行	readline=theFile.line \'读当前行号	theFile.CloseEnd Function \'============读入文件==========Sub OpenFile()	dim i1,i2,OF	dim fsize,f,Path	if GetPath= \" \" then exit sub	GetStr=CheckFile(GetPath,1, \"03 \")	if GetStr \"True \" then call EndProc(GetStr,1, \" \")	Path=server.mappath(GetPath)	Set f = fso.GetFile(Path)	if f.sizeEditSize*1024 then call EndProc( \"最大允许编辑尺寸为 \"&EditSize& \"KB！ \",1, \" \")	if f.size0 then	set f=nothing	set OF=Fso.OpenTextFile(Path)	GetContent=OF.readall	getEndline=OF.line	OF.Close	set OF=nothing	else \'处理零字节文件	set f=nothing	set OF=Fso.OpenTextFile(Path)	GetContent= \" \"	getEndline=1	OF.Close	set OF=nothing	end ifEnd Sub \'============存文件=============Sub SaveFile()	dim CF,chk	if Request.form( \"filepath \")= \" \" then call EndProc( \"请输入路径和文件名！ \",1, \" \")	chk=CheckFile(GetPath,2, \"03 \")	if chk \"True \" then call EndProc(chk,1, \" \")	GetContent=Request.form( \"content \")	GetStr=GetContent	set CF=Fso.CreateTextFile(Server.mappath(GetPath),true)	CF.write GetStr	CF.Close	set CF=nothing	call OpenFile	set Fso=nothingEnd Sub \'=============建新文件==========Function MakeCodeFile()	dim sTo,sStr	dim CF,Path,OF	dim starStr,endStr,titlestr,CreatName,HTML_str	sTo=GetQueryString( \"to \", \"string \", \" \")	sStr=CheckFile(sTo,0, \"04 \")	if sStr \"True \" then EndProc sStr,1, \" \"	Path=Server.mappath(GetPathDir&sTo)	if Fso.FileExists(Path) then EndProc \"文件已经存在! \",1, \" \"	Set CF = Fso.CreateTextFile(Path, True)	CreatName= \"Create by \"&membername& \" / \"&formatDateTime(now(),1)& \" / \"&formatDateTime(now(),4)	starStr= \" \"&vbcrlf&_ \" \"&vbcrlf	endStr= \" \"&vbcrlf&vbcrlf&_ \" \"&vbcrlf&vbcrlf&_ \" \"&vbcrlf&_ \" \"	Select CASE GetOption	CASE 10	HTML_str= \" \"&vbcrlf	titlestr= \" \"&vbcrlf	CASE 11	HTML_str= \" \"&vbcrlf&_ \" \"&vbcrlf	titlestr= \"My New ASP VBScript Document \"&vbcrlf	CASE 12	HTML_str= \" \"&vbcrlf&_ \" \"&vbcrlf	titlestr= \"My New ASP JavaScript Document \"&vbcrlf	CASE 13	HTML_str= \" \"&vbcrlf	titlestr= \"My New ASP.NET C# Document \"&vbcrlf	CASE 14	HTML_str= \" \"&vbcrlf	titlestr= \"My New ASP.NET VB Document \"&vbcrlf	CASE 15	HTML_str= \" \"&vbcrlf	CASE 18	HTML_str= \" \"&vbcrlf&CreatName&vbcrlf	CASE else HTML_str=CreatName	End Select	if GetOption scroll=no bgcolor= \"#D4D0c8 \" text= \"#000000 \" leftmargin= \"0 \" rightmargin= \"0 \" bottommargin= \"0 \" topmargin= \"0 \" \" onsubmit= \"return checkit(); \" style= \"margin:0px \" 文件: \" style= \"width:15%;height:20 \" maxlength= \"50 \" size= \"1 \" class= \"tx \" title= \'当前编辑文件 \' readonly=true \" \" 改变字体选项 MS Shell Dlg Courier New New Roman 宋体,Tahoma 宋体_Arial","null","null","");arrFiles[139]=new Array("fso/TopNav.asp","NO TITLE","： \" target= \'_self \'文件管理 | \" target= \'_self \'文件上传 | 文件编辑 |","null","null","");arrFiles[140]=new Array("fso/getFiles.asp","NO TITLE","\"/ \" then GetPath=GetPath& \"/ \"	SetTemp=CheckFolder(GetPath,1)if SetTemp \"True \" then EndProc SetTemp,1, \" \"set GetFolder=Fso.GetFolder(Server.mappath(GetPath))% \" style= \"margin:0px; \"	GetPageSize*(GetPage-1) then	iTotleSize=iTotleSize+theFile.Size	cMaxCount=cMaxCount+1% \', \'mainFrame \'); \".gif \" width= \"18 \" height= \"18 \" border= \"0 \" alt= \"开新窗口查看页面 \" align= \"absmiddle \" \', \'mainFrame \') \" title= \"点击中编辑该文件 \"	Files： \"","null","null","");arrFiles[141]=new Array("fso/getFolders.asp","NO TITLE","\"/ \" then GetPath=GetPath& \"/ \"	SetTemp=CheckFolder(GetPath,1)if SetTemp \"True \" then EndProc SetTemp,1, \" \"Set GetFolder=Fso.GetFolder(Server.mappath(GetPath))% \" 目录： GetRootUrl and GetPath \"/ \" then Response.write \" \"% \',1);showfiles ( \' \', \'bottomFrame \'); \" target= \"_self \" \" onmouseout= \"if(!(this.id== \'offs \'))this.src= \'pic/folderB.gif \'; \" alt= \"打开子目录 \" align= \"absmiddle \" \',0); \" onclick = \"	{if(offsFlag.value==1) { offs.src= \'pic/folderB.gif \'; offs.id=offsFlag.name; }	offsFlag.value=1;	offsFlag.name= \'folder \'	folder.src= \'pic/folderA.gif \';	folder.id= \'offs \';	writePath( \' \'+ \'/ \');	insPath( \' \');} \" target= \"bottomFrame \" title= \"浏览该目录 \" Folders： \" \"","null","null","");arrFiles[142]=new Array("fso/ListFolder.asp"," ","var Action=;	var GetPath;	var sStr,delselInfo	var maxdir=parseInt();	var maxfile=parseInt();	var GetPath=;	var infos= \" \";	var infos1= \" \";	var infos2= \" \";	var infos3= \" \";	var c = 0;	var tsiz=0;	var tsiz1=0; \") %;	;	;	　 \"+Server.MapPath(GetPath)+ \" \") %","null","null","");arrFiles[143]=new Array("fso/复件 chkuser.ASP","NO TITLE","\" \" then	memberid=clng(memberid) \'where username= \' \"&membername& \" \' and userpassword= \' \"&memberword& \" \' \"	sql= \"select MasterFlag,sflag,UserPath,lockuser,preview from [userlist] where userid= \"&memberid& \" and userpassword= \' \"&memberword& \" \' \"	set rs=server.createobject( \"adodb.recordset \")	rs.open sql,conn,0,1	if rs.eof then	info= \"你尚未登陆，或进行不合法的操作。或您的cookie不正确，请重新登陆。 \"	Response.write \" \"	call EndProc(info,1, \" \")	else	MasterFlag=rs(0)	pow=split(rs(1), \", \")	UserPath=rs(2)	lockuser=rs(3)	preview=rs(4)	rs.close	set rs=nothing	if lockuser=1 then	Response.write \" \"	call EndProc( \"该帐号已经被锁定，不能访问！ \",1, \" \")	else	select case MasterFlag	case 0	Founduser=true	for i=0 to ubound(pow) \'普通用初始化权限	for j=1 to 9	if mid(pow(i),j,1)= \"0 \" then SetPower(i,j-1)=false	next	next	case 1	Founduser=true	isMaster=true	for i=0 to ubound(pow) \'普通管理员初始化权限	for j=1 to 9	if mid(pow(i),j,1)= \"0 \" then SetPower(i,j-1)=false \' \'Response.write \"SetPower( \"&i& \", \"&j-1& \")= \"&SetPower(i,j-1)& \" // \"	next	next	case 2	Founduser=true	isMaster=true	TopMaster=true	case else	end select	end if	end if	end ifEnd Sub \'-----过滤SQL非法字符Function checkStr(str)	if isnull(str) then	checkStr = \" \"	exit Function	end if	checkStr=replace(str, \" \' \", \" \' \' \")End Function%","null","null","");arrFiles[144]=new Array("fso/复件 UpStar_char.asp","NO TITLE","\"/ \" then GetRootUrl=GetRootUrl& \"/ \"GetNoFile=split(lcase(ScriptOff), \", \") set Fso=Server.CreateObject( \"Scripting.FileSystemObject \")GetFilePath=Request.ServerVariables( \"SCRIPT_NAME \") GetFileName=mid(GetFilePath,instrRev(GetFilePath, \"/ \")+1)GetFilePath=lcase(left(GetFilePath,instrRev(GetFilePath, \"/ \")))GetPath=lcase(GetQueryString( \"path \", \"string \",GetRootUrl))GetPathDir=lcase(left(GetPath,inStrRev(GetPath, \"/ \")))GetPathFileName=lcase(right(GetPath,len(GetPath)-inStrRev(GetPath, \"/ \")))if left(GetPath,1) \"/ \" then GetPath=GetRootUrl&GetPathGetPage=GetQueryString( \"page \", \"numeric \",1)GetAction=GetQueryString( \"Action \", \"string \", \" \")GetFilter=GetQueryString( \"filter \", \"string \", \" \")GetFilterULcase=GetQueryString( \"ULcase \", \"numeric \",0)GetOption=GetQueryString( \"Option \", \"numeric \",-1)if GetPage \" \" then GetBaseUrl=GetBaseUrl& \"&filter= \"&GetFilterEnd SUBFunction GetQueryString(theStr,strType,defValue)	select case strType	case \"string \"	if isEmpty(Request.QueryString(theStr)) or trim(Request.QueryString(theStr))= \" \" then	GetQueryString=defValue	else	GetQueryString=trim(Request.QueryString(theStr))	end if	case \"numeric \"	if isEmpty(Request.QueryString(theStr)) or not isNumeric(Request.QueryString(theStr)) then	GetQueryString=defValue	else	GetQueryString=cint(Request.QueryString(theStr))	end if	case else	GetQueryString=defValue	end selectEnd FunctionFunction GetFormValue(theStr,strType,defValue)	select case strType	case \"string \"	if isEmpty(Request.form(theStr)) or trim(Request.form(theStr))= \" \" then	GetFormValue=defValue	else	GetFormValue=trim(Request.form(theStr))	end if	case \"numeric \"	if isEmpty(Request.form(theStr)) or not isNumeric(Request.form(theStr)) then	GetFormValue=defValue	else	GetFormValue=cint(Request.form(theStr))	end if	case else	GetFormValue=defValue	end selectEnd FunctionFunction GetIsEdit(SetName)	dim i1,i,isEdit	isEdit=Array(1,7,8)	GetIsEdit=0	i1=GetFormValueat(SetName)	for i=0 to ubound(isEdit)	if isEdit(i)=i1 then	GetIsEdit=1	exit for	end if	next End Function	Function GetExtName(SetName)	GetExtName= \" \"	if instrRev(SetName, \". \") \", \": \")	CheckFile= \"True \"	SetExt=lcase(GetExtName(SetName))	If Not TopMaster then	dim scr	scr=ubound(GetNoFile)	Select CASE mode	CASE \"00 \"	if SetPower(0,0)=false then	for i=0 to scr	if GetNoFile(i)=SetExt then	CheckFile= \"没有管理脚本文件的权限！ \"	exit Function	end if	next	end if	CASE \"01 \"	if SetPower(1,1)=true then	if SetPower(0,1)=false then	for i=0 to scr	if GetNoFile(i)=SetExt then	CheckFile= \"没有权限上传此脚本文件！ \"	exit Function	end if	next	end if	else	CheckFile= \"没有权限上传文件！ \"	exit Function	end if	CASE \"02 \"	if SetPower(1,2)=true then	if SetPower(0,2)=false then	for i=0 to scr	if GetNoFile(i)=SetExt then	CheckFile= \"没有权限浏览此脚本文件！ \"	exit Function	end if	next	end if	else	CheckFile= \"没有权限浏览文件列表！ \"	exit Function	end if	CASE \"03 \"	if SetPower(1,5)=true then	if SetPower(0,3)=false then	for i=0 to scr	if GetNoFile(i)=SetExt then	select case ischeck	case 2	CheckFile= \"没有权限保存为脚本文件！ \"	case 1	CheckFile= \"没有权限读取此脚本文件！ \"	case else CheckFile= \"没有权限编辑此脚本文件！ \"	end select	exit Function	end if	next	end if	else	CheckFile= \"没有权限编辑文件！ \"	exit Function	end if	CASE \"04 \"	if SetPower(0,4)=false then	for i=0 to scr	if GetNoFile(i)=SetExt then	CheckFile= \"没有权限操作脚本文件！ \"	exit Function	end if	next	end if \'CASE else \'	for i=0 to scr \'	if GetNoFile(i)=SetExt then \'	CheckFile= \"没有任何权限操作此此脚本文件！ \" \'	exit Function \'	end if \'	next	End Select	End If	if GetFilter \" \" then	if ischeck=0 then	if GetFilterULcase1 then	SetName=lcase(SetName) \'可以不区分大小写,GetFilterULcase=1区分	GetFilter=lcase(GetFilter)	end if	if GetFilter= \"** \" or GetFilter= \"* \" then	CheckFile= \"True \"	exit Function	else	if right(GetFilter,1)= \"* \" then	if left(GetFilter,1)= \"* \" then	GetFilter=replace(GetFilter, \"* \", \" \")	else	lenPP=len(GetFilter)-1	if left(GetFilter,lenPP)=left(SetName,lenPP) then	CheckFile= \"True \"	exit Function	end if	end if	elseif left(GetFilter,1)= \"* \" then	lenPP=len(GetFilter)-1	if right(GetFilter,lenPP)=right(SetName,lenPP) then	CheckFile= \"True \"	exit Function	end if	end if	end if	end if	if instr(SetName,GetFilter)没有权限访问此文件！ \"	exit Function	end if	end if	if ischeck0 then	SetPath=left(SetName,instrRev(SetName, \"/ \"))	SetPath=CheckFolder(SetPath,1)	if SetPath \"True \" then	CheckFile=SetPath	if ischeck2 then exit Function	end if	if ischeck=1 then	if not Fso.FileExists(Server.MapPath(SetName)) then	CheckFile= \"文件没有找到！ \"	exit Function	else	CheckFile= \"True \"	exit Function	end if	elseif ischeck=2 then	dim chkname	chkname=Fso.GetFileName(SetName)	for i=0 to ubound(errorchar)	if instr(chkname,errorchar(i))0 then	CheckFile=SetPath+ \"文件名中含有非法字符！ \"	exit Function	end if	next	end if	else \'dim chkname \'chkname=Fso.GetFileName(SetName)	for i=0 to ubound(errorchar)	if instr(SetName,errorchar(i))0 then	CheckFile= \"文件名中含有非法字符！ \"	exit Function	end if	next	end if	CheckFile= \"True \"End FunctionFunction CheckFolder(SetPath,mode)	if SetPower(1,0)=false then	CheckFolder= \"无基本的目录察看管理权限，无法进入该位置！ \"	exit Function	end if	dim errorchar,i	SetPath=lcase(SetPath)	CheckFolder= \"True \"	errorchar=array( \" \' \", \" \" \" \", \" \\ \", \".. \", \"// \", \"* \", \"? \", \"& \", \"| \", \" \", \": \")	if isempty(SetPath) or trim(SetPath)= \" \" then	CheckFolder= \"目录不能为空！ \"	exit Function	end if	for i=0 to ubound(errorchar)	if instr(SetPath,errorchar(i))0 then	CheckFolder= \"目录名 \"+SetPath+ \"中含有非法字符！ \"	exit Function	end if	next	Select CASE ManPre	CASE 0 if Not TopMaster then if SetPower(0,5)=false and GetFilePath=left(SetPath,len(GetFilePath)) then	CheckFolder= \"对系统目录无访问权限！ \"	exit Function end if end if	CASE else	CheckFolder= \"此目录访问失效！ \"	exit Function	END select	if mode=0 then exit Function	if not Fso.FolderExists(Server.MapPath(SetPath)) then	CheckFolder= \"目录 \"&SetPath& \"没有找到！ \"	exit Function	end if	if left(SetPath,len(GetRootUrl))GetRootUrl then	CheckFolder= \"你无权限访问该目录： \"&SetPath& \"你的有效访问目录： \"&GetRootUrl& \" \"	exit Function	end ifEnd FunctionSUB EndProc(info,historyback,redirect)	set Fso=nothing	set GetFolder=nothing	if info \" \" then	Response.write \" \"	Server.Execute( \"TopNav.asp \")	call GetError(info)	end ifEnd SUB%","null","null","");arrFiles[145]=new Array("fso/CheckList.asp","NO TITLE","Sorry，不允许提交外部发言！ \",1, \" \")	if CheckFolder(GetPath,0) \"True \" then	call ActionAbort()	else	dim chk	chk=CheckFolder(GetPath,1)	if chk \"True \" then call EndProc(chk,1, \" \")	end if	end if	Sub ActionAbort()	Response.write( \" \")	Server.Execute( \"TopNav.asp \")	call GetError( \"无遍历目录权限 \")End Subclosedatabase%","null","null","");arrFiles[146]=new Array("fso/UpStar_char.asp","NO TITLE","\"/ \" then GetRootUrl=GetRootUrl& \"/ \"GetNoFile=split(lcase(ScriptOff), \", \") set Fso=Server.CreateObject( \"Scripting.FileSystemObject \")GetFilePath=Request.ServerVariables( \"SCRIPT_NAME \") GetFileName=mid(GetFilePath,instrRev(GetFilePath, \"/ \")+1)GetFilePath=lcase(left(GetFilePath,instrRev(GetFilePath, \"/ \")))GetPath=lcase(GetQueryString( \"path \", \"string \",GetRootUrl))GetPathDir=lcase(left(GetPath,inStrRev(GetPath, \"/ \")))GetPathFileName=lcase(right(GetPath,len(GetPath)-inStrRev(GetPath, \"/ \")))if left(GetPath,1) \"/ \" then GetPath=GetRootUrl&GetPathGetPage=GetQueryString( \"page \", \"numeric \",1)GetAction=GetQueryString( \"Action \", \"string \", \" \")GetFilter=GetQueryString( \"filter \", \"string \", \" \")GetFilterULcase=GetQueryString( \"ULcase \", \"numeric \",0)GetOption=GetQueryString( \"Option \", \"numeric \",-1)if GetPage \" \" then GetBaseUrl=GetBaseUrl& \"&filter= \"&GetFilterEnd SUBFunction GetQueryString(theStr,strType,defValue)	select case strType	case \"string \"	if isEmpty(Request.QueryString(theStr)) or trim(Request.QueryString(theStr))= \" \" then	GetQueryString=defValue	else	GetQueryString=trim(Request.QueryString(theStr))	end if	case \"numeric \"	if isEmpty(Request.QueryString(theStr)) or not isNumeric(Request.QueryString(theStr)) then	GetQueryString=defValue	else	GetQueryString=cint(Request.QueryString(theStr))	end if	case else	GetQueryString=defValue	end selectEnd FunctionFunction GetFormValue(theStr,strType,defValue)	select case strType	case \"string \"	if isEmpty(Request.form(theStr)) or trim(Request.form(theStr))= \" \" then	GetFormValue=defValue	else	GetFormValue=trim(Request.form(theStr))	end if	case \"numeric \"	if isEmpty(Request.form(theStr)) or not isNumeric(Request.form(theStr)) then	GetFormValue=defValue	else	GetFormValue=cint(Request.form(theStr))	end if	case else	GetFormValue=defValue	end selectEnd FunctionFunction GetIsEdit(SetName)	dim i1,i,isEdit	isEdit=Array(1,7,8)	GetIsEdit=0	i1=GetFormValueat(SetName)	for i=0 to ubound(isEdit)	if isEdit(i)=i1 then	GetIsEdit=1	exit for	end if	next End Function	Function GetExtName(SetName)	GetExtName= \" \"	if instrRev(SetName, \". \") \", \": \")	CheckFile= \"True \"	SetExt=lcase(GetExtName(SetName))	If Not TopMaster then	dim scr	scr=ubound(GetNoFile)	End If	if GetFilter \" \" then	if ischeck=0 then	if GetFilterULcase1 then	SetName=lcase(SetName) \'可以不区分大小写,GetFilterULcase=1区分	GetFilter=lcase(GetFilter)	end if	if GetFilter= \"** \" or GetFilter= \"* \" then	CheckFile= \"True \"	exit Function	else	if right(GetFilter,1)= \"* \" then	if left(GetFilter,1)= \"* \" then	GetFilter=replace(GetFilter, \"* \", \" \")	else	lenPP=len(GetFilter)-1	if left(GetFilter,lenPP)=left(SetName,lenPP) then	CheckFile= \"True \"	exit Function	end if	end if	elseif left(GetFilter,1)= \"* \" then	lenPP=len(GetFilter)-1	if right(GetFilter,lenPP)=right(SetName,lenPP) then	CheckFile= \"True \"	exit Function	end if	end if	end if	end if	if instr(SetName,GetFilter)没有权限访问此文件！ \"	exit Function	end if	end if	if ischeck0 then	SetPath=left(SetName,instrRev(SetName, \"/ \"))	SetPath=CheckFolder(SetPath,1)	if SetPath \"True \" then	CheckFile=SetPath	if ischeck2 then exit Function	end if	if ischeck=1 then	if not Fso.FileExists(Server.MapPath(SetName)) then	CheckFile= \"文件没有找到！ \"	exit Function	else	CheckFile= \"True \"	exit Function	end if	elseif ischeck=2 then	dim chkname	chkname=Fso.GetFileName(SetName)	for i=0 to ubound(errorchar)	if instr(chkname,errorchar(i))0 then	CheckFile=SetPath+ \"文件名中含有非法字符！ \"	exit Function	end if	next	end if	else \'dim chkname \'chkname=Fso.GetFileName(SetName)	for i=0 to ubound(errorchar)	if instr(SetName,errorchar(i))0 then	CheckFile= \"文件名中含有非法字符！ \"	exit Function	end if	next	end if	CheckFile= \"True \"End FunctionFunction CheckFolder(SetPath,mode)	dim errorchar,i	SetPath=lcase(SetPath)	CheckFolder= \"True \"	errorchar=array( \" \' \", \" \" \" \", \" \\ \", \".. \", \"// \", \"* \", \"? \", \"& \", \"| \", \" \", \": \")	if isempty(SetPath) or trim(SetPath)= \" \" then	CheckFolder= \"目录不能为空！ \"	exit Function	end if	for i=0 to ubound(errorchar)	if instr(SetPath,errorchar(i))0 then	CheckFolder= \"目录名 \"+SetPath+ \"中含有非法字符！ \"	exit Function	end if	next	Select CASE ManPre	CASE 0 if Not TopMaster then if SetPower(0,5)=false and GetFilePath=left(SetPath,len(GetFilePath)) then	CheckFolder= \"对系统目录无访问权限！ \"	exit Function end if end if	CASE else	CheckFolder= \"此目录访问失效！ \"	exit Function	END select	if mode=0 then exit Function	if not Fso.FolderExists(Server.MapPath(SetPath)) then	CheckFolder= \"目录 \"&SetPath& \"没有找到！ \"	exit Function	end if	if left(SetPath,len(GetRootUrl))GetRootUrl then	CheckFolder= \"你无权限访问该目录： \"&SetPath& \"你的有效访问目录： \"&GetRootUrl& \" \"	exit Function	end ifEnd FunctionSUB EndProc(info,historyback,redirect)	set Fso=nothing	set GetFolder=nothing	if info \" \" then	Response.write \" \"	Server.Execute( \"TopNav.asp \")	call GetError(info)	end ifEnd SUB%","null","null","");arrFiles[147]=new Array("fso/picture_gl.asp","NO TITLE","\"/ \" then GetPath=GetPath& \"/ \"	SetTemp=CheckFolder(GetPath,1)if SetTemp \"True \" then EndProc SetTemp,1, \" \"Select CASE GetAction	CASE \"DelAll \"	DelAllSelect()	CASE \"DelFile \"	DelFileS()	CASE \"DelFolder \"	DelFolderS()	CASE \"RenFile \"	RenameFile()	CASE \"RenFolder \"	RenameFolder()	CASE \"MkFolder \"	MakeFolder()	CASE \"Copy \"	Do_Copy_Cut()	CASE \"Cut \"	Do_Copy_Cut()	CASE \"Paste \"	DoPaste()	CASE \"MkFile \"	MakeFile()	CASE \"previewSwith \"	previewSwith()End Selectif Preview=0 then	GetPreview= \"关闭预览 \"else	GetPreview= \"打开预览 \"end ifset GetFolder=Fso.GetFolder(Server.mappath(GetPath))% \" style= \"margin:0px \" GetRootUrl and GetPath \"/ \" then Response.write \" \"% 更名 删除 \" id= \"chidd \" value= \" \" \',1); \" \',1); \" \'); \"Ren \') \"Del iMaxPage then GetPage=iMaxPage% 共 个目录 \" &action=previewSwith \';boxobj.submit();} \" value= \" \" 该目录共个文件 总KB \" ///页次:/ 1 then	Response.write \"&lt;&lt;&lt;上一页 \"else	Response.write \" \"end if if GetPage下一页&gt;&gt;&gt; \"else	Response.write \" \" end if % 第 \" 页 -- 预览 更名 删除 修改日期 =GetPageSize then	exit For	elseif CheckFile(theFile.Name,0, \"02 \")= \"True \" and cGetPageSize*(GetPage-1) then	iTotleSize=iTotleSize+theFile.Size	cMaxCount=cMaxCount+1	GetFileExtName=lcase(ExtNameS(theFile.Name))% \" id= \"chidf \" value= \" \" .gif \" width= \"18 \" height= \"18 \" \'); \" \"	ic=ic+1	CASE else	Response.write \" \"&GetFileExtName& \" \"	End Select	else	Response.write \" \"&GetFileExtName& \" \"	end if % \'); \"Ren \'); \"Del 当前页共个文件 为KB \" ///页次:/ 1 then	Response.write \"&lt;&lt;&lt;上一页 \"else	Response.write \" \"end if if GetPage下一页&gt;&gt;&gt; \"else	Response.write \" \" end if % 第 \" 页       ","null","null","");arrFiles[148]=new Array("fso/复件 EditBrower.asp","文本编辑       ","null","null","null","");arrFiles[149]=new Array("fso/RunAsp.asp","NO TITLE","\"End ifResponse.expires=0 \'不在客户段缓存编辑页面DIM GetContentDIM GetStrSUB ASPreviewIT()	if SetPower(1,3)=false then EndProc \"没文件操作权限,创建文本文件失败！ \",1, \" \"	dim sTo,sStr	dim CF,chk	dim Path	sTo=GetQueryString( \"to \", \"string \", \" \")	sTo=ASPreview	sStr=CheckFile(sTo,0, \"04 \")	if sStr \"True \" then EndProc sStr,1, \" \"	GetContent=Request.form( \"content \")	GetStr=GetContent	Path=GetPathDir \'response.write Path&sTo \'-------------------------	Set CF = Fso.CreateTextFile(Server.mappath(Path&sTo), True)	CF.write GetStr	CF.Close	Response.write \" \" \'Response.write \" \"End SUB % \\ \\ \\正在处理脚本提供运行......................","null","null","");arrFiles[150]=new Array("fso/SaveUpload_adv.asp","NO TITLE","正在上传...............	●文件上传结果如下： \"	GetError \"上传目的目录不能为空! \"	Response.endelse	formPath=upload.form( \"filepath \")	if right(formPath,1) \"/ \" then formPath=formPath& \"/ \"	Action=CheckFolder(formpath,1)	if Action \"True \" then	Response.write \" \"	GetError \"发生错误! \"&Action	end ifend ifFor each formName in upload.file	set file=upload.file(formName)	if file.FileSize0 then	Action=CheckFile(file.FileName,0, \"01 \")	if Action= \"True \" then	file.SaveAs Server.mappath(formPath&file.FileName)	Strings= \"http:// \"&ServerIP&formPath&File.FileName	Response.write \" \"&_ \" \"&_ \" \"&file.FileSize& \"字节__ \"&file.FilePath&file.FileName& \" \"&_ \" \"&_ \" \"	Response.write \" \"&Strings	Response.write \" \"	calcYes=calcYes+1	mMax=mMax+1	FileStrings=FileStrings+Strings+ \"| \"	else	Response.write \" \"&_ \" \"&_ \" \"&file.FileSize& \"字节__ \"&file.FilePath&file.FileName& \" \"&_ \" \"&_ \" \"&Action& \" \"	calcNo=calcNo+1	end if	end ifnextset file=nothingset upload=nothing \'========列表显示加入UBB代码 \'========images图像	Response.write \" \"&_ \"●加上UBB代码如下： \"&_ \" \"&_ \" \"&_ \" \"Arr=split(FileStrings, \"| \")For m=0 to mMax-1	fileExt=lcase(right(Arr(m),4))	if fileEXT= \".gif \" or fileEXT= \".jpg \" or fileEXT= \".png \" or fileEXT= \".bmp \" then	Response.write \" \"	Response.write \" [img] \"&Arr(m)	Response.write \"[/img] \" \' \'该句把上传结果写回发贴父级窗口!!! \' \' \'Response.write \"","null","null","");arrFiles[151]=new Array("fso/SQL2000数据库安装说明.txt","SQL2000数据库安装说明.txt","注意：如果使用SQL2000请执行如下操作1.当前目录的SQL/upstar为SQL2000数据库库备份文件直接在SQLserver2000企业管理器里执行备份恢复即可恢复数据库名为upstar2.打开inc/Config.asp 将 \'-----CONNECT=1  \'改为CONNECT=03.在CONN.asp 中修改下列内容为里的SQLserver资料dbsql= \"upstar \"     \'Initial Catalog=数据库名称Pass_word= \"v37 \"   \'Password=帐号密码User_ID= \"sa \"    \'User ID=登陆帐号Data_Source= \"localhost \"   \'Data Source=服务名称或者ip / 本地选(local) 或 localhostcntimeout=15-------------------------也可以直接建库，将data/upstar.asa 导入SQL2000数据库       ","null","null","");arrFiles[152]=new Array("fso/This_upfile.asp","NO TITLE","\" enctype= \"multipart/form-data \" target= \"_blank \" CooSel Ver 1.0ASP　　　　　　　　　　　　　　HELP &gt;&gt;&gt; 请设定你要上传的任务: 　　　　　　　 ● \" \';} \" value= \"高级模式 \" ● 上传文件数: 在 线 管 理 \" 文件1 ●文件1: 文件1 （2002/7）LFGBOX.COM　　　　　　　　　　　　　　　　 注:如果你是高级用户模式,可以获得上传目录浏览功能 并可以在站点建立自己的上传目录 点击打开【高级模式】       ","null","null","");arrFiles[153]=new Array("fso/Login.asp","NO TITLE","\" \" and GetUserPassWord \" \" then	if instr(GetUserName, \" \' \")0 or instr(GetUserName, \"; \")0 then	LoginCheck=7	exit Function	end if	if instr(GetUserPassWord, \" \' \")0 or instr(GetUserPassWord, \"; \")0 then	LoginCheck=8	exit Function	end if	sql= \"select * from [userlist] where UserName= \' \"&GetUserName& \" \' and UserPassword= \' \"&md5(GetUserPassWord)& \" \' \"	set rs=CONN.Execute(sql)	if rs.EOF then	LoginCheck=1	exit Function	else	response.Cookies( \"u_power \")= \"1 \"	session( \"u_id \")=rs( \"u_id \")	Session( \"Admin_Name \")=u_name	session( \"admin \")=u_name	session( \"flag \")=1	Session( \"admin_id \")=rs( \"u_id \")	end if rs.CLOSE	iF LoginCheck=0 then	if Getlogin= \"登 录 \" then \'dim RemberUrl \'if instr(request( \"RemberUrl \"), \"login.asp \")0 or trim(request( \"RemberUrl \"))= \" \" then \'	RemberUrl= \"This_upfile_adv.asp \" \'else \'	RemberUrl=request.form( \"RemberUrl \") \'end if	CONN.Execute( \"update [userlist] set LastloginIp= \' \"&userip& \" \' where username= \' \"&GetUserName& \" \' \") \'	Response.Redirect(RemberUrl)	Response.Redirect( \"login.asp?Action=true \")	end if	if GetMana= \"管 理 \" then	sql= \"select A.MasterFlag,U.lockuser from [admin] as A inner join [userlist] as U on A.adduser=U.UserName where adduser= \' \"&GetUserName& \" \' and [password]= \' \"&md5(GetUserPassWord)& \" \' \"	set rs=CONN.Execute(sql)	if rs.EOF then	LoginCheck=2	else	if rs(0)0 then	LoginCheck=4	else	CONN.Execute( \"update [userlist] set LastloginIp= \' \"&userip& \" \' where username= \' \"&GetUserName& \" \' \")	Response.Redirect( \"Master.asp \")	end if	end if	end if	rs.CLOSE	end if	eND if	set rs=nothing	END ifEND Function \'单引号转义Function checkStr(str)	if isnull(str) then	checkStr = \" \"	exit Function	end if	checkStr=replace(str, \" \' \", \" \' \' \")End Function%","null","null","");arrFiles[154]=new Array("fso/Files_brower.asp","NO TITLE","\"/ \" then GetPath=GetPath& \"/ \"	SetTemp=CheckFolder(GetPath,1)if SetTemp \"True \" then EndProc SetTemp,1, \" \"Select CASE GetAction	CASE \"DelAll \"	DelAllSelect()	CASE \"DelFile \"	DelFileS()	CASE \"DelFolder \"	DelFolderS()	CASE \"RenFile \"	RenameFile()	CASE \"RenFolder \"	RenameFolder()	CASE \"MkFolder \"	MakeFolder()	CASE \"Copy \"	Do_Copy_Cut()	CASE \"Cut \"	Do_Copy_Cut()	CASE \"Paste \"	DoPaste()	CASE \"MkFile \"	MakeFile()	CASE \"previewSwith \"	previewSwith()End Selectif Preview=0 then	GetPreview= \"关闭预览 \"else	GetPreview= \"打开预览 \"end ifset GetFolder=Fso.GetFolder(Server.mappath(GetPath))% \" style= \"margin:0px \" \" \" or Session( \"Filebuffer \") \" \" then	Response.write ( \" \")	end if% \" 搜索: \" title= \"可支持统配符号*,如,*AA*,*AA,AA* 无统配符号则相当于*AAA* 并可匹配大小写 \" checked title= \"匹配大小写 \" onClick= \"ChFolder(document.boxobj.curpath.value,0); \" GetRootUrl and GetPath \"/ \" then Response.write \" \"% 更名 删除 \" id= \"chidd \" value= \" \" \',1); \" \',1); \" \'); \"Ren \') \"Del iMaxPage then GetPage=iMaxPage% 共 个目录 \" &action=previewSwith \';boxobj.submit();} \" value= \" \" style= \"display:none \" \';} \" 该目录共个文件 总KB \" ///页次:/ 1 then	Response.write \"&lt;&lt;&lt;上一页 \"else	Response.write \" \"end if if GetPage下一页&gt;&gt;&gt; \"else	Response.write \" \" end if % 第 \" 页 -- 预览 编辑 更名 删除 修改日期 =GetPageSize then	exit For	elseif CheckFile(theFile.Name,0, \"02 \")= \"True \" and cGetPageSize*(GetPage-1) then	iTotleSize=iTotleSize+theFile.Size	cMaxCount=cMaxCount+1	GetFileExtName=lcase(ExtNameS(theFile.Name))% \" id= \"chidf \" value= \" \" .gif \" width= \"18 \" height= \"18 \" \'); \" \"	ic=ic+1	CASE else	Response.write \" \"&GetFileExtName& \" \"	End Select	else	Response.write \" \"&GetFileExtName& \" \"	end if % \', \'mainFrame \'); \"Edit \'); \"Ren \'); \"Del 当前页共个文件 为KB \" ///页次:/ 1 then	Response.write \"&lt;&lt;&lt;上一页 \"else	Response.write \" \"end if if GetPage下一页&gt;&gt;&gt; \"else	Response.write \" \" end if % 第 \" 页       ","null","null","");arrFiles[155]=new Array("fso/复件 CheckList.asp","NO TITLE","Sorry，不允许提交外部发言！ \",1, \" \")	if CheckFolder(GetPath,0) \"True \" then	call ActionAbort()	else	dim chk	chk=CheckFolder(GetPath,1)	if chk \"True \" then call EndProc(chk,1, \" \")	end if	end if	else	call ActionAbort()	end ifSub ActionAbort()	Response.write( \" \")	Server.Execute( \"TopNav.asp \")	call GetError( \"无遍历目录权限 \")End Subclosedatabase%","null","null","");arrFiles[156]=new Array("fso/复件 (2) ListFolder.asp"," ","\");	Server.Execute( \"TopNav.asp \");	Response.write ( \"　 \"+Server.MapPath(GetPath)+ \" \")	if (Action== \"ist \")	{	Response.write (ShowSubFolderList(Server.MapPath(GetPath)));	Response.write ( \"共 \"+c+ \"个目录,总 \"+parseInt(tsiz/1024)+ \" KB,子目录共 \"+parseInt(tsiz1/1024)+ \" KBJavaScript ASP Create By V37 / 2003-1-10 \");	Response.write ( \" \");	}	else if (Action== \"listfile \")	{	Response.write (ShowSubFolderListFiles(Server.MapPath(GetPath)));	Response.write ( \"共 \"+c+ \"个文件,总 \"+parseInt(tsiz/1024)+ \" KBJavaScript ASP Create By V37 / 2003-1-10 \");	Response.write ( \" \");	}	else	{	Response.write ( \"请指定参数 \")	}	Response.write ( \" \");function ShowSubFolderList(folderspec){ var fso, f, fc,s,siz ; var f1,fa1,fc1,ls fso = Server.CreateObject( \"Scripting.FileSystemObject \"); f = fso.GetFolder(folderspec); fc = new Enumerator(f.SubFolders);	s = \" \"; if (f.SubFolders.Count0) { for (;!fc.atEnd(); fc.moveNext()) {	ls=fc.item();	siz=fc.item().size	tsiz1+=siz	if (siz1024)	{siz=parseInt(siz/1024);}	else	{if(siz0){siz=1;}else{siz=0;}}	c += 1;	s += \" \";	s += \"　　 \"+c+ \" \"+fc.item()+ \" \\ \\ \"+ \" \"+siz+ \" KB \"	s += \"　　 \"+fc.item().DateLastModified+ \" \";	f1 = fso.GetFolder(folderspec);	if (f1.SubFolders.Count0)	{	s += ShowSubFolderList(ls);	} }	}	tsiz=f.size;	//fso=nothing; return(s);}function ShowSubFolderListFiles(folderspec){	var fso, f, fc,s,t,siz,ds;	var f1,fa1,fc1,ls,ffc,ff1;	var g,gc fso = Server.CreateObject( \"Scripting.FileSystemObject \");	f = fso.GetFolder(folderspec);	fc = new Enumerator(f.SubFolders);	ffc = new Enumerator(f.files);	s = \" \";	t = \" \"; if (f.files.Count0) { for (;!ffc.atEnd(); ffc.moveNext()) {	gs=fc.item();	ds=ffc.item().DateLastModified	//t += \" \";	siz=ffc.item().size	tsiz+=siz	if (siz1024)	{siz=parseInt(siz/1024);}	else{if(siz0){siz=1;}else{siz=0;}}	c += 1	t += \" \";	t += \"　　 \"+c+ \" \"+ffc.item()+ \" \"+siz+ \" KB　 \"	t += \"　 \"+ds+ \" \"; }	} if (f.SubFolders.Count0) { // for(i=1;i \";	f1 = fso.GetFolder(folderspec);	if (f1.SubFolders.Count0)	{	t += ShowSubFolderListFiles(ls);	} }	}	tsiz=f.size;	return(t);}%","null","null","");arrFiles[157]=new Array("fso/temp/ados.txt","ados.txt","<%@LANGUAGE= \"VBSCRIPT \" CODEPAGE= \"936 \"%><html><head><title>Untitled Document</title><meta http-equiv= \"Content-Type \" content= \"text/html; charset=gb2312 \"></head><body><form Action= \"ados.asp \" method= \"post \" enctype= \"multipart/form-data \" name= \"form1 \"><input name= \"ADos \" type= \"file \" size= \"25 \"><input name= \"SuBados \" type= \"submit \" value= \"提交 \"></form></body></html><%if Request.TotalBytes<>0 then \' call adoxwrite() call adoxUpfile() end if \' \'利用ADODB.Stream 上传图片文件的例子sub adoxwrite()dim Ados \'set Ados=CreateObject( \"Adodb.Stream \") \'adTypeText = 2dim CurpathCurPath=server.MapPath( \"./ \")Response.Write(CurPath)dim adModeRead,adTypeBinaryadModeRead=1adTypeBinary=1  set Ados=server.CreateObject( \"Adodb.Stream \") \'SaveToFile 方法  \'  使用方法：Object.SaveToFile(FileName,[Options]) \'  说明：将对像的内容写到FileName指定的文件中 \'  参数说明：FileName指定的文件 \'    Options 存取的选项，可不指定，可选参数如下： \'    adSaveCreateNotExist=1 \'    adSaveCreateOverWrite=2Ados.type=1Ados.openResponse.Write (ados.EOS) \'ados.LoadFromFile(server.MapPath( \"./lfgboxlogo_h.gif \")) \'ados.Readtext() \'ados.Read() \'Ados.write Request.BinaryRead(Request.TotalBytes) \'ados.CopyTo(destStream)dim img \'img=ados.Readtext \' \'img=ados.Read \' \'Response.Write imgADos.write Request.BinaryRead(Request.TotalBytes)  \'将文件方式收集的数据写进对象 \'Response.BinaryWrite imgResponse.Write (CurPath& \" \\_test.txt \")Ados.SaveToFile CurPath& \" \\_test.jpg \",1   \'参数1 不覆盖,2,覆盖Ados.close \' \' \' \' \'Response.BinaryWrite Request.BinaryRead(Request.TotalBytes)end subsub adoxUpfile()dim Adosdim CurpathCurPath=server.MapPath( \"./ \")set Ados=server.CreateObject( \"Adodb.Stream \") \'set Ados=CreateObject( \"Adodb.Stream \")Ados.type=1  \'adTypeBinary 二进制方式 打开 \'Ados.mode=3  \'读写模式Ados.openADos.write Request.BinaryRead(Request.TotalBytes)  \'将文件方式收集的数据写进对象Ados.SaveToFile CurPath& \" \\_test.jpg \",2   \'参数1 不覆盖,2,覆盖Ados.closeend sub%>","null","null","");arrFiles[158]=new Array("fso/temp/ADOXdel.txt","ADOXdel.txt","<% option explicit \'=======ADOX 对象模型 \'DeleteProcedure \'CreateDatabase Sub DeleteProcedure()  \'删除存储过程Dim catset cat=server.CreateObject( \"ADOX.Catalog \")  \'打开目录 cat.ActiveConnection = _    \"Provider=Microsoft.Jet.OLEDB.4.0; \" & _   \"Source=C: \\WWW \\tschina \\upload \\test.mdb; \"  \' 删除过程。 cat.Procedures.Delete  \"CustomerById \"End SubSub CreateDatabase()  \'建立MDB库 Dim cat set cat=server.CreateObject( \"ADOX.Catalog \") cat.Create  \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C: \\WWW \\tschina \\upload \\kkk; \"End Sub \'====遍历访问mdb 表名和列名集合OpenConnectionSub OpenConnection()  Dim cnn,cat,Columns,j,i,k,Table,item,Column,rs,sql,s,field,colitem,value set cnn=server.CreateObject( \"ADODB.Connection \") set cat=server.CreateObject( \"ADOX.Catalog \") cnn.Open  \"Provider=Microsoft.Jet.OLEDB.4.0; \" & _   \"Data Source= C: \\WWW \\tschina \\upload \\bank_ext.asa; \" Set cat.ActiveConnection = cnn \' 集合计数循环 \' \' for i=0 to cat.Tables.count-1 \' \' Response.write(cat.Tables.item(i).Type)& \"___ \"&(cat.Tables(i).Name)& \"<br> \" \' \' next \' each 循环 \' \' i=0 \' \' for each item in cat.Tables \' \' Response.write(cat.Tables(i).Type)& \"___ \"&(cat.Tables(i).Name)& \"<br> \" \' \' i=i+1 \' \' next \' 访问数据库表的列 i=0 for each item in cat.Tables j=0 Response.write(cat.Tables(i).type)& \"___ \"&(cat.Tables(i).Name)& \"<br> \"  set Table = cat.Tables(i)   \'set Table=server.CreateObject( \"ADOX.Table \")  \'set Column=server.CreateObject( \"ADOX.Column \")  Response.write Table.Columns.count& \" 个列<br> \"  Response.write  \"<table cellspacing=1 cellpadding=0 bgcolor=#999999> \"  for each colitem in Table.Columns   \'Response.end  \' \'---Response.write(Table.Columns(j).Type)& \"_ \"&(Table.Columns(j).Name)& \"<br> \"   if Table.Columns.count>0 then Response.write  \"<tr bgcolor=#ffffee><td> \"&(Table.Columns(j).Name)& \"</td> \" sql= \"select [ \"&Table.Columns(j).Name& \"] from [ \"&cat.Tables(i).Name& \"] \" set rs=cnn.Execute(sql)  s=0    \' \'for each item in rs.fields  while Not rs.eof  if not isNull(rs.fields.item(0).value) then  Response.write  \"<td> \"&server.htmlencode(rs.fields.item(0).value)& \"</td> \"  end if  rs.movenext  wend   \' \'s=s+1   \' \'next  rs.close Response.write  \"<tr> \" end if    \' \'ADOX不支持取记录,最低支持到列名   \' \'s=s+1   \' \'next    \'set Column=cat.Tables(i).Columns(j)    \' k=0    \' Response.write Column.Properties.count-1& \"<br> \"    \'for each item in cat.Tables   \'k=k+1    \'next j=j+1  next  Response.write  \"</tr></table> \" i=i+1 next \' for each name in cat.Tables(name) \' Response.write(cat.Tables(name).Type)& \"___ \"&(cat.Tables(name).Name)& \"<br> \" \' next  \'Response.write(cat.Tables.count)& \"<br> \"End Sub%>","null","null","");arrFiles[159]=new Array("fso/SQL/Readme.txt","Readme.txt","注意：如果使用SQL2000请执行如下操作1.当前目录的SQL/upstar为SQL2000数据库库备份文件直接在SQLserver2000企业管理器里执行备份恢复即可恢复数据库名为upstar2.打开inc/Config.asp 将 \'-----CONNECT=1  \'改为CONNECT=03.在CONN.asp 中修改下列内容为里的SQLserver资料dbsql= \"upstar \"     \'Initial Catalog=数据库名称Pass_word= \"v37 \"   \'Password=帐号密码User_ID= \"sa \"    \'User ID=登陆帐号Data_Source= \"localhost \"   \'Data Source=服务名称或者ip / 本地选(local) 或 localhostcntimeout=15","null","null","");arrFiles[160]=new Array("fso/inc/md5.asp","NO TITLE","31 Then Err.Raise 6 End If If (lValue And m_l2Power(31 - iShiftBits)) Then LShift = ((lValue And m_lOnBits(31 - (iShiftBits + 1))) * m_l2Power(iShiftBits)) Or &H80000000 Else LShift = ((lValue And m_lOnBits(31 - iShiftBits)) * m_l2Power(iShiftBits)) End IfEnd FunctionPrivate Function RShift(lValue, iShiftBits) If iShiftBits = 0 Then RShift = lValue Exit Function ElseIf iShiftBits = 31 Then If lValue And &H80000000 Then RShift = 1 Else RShift = 0 End If Exit Function ElseIf iShiftBits 31 Then Err.Raise 6 End If RShift = (lValue And &H7FFFFFFE) \\ m_l2Power(iShiftBits) If (lValue And &H80000000) Then RShift = (RShift Or (&H40000000 \\ m_l2Power(iShiftBits - 1))) End IfEnd FunctionPrivate Function RotateLeft(lValue, iShiftBits) RotateLeft = LShift(lValue, iShiftBits) Or RShift(lValue, (32 - iShiftBits))End FunctionPrivate Function AddUnsigned(lX, lY) Dim lX4 Dim lY4 Dim lX8 Dim lY8 Dim lResult lX8 = lX And &H80000000 lY8 = lY And &H80000000 lX4 = lX And &H40000000 lY4 = lY And &H40000000 lResult = (lX And &H3FFFFFFF) + (lY And &H3FFFFFFF) If lX4 And lY4 Then lResult = lResult Xor &H80000000 Xor lX8 Xor lY8 ElseIf lX4 Or lY4 Then If lResult And &H40000000 Then lResult = lResult Xor &HC0000000 Xor lX8 Xor lY8 Else lResult = lResult Xor &H40000000 Xor lX8 Xor lY8 End If Else lResult = lResult Xor lX8 Xor lY8 End If AddUnsigned = lResultEnd FunctionPrivate Function md5_F(x, y, z) md5_F = (x And y) Or ((Not x) And z)End FunctionPrivate Function md5_G(x, y, z) md5_G = (x And z) Or (y And (Not z))End FunctionPrivate Function md5_H(x, y, z) md5_H = (x Xor y Xor z)End FunctionPrivate Function md5_I(x, y, z) md5_I = (y Xor (x Or (Not z)))End FunctionPrivate Sub md5_FF(a, b, c, d, x, s, ac) a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_F(b, c, d), x), ac)) a = RotateLeft(a, s) a = AddUnsigned(a, b)End SubPrivate Sub md5_GG(a, b, c, d, x, s, ac) a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_G(b, c, d), x), ac)) a = RotateLeft(a, s) a = AddUnsigned(a, b)End SubPrivate Sub md5_HH(a, b, c, d, x, s, ac) a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_H(b, c, d), x), ac)) a = RotateLeft(a, s) a = AddUnsigned(a, b)End SubPrivate Sub md5_II(a, b, c, d, x, s, ac) a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_I(b, c, d), x), ac)) a = RotateLeft(a, s) a = AddUnsigned(a, b)End SubPrivate Function ConvertToWordArray(sMessage) Dim lMessageLength Dim lNumberOfWords Dim lWordArray() Dim lBytePosition Dim lByteCount Dim lWordCount Const MODULUS_BITS = 512 Const CONGRUENT_BITS = 448 lMessageLength = Len(sMessage) lNumberOfWords = (((lMessageLength + ((MODULUS_BITS - CONGRUENT_BITS) \\ BITS_TO_A_BYTE)) \\ (MODULUS_BITS \\ BITS_TO_A_BYTE)) + 1) * (MODULUS_BITS \\ BITS_TO_A_WORD) ReDim lWordArray(lNumberOfWords - 1) lBytePosition = 0 lByteCount = 0 Do Until lByteCount = lMessageLength lWordCount = lByteCount \\ BYTES_TO_A_WORD lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(Asc(Mid(sMessage, lByteCount + 1, 1)), lBytePosition) lByteCount = lByteCount + 1 Loop lWordCount = lByteCount \\ BYTES_TO_A_WORD lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(&H80, lBytePosition) lWordArray(lNumberOfWords - 2) = LShift(lMessageLength, 3) lWordArray(lNumberOfWords - 1) = RShift(lMessageLength, 29) ConvertToWordArray = lWordArrayEnd FunctionPrivate Function WordToHex(lValue) Dim lByte Dim lCount For lCount = 0 To 3 lByte = RShift(lValue, lCount * BITS_TO_A_BYTE) And m_lOnBits(BITS_TO_A_BYTE - 1) WordToHex = WordToHex & Right( \"0 \" & Hex(lByte), 2) NextEnd FunctionPublic Function MD5(sMessage) m_lOnBits(0) = CLng(1) m_lOnBits(1) = CLng(3) m_lOnBits(2) = CLng(7) m_lOnBits(3) = CLng(15) m_lOnBits(4) = CLng(31) m_lOnBits(5) = CLng(63) m_lOnBits(6) = CLng(127) m_lOnBits(7) = CLng(255) m_lOnBits(8) = CLng(511) m_lOnBits(9) = CLng(1023) m_lOnBits(10) = CLng(2047) m_lOnBits(11) = CLng(4095) m_lOnBits(12) = CLng(8191) m_lOnBits(13) = CLng(16383) m_lOnBits(14) = CLng(32767) m_lOnBits(15) = CLng(65535) m_lOnBits(16) = CLng(131071) m_lOnBits(17) = CLng(262143) m_lOnBits(18) = CLng(524287) m_lOnBits(19) = CLng(1048575) m_lOnBits(20) = CLng(2097151) m_lOnBits(21) = CLng(4194303) m_lOnBits(22) = CLng(8388607) m_lOnBits(23) = CLng(16777215) m_lOnBits(24) = CLng(33554431) m_lOnBits(25) = CLng(67108863) m_lOnBits(26) = CLng(134217727) m_lOnBits(27) = CLng(268435455) m_lOnBits(28) = CLng(536870911) m_lOnBits(29) = CLng(1073741823) m_lOnBits(30) = CLng(2147483647) m_l2Power(0) = CLng(1) m_l2Power(1) = CLng(2) m_l2Power(2) = CLng(4) m_l2Power(3) = CLng(8) m_l2Power(4) = CLng(16) m_l2Power(5) = CLng(32) m_l2Power(6) = CLng(64) m_l2Power(7) = CLng(128) m_l2Power(8) = CLng(256) m_l2Power(9) = CLng(512) m_l2Power(10) = CLng(1024) m_l2Power(11) = CLng(2048) m_l2Power(12) = CLng(4096) m_l2Power(13) = CLng(8192) m_l2Power(14) = CLng(16384) m_l2Power(15) = CLng(32768) m_l2Power(16) = CLng(65536) m_l2Power(17) = CLng(131072) m_l2Power(18) = CLng(262144) m_l2Power(19) = CLng(524288) m_l2Power(20) = CLng(1048576) m_l2Power(21) = CLng(2097152) m_l2Power(22) = CLng(4194304) m_l2Power(23) = CLng(8388608) m_l2Power(24) = CLng(16777216) m_l2Power(25) = CLng(33554432) m_l2Power(26) = CLng(67108864) m_l2Power(27) = CLng(134217728) m_l2Power(28) = CLng(268435456) m_l2Power(29) = CLng(536870912) m_l2Power(30) = CLng(1073741824) Dim x Dim k Dim AA Dim BB Dim CC Dim DD Dim a Dim b Dim c Dim d Const S11 = 7 Const S12 = 12 Const S13 = 17 Const S14 = 22 Const S21 = 5 Const S22 = 9 Const S23 = 14 Const S24 = 20 Const S31 = 4 Const S32 = 11 Const S33 = 16 Const S34 = 23 Const S41 = 6 Const S42 = 10 Const S43 = 15 Const S44 = 21 x = ConvertToWordArray(sMessage) a = &H67452301 b = &HEFCDAB89 c = &H98BADCFE d = &H10325476 For k = 0 To UBound(x) Step 16 AA = a BB = b CC = c DD = d md5_FF a, b, c, d, x(k + 0), S11, &HD76AA478 md5_FF d, a, b, c, x(k + 1), S12, &HE8C7B756 md5_FF c, d, a, b, x(k + 2), S13, &H242070DB md5_FF b, c, d, a, x(k + 3), S14, &HC1BDCEEE md5_FF a, b, c, d, x(k + 4), S11, &HF57C0FAF md5_FF d, a, b, c, x(k + 5), S12, &H4787C62A md5_FF c, d, a, b, x(k + 6), S13, &HA8304613 md5_FF b, c, d, a, x(k + 7), S14, &HFD469501 md5_FF a, b, c, d, x(k + 8), S11, &H698098D8 md5_FF d, a, b, c, x(k + 9), S12, &H8B44F7AF md5_FF c, d, a, b, x(k + 10), S13, &HFFFF5BB1 md5_FF b, c, d, a, x(k + 11), S14, &H895CD7BE md5_FF a, b, c, d, x(k + 12), S11, &H6B901122 md5_FF d, a, b, c, x(k + 13), S12, &HFD987193 md5_FF c, d, a, b, x(k + 14), S13, &HA679438E md5_FF b, c, d, a, x(k + 15), S14, &H49B40821 md5_GG a, b, c, d, x(k + 1), S21, &HF61E2562 md5_GG d, a, b, c, x(k + 6), S22, &HC040B340 md5_GG c, d, a, b, x(k + 11), S23, &H265E5A51 md5_GG b, c, d, a, x(k + 0), S24, &HE9B6C7AA md5_GG a, b, c, d, x(k + 5), S21, &HD62F105D md5_GG d, a, b, c, x(k + 10), S22, &H2441453 md5_GG c, d, a, b, x(k + 15), S23, &HD8A1E681 md5_GG b, c, d, a, x(k + 4), S24, &HE7D3FBC8 md5_GG a, b, c, d, x(k + 9), S21, &H21E1CDE6 md5_GG d, a, b, c, x(k + 14), S22, &HC33707D6 md5_GG c, d, a, b, x(k + 3), S23, &HF4D50D87 md5_GG b, c, d, a, x(k + 8), S24, &H455A14ED md5_GG a, b, c, d, x(k + 13), S21, &HA9E3E905 md5_GG d, a, b, c, x(k + 2), S22, &HFCEFA3F8 md5_GG c, d, a, b, x(k + 7), S23, &H676F02D9 md5_GG b, c, d, a, x(k + 12), S24, &H8D2A4C8A md5_HH a, b, c, d, x(k + 5), S31, &HFFFA3942 md5_HH d, a, b, c, x(k + 8), S32, &H8771F681 md5_HH c, d, a, b, x(k + 11), S33, &H6D9D6122 md5_HH b, c, d, a, x(k + 14), S34, &HFDE5380C md5_HH a, b, c, d, x(k + 1), S31, &HA4BEEA44 md5_HH d, a, b, c, x(k + 4), S32, &H4BDECFA9 md5_HH c, d, a, b, x(k + 7), S33, &HF6BB4B60 md5_HH b, c, d, a, x(k + 10), S34, &HBEBFBC70 md5_HH a, b, c, d, x(k + 13), S31, &H289B7EC6 md5_HH d, a, b, c, x(k + 0), S32, &HEAA127FA md5_HH c, d, a, b, x(k + 3), S33, &HD4EF3085 md5_HH b, c, d, a, x(k + 6), S34, &H4881D05 md5_HH a, b, c, d, x(k + 9), S31, &HD9D4D039 md5_HH d, a, b, c, x(k + 12), S32, &HE6DB99E5 md5_HH c, d, a, b, x(k + 15), S33, &H1FA27CF8 md5_HH b, c, d, a, x(k + 2), S34, &HC4AC5665 md5_II a, b, c, d, x(k + 0), S41, &HF4292244 md5_II d, a, b, c, x(k + 7), S42, &H432AFF97 md5_II c, d, a, b, x(k + 14), S43, &HAB9423A7 md5_II b, c, d, a, x(k + 5), S44, &HFC93A039 md5_II a, b, c, d, x(k + 12), S41, &H655B59C3 md5_II d, a, b, c, x(k + 3), S42, &H8F0CCC92 md5_II c, d, a, b, x(k + 10), S43, &HFFEFF47D md5_II b, c, d, a, x(k + 1), S44, &H85845DD1 md5_II a, b, c, d, x(k + 8), S41, &H6FA87E4F md5_II d, a, b, c, x(k + 15), S42, &HFE2CE6E0 md5_II c, d, a, b, x(k + 6), S43, &HA3014314 md5_II b, c, d, a, x(k + 13), S44, &H4E0811A1 md5_II a, b, c, d, x(k + 4), S41, &HF7537E82 md5_II d, a, b, c, x(k + 11), S42, &HBD3AF235 md5_II c, d, a, b, x(k + 2), S43, &H2AD7D2BB md5_II b, c, d, a, x(k + 9), S44, &HEB86D391 a = AddUnsigned(a, AA) b = AddUnsigned(b, BB) c = AddUnsigned(c, CC) d = AddUnsigned(d, DD) Next \'MD5 = LCase(WordToHex(a) & WordToHex(b) & WordToHex(c) & WordToHex(d)) \'32byte密码 MD5=LCase(WordToHex(b) & WordToHex(c)) \'16byte密码End Function%","null","null","");arrFiles[161]=new Array("fso/inc/chkinput.asp","NO TITLE","1 then IsValidEmail = false exit functionend iffor each name in names if Len(name) 2 and i 3 then IsValidEmail = false exit functionend ifif InStr(email, \".. \") 0 then IsValidEmail = falseend ifend functionfunction strLength(str) ON ERROR RESUME NEXT dim WINNT_CHINESE WINNT_CHINESE = (len( \"论坛 \")=2) if WINNT_CHINESE then dim l,t,c dim i l=len(str) t=l for i=1 to l c=asc(mid(str,i,1)) if c255 then t=t+1 end if next strLength=t else strLength=len(str) end if if err.number0 then err.clearend functionFunction CheckChar(testchar,testpathyes) CheckChar=true	dim char,pathyes	char=testchar	pathyes=testpathyes	if len(pathyes)=1 then char=replace(char,pathyes, \" \")	if Instr(char, \"= \")0 _	or Instr(char, \" \\ \")0 _	or Instr(char, \"/ \")0 _	or Instr(char, \"% \")0 _	or Instr(char,chr(32))0 _	or Instr(char, \"? \")0 _	or Instr(char, \"& \")0 _	or Instr(char, \"$ \")0 _	or Instr(char, \"; \")0 _	or Instr(char, \", \")0 _	or Instr(char, \" \' \")0 _	or Instr(char,chr(34))0 _	or Instr(char,chr(9))0 _	or Instr(char, \" \")0 _	or Instr(char, \"* \")0 _	or Instr(char, \" \")0 _	or Instr(char, \"0 _	or Instr(char, \"| \")0 _	or Instr(char, \": \")0 _	or Instr(char, \"# \")0 then CheckChar=falseEnd function %","null","null","");arrFiles[162]=new Array("fso/inc/Config.asp","NO TITLE","null","null","null","");arrFiles[163]=new Array("fso/inc/UpGetinc.asp","NO TITLE","null","null","null","");arrFiles[164]=new Array("fso/inc/Javacript.asp","NO TITLE","null","null","null","");arrFiles[165]=new Array("fso/inc/htmlhead.asp","NO TITLE","null","null","null","");arrFiles[166]=new Array("fso/inc/Char.asp","NO TITLE","\", \"&gt; \") fString = replace(fString, \" \") fString = Replace(fString, CHR(10), \" \") fString=ChkBadWords(fString) HTMLEncode = fStringend ifEnd Function \'----- 过滤表单字符Function HTMLcode(fString)if not isnull(fString) then fString = Replace(fString, CHR(13), \" \") fString = Replace(fString, CHR(10) & CHR(10), \" \") fString = Replace(fString, CHR(10), \" \") HTMLcode = fStringend ifEnd Function \'----- 判断发言是否来自外部Function ChkPost()	dim server_v1,server_v2	chkpost=false	server_v1=Cstr(Request.ServerVariables( \"HTTP_REFERER \"))	server_v2=Cstr(Request.ServerVariables( \"SERVER_NAME \"))	if mid(server_v1,8,len(server_v2))server_v2 then	chkpost=false	else	chkpost=true	end ifEnd Function \'------ 过滤SQL非法字符Function checkStr(str)	if isnull(str) then	checkStr = \" \"	exit Function	end if	checkStr=replace(str, \" \' \", \" \' \' \")End Function \'====================== \'--------邮件检查Function chkemail(strEmailAddr) chkemail=False Dim RE Set RE = new RegExp RE.pattern = \"^[a-zA-Z][A-Za-z0-9_.-]+@[a-zA-Z0-9_]+? \\.[a-zA-Z]{2,3}$ \" chkemail=RE.Test(strEmailAddr) Set RE=NothingEnd Function \'---------取扩展名Function ExtNameS(extss)	dim StarLocal	StarLocal=inStrRev(extss, \". \")	ExtNameS=mid(extss,StarLocal+1,len(extss)-StarLocal)End Function \'--------格式文件尺寸显示Function ByteNum(num)	if Num \" \" then	sStr=Request.Form( \"chidd \"&i)	delselInfo=CheckFolder(GetPath&sStr,1)	if delselInfo= \"True \" then	Fso.DeleteFolder Server.MapPath(GetPath&sStr),true	else	infos=infos&GetPath&sStr& \" \"	infos1=infos1&delselInfo& \" \"	end if	end if	next	else	for i=1 to maxdir	if Request.Form( \"chidd \"&i) \" \" then	sStr=Request.Form( \"chidd \"&i)	infos=infos&GetPath&sStr& \" \"	end if	next	end if	if infos \" \" then infos= \"没有权限删除所选目录: \"&infos	if infos1 \" \" then infos1= \"删除所选目录出错如下: \"&infos1	sStr=GetAction& \"| \"&GetPath	if SetPower(1,3) then	for i=1 to maxfile	if Request.Form( \"chidf \"&i) \" \" then	sStr=Request.Form( \"chidf \"&i)	delselInfo=CheckFile(GetPath&sStr,1, \"04 \")	if delselInfo= \"True \" then	Fso.DeleteFile Server.MapPath(GetPath&sStr),true	else	infos2=infos2&GetPath&sStr& \" \"	infos3=infos3&delselInfo& \" \"	end if	end if	next	else	for i=1 to maxfile	if Request.Form( \"chidf \"&i) \" \" then	sStr=Request.Form( \"chidf \"&i)	infos2=infos2&GetPath&sStr& \" \"	end if	next	end if	if infos2 \" \" then infos2= \"没有权限删除下列文件: \"&infos2	if infos3 \" \" then infos3= \"所选文件操作出错如下: \"&infos3	infos=infos+infos1+infos2+infos3	if infos \" \" then EndProc infos,1, \" \"	Session( \"Folderbuffer \")= \" \"	Session( \"Filebuffer \")= \" \"end FunctionFunction DelFileS()	dim sFile,Action	sFile=GetQueryString( \"file \", \"string \", \" \")	if sFile= \" \" then EndProc \"文件不存在 \",1, \" \"	Action=CheckFile(GetPath&sFile,1, \"04 \")	if Action \"True \" then EndProc Action,1, \" \"	Fso.DeleteFile Server.mappath(GetPath&sFile)end FunctionFunction DelFolderS()	dim sFile,Action	sFile=GetQueryString( \"file \", \"string \", \" \")	if sFile= \" \" then EndProc \"目录不存在 \",1, \" \"	Action=CheckFolder(GetPath&sFile,1)	if Action \"True \" then EndProc Action,1, \" \"	Fso.DeleteFolder Server.mappath(GetPath&sFile)End FunctionFunction RenameFile()	dim sFrom,sTo,sStr,sObj	sFrom=GetQueryString( \"from \", \"string \", \" \")	sTo=GetQueryString( \"to \", \"string \", \" \")	if sFrom= \" \" or sTo= \" \" then	exit Function	else	if sTo=sFrom then exit Function	end if	sStr=CheckFile(GetPath&sFrom,1, \"04 \")	if sStr \"True \" then EndProc sStr,1, \" \"	sStr=CheckFile(sTo,0, \"04 \")	if sStr \"True \" then EndProc sStr,1, \" \"	if Fso.FileExists(Server.MapPath(GetPath&sTo)) then EndProc \"目标文件已存在! \",1, \" \"	set sObj=Fso.GetFile(Server.MapPath(GetPath&sFrom))	sObj.Move Server.MapPath(GetPath&sTo)	set sObj=nothingEnd FunctionFunction RenameFolder()	dim sFrom,sTo,sStr,sObj	sFrom=GetQueryString( \"from \", \"string \", \" \")	sTo=GetQueryString( \"to \", \"string \", \" \")	if sFrom= \" \" or sTo= \" \" then exit Function	sStr=CheckFolder(GetPath&sFrom,1)	if sStr \"True \" then EndProc sStr,1, \" \"	sStr=CheckFolder(GetPath&sTo,0)	if sStr \"True \" then EndProc sStr,1, \" \"	if Fso.FolderExists(Server.MapPath(GetPath&sTo)) then EndProc \"目标目录已存在! \",1, \" \"	Fso.MoveFolder Server.MapPath(GetPath&sFrom),Server.MapPath(GetPath&sTo)	set sObj=nothingEnd FunctionFunction MakeFolder()	dim sTo,sStr	sTo=GetQueryString( \"to \", \"string \", \" \")	sStr=left(sStr,inStrRev(sStr, \"/ \"))	sStr=CheckFolder(GetPath,1)	if sStr \"True \" then EndProc sStr,1, \" \"	sStr=CheckFolder(GetPath&sTo,0)	if sStr \"True \" then EndProc sStr,1, \" \"	if Fso.FolderExists(Server.mappath(GetPath&sTo)) then EndProc \"目录已经存在! \",1, \" \"	Fso.CreateFolder(Server.mappath(GetPath&sTo))End FunctionFunction Makefile()	Dim sTo,sStr	Dim MyFile	sTo=GetQueryString( \"to \", \"string \", \" \")	sStr=CheckFile(sTo,0, \"04 \")	if sStr \"True \" then EndProc sStr,1, \" \"	if Fso.FileExists(Server.mappath(GetPath&sTo)) then EndProc \"文件已经存在! \",1, \" \"	Set MyFile = Fso.CreateTextFile(Server.mappath(GetPath&sTo), True)	MyFile.WriteLine( \"Create by \"&membername& \" / \"&formatDateTime(now(),1)& \" / \"&formatDateTime(now(),4))	MyFile.CloseEnd FunctionFunction Do_Copy_Cut()	dim sStr,maxdir,maxfile,i	sStr=GetAction& \"| \"&GetPath	maxdir=cint(Request.Form( \"maxdir \"))	maxfile=cint(Request.Form( \"maxfile \"))	for i=1 to maxdir	if Request.Form( \"chidd \"&i) \" \" then sStr=sStr& \"| \"&Request.Form( \"chidd \"&i)	next	Session( \"Folderbuffer \")=sStr	sStr=GetAction& \"| \"&GetPath	for i=1 to maxfile	if Request.Form( \"chidf \"&i) \" \" then sStr=sStr& \"| \"&Request.Form( \"chidf \"&i)	next	Session( \"Filebuffer \")=sStrEnd FunctionFunction DoPaste()	dim sStr,sStr1,i,pasteInfo,sArr,chk,sStr2	dim sTrErr	dim ubS	if Session( \"Folderbuffer \")= \" \" and Session( \"Filebuffer \")= \" \" then exit Function	sTrErr= \" \"	sArr=split(Session( \"Folderbuffer \"), \"| \")	ubS=ubound(sArr)	if SetPower(1,4) then	if sArr(1)=GetPath then EndProc \"不能自己覆盖自己! \",1, \" \"	for i=2 to ubS	sStr=sArr(1)&sArr(i)	sStr1=GetPath&sArr(i)	if Fso.FolderExists(Server.MapPath(sStr1)) then EndProc \"目录: \"&sStr1& \" 已经存在! \",1, \" \"	if CheckFolder(sStr,1)= \"True \" then	if sArr(0)= \"Cut \" then	Fso.MoveFolder Server.MapPath(sStr),Server.MapPath(sStr1)	else	Fso.CopyFolder Server.MapPath(sStr),Server.MapPath(sStr1)	end if	end if	next	Session( \"Folderbuffer \")= \" \"	else	if ubs1 then	sTrErr= \"没目录操作权限,目录粘贴失败： \"	for i=2 to ubS	sTrErr=sTrErr+ \" \"+GetPath&sArr(i)	next	end if	Session( \"Folderbuffer \")= \" \"	end if	sArr=split(Session( \"Filebuffer \"), \"| \")	ubS=ubound(sArr)	if SetPower(1,3) then	for i=2 to ubS	sStr2= \" \"	sStr=sArr(1)&sArr(i)	sStr1=GetPath&sArr(i)	chk=CheckFile(sStr,1, \"04 \")	if chk= \"True \" then	if sArr(0)= \"Cut \" then	if Fso.FileExists(Server.MapPath(sStr1)) then EndProc \"文件 \"&sStr1& \" 已经存在! \",1, \" \"	Fso.MoveFile Server.MapPath(sStr),Server.MapPath(sStr1)	else	Fso.CopyFile Server.MapPath(sStr),Server.MapPath(sStr1),true	end if	else	sStr2=sStr2&sStr1& \" \"	end if	next	Session( \"Filebuffer \")= \" \"	else	if ubs1 then	sTrErr=sTrErr+ \"没文件操作权限,文件粘贴失败： \"	for i=2 to ubS	sTrErr=sTrErr+ \" \"+GetPath&sArr(i)	next	end if	Session( \"Filebuffer \")= \" \"	end if	if sStr2 \" \" then	call EndProc(sTrErr+ \"粘贴失败的脚本文件： \"&sStr2,1, \" \")	else	if sTrErr \" \" then call EndProc(sTrErr,1, \" \")	end ifEnd Function%","null","null","");arrFiles[167]=new Array("fso/help/login.htm","NO TITLE","\\ \\ \\登陆界面： 登陆管理需要单独的管理帐号，可与前台用户名不同！       ","null","null","");arrFiles[168]=new Array("fso/help/database.htm","NO TITLE","\\ \\ \\数据库浏览以及查询：主要有两个功能，直接浏览数据库和输入执行SQL执行查询语句	支持SQL2000和ACCESS，均使用OLEDB提供者       ","null","null","");arrFiles[169]=new Array("fso/help/filebrower.htm","NO TITLE","\\ \\ \\文件管理器： 所有目录建立删除浏览遍历，文件拷贝粘贴剪切等       ","null","null","");arrFiles[170]=new Array("fso/help/fileedit.htm","NO TITLE","\\ \\ \\文件浏览及文本编辑器： 可预览运行ASP代码和HTML代码，ASP存到服务器端调用执行！所以要避免死循环的代码出现，使得进程瘫痪！       ","null","null","");arrFiles[171]=new Array("fso/help/upload.htm","NO TITLE","\\ \\ \\多文件浏览及上传部分： 按选择的站点目录来上传，比较方便！       ","null","null","");arrFiles[172]=new Array("fso/help/reg.htm","NO TITLE","\\ \\ \\用户注册部分： 注册后必须经过管理员设置才可能使用全部功能，初始注册只能使用上传功能 注册功能缺省关闭，需要在管理设置里开启       ","null","null","");arrFiles[173]=new Array("fso/help/mana.htm","NO TITLE","\\ \\ \\帐号管理部分： 设置用户级别和所有的权限项目，超级管理员不用设置拥有全部权限,一般用户只能使用文件上传功能       ","null","null","");arrFiles[174]=new Array("fso/help/listfolder.htm","NO TITLE","\\ \\ \\目录遍历： 此功能子目录较多时建议少用，很消耗资源       ","null","null","");arrFiles[175]=new Array("fso/help/asprun.htm","NO TITLE","\\ \\ \\帐号管理部分： 设置用户级别和所有的权限项目，超级管理员不用设置拥有全部权限,一般用户只能使用文件上传功能       ","null","null","");arrFiles[176]=new Array("fso/help/upload1.htm","NO TITLE","\\ \\ \\文件上传部分：不需FSO支持浏览，使用ADO.stream上传，普通用户注册可用       ","null","null","");arrFiles[177]=new Array("fso/help/upflie.htm","NO TITLE","\\ \\ \\处理上传表单结果： 建议一次上传10M一下，无组件上传很消耗服务器资源       ","null","null","");arrFiles[178]=new Array("images/kuang/cp.html","产品框       ","null","null","null","");arrFiles[179]=new Array("js/1.txt","1.txt"," <script  language= \"JavaScript \"src= \"http://www.hygmgs.com/haimeng/js/tou.js \"></script><script  language= \"JavaScript \"src= \"http://www.hygmgs.com/haimeng/js/foot.js \"></script>","null","null","");arrFiles[180]=new Array("link/add.asp","NO TITLE","申请加入连接 填 写 网 站 信 息 网站名称 : * 网站地址 : * 图标地址 : * 网站说明 : *","null","null","");arrFiles[181]=new Array("link/add1.asp","NO TITLE","null","null","null","");arrFiles[182]=new Array("link/conn.asp","NO TITLE","null","null","null","");arrFiles[183]=new Array("link/del.asp","NO TITLE","null","null","null","");arrFiles[184]=new Array("link/error.asp","NO TITLE","发生错误！ 点这里返回       ","null","null","");arrFiles[185]=new Array("link/flase.asp","NO TITLE","非常不好意思，以下网站不符合本站的连接要求 。呵，偶期待泥做的更好^_^ 0 then response.write \"数据库操作失败： \" & err.descriptionerr.clearelseif not (rs.eof and rs.bof) then totalrec = RS.RecordCount if rs.recordcount mod msg_per_page = 0 then n = rs.recordcount \\msg_per_page else n = rs.recordcount \\msg_per_page+1 end if currentpage = request( \"page \") If currentpage \" \" thencurrentpage = cint(currentpage)if currentpage 0 then err.clearcurrentpage = 1end ifelsecurrentpage = 1End if if currentpage*msg_per_page totalrec and not((currentpage-1)*msg_per_page 0if therow mod 5 = 0 thenresponse.write( \" \")end if% \" border=0 width=88 height=31 . 0 then for i=1 to 5-(therow mod 5) response.write( \" \") next end if% ?page= \"[] ?page= \"[] 当前页: 个网站/页 总网站数: 推荐站点 待验证站点       ","null","null","");arrFiles[186]=new Array("link/ing.asp","NO TITLE","待验证网站连接 ↓ 0 then response.write \"数据库操作失败： \" & err.descriptionerr.clearelseif not (rs.eof and rs.bof) then totalrec = RS.RecordCount if rs.recordcount mod msg_per_page = 0 then n = rs.recordcount \\msg_per_page else n = rs.recordcount \\msg_per_page+1 end if currentpage = request( \"page \") If currentpage \" \" thencurrentpage = cint(currentpage)if currentpage 0 then err.clearcurrentpage = 1end ifelsecurrentpage = 1End if if currentpage*msg_per_page totalrec and not((currentpage-1)*msg_per_page 0if therow mod 5 = 0 thenresponse.write( \" \")end if% \" border=0 width=88 height=31 . 0 then for i=1 to 5-(therow mod 5) response.write( \" \") next end if% ?page= \"[] ?page= \"[] 当前页: 个网站/页 总网站数: 推荐站点 验证不合格站点       ","null","null","");arrFiles[187]=new Array("link/no.asp","NO TITLE","null","null","null","");arrFiles[188]=new Array("link/ok.asp","NO TITLE","null","null","null","");arrFiles[189]=new Array("link/out.asp","NO TITLE","null","null","null","");arrFiles[190]=new Array("link/foot.asp","NO TITLE","&#21033;&#22269;&#32541;&#32427;&#26426;&#38646;&#20214;&#21046;&#36896;&#21378;","null","null","");arrFiles[191]=new Array("link/admin_login.asp","NO TITLE","管理员登录口 管理员 I D 管理员密码       ","null","null","");arrFiles[192]=new Array("link/login.asp","NO TITLE","null","null","null","");arrFiles[193]=new Array("link/admin.asp","NO TITLE","\"ad \" then resopnse.redirect(adminlogin.asp) end if% 管理员窗口 ↓→ 退出管理模式 0 then response.write \"数据库操作失败： \" & err.descriptionerr.clearelseif not (rs.eof and rs.bof) then totalrec = RS.RecordCount if rs.recordcount mod msg_per_page = 0 then n = rs.recordcount \\msg_per_page else n = rs.recordcount \\msg_per_page+1 end if currentpage = request( \"page \") If currentpage \" \" thencurrentpage = cint(currentpage)if currentpage 0 then err.clearcurrentpage = 1end ifelsecurrentpage = 1End if if currentpage*msg_per_page totalrec and not((currentpage-1)*msg_per_page 0if therow mod 5 = 0 thenresponse.write( \" \")end ifif rs( \"yanzheng \")= \"ok \" then isorno= \"已通过验证 \"if rs( \"yanzheng \")= \"flase \" then isorno= \"未通过验证 \"if rs( \"yanzheng \")= \"ing \" then isorno= \"正等待验证 \"% \" target=_blank \" border=0 alt= \" \" width=88 height=31 . 通过 | 取消 | 删除 0 then for i=1 to 5-(therow mod 5) response.write( \" \") next end if% ?page= \"[] ?page= \"[] 当前页: 个网站/页 总网站数: 推荐站点 验证不合格站点       ","null","null","");arrFiles[194]=new Array("link/index.asp","NO TITLE","0 then response.write \"数据库操作失败： \" & err.descriptionerr.clearelseif not (rs.eof and rs.bof) then totalrec = RS.RecordCount if rs.recordcount mod msg_per_page = 0 then n = rs.recordcount \\msg_per_page else n = rs.recordcount \\msg_per_page+1 end if currentpage = request( \"page \") If currentpage \" \" thencurrentpage = cint(currentpage)if currentpage 0 then err.clearcurrentpage = 1end ifelsecurrentpage = 1End if if currentpage*msg_per_page totalrec and not((currentpage-1)*msg_per_page 0if therow mod 5 = 0 thenresponse.write( \" \")end if% \" target=_blank \" border=0 alt= \" \" width=88 height=31 0 then for i=1 to 5-(therow mod 5) response.write( \" \") next end if% ?page= \"[ ] ?page= \"[ ] 当前页: 个网站/页 总网站数: 管理登入 待验证站点验证不合格站点       ","null","null","");arrFiles[195]=new Array("link/head.asp","利国缝纫机零件制造厂-- 友情推荐       ","连接要求 贵站必须内容健康，不含恶意代码； 网站采取对等交换链接。 有意者请点击这里自动加入本站连接，管理员将在三日内对申请交换的站点进行验证，如果符合要求，连接即开始生效。 本站logo: 本站连接代码： 返回自助链接首页 | 现在加入       ","null","null","");arrFiles[196]=new Array("post/py.asp","NO TITLE","=45217 and tmp=45253 and tmp=47761 and tmp=46318 and tmp=46826 and tmp=47010 and tmp=47297 and tmp=47614 and tmp=48119 and tmp=49062 and tmp=49324 and tmp=49896 and tmp=50371 and tmp=50614 and tmp=50622 and tmp=50906 and tmp=51387 and tmp=51446 and tmp=52218 and tmp=52698 and tmp=52980 and tmp=53689 and tmp=54481 and tmp","null","null","");arrFiles[197]=new Array("post/SEARCH.asp","全国邮政编码、电话区号查询       ","全国邮政编码、电话区号查询 关键字： \" size= \"20 \" 输入一个省名、地区名、邮编、区号或其拼音首字母或其中一部分 北京 上海 天津 重庆 河北 山西 河南 辽宁 吉林 黑龙江 内蒙古 江苏 山东 安徽 浙江 福建 湖北 湖南 广东 广西 江西 四川 海南 贵州 云南 西藏 陕西 甘肃 青海 宁夏 新疆 台湾 亚洲 欧洲 美洲 大洋洲 非洲 　 　 　 省洲名称 地区名称 邮政编码 电话区号 \" \" thenconnstr= \"DBQ= \"+server.mappath( \"ybqh.mdb \")+ \";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)}; \"set conn=server.createobject( \"ADODB.CONNECTION \")conn.open connstrset rst=server.createobject( \"adodb.recordset \")rst.open \"select * from ybqh \",conn,1,1do while (not rst.eof)tmpstr=rst( \"sm \")&getpy(rst( \"sm \"))&rst( \"dq \")&getpy(rst( \"dq \"))&rst( \"yb \")& \" \"&rst( \"qh \")if instr(1,tmpstr,key,1)0 then %","null","null","");arrFiles[198]=new Array("post/INDEX.asp","全国邮政编码、电话区号查询       ","全国邮政编码、电话区号查询 　　输入一个省名、地区名、邮编、区号或其拼音首字母或其中一部分 关键字： \" size= \"20 \" 输入一个省名、地区名、邮编、区号或其拼音首字母或其中一部分 北京 上海 天津 重庆 河北 山西 河南 辽宁 吉林 黑龙江 内蒙古 江苏 山东 安徽 浙江 福建 湖北 湖南 广东 广西 江西 四川 海南 贵州 云南 西藏 陕西 甘肃 青海 宁夏 新疆 台湾 亚洲 欧洲 美洲 大洋洲 非洲 　 　 　 省洲名称 地区名称 邮政编码 电话区号 \" \" thenconnstr= \"DBQ= \"+server.mappath( \"ybqh.mdb \")+ \";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)}; \" set conn=server.createobject( \"ADODB.CONNECTION \")conn.open connstrset rst=server.createobject( \"adodb.recordset \")rst.open \"select * from ybqh where sm= \' \"&sm& \" \' \",conn,1,1do while (not rst.eof) %","null","null","");arrFiles[199]=new Array("thisCode/Code.asp","NO TITLE","Session( \"GetCode \") then \'	e= \"请输入正确的验证码！ \" \'end if	dim zimg(4),NStr	NStr=cstr(zNum)	For i=0 to 3	zimg(i)=cint(mid(NStr,i+1,1))	Next	dim Pos	set Ados=Server.CreateObject( \"Adodb.Stream \")	Ados.Mode=3	Ados.Type=1	Ados.Open	set Ados1=Server.CreateObject( \"Adodb.Stream \")	Ados1.Mode=3	Ados1.Type=1	Ados1.Open	Ados.LoadFromFile(Server.mappath( \"body.Fix \"))	Ados1.write Ados.read(1280)	for i=0 to 3	Ados.Position=(9-zimg(i))*320	Ados1.Position=i*320	Ados1.write ados.read(320)	next	Ados.LoadFromFile(Server.mappath( \"head.fix \"))	Pos=lenb(Ados.read())	Ados.Position=Pos	for i=0 to 9 step 1	for j=0 to 3	Ados1.Position=i*32+j*320	Ados.Position=Pos+30*j+i*120	Ados.write ados1.read(30)	next	next	Response.ContentType = \"image/BMP \"	Ados.Position=0	Response.BinaryWrite Ados.read()	Ados.Close:set Ados=nothing	Ados1.Close:set Ados1=nothingEnd Function \' Asp code Created by BlueIdea.COM Web Team V37 2003-7-25%","null","null","");arrFiles[200]=new Array("vote/add.htm","新闻系统-在线编辑器       ","新闻列表 | 增加新闻增加新闻	新闻标题：	标题图片：	无 当编辑区有插入图片时，将自动填充此下拉框	新闻内容：       ","null","null","");arrFiles[201]=new Array("vote/admin_password.asp","无标题文档       ","修 改 用 户 信 息 用 户 名： 新 密 码： 确认密码：       ","null","null","");arrFiles[202]=new Array("vote/admin_vote_code.asp","NO TITLE","代 码 说 明 选 择 代 码 最新一个投票调查，调用代码，拷贝到： &gt;&gt; 效果预览 多个投票调查，调用代码，这里表示调用最新的3个项目： &gt;&gt; 效果预览       ","null","null","");arrFiles[203]=new Array("vote/admin_vote_list.asp","NO TITLE","ID 投 票 说 明 多选 活动状态 操 作 当前没有投票项目! [马上增加] \" ELSE While NOT rs.eof	% 多选单选 &tf= \"为活动 | \"编辑 | \"删除 | \', \' \', \'width=420,height=350,scrollbars=yes \') \"投票结果 项目描述 栏不能为空 \" IF txt2= \" \" THEN errMessage=errMessage& \"投票项目 栏不能为空 \" vote=Split(txt2,VBCrlf) IF Ubound(vote)9 THEN errMessage=errMessage& \"请检查：投票项目至少 2 项，最多 10 项 \" mul=request.Form( \"rad \") IF errMessage \" \" THEN Response.write \"：：发现错误：： \"&errMessage& \"点击返回 \" ELSE Set conn=Server.CreateObject( \"ADODB.Connection \") conn.open ConnStr conn.execute \"Insert Into Vote_List (Project,MultiSelect,Vote_Limit) Values ( \' \"&txt1& \" \', \' \"&mul& \" \', \' \"&request( \"times \")& \" \') \" Set rs=conn.execute( \"Select ID From Vote_List Order By ID DESC \") ID=rs(0) rs.close Set rs=nothing FOR i=0 TO Ubound(vote) IF vote(i) \" \" THEN conn.execute \"Insert Into Vote_Answer (ListID,VoteContent) Values ( \"&ID& \", \' \"&vote(i)& \" \') \" NEXT conn.close Set conn=nothing Response.write \"：：操作完成：：投票项目添加成功，点击继续添加 \" END IF ELSE% 添加新投票项目 项目描述： 投票项目： （以回车换行来分隔投票项目，最多10项） 允许多选： 多选 单选 投票限制： 不限制 每位访问者一天只能投一次 项目描述 栏不能为空 \" IF txt2= \" \" THEN errMessage=errMessage& \"投票项目 栏不能为空 \" vote=Split(txt2,VBCrlf) VoteResult=Split(VoteResult2,VBCrlf) IF Ubound(vote)9 THEN errMessage=errMessage& \"请检查：投票项目至少 2 项，最多 10 项 \" IF errMessage \" \" THEN Response.write \"：：发现错误：： \"&errMessage& \"点击返回 \" ELSE Set conn=Server.CreateObject( \"ADODB.Connection \") conn.open ConnStr conn.execute \"Update Vote_List set Project= \' \"&txt1& \" \',MultiSelect= \' \"&Request.Form( \"rad \")& \" \',Vote_Limit= \' \"&request( \"times \")& \" \' where id= \"&request( \"ID \") conn.execute \"delete from Vote_Answer where ListID= \"&ID FOR i=0 TO Ubound(vote) IF vote(i) \" \" THEN conn.execute \"Insert Into Vote_Answer(ListID,VoteContent,VoteResult) Values( \"&ID& \", \' \"&vote(i)& \" \', \' \"&VoteResult(i)& \" \') \" NEXT conn.close Set conn=nothing Response.write \"：：操作完成：：投票项目修改成功，点击继续添加 \" END IF ELSE	if ID= \" \" then	response.write \"参数错误！ \"	response.end	end if	sql= \"select a.Project,a.MultiSelect,a.Vote_Limit,b.ListID,b.VoteContent,b.VoteResult from Vote_list a,Vote_Answer b where a.id=b.ListID and a.id= \"&ID	Set rs=conn.execute(sql)	sql2= \"select VoteContent,VoteResult from Vote_Answer where listid= \"&ID	set rs2=Server.CreateObject( \"ADODB.recordset \")	rs2.open sql2,conn,1,1	do while not rs2.eof	VoteContent=rs2(0)&chr(13)&VoteContent	VoteResult=rs2(1)&chr(13)&VoteResult	rs2.movenext	loop	rs2.close	set rs2=nothing% 编辑现有投票项目 项目描述： 投票项目： （以回车换行来分隔投票项目，最多10项） 允许多选： 多选 单选 投票限制： 不限制 每位访问者一天只能投一次 \"","null","null","");arrFiles[204]=new Array("vote/admin_vote_view.asp","NO TITLE","\" Set conn=Server.CreateObject( \"ADODB.Connection \") conn.open ConnStr Set rs=conn.execute( \"Select Project From Vote_List Where ID= \"&ID) IF rs.eof THEN Response.write \" \" title=rs(0) rs.close rs.open \"Select VoteContent,VoteResult From Vote_Answer Where ListID= \"&ID,conn,1,1 vote=rs.GetRows rs.close Set rs=nothing conn.close Set conn=nothing total=0 FOR i=0 TO Ubound(vote,2) total=total+vote(1,i) NEXT%投票结果显示 调查项目说明： 投票项 百 分 比 得票 % \" height= \"10 \" % 【关闭】       ","null","null","");arrFiles[205]=new Array("vote/char.asp","NO TITLE","\", \"&gt; \") fString = replace(fString, \" \") fString = Replace(fString, CHR(10), \" \") fString=ChkBadWords(fString) HTMLEncode = fStringend ifend functionfunction HTMLEncode2(fString)	fString = Replace(fString, CHR(13), \" \")	fString = Replace(fString, CHR(10) & CHR(10), \" \")	fString = Replace(fString, CHR(10), \" \")	HTMLEncode2 = fStringend functionfunction UBBCode(strContent) if strAllowHTML 1 then strContent = HTMLEncode(strContent) end if dim re Set re=new RegExp re.IgnoreCase =true re.Global=True re.Pattern= \"( \\[IMG \\])(.[^ \\]]*)( \\[ \\/IMG \\]) \" strContent=re.Replace(strContent, \" \") re.Pattern= \" \\[MP=*([0-9]*),*([0-9]*) \\](.[^ \\]]*) \\[ \\/MP] \" strContent=re.Replace(strContent, \" \") re.Pattern= \" \\[RM=*([0-9]*),*([0-9]*) \\](.[^ \\]]*) \\[ \\/RM] \" strContent=re.Replace(strContent, \" \")	re.Pattern= \"( \\[FLASH \\])(.[^ \\]]*)( \\[ \\/FLASH \\]) \" strContent= re.Replace(strContent, \"$2 \") re.Pattern= \"( \\[URL \\])(http: \\/ \\/.[^ \\]]*)( \\[ \\/URL \\]) \" strContent= re.Replace(strContent, \"$2 \") re.Pattern= \"( \\[URL \\])(.[^ \\]]*)( \\[ \\/URL \\]) \" strContent= re.Replace(strContent, \"$2 \") re.Pattern= \"( \\[URL=(http: \\/ \\/.[^ \\]]*) \\])(.[^ \\]]*)( \\[ \\/URL \\]) \" strContent= re.Replace(strContent, \"$3 \") re.Pattern= \"( \\[URL=(.[^ \\]]*) \\])(.[^ \\]]*)( \\[ \\/URL \\]) \" strContent= re.Replace(strContent, \"$3 \") re.Pattern= \"( \\[EMAIL \\])(.[^ \\]]*)( \\[ \\/EMAIL \\]) \" strContent= re.Replace(strContent, \"$2 \") re.Pattern= \"( \\[EMAIL=(.[^ \\]]*) \\])(.[^ \\]]*)( \\[ \\/EMAIL \\]) \" strContent= re.Replace(strContent, \"$3 \")	re.Pattern = \"^(http://[A-Za-z0-9 \\./= \\?% \\-&_~`@ \']+) \"	strContent = re.Replace(strContent, \"$1 \")	re.Pattern = \"(http://[A-Za-z0-9 \\./= \\?% \\-&_~`@ \']+)$ \"	strContent = re.Replace(strContent, \"$1 \")	re.Pattern = \"[^= \" \"](http://[A-Za-z0-9 \\. \\/= \\?% \\-&_~`@ \']+) \"	strContent = re.Replace(strContent, \"$1 \") re.Pattern= \"( \\[fly \\])(.*)( \\[ \\/fly \\]) \" strContent=re.Replace(strContent, \"$2 \") re.Pattern= \"( \\[move \\])(.*)( \\[ \\/move \\]) \" strContent=re.Replace(strContent, \"$2 \") re.Pattern= \" \\[GLOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*) \\](.[^ \\]]*) \\[ \\/GLOW] \" strContent=re.Replace(strContent, \"$4 \") re.Pattern= \"( \\[face=(.[^ \\]]*) \\])(.*)( \\[ \\/face \\]) \" strContent=re.Replace(strContent, \"$3 \") re.Pattern= \"( \\[i \\])(.[^ \\]]*)( \\[ \\/i \\]) \" strContent=re.Replace(strContent, \"$2 \") re.Pattern= \"( \\[u \\])(.[^ \\]]*)( \\[ \\/u \\]) \" strContent=re.Replace(strContent, \"$2 \") re.Pattern= \"( \\[b \\])(.[^ \\]]*)( \\[ \\/b \\]) \" strContent=re.Replace(strContent, \"$2 \") re.Pattern= \" \\[align=(.[^ \\]]*) \\](.*) \\[ \\/align \\] \" strContent=re.Replace(strContent, \"$2 \") re.Pattern= \" \\[color=(.[^ \\]]*) \\](.[^ \\[]*) \\[ \\/color \\] \" strContent=re.Replace(strContent, \"$2 \") re.Pattern= \"( \\[center \\])(.[^ \\[]*)( \\[ \\/center \\]) \"	strContent=re.Replace(strContent, \"$2 \")	re.Pattern= \" \\[QT=*([0-9]*),*([0-9]*) \\](.[^ \\[]*) \\[ \\/QT] \"	strContent=re.Replace(strContent, \" \")	re.Pattern= \" \\[MP=*([0-9]*),*([0-9]*) \\](.[^ \\[]*) \\[ \\/MP] \"	strContent=re.Replace(strContent, \" \")	re.Pattern= \" \\[RM=*([0-9]*),*([0-9]*) \\](.[^ \\[]*) \\[ \\/RM] \"	strContent=re.Replace(strContent, \" \") re.Pattern= \"( \\[size=1 \\])(.[^ \\[]*)( \\[ \\/size \\]) \" strContent=re.Replace(strContent, \"$2 \") re.Pattern= \"( \\[size=2 \\])(.[^ \\[]*)( \\[ \\/size \\]) \" strContent=re.Replace(strContent, \"$2 \") re.Pattern= \"( \\[size=3 \\])(.[^ \\[]*)( \\[ \\/size \\]) \" strContent=re.Replace(strContent, \"$2 \") re.Pattern= \"( \\[size=4 \\])(.[^ \\[]*)( \\[ \\/size \\]) \" strContent=re.Replace(strContent, \"$2 \") strContent=ChkBadWords(strContent) set re=Nothing UBBCode=strContentend functionSub CheckAccessRight() If session( \"admin \") = \" \" then Response.Write \" \" Response.end End ifEnd Subfunction Strcheck(str)	if isnull(str) then	Strcheck = \" \"	exit function	end if	Strcheck=replace(str, \" \' \", \" \' \' \")	Strcheck=Trim(Strcheck)	Strcheck = \" \' \" & Strcheck & \" \' \"end functionfunction checkStr(str)	if isnull(str) then	checkStr = \" \"	exit function	end if	checkStr=replace(str, \" \' \", \" \' \' \")	checkStr=Trim(checkStr)end functionsub Jmail(topic,content,Smail)	Dim JMail,SendMail	Set JMail=Server.CreateObject( \"JMail.SMTPMail \")	JMail.Logging=True	JMail.Charset= \"gb2312 \"	JMail.ContentType = \"text/html \"	JMail.ServerAddress=SMTP	JMail.Sender=Email	JMail.Subject=topic	JMail.Body=content	JMail.AddRecipient Smail	JMail.Priority=3	JMail.Execute	Set JMail=nothing	if err then	MailStr=err.description	err.clear	else	MailStr= \"OK \"	end if	end sub	sub Cdonts(topic,content,Smail)	dim objCDOMail,SendMail	Set objCDOMail = Server.CreateObject( \"CDONTS.NewMail \")	objCDOMail.From =Email	objCDOMail.To =Smail	objCDOMail.Subject =topic	objCDOMail.BodyFormat = 0	objCDOMail.MailFormat = 0	objCDOMail.Body =content	objCDOMail.Send	Set objCDOMail = Nothing	if err then	MailStr=err.description	err.clear	else	MailStr= \"OK \"	end if	end sub	sub aspemail(topic,content,Smail)	dim mailer,recipient,sender,subject,message	dim mailserver,result,SendMail	Set mailer=Server.CreateObject( \"ASPMAIL.ASPMailCtrl.1 \")	recipient=Smail	sender=Email	subject=topic	message=mailbody	mailserver=SMTP	result=mailer.SendMail(mailserver, recipient, sender, subject, message)	if err then	MailStr=err.description	err.clear	else	MailStr= \"OK \"	end if	end sub	Function ListAClass(id)	AC = \"Select Class from AClass where classid = \" & id	Set Acr = conn.execute(AC)	if not Acr.eof then ListAClass = Acr(0)	Acr.close : set Acr = nothingEnd FunctionFunction ListANClass(id)	NC = \"Select NClass from ANclass where Nclassid = \" & id	Set Ncr = conn.execute(NC)	if not Ncr.eof then ListANClass = Ncr(0)	Ncr.close : set Ncr = nothingEnd FunctionFunction GetString (gstring,length) If GString = \" \" Then GetString = GString + \".... \" Exit Function Else If Len(GString)Length Then GetString = Left(GString,Length) + \".... \" else GetString = Left(GString,Length) End If End IfEnd Function%","null","null","");arrFiles[206]=new Array("vote/ban_quan.htm","管理首页       ","[安全事项] 1、欢迎您使用新闻管理系统。 2、为避免密码泄漏，请勿在网吧、公司外等公共场所使用本系统。 3、登陆后，如果暂时离开电脑，请务必点击 [退出] 系统，以免无关人员操作，造成数据泄漏或损失。 程序版本：利国网站综合管理理系统 V2.0 版权所有：利国缝纫机零件厂 程序设计：李鑫伟、李大伟QQ:42934327 开发日期：2005年1月17日       ","null","null","");arrFiles[207]=new Array("vote/const.asp","NO TITLE","null","null","null","");arrFiles[208]=new Array("vote/function.asp","NO TITLE","\"	Response.write \" \"	Response.write \" \"	Response.write \" \"	Response.write \" 系统提示信息 \"	Response.write \" \"	Response.write \" \"	Response.write \" \"	Response.write \" \"	Response.write \" \"	Response.write \" \"	Response.write \" \"	Response.write \" \"	Response.write \" \"	Response.write \" \"	Response.write \" 提示内容 \"	Response.write \" \"	Response.write \" \"	Response.write \" \"& errmsg & \" \"	Response.write \" \"	Response.write \" \"	if var = 1 then	Response.write \" \"	elseif var = 2 then	Response.write \" \"	elseif var = 3 then	Response.write \" \"	end if	Response.write \" \"	Response.write \" \"	Response.write \" \"	Response.write \" \"	Response.write \" \"	Response.write \" \"	Response.write \" \"	Response.write \" \"	Response.write \" \"	Response.write \" \"	Response.write \" \"End Sub%","null","null","");arrFiles[209]=new Array("vote/conn.asp","NO TITLE","null","null","null","");arrFiles[210]=new Array("vote/power_by.asp","NO TITLE","[安全事项] 1、欢迎您使用网通新闻管理系统。 2、为避免密码泄漏，请勿在网吧、公司外等公共场所使用本系统。 3、登陆后，如果暂时离开电脑，请务必点击 [退出] 系统，以免无关人员操作，造成数据泄漏或损失。 程序版本：网站新闻管理系统 V2.0 版权所有：www.qhd.com.cn 程序设计：李大伟QQ:42934327 开发日期：2004年11月17日       ","null","null","");arrFiles[211]=new Array("vote/query.asp","NO TITLE","　　　　　　　文章搜索： 文章标题 文章内容	作者	搜索全部 \" 搜索全部       ","null","null","");arrFiles[212]=new Array("vote/subconn.asp","NO TITLE","null","null","null","");arrFiles[213]=new Array("vote/test.asp","无标题文档       ","null","null","null","");arrFiles[214]=new Array("vote/test.htm","eWebEditor - eWebSoft在线编辑器 - 使用例子       ","编辑内容：	本样式为自带默认样式，最佳调用宽度550px，高度350px！下面为一些高级调用功能的例子，你可以用脚本方便的编辑进行一些操作。看到这些内容，且没有错误提示，说明安装已经正确完成！你可以先到后台管理中，进行必要的设置，然后再调用！提示：别忘了改用户和密码、数据库文件名。 \"	取到内容：	点击“取值”按钮，看一下效果！	Hello My World! \') \"","null","null","");arrFiles[215]=new Array("vote/upfile.asp","文件上传       ","\"/ \" then formPath=formPath& \"/ \" for each formName in upload.file \' \'列出所有上传了的文件 set file=upload.file(formName) \' \'生成一个文件对象 fileExt=lcase(right(file.filename,3)) arrUpFileType=split(UpFileType, \"| \") for i=0 to ubound(arrUpFileType)	if fileEXT=trim(arrUpFileType(i)) then	EnableUpload=true	exit for	end if next randomize ranNum=int(90000*rnd)+10000 filename=formPath&year(now)&month(now)&day(now)&ranNum& \". \"&fileExt if file.FileSize0 then \' \'如果 FileSize 0 说明有文件数据 file.SaveAs Server.mappath(FileName) \' \'保存文件 end ifnextset upload=nothing \' \'删除此对象Response.Write( \" \") set file=nothing%","null","null","");arrFiles[216]=new Array("vote/upload.htm","文件上传       ","null","null","null","");arrFiles[217]=new Array("vote/说明.txt","说明.txt","文件夹UploadFile存放上传的文件const.asp与upfile.asp与upload.inc为上传类editor.htm和upload.htm为上传页面需修改：upfile.asp文件，最后加上<script>parent.UploadSaved( \' \" & FileName &  \" \');var obj=parent.dialogArguments.dialogArguments;if (!obj) obj=parent.dialogArguments;try{obj.addUploadFile( \' \" & file.filename &  \" \',  \' \" & filename &  \" \',  \' \" & formPath &  \" \');} catch(e){};history.back();</script>，作用：1、关闭上传窗口2、在文本框中显示照片3、返回照片的名称及路径       ","null","null","");arrFiles[218]=new Array("vote/editor.htm","在线编辑器       ","段落样式普通标题一标题二标题三标题四标题五标题六段落定义术语定义目录列表菜单列表已编排格式字体宋体黑体楷体仿宋隶书幼圆ArialArial BlackArial NarrowBrush Script MTCentury GothicComic Sans MSCourierCourier NewMS Sans SerifScriptSystemTimes New RomanVerdanaWide LatinWingdings字号一号二号三号四号五号六号七号10%25%50%75%100%150%200%500%	...远程文件收集中...请等待...","null","null","");arrFiles[219]=new Array("vote/list.asp","<%=title%>|<%=NetUrl%>","\" topmargin= \"0 \" 设为首页 加入收藏 联系我们 首　页 企业文化 产品中心 资讯中心 企业荣誉 企业论坛 \" \" colspan= \"2 \" \" \" then	key=rs( \"Nkey \")	else	key= \"None News \"	end if % 双击滚屏关闭窗口 \" colspan= \"2 \" | \" colspan= \"2 \" \" \" then response.Write( \" \")% 原作者： 不详 来 源： 不详 共有位读者阅读过此文 \" width= \"50% \"□- 本周热门文章 \" width= \"50% \"□- 相关文章 \" . \" title= \" \" target=_top 18 then% ... [] \" \' &copy;昌黎利国缝纫机零件厂版权所有!　 站长信箱：Email:cllgfl@eyou.com","null","null","");arrFiles[220]=new Array("vote/ru_query.asp","搜索结果|<%=NetUrl%>","\"+ \"请输入查询条件。 \"	founderr=true	else	keyword=replace(replace(replace(replace(keyword, \" \' \", \"‘ \"), \" \", \"&gt; \"), \" \", \" \")	if request( \"action \")= \"title \" then	findword= \"title like \'% \"&keyword& \"% \' \"	elseif request( \"action \")= \"content \" then	findword= \"content like \'% \"&keyword& \"% \' \"	elseif request( \"action \")= \"writer \" then	findword= \"writer like \'% \"&keyword& \"% \' \"	end if	end if	if not isempty(request( \"page \")) then	currentPage=cint(request( \"page \"))	else	currentPage=1	end if	set rs=server.createobject( \"adodb.recordset \")	dim classid,Nclassid	dim classname,Nclassname	if request( \"classid \")= \" \" then	classid= \" \"	classname= \"所有文章 \" \'	classid= \"classid=1 and \" \'	sql= \"select class from Aclass where classid=1 \" \'	rs.open sql,conn,1,1 \'	classname=rs( \"class \") \'	rs.close	else	classid= \"classid= \"&cstr(request( \"classid \"))& \" and \"	sql= \"select class from Aclass where classid= \"&cstr(request( \"classid \"))	rs.open sql,conn,1,1	classname=rs( \"class \")	rs.close	end if	if request( \"Nclassid \")= \" \" then	Nclassid= \" \"	Nclassname= \"所有文章 \"	else	Nclassid= \" Nclassid= \"&cstr(request( \"Nclassid \"))& \" and \"	sql= \"select Nclass from ANclass where Nclassid= \"&cstr(request( \"Nclassid \"))	rs.open sql,conn,1,1	Nclassname=rs( \"Nclass \")	rs.close	end if% \" \" \" || \"&keyword& \" \"	response.write \"在 \"&classname& \"的 \"&Nclassname& \"中 \"% 没有或没有找到任何文章 \"	else	MaxPerPage=PageCount	totalPut=rs.recordcount	if currentpagetotalput then	if (totalPut mod MaxPerPage)=0 then	currentpage= totalPut \\ MaxPerPage	else	currentpage= totalPut \\ MaxPerPage + 1	end if	end if	if currentPage=1 then	showContent	showpage totalput,MaxPerPage, \"ru_query.asp \"	else	if (currentPage-1)*MaxPerPage \" style= \"border-left-style: solid; border-left-color: ;border-right-style: solid; border-right-color: ;border-width:1px;border-top-style: solid; border-top-color: ;border-width:1px;border-bottom-style: solid; border-bottom-color: ; \" . \" target= \"_blank \" onmouseover= \"showPopupText \" title= \" \" style=line-height:150% \"&keyword& \" \")% 作者： \" \" then	response.write rs( \"writer \")else	response.write \"不详 \"end if% 来源： \" \" then	response.write rs( \"writefrom \") else	response.write \"不详 \" end if response.write \" \"else% . \') \" onmouseover= \"showPopupText \" title= \" \" 作者： \" \" then	response.write rs( \"writer \")else	response.write \"不详 \"end if% 来源： \" \" then	response.write rs( \"writefrom \") else	response.write \"不详 \" end if% \"&keyword& \" \")%......[] =MaxPerPage then exit do	rs.movenext loop% \"	response.write \" \"&Nclassname& \" \"	if CurrentPage首页 \"	response.write \"上一页 \"	end if	if n-currentpage \"	response.write \"下一页 尾页 \"	end if	response.write \"页次： \"&CurrentPage& \"/ \"&n& \"页 \"	response.write \" \"&maxperpage& \"个文章/页 \"%转到： \' selected 第页 返回       ","null","null","");arrFiles[221]=new Array("vote/head.asp","管理首页       ","你没有登录系统。你登陆已经超时。点击这里重新登陆 \"	call Err_List(errmsg,1)	Response.endend ifsub Err_List(errmsg,var)	Response.write \" \"	Response.write \" \"	Response.write \" \"	Response.write \" \"	Response.write \" 系统提示信息 \"	Response.write \" \"	Response.write \" \"	Response.write \" \"	Response.write \" \"	Response.write \" \"	Response.write \" \"	Response.write \" \"	Response.write \" \"	Response.write \" \"	Response.write \" \"	Response.write \" 提示内容 \"	Response.write \" \"	Response.write \" \"	Response.write \" \"& errmsg & \" \"	Response.write \" \"	Response.write \" \"	if var = 1 then	Response.write \" \"	elseif var = 2 then	Response.write \" \"	elseif var = 3 then	Response.write \" \"	end if	Response.write \" \"	Response.write \" \"	Response.write \" \"	Response.write \" \"	Response.write \" \"	Response.write \" \"	Response.write \" \"	Response.write \" \"	Response.write \" \"	Response.write \" \"	Response.write \" \"End Sub%","null","null","");arrFiles[222]=new Array("vote/picture_man.asp","<%=NetName%>","\" \" then % \" width= \"71 \" height= \"71 \" alt= \" \" onClick= \"window.opener.eWebEditor1.insertHTML( \' width=71 height=71 \'); \" \', \'企业之窗 \', \'scrollbars=yes,width=610,height=400 \') \" \") end if	rs.movenext if rs.eof then i = i + 1 exit for end if next if i mod 5 =1 and i5 then % 5 then for k=0 to 5- (i mod 5) response.Write( \" \") next else for k=0 to 5-i response.Write( \" \") next end if% \" + cstr(curpage) + \"页/总 \" + cstr(rs.pagecount) + \"页 \"	response.write \"本页 \" + cstr(i-1) + \"条/总 \" + cstr(rs.recordcount) + \"条 \"	if curpage = 1 then	response.write \"首页 前页 \"	else	response.write \"首页 前页 \"	end ifif not rs.eof then	response.write \"后页 末页 \"elseresponse.Write( \"后页 末页 \")end if %","null","null","");arrFiles[223]=new Array("vote/foot.htm","无标题文档       ","&copy;昌黎利国缝纫机零件厂版权所有!　 站长信箱：Email:cllgfl@eyou.com","null","null","");arrFiles[224]=new Array("vote/top.htm","无标题文档       ","设为首页 加入收藏 联系我们 首　页 企业文化 产品中心 资讯中心 企业荣誉 企业论坛       ","null","null","");arrFiles[225]=new Array("vote/pic/chinaz.com.txt","chinaz.com.txt","   中国站长站           www.cnzzz.com  ╔------------------------------------------------╗  ┆软件下载  源码下载  站长教程  免费电邮  免费主页┆  ┆站长论坛  免费服务  虚拟主机  域名注册  免费代码┆  ┆网站评测  人才交流  酷站赏析  业界新闻  程序发布┆  ╚------------------------------------------------╝    中国站长站，为您提供一切站长资讯......","null","null","");arrFiles[226]=new Array("vote/image/downcode.com.txt","downcode.com.txt","╭══════════════════════════════════════════╮║          源易网--中国源码下载站            ║║                            ║║      源码下载:www.downcode.com  源码论坛:www.downcode.net      ║║                            ║║         如有转载请勿删除以上信息，谢谢合作         ║╰══════════════════════════════════════════╯╭══════════════════════════════════════════╮║ 　　　　　　　　　　　　　　　　程序相关使用说明　　　　　　　　　　  　　　　　　 ║╰══════════════════════════════════════════╯================2004年10月修订================1.修改文件目录，管理文件统一到一个目录2.调用的方式，减少了一些不懂程序的朋友出错的几率！3.使用方法，把vote文件夹移动到网站目录下面，把Cycoo_Vote.asp Cycoo_VoteView.asp 移动到根目录下面和调用文件在一个目录，目录架构:wwwroot ---vote目录---网站其他目录-Cycoo_Vote.asp文件-Cycoo_VoteView.asp文件-网站其他文件========================功能描述========================1.支持单项选择、多项选择2.支持每日独立IP投票限制开关3.支持多投票调用。4.后台管理密码修改。5.调用代码后台有显示index.htm有提示。6.管理文件：vote/index.asp 7.用户名：cycoo.com 密码：cycoo.com详细问题请到论坛反映：http://www.cycoo.com/bbs/ 更多免费程序下载请到：http://prog.cycoo.com/============运行环境===========Windows 2000/XP/2003 +AccessInternet Information Service (IIS) 5.0/6.0 Windows Script host 5.5 + ADO 2.7 + ","null","null","");arrFiles[227]=new Array("vote/gl/AddClass.asp","栏目编辑       ","\"	Response.End	case \"step2 \"	newTitle = Strcheck(Request.Form( \"newTitle \"))	id = Request.Form( \"id \")	conn.execute( \"Insert into ANclass(Nclass,classID)values( \"& newTitle & \", \"& id & \") \")	Response.write \" \"	Response.End	case \"Add \"% 新增大栏目 栏目名称： \" 新增小栏目 栏目名称：       ","null","null","");arrFiles[228]=new Array("vote/gl/copy.asp","NO TITLE","null","null","null","");arrFiles[229]=new Array("vote/gl/adminvar.asp","NO TITLE","修 改 成 功返 回 \"response.endend ifcall getConst()% 站 点 基 本 信 息 站点名称： \" 站点网址： \" 站点LOGO： \" maxlength= \"255 \" 顶部广告： （最多255字节） 页面广告： （最多255字节） SMTP Server地址： 只有在使用设置中打开了发送邮件功能，该填写内容方有效 \" 管理员Email： \" 发送邮件组件： 如果您的服务器不支持下列组件，请选择不支持 selected不支持 selectedJMAIL selectedCDONTS selectedASPEMAIL 分页显示数： \" 篇/页 BODY标签： 　 \" 表格边框颜色： \" 　 \" 表格体颜色(1)： \" 　 \" 表格体颜色(2)： \" 　 \"","null","null","");arrFiles[230]=new Array("vote/gl/logout.asp","NO TITLE","null","null","null","");arrFiles[231]=new Array("vote/gl/EditClass.asp","编辑栏目       ","\"	Response.End	case \"step2 \"	newTitle = Strcheck(Request.Form( \"newTitle \"))	id = Request.Form( \"id \")	conn.execute( \"Update ANclass set Nclass = \"& newTitle & \" where NclassID = \" & id)	Response.write \" \"	Response.End	case \"Aedit \"% \" 编辑大栏目 栏目名称： \" \" 编辑小栏目 栏目名称： \"","null","null","");arrFiles[232]=new Array("vote/gl/adminedit.asp","NO TITLE","0 then	dim idarr	idArr=split(idlist)	dim id	for i = 0 to ubound(idarr)	id=clng(idarr(i))	call deleteannounce(id)	next	else	call deleteannounce(clng(idlist))	end if	end if	dim sql	dim rs% 查找文章: 没有栏目 \") else	response.Write( \"所有栏目 \")	do while not rs.eof	response.Write( \" \"& rs(1) & \" \")	rs.movenext	loop	rs.close end if % \" \" then	if ClassType 0 then	sql= \"select * from article where title like \'% \"&trim(title)& \"% \' and classid = \"& ClassType & \" order by articleid desc \"	else	sql= \"select * from article where title like \'% \"&trim(title)& \"% \' order by articleid desc \"	end if	else	sql= \"select * from article order by articleid desc \"	end if	Set rs= Server.CreateObject( \"ADODB.Recordset \")	rs.CursorType=3 rs.PageSize=10 rs.Open SQL,Conn	if rs.eof and rs.bof then	response.write \" 还 没 有 任 何 文 章 \"	else	if Not rs.Eof Then	rs.AbsolutePage=Currentpage	End If	RowCount=0% ID 文章栏目 文 章 标 题 录入人 [] &classid=&Nclassid= \" \' &ClassType= \" onsubmit= \"javascript:return checkpn(this); \" 1 And rs.pageCount0 then% &ClassType= \" title= \"首页 \"首页 首页 1 And rs.pageCount0 then% &txtitle=&ClassType= \" title= \"上一页 \"上一页 上一页 rs.PageCount And rs.pageCount0 Then% &txtitle=&ClassType= \" title= \"下一页 \"下一页 下一页 rs.PageCount And rs.pageCount0 Then% &txtitle=&ClassType= \" title= \"尾页 \"尾页 尾页 /页 转到： 页 0 then	err.clear	response.write \"删 除 失 败 ! \" else response.write \"操作成功！ \" end if End sub%","null","null","");arrFiles[233]=new Array("vote/gl/main.asp","NO TITLE","欢迎登陆青创新闻系统后台管理       ","null","null","");arrFiles[234]=new Array("vote/gl/adminuser.asp","NO TITLE","1 then	response.write \"您没有操作的权限 \"	response.endend ifif request( \"Submit \") = \"修改 \" then	Unid = Request.Form( \"Unid \")	UserName = Request.Form( \"manager \")	PassWord = Request.Form( \"newpin \")	Flag = Request.Form( \"flag \")	Conn.Execute( \"Update admin set Username = \' \"& UserName & \" \',PassWord = \' \"& PassWord & \" \',Flag = \"& Flag & \" where id = \" & Unid)	Response.Write \" \"	response.endelseif request( \"Submit \") = \"删除 \" then	Unid = Request.Form( \"Unid \")	Conn.Execute( \"Delete from admin where id = \" & Unid)	Response.Write \" \"	response.endend if set rs = conn.execute( \"select * from admin order by id \")% 修改管理员信息 | 增加管理员 序号 用户名 密码 权限 操作 \" \" size= \"12 \" class= \"smallInput \" \" size= \"12 \" class= \"smallInput \" 管理员 编辑员 录入员       ","null","null","");arrFiles[235]=new Array("vote/gl/connsql.asp","NO TITLE","SOL语句执行操作：本操作仅限高级、对SQL编程比较熟悉的用户，您可以直接输入sql执行语句，比如delete from bbs1 where username= \'test \'进行删除某用户帖子操作，在操作前请慎重考虑您的执行语句是否正确和完整，执行后不可恢复。Empty thenOn Error Resume Next conn.Execute(SQL_Statement)if err.number= \"0 \" thenresponse.write \"执行成功 \"elseresponse.write \"语句有问题，具体出错如下： \"response.write Err.Descriptionerr.clearend ifend ifelse% \"请输入SQL语句指令：       ","null","null","");arrFiles[236]=new Array("vote/gl/AddUser.asp","添加管理员       ","1 then	response.write \"您没有操作的权限 \"	response.end	end if	if Request( \"action \") = \"reg \" then	UserName = Strcheck(Request.Form( \"UserName \"))	newpin = Strcheck(Request.Form( \"newpin \"))	re_newpin = Strcheck(Request.Form( \"re_newpin \"))	flag = Request.Form( \"flag \")	Sql = \"Insert into admin(username,password,flag)values( \"& username & \", \"& newpin & \", \"& flag & \") \"	conn.execute(Sql)	Response.Write \" \"	Response.End	end if	% 新增管理员 用 户 名 　 初始密码 　 确认密码 　 权限设置 录入员 编辑员 管理员       ","null","null","");arrFiles[237]=new Array("vote/gl/Admincss.asp","NO TITLE","论坛模板编辑： 注意：文件将被保存在你安装目录下的STYLE.CSS里，如果您的空间不支持FSO，请直接编辑该文件！如果您对CSS的属性不了解，请不要随意编辑。 \" 当前文件路径：       ","null","null","");arrFiles[238]=new Array("vote/gl/Adminjs.asp","NO TITLE","16 then	title=left(rs( \"title \"),16)+ \"... \"	else	title=rs( \"title \")	end if foolcat = foolcat + \"☉[ \"&rs( \"Nclass \")& \"] \" & title & \"( \"&rs( \"dateandtime \")& \") \"rs.MoveNextloopfoolcat = \" \" + foolcat + \" \"foolcat = \"document.write( \' \" & foolcat & \" \') \"Set fso = Server.CreateObject( \"Scripting.FileSystemObject \")Set fout=fso.CreateTextFile(Server.MapPath( \"news.js \"),True)fout.WriteLine foolcat \'关闭连接fout.closeset fout = nothingrs.closeset rs = nothingconn.closeset conn=nothingresponse.write \"生成JS文件成功！ \"response.endend if% 点击开始生成按钮开始生成JS文件，当看到成功信息时，gl文件夹中的new.js文件便会刷新！ SQL = \"显示 最新信息 浏览排行 最新 1 2 3 4 5 6 7 8 9 10 条信息 \"","null","null","");arrFiles[239]=new Array("vote/gl/img_upload.asp","图片上传       ","图片上传 注：文件类型：gif/jpg，大小限制：100K","null","null","");arrFiles[240]=new Array("vote/gl/chkadmin.asp","NO TITLE","\"	response.write \" \"	response.write \" \"	response.write \" \"	response.write \" 操作: 确认身份失败! \"	response.write \" \"	response.write \" \"	response.write \" \"	response.write \" \"	response.write \" \"	response.write \" 用户名或密码错误!!! \"	response.write \" 返回 \"	response.write \" \"	response.write \" \"	end sub	rs.close	conn.close	set rs=nothing	set conn=nothing%","null","null","");arrFiles[241]=new Array("vote/gl/img_upfile.asp","文件上传       ","\"/ \" then formPath=formPath& \"/ \" iCount=0for each formName in upload.file \' \'列出所有上传了的文件 set file=upload.file(formName) \' \'生成一个文件对象 if file.filesize请先选择你要上传的文件　[ 重新上传 ] \"	response.end end if if file.filesize100000 then	response.write \"文件大小超过了限制 100K　[ 重新上传 ] \"	response.end end if fileExt=lcase(right(file.filename,4)) if fileEXT \".gif \" and fileEXT \".jpg \" then	response.write \"文件格式不正确　[ 重新上传 ] \"	response.end end if randomize ranNum=int(90000*rnd)+10000 filename=formPath&year(now)&month(now)&day(now)&ranNum&fileExt if file.FileSize0 then \' \'如果 FileSize 0 说明有文件数据 file.SaveAs Server.mappath(FileName) \' \'保存文件	weizhi=right(FileName,len(FileName)-3) iCount=iCount+1 end if set file=nothingnextset upload=nothing \' \'删除此对象response.write \" \"response.Write(weizhi)% 图片已经成功上传！请选择参数： name= \"weizhi \"","null","null","");arrFiles[242]=new Array("vote/gl/adminserver.asp","NO TITLE","服务器有关的变量： 显示客户发出的所有HTTP标题 检取ISAPIDLL的metabase路径 显示站点物理路径 路径信息 显示请求机器IP地址 服务器IP地址 显示执行SCRIPT的虚拟路径 返回服务器的主机名，DNS别名，或IP地址 返回服务器处理请求的端口 协议的名称和版本 服务器的名称和版本 服务器操作系统 脚本超时时间 秒 服务器CPU数量 个 服务器解译引擎 组件支持情况： strClass then Response.Write \"您指定的组件的检查结果： \" If Not IsObjInstalled(strClass) then Response.Write \"很遗憾，该服务器不支持 \" & strclass & \"组件！ \" Else Response.Write \"恭喜！该服务器支持 \" & strclass & \"组件。 \" End If Response.Write \" \" end if% －－IIS自带组件： 组 件 名 称 支 持 不支持 \" & theInstalledObjects(i) & \" \" select case i	case 11	Response.Write \"(SA-FileUp 文件上传) \"	case 12	Response.Write \"(SA-FM 文件管理) \"	case 13	Response.Write \"(JMail 邮件发送) \"	case 14	Response.Write \"(CDONTS 邮件发送 SMTP Service) \"	case 15	Response.Write \"(ASPEmail 邮件发送) \"	case 16	Response.Write \"(LyfUpload 文件上传) \"	case 17	Response.Write \"(ASPUpload 文件上传) \" end select Response.Write \" \" If Not IsObjInstalled(theInstalledObjects(i)) Then Response.Write \"× \" Else Response.Write \"√ \" End If Response.Write \" \" & vbCrLf Next % －－其他组件支持情况检测：在下面的输入框中输入你要检测的组件的ProgId或ClassId。       ","null","null","");arrFiles[243]=new Array("vote/gl/getUbb.asp","NO TITLE","字体： 宋体 楷体 新宋体 黑体 隶书 Andale Mono Arial Arial Black Book Antiqua Century Gothic Comic Sans MS Courier New Georgia Impact Tahoma Times New Roman Trebuchet MS Script MT Bold Stencil Verdana Lucida Console 字体大小 1 2 3 4 颜色： #F0F8FF #FAEBD7 #00FFFF #7FFFD4 #F0FFFF #F5F5DC #FFE4C4 #000000 #FFEBCD #0000FF #8A2BE2 #A52A2A #DEB887 #5F9EA0 #7FFF00 #D2691E #FF7F50 #6495ED #FFF8DC #DC143C #00FFFF #00008B #008B8B #B8860B #A9A9A9 #006400 #BDB76B #8B008B #556B2F #FF8C00 #9932CC #8B0000 #E9967A #8FBC8F #483D8B #2F4F4F #00CED1 #9400D3 #FF1493 #00BFFF #696969 #1E90FF #B22222 #FFFAF0 #228B22 #FF00FF #DCDCDC #F8F8FF #FFD700 #DAA520 #808080 #008000 #ADFF2F #F0FFF0 #FF69B4 #CD5C5C #4B0082 #FFFFF0 #F0E68C #E6E6FA #FFF0F5 #7CFC00 #FFFACD #ADD8E6 #F08080 #E0FFFF #FAFAD2 #90EE90 #D3D3D3 #FFB6C1 #FFA07A #20B2AA #87CEFA #778899 #B0C4DE #FFFFE0 #00FF00 #32CD32 #FAF0E6 #FF00FF #800000 #66CDAA #0000CD #BA55D3 #9370DB #3CB371 #7B68EE #00FA9A #48D1CC #C71585 #191970 #F5FFFA #FFE4E1 #FFE4B5 #FFDEAD #000080 #FDF5E6 #808000 #6B8E23 #FFA500 #FF4500 #DA70D6 #EEE8AA #98FB98 #AFEEEE #DB7093 #FFEFD5 #FFDAB9 #CD853F #FFC0CB #DDA0DD #B0E0E6 #800080 #FF0000 #BC8F8F #4169E1 #8B4513 #FA8072 #F4A460 #2E8B57 #FFF5EE #A0522D #C0C0C0 #87CEEB #6A5ACD #708090 #FFFAFA #00FF7F #4682B4 #D2B48C #008080 #D8BFD8 #FF6347 #40E0D0 #EE82EE #F5DEB3 #FFFFFF #F5F5F5 #FFFF00 #9ACD32","null","null","");arrFiles[244]=new Array("vote/gl/Startup.asp","eWebEditor在线编辑器 - 例子：新闻系统       ","\", \"&gt; \")	sTemp = Replace(sTemp, Chr(34), \" \" \")	sTemp = Replace(sTemp, Chr(10), \" \")	outHTML = sTempEnd Function \' ============================================ \' 去除Html格式，用于从数据库中取出值填入输入框时 \' 注意：value= \"? \"这边一定要用双引号 \' ============================================Function inHTML(str)	Dim sTemp	sTemp = str	inHTML = \" \"	If IsNull(sTemp) = True Then	Exit Function	End If	sTemp = Replace(sTemp, \"& \", \"&amp; \")	sTemp = Replace(sTemp, \" \", \"&gt; \")	sTemp = Replace(sTemp, Chr(34), \" \" \")	inHTML = sTempEnd Function \' =============================================== \' 初始化下拉框 \'	s_FieldName	: 返回的下拉框名 \'	a_Name	: 定值名数组 \'	a_Value	: 定值值数组 \'	v_InitValue	: 初始值 \'	s_Sql	: 从数据库中取值时,select name,value from table \'	s_AllName	: 空值的名称,如: \"全部 \", \"所有 \", \"默认 \" \' ===============================================Function InitSelect(s_FieldName, a_Name, a_Value, v_InitValue, s_Sql, s_AllName)	Dim i	InitSelect = \" \"	If s_AllName \" \" Then	InitSelect = InitSelect & \" \" & s_AllName & \" \"	End If	If s_Sql \" \" Then	oRs.Open s_Sql, oConn, 0, 1	Do While Not oRs.Eof	InitSelect = InitSelect & \" \" & outHTML(oRs(0)) & \" \"	oRs.MoveNext	Loop	oRs.Close	Else	For i = 0 To UBound(a_Name)	InitSelect = InitSelect & \" \" & outHTML(a_Name(i)) & \" \"	Next	End If	InitSelect = InitSelect & \" \"End Function \' ============================================ \' 每页头部内容 \' ============================================Sub Header(str)	Response.Write \" \"	Response.Write \"新闻列表 | 增加新闻 \"	Response.Write \" \" & str & \" \"End Sub \' ============================================ \' 每页底部内容 \' ============================================Sub Footer()	Call DBConnEnd()	Response.Write \" \"End Sub%","null","null","");arrFiles[245]=new Array("vote/gl/editarticle.asp","NO TITLE","\"	Response.End end ifdim rsdim sqldim countset rs = conn.execute( \"select * from ANclass order by Nclassid asc \")% \" \" \" 修 改 文 章 文章类型： \"+rs( \"class \")+ \" \"+chr(13)+chr(10)	rs.movenext	loop	end if	rs.close% 选择分类： \" + rs( \"Nclass \") + \" \" rs.MoveNext Loop	end if rs.close% ** 文章标题： \" 修改日期： \" selected \"&i& \" \"	next	% 年 \" selected \"&i& \" \"	next	% 月 \" selected \"&i& \" \"	next	% 日 文章内容： 相关文章： 作者： 来源： 录入人：       ","null","null","");arrFiles[246]=new Array("vote/gl/head.asp","NO TITLE","null","null","null","");arrFiles[247]=new Array("vote/gl/art_class_list.asp","NO TITLE","\"	Response.End	case \"Ndel \"	id = Request( \"id \")	conn.execute( \"Delete from ANclass where nclassid = \" & id)	conn.execute( \"Delete from article where nclassid = \" & id)	Response.write \" \"	Response.EndEnd Select% 栏目管理 新增大栏目 　() \', \' \', \'width=350,height=100,top=10,left=180 \') \"编辑 | ) \"删除 | \', \' \', \'width=350,height=100,top=10,left=180 \') \"新增小栏目 | () \', \' \', \'width=350,height=100,top=10,left=180 \') \"编辑 | ) \"删除 |","null","null","");arrFiles[248]=new Array("vote/gl/conn.asp","NO TITLE","null","null","null","");arrFiles[249]=new Array("vote/gl/NewAdd.asp","NO TITLE","\"	Response.End End IFdim rsdim sqldim countset rs = conn.execute( \"select * from ANclass order by Nclassid asc \")% 添 加 文 章 文章类型： ==请选栏目== \" ==请选栏目== ** 文章标题： 发布日期： \" selected \"&i& \" \"	next	% 年 \" selected \"&i& \" \"	next	% 月 \" selected \"&i& \" \"	next	% 日 　　　　　　　　　 数据库图片 文章内容： 相关文章： 作者： 来源：       ","null","null","");arrFiles[250]=new Array("vote/gl/复件 editarticle.asp","NO TITLE","\"	Response.End end ifdim rsdim sqldim countset rs = conn.execute( \"select * from ANclass order by Nclassid asc \")% \" \" \" \" 修 改 文 章 文章类型： \"+rs( \"class \")+ \" \"+chr(13)+chr(10)	rs.movenext	loop	end if	rs.close% 选择分类： \" + rs( \"Nclass \") + \" \" rs.MoveNext Loop	end if rs.close% ** 文章标题： \" 修改日期： \" selected \"&i& \" \"	next	% 年 \" selected \"&i& \" \"	next	% 月 \" selected \"&i& \" \"	next	% 日 文章内容： 相关文章： 作者： 来源： 录入人：       ","null","null","");arrFiles[251]=new Array("vote/gl/images/chinaz.com.txt","chinaz.com.txt","   中国站长站           www.cnzzz.com  ╔------------------------------------------------╗  ┆软件下载  源码下载  站长教程  免费电邮  免费主页┆  ┆站长论坛  免费服务  虚拟主机  域名注册  免费代码┆  ┆网站评测  人才交流  酷站赏析  业界新闻  程序发布┆  ╚------------------------------------------------╝    中国站长站，为您提供一切站长资讯......","null","null","");arrFiles[252]=new Array("vote/Dialog/anchor.htm","书签管理       ","书签名称:	本页其它书签:","null","null","");arrFiles[253]=new Array("vote/Dialog/backimage.htm","背景图属性（ \" + sTitle +  \"）       ","\");// 初始值function InitDocument(){	SearchSelectValue(d_repeat, sRepeat.toLowerCase());	SearchSelectValue(d_attachment, sAttachment.toLowerCase());	d_fromurl.value = sImage;}// 返回有背景图属性的对象function GetImageParent(obj){	while(obj!=null && obj.tagName!= \"TD \" && obj.tagName!= \"TR \" && obj.tagName!= \"TH \" && obj.tagName!= \"TABLE \")	obj=obj.parentElement;	return obj;}// 返回标签名的选定控件function GetControl(obj, sTag){	obj=obj.item(0);	if (obj.tagName==sTag){	return obj;	}	return null;}// 图片来源单选点击事件function RadioClick(what){	switch(what){	case \"url \":	d_checkfromfile.checked=false;	d_checkfromurl.checked=true;	d_checkfromsys.checked=false;	d_checkcancel.checked=false;	d_file.myform.uploadfile.disabled=true;	d_fromurl.disabled=false;	d_fromsys.disabled=true;	break;	case \"file \":	d_checkfromfile.checked=true;	d_checkfromurl.checked=false;	d_checkfromsys.checked=false;	d_checkcancel.checked=false;	d_file.myform.uploadfile.disabled=false;	d_fromurl.disabled=true;	d_fromsys.disabled=true;	break;	case \"sys \":	d_checkfromfile.checked=false;	d_checkfromurl.checked=false;	d_checkfromsys.checked=true;	d_checkcancel.checked=false;	d_file.myform.uploadfile.disabled=true;	d_fromurl.disabled=true;	d_fromsys.disabled=false;	break;	case \"cancel \":	d_checkfromfile.checked=false;	d_checkfromurl.checked=false;	d_checkfromsys.checked=false;	d_checkcancel.checked=true;	d_file.myform.uploadfile.disabled=true;	d_fromurl.disabled=true;	d_fromsys.disabled=true;	break;	}}// 上传帧调入完成时执行function UploadLoaded(){	// 初始radio	RadioClick(sCheckFlag);}// 上传错误function UploadError(sErrDesc){	AbleItems();	RadioClick( \'file \');	divProcessing.style.display= \"none \";	try {	BaseAlert(d_file.myform.uploadfile,sErrDesc);	}	catch(e){}}// 文件上传完成时执行,带入上传文件名function UploadSaved(sPathFileName){	d_fromurl.value = sPathFileName;	ReturnValue();}// 本窗口返回值function ReturnValue(){	if (d_fromurl.value== \" \"){	sImage = \" \";	sRepeat = \" \";	sAttachment = \" \";	}else{	if (sAction == \"OTHER \"){	sImage = d_fromurl.value;	}else{	sImage = \"url( \" + d_fromurl.value + \") \";	}	sRepeat = d_repeat.options[d_repeat.selectedIndex].value;	sAttachment = d_attachment.options[d_attachment.selectedIndex].value;	}	switch(sAction){	case \"MODI \":	oControl.style.backgroundImage = sImage;	oControl.style.backgroundRepeat = sRepeat;	oControl.style.backgroundAttachment = sAttachment;	break;	case \"OTHER \":	dialogArguments.d_image.value = sImage;	dialogArguments.d_repeat.value = sRepeat;	dialogArguments.d_attachment.value = sAttachment;	break;	default:	dialogArguments.setHTML( \" \"+dialogArguments.getHTML()+ \" \");	break;	}	window.returnValue = null;	window.close();}// 点确定时执行function ok(){	// 图片来源判断	if (d_checkfromurl.checked){	ReturnValue();	}	if (d_checkfromfile.checked){	// 上传文件判断	if (!d_file.CheckUploadForm()) return false;	// 使各输入框无效	DisableItems();	// 显示正在上传图片	divProcessing.style.display= \" \";	// 上传表单提交	d_file.myform.submit();	}	if (d_checkfromsys.checked){	d_fromurl.value = relativePath2setPath( \"sysimage/bg/ \" + d_fromsys.options[d_fromsys.selectedIndex].value);	ReturnValue();	}	if (d_checkcancel.checked){	d_fromurl.value= \" \";	ReturnValue();	}}// 使所有输入框无效function DisableItems(){	d_checkfromfile.disabled=true;	d_checkfromurl.disabled=true;	d_checkfromsys.disabled=true;	d_checkcancel.disabled=true;	d_fromurl.disabled=true;	d_fromsys.disabled=true;	d_repeat.disabled=true;	d_attachment.disabled=true;	Ok.disabled=true;}// 使所有输入框有效function AbleItems(){	d_checkfromfile.disabled=false;	d_checkfromurl.disabled=false;	d_checkfromsys.disabled=false;	d_checkcancel.disabled=false;	d_fromurl.disabled=false;	d_fromsys.disabled=false;	d_repeat.disabled=false;	d_attachment.disabled=false;	Ok.disabled=false;}	图片来源	上传:	网络:	系统:	雪花	自然	晴朗	冰川	节日	生日	秋叶	心型	鲜花	花纹	圣诞节	常春藤	技术型	黄色旋纹	绿色方格	取消背景图	显示效果	平铺方式:	默认	纵向横向	不平铺	横向	纵向	滚动固定:	默认	滚动	固定	...图片上传中...请等待...","null","null","");arrFiles[254]=new Array("vote/Dialog/emot.htm","插入表情图标       ","null","null","null","");arrFiles[255]=new Array("vote/Dialog/fieldset.htm","栏目框属性（ \" + sTitle +  \"）       ","\");// 初始值function InitDocument(){	SearchSelectValue(d_alignfieldset, sAlignFieldset.toLowerCase());	SearchSelectValue(d_alignlegend, sAlignLegend.toLowerCase());	d_bordercolor.value = sBorderColor;	s_bordercolor.style.backgroundColor = sBorderColor;	d_bgcolor.value = sBgColor;	s_bgcolor.style.backgroundColor = sBgColor;}// 递归找标签名相同的第一个子对象function GetChildElement(obj, sTag){	var el;	for (var i=0;i	对齐方式	栏目对齐:	默认左对齐居中右对齐	标题对齐:	默认左对齐居中右对齐	颜色属性	边框颜色:	背景颜色:","null","null","");arrFiles[256]=new Array("vote/Dialog/file.htm","文件属性       ","文件来源	上传:	网络:	...文件上传中...请等待...","null","null","");arrFiles[257]=new Array("vote/Dialog/findreplace.htm","查找 / 替换       ","查找内容 替换内容 区分大小写 全部匹配       ","null","null","");arrFiles[258]=new Array("vote/Dialog/flash.htm","Flash动画属性       ","Flash来源	上传:	网络:	显示效果	显示宽度:	显示高度:	...文件上传中...请等待...","null","null","");arrFiles[259]=new Array("vote/Dialog/help.htm","eWebEditor - 在线使用帮助       ","此网页使用了框架，但您的浏览器不支持框架。       ","null","null","");arrFiles[260]=new Array("vote/Dialog/hyperlink.htm","超级链接属性       ","超级链接信息	链接类型:	其它	file:	ftp:	gopher:	http:	https:	mailto:	news:	telnet:	wais:	链接目标:	默认(无)相同框架整页新建窗口父框架	链接地址:	书签链接:	默认(无)","null","null","");arrFiles[261]=new Array("vote/Dialog/iframe.htm","网页帧属性（ \" + sTitle +  \"）       ","\");// 初始值function InitDocument(){	SearchSelectValue(d_scrolling, sScrolling.toLowerCase());	d_url.value = sUrl;	d_frameborder.value = sFrameBorder;	d_marginheight.value = sMarginHeight;	d_marginwidth.value = sMarginWidth;	d_width.value = sWidth;	d_height.value = sHeight;}网页帧属性（）	属性设置	网页地址:	滚 动 条:	默认有无	边 框 线:	上下边距:	左右边距:	帧 宽 度:	帧 高 度:","null","null","");arrFiles[262]=new Array("vote/Dialog/map.htm","图形热点链接       ","\");	mapIframe.document.body.innerHTML = sBody;	mapIframe.document.body.contentEditable = \"true \";	mapIframe.document.ondblclick=new Function( \"return dblClick(mapIframe.event); \");	mapIframe.document.execCommand( \"2D-Position \",true,true);	//mapIframe.document.execCommand( \"MultipleSelection \", true, true);	mapIframe.document.execCommand( \"LiveResize \", true, true);	mapIframe.document.close();}// 双击修改链接属性var objLink = new Object() ;function dblClick(event){	var e=event.srcElement;	if (e){	if ((e.tagName== \"IMG \")&&(e.id!= \"SOURCEIMAGE \")){	var sID = e.id;	var nID = parseInt(sID.substr(7));	objLink.Href = aHref[nID];	objLink.Target = aTarget[nID];	var arr = showModalDialog( \"hyperlink.htm?action=other \", window, \"dialogWidth:350px;dialogHeight:170px;help:no;scroll:no;status:no \");	if (arr){	aHref[nID] = arr[0];	aTarget[nID] = arr[1];	}	}	}	return false;}// 新建热点链接function newMap(){	var n = aHref.length;	aHref[n]= \" \";	aTarget[n]= \" \";	mapIframe.document.body.innerHTML += \" \";	mapIframe.scrollBy(0,0);	mapIframe.focus();}// 取自动递增热点名function getAutoMapName(){	var b=true;	var n=0;	var s= \" \"	while (b){	n++;	s = \"AutoMap \" + n;	if (isValidMapName(s)){	b=false;	}	}	return s;}// 判断是否为不存在的名称function isValidMapName(str){	str=str.toUpperCase();	for (var i=0; i(双击可编辑链接)","null","null","");arrFiles[263]=new Array("vote/Dialog/marquee.htm","字幕属性（ \" + sTitle +  \"）       ","\");// 单选的点击事件function check(){	sBehavior = event.srcElement.value;}// 初始值function InitDocument() {	d_text.value = sText;	switch (sBehavior) {	case \"scroll \":	document.all( \"d_behavior \")[0].checked = true;	break;	case \"slide \":	document.all( \"d_behavior \")[1].checked = true;	break;	default:	sBehavior = \"alternate \";	document.all( \"d_behavior \")[2].checked = true;	break;	}}	文本:	表现: 滚动条 幻灯片 交替       ","null","null","");arrFiles[264]=new Array("vote/Dialog/media.htm","媒体文件属性       ","媒体文件来源	上传:	网络:	播放效果	播放宽度:	播放高度:	...文件上传中...请等待...","null","null","");arrFiles[265]=new Array("vote/Dialog/selcolor.htm","颜色选择（ \" + sTitle +  \"）       ","\");// 默认显示值if (!color) color = \"#000000 \";// 返回有背景颜色属性的对象function GetParent(obj){	while(obj!=null && obj.tagName!= \"TD \" && obj.tagName!= \"TR \" && obj.tagName!= \"TH \" && obj.tagName!= \"TABLE \")	obj=obj.parentElement;	return obj;}// 返回标签名的选定控件function GetControl(obj, sTag){	obj=obj.item(0);	if (obj.tagName==sTag){	return obj;	}	return null;}// 数值转为RGB16进制颜色格式function N2Color(s_Color){	s_Color = s_Color.toString(16);	switch (s_Color.length) {	case 1:	s_Color = \"0 \" + s_Color + \"0000 \";	break;	case 2:	s_Color = s_Color + \"0000 \";	break;	case 3:	s_Color = s_Color.substring(1,3) + \"0 \" + s_Color.substring(0,1) + \"00 \" ;	break;	case 4:	s_Color = s_Color.substring(2,4) + s_Color.substring(0,2) + \"00 \" ;	break;	case 5:	s_Color = s_Color.substring(3,5) + s_Color.substring(1,3) + \"0 \" + s_Color.substring(0,1) ;	break;	case 6:	s_Color = s_Color.substring(4,6) + s_Color.substring(2,4) + s_Color.substring(0,2) ;	break;	default:	s_Color = \" \";	}	return \'# \' + s_Color;}// 初始值function InitDocument(){	ShowColor.bgColor = color;	RGB.innerHTML = color;	SelColor.value = color;}var SelRGB = color;var DrRGB = \' \';var SelGRAY = \'120 \';var hexch = new Array( \'0 \', \'1 \', \'2 \', \'3 \', \'4 \', \'5 \', \'6 \', \'7 \', \'8 \', \'9 \', \'A \', \'B \', \'C \', \'D \', \'E \', \'F \');function ToHex(n) {	var h, l;	n = Math.round(n);	l = n % 16;	h = Math.floor((n / 16)) % 16;	return (hexch[h] + hexch[l]);}function DoColor(c, l){	var r, g, b;	r = \'0x \' + c.substring(1, 3);	g = \'0x \' + c.substring(3, 5);	b = \'0x \' + c.substring(5, 7);	if(l 120){	l = l - 120;	r = (r * (120 - l) + 255 * l) / 120;	g = (g * (120 - l) + 255 * l) / 120;	b = (b * (120 - l) + 255 * l) / 120;	}else{	r = (r * l) / 120;	g = (g * l) / 120;	b = (b * l) / 120;	}	return \'# \' + ToHex(r) + ToHex(g) + ToHex(b);}function EndColor(){	var i;	if(DrRGB != SelRGB){	DrRGB = SelRGB;	for(i = 0; i 选中色彩基色: 亮度: 120代码: 确定取消       ","null","null","");arrFiles[266]=new Array("vote/Dialog/symbol.htm","插入特殊符号       ","特殊	标点	数学	单位	数字	拼音	＃	＠	＆	＊	※	§	〃	№	〓	○	●	△	▲	◎	☆	★	◇	◆	□	■	▽	▼	㊣	℅	ˉ	￣	＿	﹉	﹊	﹍	﹎	﹋	﹌	﹟	﹠	﹡	♀	♂	⊕	⊙	↑	↓	←	→	↖	↗	↙	↘	∥	∣	／	＼	∕	﹨	�	&yen;	&pound;	&#8482;	&reg;	&copy;	，	、	。	．	；	：	？	！	︰	…	‥	′	‵	々	～	‖	ˇ	ˉ	﹐	﹑	﹒	·	﹔	﹕	﹖	﹗	｜	-	︱	-	︳	︴	﹏	（	）	︵	︶	｛	｝	︷	︸	〔	〕	︹	︺	【	】	︻	︼	《	》	︽	︾	〈	〉	︿	﹀	「	」	﹁	﹂	『	』	﹃	﹄	﹙	﹚	﹛	﹜	﹝	﹞ \' \' \" \"	〝	〞	ˋ	ˊ	≈	≡	≠	＝	≤	≥	＜	＞	≮	≯	∷	±	＋	－	×	÷	／	∫	∮	∝	∞	∧	∨	∑	∏	∪	∩	∈	∵	∴	⊥	∥	∠	⌒	⊙	≌	∽	√	≦	≧	≒	≡	﹢	﹣	﹤	﹥	﹦	～	∟	⊿	㏒	㏑	°	′	″	＄	￥	〒	￠	￡	％	＠	℃	℉	﹩	﹪	‰	﹫	㏕	㎜	㎝	㎞	㏎	㎡	㎎	㎏	㏄	°	○	¤	ⅰ	ⅱ	ⅲ	ⅳ	ⅴ	ⅵ	ⅶ	ⅷ	ⅸ	ⅹ	Ⅰ	Ⅱ	Ⅲ	Ⅳ	Ⅴ	Ⅵ	Ⅶ	Ⅷ	Ⅸ	Ⅹ	Ⅺ	Ⅻ	⒈	⒉	⒊	⒋	⒌	⒍	⒎	⒏	⒐	⒑	⒒	⒓	⒔	⒕	⒖	⒗	⒘	⒙	⒚	⒛	⑴	⑵	⑶	⑷	⑸	⑹	⑺	⑻	⑼	⑽	⑾	⑿	⒀	⒁	⒂	⒃	⒄	⒅	⒆	⒇	①	②	③	④	⑤	⑥	⑦	⑧	⑨	⑩	㈠	㈡	㈢	㈣	㈤	㈥	㈦	㈧	㈨	㈩	ā	á	ǎ	à	ō	ó	ǒ	ò	ē	é	ě	è	ī	í	ǐ	ì	ū	ú	ǔ	ù	ǖ	ǘ	ǚ	ǜ	ü	ê	ɑ		ń	ň	ǹ	ɡ	预览       ","null","null","");arrFiles[267]=new Array("vote/Dialog/table.htm","表格属性（ \" + sTitle +  \"）       ","\");// 初始值function InitDocument(){	SearchSelectValue(d_align, sAlign.toLowerCase());	SearchSelectValue(d_borderstyle, sBorderStyle.toLowerCase());	// 修改状态时取值	if (sAction == \"MODI \"){	if (sWidth == \" \"){	bWidthCheck = false;	bWidthDisable = true;	sWidthValue = \"100 \";	sWidthUnit = \"% \";	}else{	bWidthCheck = true;	bWidthDisable = false;	if (sWidth.substr(sWidth.length-1) == \"% \"){	sWidthValue = sWidth.substring(0, sWidth.length-1);	sWidthUnit = \"% \";	}else{	sWidthUnit = \" \";	sWidthValue = parseInt(sWidth);	if (isNaN(sWidthValue)) sWidthValue = \" \";	}	}	if (sHeight == \" \"){	bHeightCheck = false;	bHeightDisable = true;	sHeightValue = \"100 \";	sHeightUnit = \"% \";	}else{	bHeightCheck = true;	bHeightDisable = false;	if (sHeight.substr(sHeight.length-1) == \"% \"){	sHeightValue = sHeight.substring(0, sHeight.length-1);	sHeightUnit = \"% \";	}else{	sHeightUnit = \" \";	sHeightValue = parseInt(sHeight);	if (isNaN(sHeightValue)) sHeightValue = \" \";	}	}	}	switch(sWidthUnit){	case \"% \":	d_widthunit.selectedIndex = 1;	break;	default:	sWidthUnit = \" \";	d_widthunit.selectedIndex = 0;	break;	}	switch(sHeightUnit){	case \"% \":	d_heightunit.selectedIndex = 1;	break;	default:	sHeightUnit = \" \";	d_heightunit.selectedIndex = 0;	break;	}	d_row.value = sRow;	d_col.value = sCol;	d_border.value = sBorder;	d_cellspacing.value = sCellSpacing;	d_cellpadding.value = sCellPadding;	d_widthvalue.value = sWidthValue;	d_widthvalue.disabled = bWidthDisable;	d_widthunit.disabled = bWidthDisable;	d_heightvalue.value = sHeightValue;	d_heightvalue.disabled = bHeightDisable;	d_heightunit.disabled = bHeightDisable;	d_bordercolor.value = sBorderColor;	s_bordercolor.style.backgroundColor = sBorderColor;	d_bgcolor.value = sBgColor;	s_bgcolor.style.backgroundColor = sBgColor;	d_widthcheck.checked = bWidthCheck;	d_heightcheck.checked = bHeightCheck;	d_image.value = sImage;	d_repeat.value = sRepeat;	d_attachment.value = sAttachment;}// 判断值是否大于0function MoreThanOne(obj, sErr){	var b=false;	if (obj.value!= \" \"){	obj.value=parseFloat(obj.value);	if (obj.value!= \"0 \"){	b=true;	}	}	if (b==false){	BaseAlert(obj,sErr);	return false;	}	return true;}// 得到表格列数function getColCount(oTable) {	var intCount = 0;	if (oTable != null) {	for(var i = 0; i intCount) intCount = oTable.rows[i].cells.length;	}	}	return intCount;}// 增加行function InsertRows( oTable ) {	if ( oTable ) {	var elRow=oTable.insertRow();	for(var i=0; i	表格大小	表格行数:	表格列数:	表格布局	对齐方式:	默认	左对齐	居中	右对齐	边框粗细:	单元间距:	单元边距:	表格尺寸 指定表格的宽度	像素百分比 指定表格的高度	像素百分比	表格样式	边框颜色:	边框样式:	默认	实线	虚线	破折号	双线	凹线	凸线	嵌入	开端	背景颜色:	背景图片:","null","null","");arrFiles[268]=new Array("vote/Dialog/tablecell.htm"," \" + sTitle +  \"属性       ","\");// 初始值function InitDocument(){	SearchSelectValue(d_align, sAlign.toLowerCase());	SearchSelectValue(d_valign, sVAlign.toLowerCase());	SearchSelectValue(d_borderstyle, sBorderStyle.toLowerCase());	// 修改状态时取值	if ((sWidth == \" \")||(sWidth==undefined)){	bWidthCheck = false;	bWidthDisable = true;	sWidthValue = \"100 \";	sWidthUnit = \"% \";	}else{	bWidthCheck = true;	bWidthDisable = false;	if (sWidth.substr(sWidth.length-1) == \"% \"){	sWidthValue = sWidth.substring(0, sWidth.length-1);	sWidthUnit = \"% \";	}else{	sWidthUnit = \" \";	sWidthValue = parseInt(sWidth);	if (isNaN(sWidthValue)) sWidthValue = \" \";	}	}	if (sHeight == \" \"){	bHeightCheck = false;	bHeightDisable = true;	sHeightValue = \"100 \";	sHeightUnit = \"% \";	}else{	bHeightCheck = true;	bHeightDisable = false;	if (sHeight.substr(sHeight.length-1) == \"% \"){	sHeightValue = sHeight.substring(0, sHeight.length-1);	sHeightUnit = \"% \";	}else{	sHeightUnit = \" \";	sHeightValue = parseInt(sHeight);	if (isNaN(sHeightValue)) sHeightValue = \" \";	}	}	switch(sWidthUnit){	case \"% \":	d_widthunit.selectedIndex = 1;	break;	default:	sWidthUnit = \" \";	d_widthunit.selectedIndex = 0;	break;	}	switch(sHeightUnit){	case \"% \":	d_heightunit.selectedIndex = 1;	break;	default:	sHeightUnit = \" \";	d_heightunit.selectedIndex = 0;	break;	}	d_widthvalue.value = sWidthValue;	d_widthvalue.disabled = bWidthDisable;	d_widthunit.disabled = bWidthDisable;	d_heightvalue.value = sHeightValue;	d_heightvalue.disabled = bHeightDisable;	d_heightunit.disabled = bHeightDisable;	d_bordercolor.value = sBorderColor;	s_bordercolor.style.backgroundColor = sBorderColor;	d_bgcolor.value = sBgColor;	s_bgcolor.style.backgroundColor = sBgColor;	d_widthcheck.checked = bWidthCheck;	d_heightcheck.checked = bHeightCheck;	d_image.value = sImage;	d_repeat.value = sRepeat;	d_attachment.value = sAttachment;}// 判断值是否大于0function MoreThanOne(obj, sErr){	var b=false;	if (obj.value!= \" \"){	obj.value=parseFloat(obj.value);	if (obj.value!= \"0 \"){	b=true;	}	}	if (b==false){	BaseAlert(obj,sErr);	return false;	}	return true;}	布局	水平对齐:	默认	左对齐	右对齐	水平居中	两端对齐	垂直对齐:	默认	顶边对齐	垂直居中	基线	底边对齐	尺寸 指定宽度	像素百分比 指定高度	像素百分比	样式	边框颜色:	边框样式:	默认	实线	虚线	破折号	双线	凹线	凸线	嵌入	开端	背景颜色:	背景图片:","null","null","");arrFiles[269]=new Array("vote/Dialog/tablecellsplit.htm","单元格拆分       ","\");// 判断值是否大于0function MoreThanOne(obj, sErr){	var b=false;	if (obj.value!= \" \"){	obj.value=parseFloat(obj.value);	if (obj.value!= \"0 \"){	b=true;	}	}	if (b==false){	BaseAlert(obj,sErr);	return false;	}	return true;}// 预览function doView(opt){	if (opt== \"col \"){	d_col.checked=true;	d_row.checked=false;	}else{	d_col.checked=false;	d_row.checked=true;	}	if (d_col.checked){	d_view.innerHTML = \" \";	d_label.innerHTML = \"列数: \";	}	if (d_row.checked){	d_view.innerHTML = \" \";	d_label.innerHTML = \"行数: \";	}}	拆分为列	拆分为行       ","null","null","");arrFiles[270]=new Array("vote/Dialog/fullscreen.htm","eWebEditor - 全屏编辑       ","null","null","null","");arrFiles[271]=new Array("vote/Dialog/about.htm","关于--&gt;&gt;在线文本编辑器       ","在线文本编辑器 &copy; 2004-2005 All Rights Reserved.","null","null","");arrFiles[272]=new Array("vote/Dialog/img.htm","图片属性（ \" + sTitle +  \"）       ","\");// 初始值function InitDocument(){	SearchSelectValue(d_filter, sFilter);	SearchSelectValue(d_align, sAlign.toLowerCase());	d_fromurl.value = sFromUrl;	d_alt.value = sAlt;	d_border.value = sBorder;	d_bordercolor.value = sBorderColor;	s_bordercolor.style.backgroundColor = sBorderColor;	d_width.value = sWidth;	d_height.value = sHeight;	d_vspace.value = sVSpace;	d_hspace.value = sHSpace;}// 图片来源单选点击事件function RadioClick(what){	if (what== \"url \"){	d_checkfromfile.checked=false;	d_fromurl.disabled=false;	d_checkfromurl.checked=true;	d_file.myform.uploadfile.disabled=true;	}else{	d_checkfromurl.checked=false;	d_file.myform.uploadfile.disabled=false;	d_checkfromfile.checked=true;	d_fromurl.disabled=true;	}}// 上传帧调入完成时执行function UploadLoaded(){	// 初始radio	RadioClick(sCheckFlag);}// 上传错误function UploadError(sErrDesc){	AbleItems();	RadioClick( \'file \');	divProcessing.style.display= \"none \";	try {	BaseAlert(d_file.myform.uploadfile,sErrDesc);	}	catch(e){}}// 文件上传完成时执行,带入上传文件名function UploadSaved(sPathFileName){	d_fromurl.value = sPathFileName;	ReturnValue();}// 本窗口返回值function ReturnValue(){	sFromUrl = d_fromurl.value;	sAlt = d_alt.value;	sBorder = d_border.value;	sBorderColor = d_bordercolor.value;	sFilter = d_filter.options[d_filter.selectedIndex].value;	sAlign = d_align.value;	sWidth = d_width.value;	sHeight = d_height.value;	sVSpace = d_vspace.value;	sHSpace = d_hspace.value;	if (sAction == \"MODI \") {	oControl.src = sFromUrl;	oControl.alt = sAlt;	oControl.border = sBorder;	oControl.style.borderColor = sBorderColor;	oControl.style.filter = sFilter;	oControl.align = sAlign;	oControl.width = sWidth;	oControl.height = sHeight;	oControl.style.width = sWidth;	oControl.style.height = sHeight;	oControl.vspace = sVSpace;	oControl.hspace = sHSpace;	}else{	var sHTML = \' \';	if (sFilter!= \" \"){	sHTML=sHTML+ \'filter: \'+sFilter+ \'; \';	}	if (sBorderColor!= \" \"){	sHTML=sHTML+ \'border-color: \'+sBorderColor+ \'; \';	}	if (sHTML!= \" \"){	sHTML= \' style= \" \'+sHTML+ \' \" \';	}	sHTML = \' \';	dialogArguments.insertHTML(sHTML);	var oTempElement = dialogArguments.eWebEditor.document.getElementById( \"eWebEditor_TempElement_Img \");	oTempElement.src = sFromUrl;	oTempElement.removeAttribute( \"id \");	}	window.returnValue = null;	window.close();}// 点确定时执行function ok(){	// 数字型输入的有效性	d_border.value = ToInt(d_border.value);	d_width.value = ToInt(d_width.value);	d_height.value = ToInt(d_height.value);	d_vspace.value = ToInt(d_vspace.value);	d_hspace.value = ToInt(d_hspace.value);	// 边框颜色的有效性	if (!IsColor(d_bordercolor.value)){	BaseAlert(d_bordercolor, \'提示： \\n \\n无效的边框颜色值！ \');	return false;	}	if (d_checkfromurl.checked){	// 返回值	ReturnValue();	}else{	// 上传文件判断	if (!d_file.CheckUploadForm()) return false;	// 使各输入框无效	DisableItems();	// 显示正在上传图片	divProcessing.style.display= \" \";	// 上传表单提交	d_file.myform.submit();	}}// 使所有输入框无效function DisableItems(){	d_checkfromfile.disabled=true;	d_checkfromurl.disabled=true;	d_fromurl.disabled=true;	d_alt.disabled=true;	d_border.disabled=true;	d_bordercolor.disabled=true;	d_filter.disabled=true;	d_align.disabled=true;	d_width.disabled=true;	d_height.disabled=true;	d_vspace.disabled=true;	d_hspace.disabled=true;	Ok.disabled=true;}// 使所有输入框有效function AbleItems(){	d_checkfromfile.disabled=false;	d_checkfromurl.disabled=false;	d_fromurl.disabled=false;	d_alt.disabled=false;	d_border.disabled=false;	d_bordercolor.disabled=false;	d_filter.disabled=false;	d_align.disabled=false;	d_width.disabled=false;	d_height.disabled=false;	d_vspace.disabled=false;	d_hspace.disabled=false;	Ok.disabled=false;}	图片来源	上传:	网络:	显示效果	说明文字:	边框粗细:	边框颜色:	特殊效果:	无	半透明	线型透明	放射透明	模糊效果风动模糊	正弦波纹	黑白照片白色透明	投射阴影	阴影	发光	垂直翻转	左右翻转	降低彩色	X光照片	底片	对齐方式:	默认	居左	居右	顶部	中部	底部	绝对居中	绝对底部	基线	文本顶部	图片宽度:	图片高度:	上下间距:	左右间距:	...图片上传中...请等待...","null","null","");arrFiles[273]=new Array("vote/Dialog/help/top.htm","NO TITLE","目录(D)","null","null","");arrFiles[274]=new Array("vote/Dialog/help/main.htm","在线使用帮助       ","帮助中心功能概述界面概述菜单栏使用说明编辑栏使用说明状态栏使用说明使用技巧疑难解答在线编辑器功能概述： 所见即所得的在线编辑器。顾名思义，就是能在网络上使用所见即所得的编辑方式进行编辑图文并茂的文章、新闻、讨论贴、通告、记事等多种文字处理应用。其主要特点如果下： 所见即所得 即通过编辑器编辑的文字、图片等HTML标记输出到页面的效果和编辑时显示的效果一致，让使用者方便地对编辑的内容进行修改、排版等。 自动转换为HTML代码 在编辑状态编辑的文字、图片等内容都在后台自动转换为可被浏览器识别的HTML标记语言，使用者更能在代码状态在对代码标记进行修改。 简单易用 编辑器的编辑及使用方法与FrontPage、Dreamweaver等著名主页制作软件类似。无需任何HTML语法知识、儍瓜式的操作让即使没有主页制作经验的使用者也能快速上手。 方便快捷 使用所见即所得的编辑器能快捷、方便地编辑出效果一流的图文效果，如果使用纯手工编写代码的方法编辑则需要浪费大量时间及精力。在线编辑器界面概述： 所见即所得的在线编辑器界面主要分为以下三大部分： 菜单栏 编辑器顶部为菜单栏，主要放置各种编辑功能的选项及按钮图标，使用者只需点击图标或选择相关选项即可实时对编辑栏编辑的内容进行添加或修改、修饰。 编辑栏 编辑器中部空白处为编辑栏，主要是供使用者输入及编辑内容所用，同时所编辑的内容全部都是所见即所得，但有部分内容，如活动的图像、文字、电影等在编辑状态下只会呈现静止状态，需使用者转换到预览状态方可真实再现。 状态栏 编辑器底部为状态栏，主要放置转换编辑器状态的按钮图标，状态共分为：代码状态、编辑状态（默认）、预览状态。具体每种状态的作用请详见帮助中心目录的“状态栏使用说明”。在线编辑器菜单栏使用说明： 一、编辑器菜单栏图标功能使用说明如下：	：设置字体样式为粗体。	：设置字体样式为斜体。	：设置字体样式为带下划线。	：设置字体样式为带中划线。	：设置字体样式为上标。	：设置字体样式为下标。	：设置字体变大。	：设置字体样变小。	：设置内容向左对齐。	：设置内容向右对齐。	：设置内容向中对齐。	：设置内容两端对齐。	：设置内容以编号列表形式排列。	：设置内容以列表项形式排列。	：减少内容的缩进量。	：增加内容的缩进量。	：设置字体的颜色。	：设置字体背景颜色。	：设置对象背景颜色。	：剪切指定内容。	：复制指定内容。	：粘贴剪贴板中的内容。	：以纯文件形式粘贴剪贴板中的内容。	：粘贴从Word中复制的内容，并去除冗余格式。	：删除指定内容。	：删除指定内容的格式。	：撒消上次操作。	：恢复上次操作。	：选定所有内容。	：取消选定的内容。	：表单菜单。	：插入文本输入框。	：插入文字区。	：插入单选按钮。	：插入复选框。	：插入下拉框。	：插入按钮。	：插入或修改字幕，即滚动文字。	：插入水平尺。	：插入换行符。	：插入段落。	：插入或修改超级链接。	：删除超级链接或标签。	：图形热点链接。	：标签管理。	：表格菜单。	：插入表格...。	：表格属性...。	：单元格属性...。	：拆分单元格...。	：表格行属性...。	：插入行（在上方）。	：插入行（在下方）。	：合并行（向下方）。	：拆分行。	插入列（在左侧）。	：插入列（在右侧）。	：合并列（向右侧）。	：拆分列。	：在指定位置插入或修改栏目框。	：在指定位置插入或修改网页帧。	：在指定位置插入或修改图片。	：在指定位置插入Flash动画。	：在指定位置插入自动播放的媒体文件。	：在指定位置插入其它文件。	：远程自动文件获取。	：在指定位置插入EXCEL表格。	：在指定位置插入特殊字符。	：指定位置的背景图片管理。	：在指定位置插入表情图标。	：在指定位置插入当前日期。	：在指定位置插入当前时间。	：转换指定内容为代码样式。	：转换指定内容为引用样式。	：显示或隐藏指导方针。	：查找替换功能。	：新建文档功能。	：相对或绝对位置设置功能。	：上移一层。	：下移一层。	：缩放菜单。	：增高编辑区。	：减小编辑区。	：转为代码状态。	：转为编辑状态。	：转为文本状态。	：转为预览状态。	：打印全页。	：保存内容到相关联的表单。	：打开全屏编辑。	：关闭全屏编辑并返回。	：弹窗保存并返回。	：查看在线使用帮助。	：关于编辑器的版权信息。	：工具菜单。	：文件视图菜单。	：编辑菜单。	：对象效果菜单。	：组件菜单。二、编辑器菜单栏下拉选项功能使用说明如下：	段落格式：设置文字内容的段落格式，使内容更加条理及便于阅读。	特殊字体格式：设置文字内容的特殊格式，包括删除线、飞行文字、移动文字等。	选择字体：设置文字内容的字体格式，可用自定义字体功能设置列表中没出列出的字体格式。注：需浏览者操作系统安装有相应字体文件才可正常显示自定义的字体。	字号：设置文字内容的大小。共分7种尺寸。	缩放：缩小或放大编辑区内的内容。 三、注意事项： 部分提供修改功能的按键或选项，只需选择原来插入的对象，再按同一按键或选项，即可进行修改。 部分提供设置功能的按键或选项，都可以通过再按一次按键或选项来取消前一次的设置。在线编辑器编辑栏使用说明： 编辑器编辑栏主要放置供使用者编辑内容的编辑框，若内容超出框架宽度或长度的话，会自动出现滚动条。另外还可通过状态栏的状态转换可转换编辑框的不同编辑状态。在线编辑器状态栏使用说明： 编辑器状态栏放置有编辑器状态转换栏，共有四种状态可供转换，详细如下： ：编辑状态(默认)，在此状态下所有编辑的内容皆为所见即所得的方式。 ：代码状态，在此状态下所有编辑的内容皆以HTML标记源代码方式显示或编辑。 ：文本状态，在此状态下所有编辑的内容皆以纯文本方式显示或编辑。 ：预览状态，在此状态下所有内容皆以不可编辑的页面输出方式显示，可利用此状态预览编辑内容输出后的效果。 编辑器使用技巧一览： 乾坤小挪移 如果在网络上看到哪篇文章或新闻甚至页面觉得不错的话，可以用鼠标将相应页面内容全部选择起来后，直接拖动或复制到编辑器的编辑框即可，而且原页面上的图片、文字、CSS样式、动态效果等都能原封不动地转移到编辑框，不用修改或添加任何代码。 巧用插入自动播放媒体功能 插入自动播放媒体功能可以自动识别各种媒体格式并用相应的播放器在页面自动播放，而且这个功能还能识别图像文件，压缩文件等。大家可以充分利用此功能编辑出更多色声俱全的内容。 灵活运用预览状态 编辑内容中带有动态效果、即时播放媒体、GIF动画等活动内容时，编辑状态中只能显示静态的图像或播放器界面，这时只需要将状态转换为预览状态就可以马上看到这些内容的动态实时效果，如果想继续编辑的话，只需再转换到编辑状态即可。在线编辑器疑难解答： Q：我不会任何HTML语法及没有任何主页制作经验，能用好这个编辑器吗？ A：绝对没有任何问题，因为编辑器是完全所见即所得的，所以HTML语法都在后台自动生成。至于使用方面，本编辑器也尽量做到简单易用，相信您能在短时间内学会使用这个功能强大的编辑器的。 Q：与普通文本输入框相比，HTML编辑器有什么优势之处？ A：最大的优势就是让使用者更方便快捷地编写出各种不同样式及效果的HTML内容，以往普通文本输入框要实现这些HTML效果的内容就需要使用者具备一定的HTML语法或UBB语法，而且编写内容的时候是手工编写代码方式的，除了不直观以外，还经常出现编写好内容并输出后才发现效果不理想等情况。而使用HTML编辑器则完全杜绝了这些情况的发生。 Q：为什么我无法使用编辑器的部分或全部功能？ A：因为编辑器使用了JAVASCRIPT客户端语言，如果浏览器不支持JAVASCRIPT或关闭了这个功能的话，编辑器就不能正常工作了。另外，编辑器还需要使用者的浏览器版本是IE5.0以上，否则编辑器同样不能正常工作。       ","null","null","");fileNum=275;