function.asp

最流行的HTTP服务器软件之一。快速、可靠、可通过简单的API扩展

<%
'滚轮控制图片函数
Function bbimg(strText)
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
Dim s
s=strText
re.Pattern="<img(.[^>]*)>"
s=re.replace(s,"<img onclick=javascript:window.open(this.src); onload=javascript:resizepic(this) onmousewheel='return bbimg(this)' alt='点击在新窗口中打开图片' $1>")
response.Write s
End Function



'转换符号，防止非法语句
function HTMLEncode(fString)
if not isnull(fString) then
    fString = replace(fString, ">", "&gt;")
    fString = replace(fString, "<", "&lt;")
    fString = Replace(fString, CHR(32), "&nbsp;")
    fString = Replace(fString, CHR(9), "&nbsp;")
    fString = Replace(fString, CHR(34), "&quot;")
    fString = Replace(fString, CHR(39), "&#39;")
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10) & CHR(10), "&nbsp; ")
    fString = Replace(fString, CHR(10), "&nbsp; ")
    HTMLEncode = fString
end if
end function

''检测是否从外部提交数据
sub checkpost()
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
   response.redirect("error.asp?title="&server.URLEncode("禁止从外部提交数据")&"")
   response.end
end if
end sub

sub htmledit
%>
<link rel="Stylesheet" type="text/css" href="edit/edit.css">
<Script src="edit/DhtmlEdit.js"></Script>
<iframe id=d_file frameborder=0 src="upload.asp" width="100%" height="30" scrolling=no></iframe>
<div id="myweb_edit">
	<ul id="ExtToolbar0">
	<li >
	<select id="myweb_formatSelect"  onchange="myweb_doSelectClick('FormatBlock',this)">
	<option>段落格式</option>
	<option value="&lt;P&gt;">普通格式 
	<option value="&lt;H1&gt;">标题 1 
	<option value="&lt;H2&gt;">标题 2 
	<option value="&lt;H3&gt;">标题 3 
	<option value="&lt;H4&gt;">标题 4 
	<option value="&lt;H5&gt;">标题 5 
	<option value="&lt;H6&gt;">标题 6 
	<option value="&lt;H7&gt;">标题 7 
	<option value="&lt;PRE&gt;">已编排格式 
	<option value="&lt;ADDRESS&gt;">地址 
	</select>
	<select language="javascript" class="myweb_TBGen" id="FontName" onchange="FormatText ('fontname',this[this.selectedIndex].value);">
	<option class="heading" selected>字体 
	<option value="宋体">宋体 
	<option value="黑体">黑体 
	<option value="楷体_GB2312">楷体 
	<option value="仿宋_GB2312">仿宋 
	<option value="隶书">隶书 
	<option value="幼圆">幼圆 
	<option value="新宋体">新宋体 
	<option value="细明体">细明体 
	<option value="Arial">Arial 
	<option value="Arial Black">Arial Black 
	<option value="Arial Narrow">Arial Narrow 
	<option value="Bradley Hand ITC">Bradley Hand ITC 
	<option value="Brush Script	MT">Brush Script MT 
	<option value="Century Gothic">Century Gothic 
	<option value="Comic Sans MS">Comic Sans MS 
	<option value="Courier">Courier 
	<option value="Courier New">Courier New 
	<option value="MS Sans Serif">MS Sans Serif 
	<option value="Script">Script 
	<option value="System">System 
	<option value="Times New Roman">Times New Roman 
	<option value="Viner Hand ITC">Viner Hand ITC 
	<option value="Verdana">Verdana 
	<option value="Wide Latin">Wide Latin 
	<option value="Wingdings">Wingdings</option>
	</select>
	<select language="javascript" class="myweb_TBGen" id="FontSize" onchange="FormatText('fontsize',this[this.selectedIndex].value);">                                   
	<option class="heading" selected>字号 
	<option value="1">1 
	<option value="2">2 
	<option value="3">3 
	<option value="4">4 
	<option value="5">5 
	<option value="6">6 
	<option value="7">7</option>
	</select>
	</li>
	<li class="myweb_Btn" title="字体颜色" language="javascript" onclick="myweb_foreColor();" onmouseover=this.className='myweb_BtnMouseOverUp'; onmouseout=this.className='myweb_Btn'; > 
	<img class="myweb_Ico" src="edit/fgcolor.gif" /> 
	</li>
	<li class="myweb_Btn" title="字体背景颜色" language="javascript" onclick="myweb_backColor();ondrag='return false;'" onmouseover=this.className='myweb_BtnMouseOverUp'; onmouseout=this.className='myweb_Btn';> 
	<img class="myweb_Ico" src="edit/fbcolor.gif" /> 
	</li>
	<li class="myweb_Btn" title="插入特殊符号" language="javascript" onclick="insertSpecialChar();" onmouseover=this.className='myweb_BtnMouseOverUp'; onmouseout=this.className='myweb_Btn';> 
	<img class="myweb_Ico" src="edit/specialchar.gif" /></li>
	<li class="myweb_Btn" title="替换" language="javascript" onclick="myweb_replace();" onmouseover=this.className='myweb_BtnMouseOverUp'; onmouseout=this.className='myweb_Btn';> 
	<img class="myweb_Ico" src="edit/replace.gif" /> 
	</li>
	<li class="myweb_Btn" title="清理代码" language="javascript" onclick="myweb_CleanCode();ondrag='return false;'" onmouseover=this.className='myweb_BtnMouseOverUp'; onmouseout=this.className='myweb_Btn';> 
	<img class="myweb_Ico" src="edit/cleancode.gif" /></li>
	<li> 
	<select ID="Zoom" class="myweb_TBGen" onchange="doZoom(this)" >
	<option value="100">100% 
	<option value="50">50% 
	<option value="75">75% 
	<option value="100">100% 
	<option value="125">125% 
	<option value="150">150% 
	<option value="175">175% 
	<option value="200">200%</option>
	</select>
	</li>
     <li class="myweb_Btn" title="帮助" language="javascript" onclick="myweb_help();ondrag='return false;'" onmouseover=this.className='myweb_BtnMouseOverUp'; onmouseout=this.className='myweb_Btn';> <img src="edit/help.gif" class="myweb_Ico" border="0">
	</li>        
	</ul>
	<ul id="ExtToolbar1"> 
	<li class="myweb_Btn" title="全选" language="javascript" onclick="FormatText('selectAll');ondrag='return false;'" onmouseover=this.className='myweb_BtnMouseOverUp'; onmouseout=this.className='myweb_Btn' > 
	<img class="myweb_Ico" src="edit/selectAll.gif" /> 
	</li>
	<li class="myweb_Btn" title="剪切" language="javascript" onclick="FormatText('cut');ondrag='return false;'" onmouseover=this.className='myweb_BtnMouseOverUp'; onmouseout=this.className='myweb_Btn'; > 
	<img class="myweb_Ico" src="edit/cut.gif" /> 
	</li>
	<li class="myweb_Btn" title="复制" language="javascript" onclick="FormatText('copy');ondrag='return false;'" onmouseover=this.className='myweb_BtnMouseOverUp'; onmouseout=this.className='myweb_Btn'; > 
	<img class="myweb_Ico" src="edit/copy.gif" /> 
	</li>
	<li class="myweb_Btn" title="粘贴" language="javascript" onclick="FormatText('paste');ondrag='return false;'" onmouseover=this.className='myweb_BtnMouseOverUp'; onmouseout=this.className='myweb_Btn'; > 
	<img class="myweb_Ico" src="edit/paste.gif" /> 
	</li>
	<li class="myweb_Btn" title="撤消" language="javascript" onclick="FormatText('undo');ondrag='return false;'" onmouseover=this.className='myweb_BtnMouseOverUp'; onmouseout=this.className='myweb_Btn'; > 
	<img class="myweb_Ico" src="edit/undo.gif" /> 
	</li>
	<li class="myweb_Btn" title="恢复" language="javascript" onclick="FormatText('redo');ondrag='return false;'" onmouseover=this.className='myweb_BtnMouseOverUp'; onmouseout=this.className='myweb_Btn'; > 
	<img class="myweb_Ico" src="edit/redo.gif" /> 
	</li>
	<li class="myweb_Btn" title="插入超级链接" language="javascript" onclick="myweb_forlink();ondrag='return false;'" onmouseover=this.className='myweb_BtnMouseOverUp'; onmouseout=this.className='myweb_Btn'; > 
	<img class="myweb_Ico" src="edit/wlink.gif" > 
	</li>
	<li class="myweb_Btn" title="去掉超级链接" language="javascript" onclick="FormatText('Unlink');ondrag='return false;'" onmouseover=this.className='myweb_BtnMouseOverUp'; onmouseout=this.className='myweb_Btn'; > 
	<img class="myweb_Ico" src="edit/unlink.gif" /> 
	</li>
	<li class="myweb_Btn" title="插入图片" language="javascript" onclick="myweb_forimg();ondrag='return false;'" onmouseover=this.className='myweb_BtnMouseOverUp'; onmouseout=this.className='myweb_Btn'; > 
	<img class="myweb_Ico" src="edit/img.gif" /> 
	</li>
	<li class="myweb_Btn" title="插入水平线" language="javascript" onclick="FormatText('InsertHorizontalRule', '');ondrag='return false;'" onmouseover=this.className='myweb_BtnMouseOverUp'; onmouseout=this.className='myweb_Btn'; >