⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 tools.asp

📁 宁波娱乐在线城市,丰富的内容版块
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 

function UnFilterStr(str)
   str = replace(str,"&#38","&",1)
   str = replace(str,"&lt;","<",1)
   str = replace(str,"&gt;",">",1)
   str = Replace(str,"<P></P>",CHR(10) & CHR(10),1)
   str = Replace(str,"<BR>",CHR(10),1)
   str = replace(str,"｜","|",1)
   str = replace(str,"/","/",1)
   str = replace(str,"&#39;",CHR(39),1)
   str = replace(str,"&quot;",Chr(34),1)
   str = replace(str,"&nbsp;",Chr(32),1)
   str = Replace(str,"",CHR(13), 1)
   UnFilterStr = str
end function   
   


function ConvertStr(str)
Dim txt
Dim url
Dim urltxt
Dim email

    str = replace(str,"[开心]","<img src=images/smiles/01.gif>",1,-1,1)
    str = replace(str,"[爱困]","<IMG src=images/smiles/02.gif>",1,-1,1)
    str = replace(str,"[招手]","<IMG src=images/smiles/03.gif>",1,-1,1)
    str = replace(str,"[开扁]","<IMG src=images/smiles/04.gif>",1,-1,1)
    str = replace(str,"[撒娇]","<IMG src=images/smiles/05.gif>",1,-1,1)
    str = replace(str,"[胜利]","<IMG src=images/smiles/06.gif>",1,-1,1)
    str = replace(str,"[不屑]","<IMG src=images/smiles/07.gif>",1,-1,1)
    str = replace(str,"[欢呼]","<IMG src=images/smiles/08.gif>",1,-1,1)
    str = replace(str,"[兴奋]","<IMG src=images/smiles/09.gif>",1,-1,1)
    str = replace(str,"[郁闷]","<IMG src=images/smiles/10.gif>",1,-1,1)
	str = replace(str,"[写字]","<img src=images/smiles/11.gif>",1,-1,1)
    str = replace(str,"[飞吻]","<IMG src=images/smiles/12.gif>",1,-1,1)
	str = replace(str,"[加油]","<IMG src=images/smiles/13.gif>",1,-1,1)
    str = replace(str,"[鞠躬]","<IMG src=images/smiles/14.gif>",1,-1,1)
    str = replace(str,"[生气]","<IMG src=images/smiles/15.gif>",1,-1,1)
    str = replace(str,"[顽皮]","<IMG src=images/smiles/16.gif>",1,-1,1)
    str = replace(str,"[哭泣]","<IMG src=images/smiles/17.gif>",1,-1,1)
    str = replace(str,"[愤怒]","<IMG src=images/smiles/18.gif>",1,-1,1)
    str = replace(str,"[尴尬]","<IMG src=images/smiles/19.gif>",1,-1,1)
    str = replace(str,"[装帅]","<IMG src=images/smiles/20.gif>",1,-1,1)

    
    str = replace(str,"[b]","<B>",1,-1,1)
    str = replace(str,"[/b]","</B>",1,-1,1)
    str = replace(str,"[粗体]","<B>",1,-1,1)
    str = replace(str,"[/粗体]","</B>",1,-1,1)

    str = replace(str,"[i]","<I>",1,-1,1)
    str = replace(str,"[/i]","</I>",1,-1,1)
    str = replace(str,"[斜体]","<I>",1,-1,1)
    str = replace(str,"[/斜体]","</I>",1,-1,1)
    
    str = replace(str,"[u]","<U>",1,-1,1)
    str = replace(str,"[/u]","</U>",1,-1,1)
    
    str = replace(str,"[下划线]","<U>",1,-1,1)
    str = replace(str,"[/下划线]","</U>",1,-1,1)
        
    str = replace(str,"[strike]","<STRIKE>",1,-1,1)
    str = replace(str,"[/strike]","</STRIKE>",1,-1,1)
    
    str = replace(str,"[删除线]","<STRIKE>",1,-1,1)
    str = replace(str,"[/删除线]","</STRIKE>",1,-1,1)


    str=replace(str,"[black]","<font color=black>",1,-1,1)
    str=replace(str,"[/black]","</font color=black>",1,-1,1)
    str=replace(str,"[黑色]","<font color=black>",1,-1,1)
    str=replace(str,"[/黑色]","</font color=black>",1,-1,1)

    str=replace(str,"[red]","<font color=red>",1,-1,1)
    str=replace(str,"[/red]","</font color=red>",1,-1,1)

    str=replace(str,"[红色]","<font color=red>",1,-1,1)
    str=replace(str,"[/红色]","</font color=red>",1,-1,1)

    str=replace(str,"[blue]","<font color=blue>",1,-1,1)
    str=replace(str,"[/blue]","</font color=blue>",1,-1,1)

    str=replace(str,"[蓝色]","<font color=blue>",1,-1,1)
    str=replace(str,"[/蓝色]","</font color=blue>",1,-1,1)

    str=replace(str,"[white]","<font color=white>",1,-1,1)
    str=replace(str,"[/white]","</font color=white>",1,-1,1)

    str=replace(str,"[白色]","<font color=white>",1,-1,1)
    str=replace(str,"[/白色]","</font color=white>",1,-1,1)

    str=replace(str,"[green]","<font color=green>",1,-1,1)
    str=replace(str,"[/green]","</font color=green>",1,-1,1)

    str=replace(str,"[绿色]","<font color=green>",1,-1,1)
    str=replace(str,"[/绿色]","</font color=green>",1,-1,1)

    str=replace(str,"[gray]","<font color=gray>",1,-1,1)
    str=replace(str,"[/gray]","</font color=gray>",1,-1,1)

    str=replace(str,"[灰色]","<font color=gray>",1,-1,1)
    str=replace(str,"[/灰色]","</font color=gray>",1,-1,1)


    str=replace(str,"[yellow]","<font color=yellow>",1,-1,1)
    str=replace(str,"[/yellow]","</font color=yellow>",1,-1,1)

    str=replace(str,"[黄色]","<font color=yellow>",1,-1,1)
    str=replace(str,"[/黄色]","</font color=yellow>",1,-1,1)

    str=replace(str,"[purple]","<font color=purple>",1,-1,1)
    str=replace(str,"[/purple]","</font color=purple>",1,-1,1)

    str=replace(str,"[紫色]","<font color=purple>",1,-1,1)
    str=replace(str,"[/紫色]","</font color=purple>",1,-1,1)

    str=replace(str,"[olive]","<font color=olive>",1,-1,1)
    str=replace(str,"[/olive]","</font color=olive>",1,-1,1)

    str=replace(str,"[橄榄色]","<font color=olive>",1,-1,1)
    str=replace(str,"[/橄榄色]","</font color=olive>",1,-1,1)


    str=replace(str,"[navy]","<font color=navy>",1,-1,1)
    str=replace(str,"[/navy]","</font color=navy>",1,-1,1)

    str=replace(str,"[深蓝色]","<font color=navy>",1,-1,1)
    str=replace(str,"[/深蓝色]","</font color=navy>",1,-1,1)


    str=replace(str,"[aqua]","<font color=aqua>",1,-1,1)
    str=replace(str,"[/aqua]","</font color=aqua>",1,-1,1)

    str=replace(str,"[浅绿色]","<font color=aqua>",1,-1,1)
    str=replace(str,"[/浅绿色]","</font color=aqua>",1,-1,1)

    str=replace(str,"[lime]","<font color=lime>",1,-1,1)
    str=replace(str,"[/lime]","</font color=lime>",1,-1,1)

    str=replace(str,"[亮绿色]","<font color=lime>",1,-1,1)
    str=replace(str,"[/亮绿色]","</font color=lime>",1,-1,1)

    str=replace(str,"[maroon]","<font color=maroon>",1,-1,1)
    str=replace(str,"[/maroon]","</font color=maroon>",1,-1,1)

    str=replace(str,"[茶色]","<font color=maroon>",1,-1,1)
    str=replace(str,"[/茶色]","</font color=maroon>",1,-1,1)

    str=replace(str,"[teal]","<font color=teal>",1,-1,1)
    str=replace(str,"[/teal]","</font color=teal>",1,-1,1)

    str=replace(str,"[青色]","<font color=teal>",1,-1,1)
    str=replace(str,"[/青色]","</font color=teal>",1,-1,1)

    str=replace(str,"[fuchsia]","<font color=fuchsia>",1,-1,1)
    str=replace(str,"[/fuchsia]","</font color=fuchsia>",1,-1,1)    

    str=replace(str,"[紫红色]","<font color=fuchsia>",1,-1,1)
    str=replace(str,"[/紫红色]","</font color=fuchsia>",1,-1,1)    

    str = replace(str,"[sound]","<BGSOUND SRC=",1,-1,1)
    str = replace(str,"[/sound]"," LOOP=0>",1,-1,1)

    str = replace(str,"[音乐]","<BGSOUND SRC=",1,-1,1)
    str = replace(str,"[/音乐]"," LOOP=-1>",1,-1,1)

    str = replace(str,"[marquee]","<marquee>",1,-1,1)
    str = replace(str,"[/marquee]","</marquee>",1,-1,1)
    
    str = replace(str,"[移动文字]","<marquee>",1,-1,1)
    str = replace(str,"[/移动文字]","</marquee>",1,-1,1)    

    str = replace(str,"[img]","<IMG border=0 SRC=",1,-1,1)
    str = replace(str,"[/img]"," name=tx>",1,-1,1)
    
    str = replace(str,"[图像]","<IMG border=0 SRC=",1,-1,1)
    str = replace(str,"[/图像]"," name=tx>",1,-1,1)

	str = replace(str,"[rm]","<embed console=Clip1 SRC=",1,-1,1)
    str = replace(str,"[/rm]"," type=audio/x-pn-realaudio-plugin controls=ControlPanel,StatusBar height=55 width=210 autostart=true>",1,-1,1)

	str = replace(str,"[引用]","<TABLE border=0 cellPadding=0 cellSpacing=0 class=tablebody2 style=TABLE-LAYOUT: fixed; WORD-BREAK: break-all width=90% ><TR><TD background=images/top_l.gif height=8 width=14></TD><TD background=images/top_c.gif></TD><TD background=images/top_r.gif width=16></TD></TR><TR><TD background=images/center_l.gif width=14></TD><TD bgColor=#fffff1 style=FONT-SIZE: 14px; LINE-HEIGHT: 12pt>",1,-1,1)
    str = replace(str,"[/引用]","</TD><TD background=images/center_r.gif width=16></TD></TR><TR><TD background=images/foot_l1.gif width=14></TD><TD background=images/foot_c.gif><img src=images/foot_l3.gif></TD><TD background=images/foot_r.gif width=16></TD></TR></TABLE>",1,-1,1)
    
    do while true
        txt = GetPartEx(LCase(str),"[flash]",2)
        if txt = "" then exit do
        url = GetPartEx(txt,"[/flash]",1)
        
        str = replace(str,"[flash]","<object classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000  codebase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0 width=550 height=400 id=ShockwaveFlash1><param name=movie value=",1,1,1)
        str = replace(str,"[/flash]","><param name=quality value=high><embed src="&url&" quality=high pluginspage=http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash type=application/x-shockwave-flash width=550 height=400></embed></object>",1,1,1)
    loop
    
    do while true
        txt = GetPartEx(str,"[动画]",2)
        if txt = "" then exit do
        url = GetPartEx(txt,"[/动画]",1)
        
        str = replace(str,"[动画]","<object classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000  codebase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0 width=550 height=400 id=ShockwaveFlash1><param name=movie value=",1,1,1)
        str = replace(str,"[/动画]","><param name=quality value=high><embed src="&url&" quality=high pluginspage=http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash type=application/x-shockwave-flash width=550 height=400></embed></object>",1,1,1)
    loop

	do while true
        txt = GetPartEx(str,"[mp]",2)
        if txt = "" then exit do
        url = GetPartEx(txt,"[/mp]",1)
        
        str = replace(str,"[mp]","<object align=middle classid=CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95 class=OBJECT id=MediaPlayer><param name=ShowStatusBar value=-1><param name=Filename value=",1,1,1)
        str = replace(str,"[/mp]","><embed type=application/x-oleobject codebase=http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701 flename=mp src="&url&"></embed></object>",1,1,1)
    loop
    
    do while true
        txt = GetPartEx(LCase(str),"[email]",2)
        if txt = "" then exit do    
        email = GetPartEx(LCase(txt),"[/email]",1)
           
        str = replace(str,"[email]","<A href=mailto:",1,1,1)
        str = replace(str,"[/email]",">"&email&"</A>",1,1,1)
    loop
    
    do while true
        txt = GetPartEx(str,"[邮件链接]",2)
        if txt = "" then exit do  
        email = GetPartEx(txt,"[/邮件链接]",1)
           
        str = replace(str,"[邮件链接]","<A href=mailto:",1,1,1)
        str = replace(str,"[/邮件链接]",">"&email&"</A>",1,1,1)
    loop
        
        
         
    do while true
        txt = GetPartEx(LCase(str),"[url=",2)
        if txt = "" then exit do
        url = GetPartEx(txt,"]",1)
        txt = GetPartEx(txt,"[/url]",1)
        urltxt = GetPartEx(txt,"]",2)
        
        str = replace(str,"[url="&url&"]","<A href="&url&" target=_blank>"&urltxt,1,1,1)
        str = replace(str,urltxt&"[/url]","</A>",1,1,1)
        
    loop    
        
    do while true
        txt = GetPartEx(str,"[超级链接=",2)
        if txt = "" then exit do 
        url = GetPartEx(txt,"]",1)
        txt = GetPartEx(txt,"[/超级链接]",1)
        urltxt = GetPartEx(txt,"]",2)
        
        str = replace(str,"[超级链接="&url&"]","<A href="&url&" target=_blank>"&urltxt,1,1,1)
        str = replace(str,urltxt&"[/超级链接]","</A>",1,1,1)
    loop  
                
    ConvertStr = str
end function
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -