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

📄 tools.asp

📁 宁波娱乐在线城市,丰富的内容版块
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
function UnConvertStr(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>","[粗体]",1,-1,1)
    str = replace(str,"</B>","[/粗体]",1,-1,1)

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


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

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

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

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

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

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


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

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

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


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


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

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

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

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

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

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

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

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

	str = replace(str,"<embed console=Clip1 SRC=","[rm]",1,-1,1)
    str = replace(str," type=audio/x-pn-realaudio-plugin controls=ControlPanel,StatusBar height=55 width=210 autostart=true>","[/rm]",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(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=",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,"<object align=middle classid=CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95 class=OBJECT id=MediaPlayer><param name=ShowStatusBar value=-1><param name=Filename value=",2)
    if txt = "" then exit do
    url = GetPartEx(txt,">",1)
    
    str = replace(str,"<object align=middle classid=CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95 class=OBJECT id=MediaPlayer><param name=ShowStatusBar value=-1><param name=Filename value=","[mp]",1,1,1)
    str = replace(str,"><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>","[/mp]",1,1,1)
 loop   
     
    
    
    do while true
        txt = GetPartEx(LCase(str),"<a href=mailto:",2)
        if txt = "" then exit do    
        email = GetPartEx(txt,">",1)
           
        str = replace(LCase(str),"<a href=mailto:"&email&">","[邮件链接]",1,1,1)
        str = replace(LCase(str),email&"</a>",email&"[/邮件链接]",1,1,1)
      loop
    
        
    do while true
        txt = GetPartEx(LCase(str),"<a href=",2)
        if txt = "" then exit do
        url = GetPartEx(txt," target=_blank>",1)
        txt = GetPartEx(txt,">",2)
        urltxt = GetPartEx(txt,"</a",1)
        
        str = replace(LCase(str),"<a href="&url&" target=_blank>","[超级链接="&url&"]",1,1,1)
        str = replace(LCase(str),urltxt&"</a>",urltxt&"[/超级链接]",1,1,1)
    loop  
                
    UnConvertStr = str
end function



function IIF(exp,str1,str2)
    if exp then
        IIF = str1
    else
        IIF = str2
    end if
end function            

Sub ShowMessage(tp,msg) 
    select case tp
        case 0
            Response.Redirect("msg.asp?msg="&msg)
        case 1
            Response.Write("<SCRIPT LANGUAGE=javascript>"&Chr(13)&Chr(10))
            Response.Write("<!--"&Chr(13)&Chr(10))
            Response.Write("l = screen.width/2-150;"&Chr(13)&Chr(10))
            Response.Write("t = screen.height/2-65;"&Chr(13)&Chr(10))
            Response.Write("window.open('msg.asp?msg="&msg&"','fMSG','scrollbars=no,toolbar=no,menubar=no,location=no,status=no,resizable=no,width=300,height=130,left='"&"+l+"&"'top='"&"+t);"&Chr(13)&Chr(10))
            Response.Write("history.back();"&Chr(13)&Chr(10))
            Response.Write("//-->"&Chr(13)&Chr(10))
            Response.Write("</SCRIPT>"&Chr(13)&Chr(10))
        case 2
            Response.Write("<SCRIPT LANGUAGE=javascript>"&Chr(13)&Chr(10))
            Response.Write("<!--"&Chr(13)&Chr(10))
            Response.Write("l = screen.width/2-150;"&Chr(13)&Chr(10))
            Response.Write("t = screen.height/2-65;"&Chr(13)&Chr(10))
            Response.Write("window.open('msg.asp?msg="&msg&"','fMSG','scrollbars=no,toolbar=no,menubar=no,location=no,status=no,resizable=no,width=300,height=130,left='"&"+l+"&"',top='"&"+t);"&Chr(13)&Chr(10))
            Response.Write("window.close();"&Chr(13)&Chr(10))       
            Response.Write("//-->"&Chr(13)&Chr(10))
            Response.Write("</SCRIPT>"&Chr(13)&Chr(10))    
        case 3
            Response.Write("<SCRIPT LANGUAGE=javascript>"&Chr(13)&Chr(10))
            Response.Write("<!--"&Chr(13)&Chr(10))
            Response.Write("l = screen.width/2-150;"&Chr(13)&Chr(10))
            Response.Write("t = screen.height/2-65;"&Chr(13)&Chr(10))
            Response.Write("window.open('msg.asp?msg="&msg&"','fMSG','scrollbars=no,toolbar=no,menubar=no,location=no,status=no,resizable=no,width=300,height=130,left='"&"+l+"&"',top='"&"+t);"&Chr(13)&Chr(10))
            Response.Write("//-->"&Chr(13)&Chr(10))
            Response.Write("</SCRIPT>"&Chr(13)&Chr(10))
        case 4
            Response.Write("<SCRIPT LANGUAGE=javascript>"&Chr(13)&Chr(10))
            Response.Write("<!--"&Chr(13)&Chr(10))
            Response.Write("l = screen.width/2-150;"&Chr(13)&Chr(10))
            Response.Write("t = screen.height/2-65;"&Chr(13)&Chr(10))
            Response.Write("window.open('../../msg.asp?msg="&msg&"','fMSG','scrollbars=no,toolbar=no,menubar=no,location=no,status=no,resizable=no,width=300,height=130,left='"&"+l+"&"',top='"&"+t);"&Chr(13)&Chr(10))
            Response.Write("//-->"&Chr(13)&Chr(10))
            Response.Write("</SCRIPT>"&Chr(13)&Chr(10))
         case 5
            Response.Write("<SCRIPT LANGUAGE=javascript>"&Chr(13)&Chr(10))
            Response.Write("<!--"&Chr(13)&Chr(10))
            Response.Write("l = screen.width/2-150;"&Chr(13)&Chr(10))
            Response.Write("t = screen.height/2-65;"&Chr(13)&Chr(10))
            Response.Write("window.open('../msg.asp?msg="&msg&"','fMSG','scrollbars=no,toolbar=no,menubar=no,location=no,status=no,resizable=no,width=300,height=130,left='"&"+l+"&"',top='"&"+t);"&Chr(13)&Chr(10))
            Response.Write("//-->"&Chr(13)&Chr(10))
            Response.Write("</SCRIPT>"&Chr(13)&Chr(10)) 
     end select
end Sub

Sub ShowError(tp,msg)
    select case tp
        case 0
            Response.Redirect("error.asp?msg="&msg)
        case 1
            Response.Write("<SCRIPT LANGUAGE=javascript>"&Chr(13)&Chr(10))
            Response.Write("<!--"&Chr(13)&Chr(10))
            Response.Write("l = screen.width/2-150;"&Chr(13)&Chr(10))
            Response.Write("t = screen.height/2-65;"&Chr(13)&Chr(10))
            Response.Write("window.open('error.asp?msg="&msg&"','fERROR','scrollbars=no,toolbar=no,menubar=no,location=no,status=no,resizable=no,width=300,height=130,left='"&"+l+"&"',top='"&"+t);"&Chr(13)&Chr(10))
            Response.Write("history.back();"&Chr(13)&Chr(10))       
            Response.Write("//-->"&Chr(13)&Chr(10))
            Response.Write("</SCRIPT>"&Chr(13)&Chr(10))    
        case 2
            Response.Write("<SCRIPT LANGUAGE=javascript>"&Chr(13)&Chr(10))
            Response.Write("<!--"&Chr(13)&Chr(10))
            Response.Write("l = screen.width/2-150;"&Chr(13)&Chr(10))
            Response.Write("t = screen.height/2-65;"&Chr(13)&Chr(10))
            Response.Write("window.open('error.asp?msg="&msg&"','fERROR','scrollbars=no,toolbar=no,menubar=no,location=no,status=no,resizable=no,width=300,height=130,left='"&"+l+"&"',top='"&"+t);"&Chr(13)&Chr(10))
            Response.Write("window.close();"&Chr(13)&Chr(10))       
            Response.Write("//-->"&Chr(13)&Chr(10))
            Response.Write("</SCRIPT>"&Chr(13)&Chr(10))
        case 3
            Response.Write("<SCRIPT LANGUAGE=javascript>"&Chr(13)&Chr(10))
            Response.Write("<!--"&Chr(13)&Chr(10))
            Response.Write("l = screen.width/2-150;"&Chr(13)&Chr(10))
            Response.Write("t = screen.height/2-65;"&Chr(13)&Chr(10))
            Response.Write("window.open('error.asp?msg="&msg&"','fERROR','scrollbars=no,toolbar=no,menubar=no,location=no,status=no,resizable=no,width=300,height=130,left='"&"+l+"&"',top='"&"+t);"&Chr(13)&Chr(10))
            Response.Write("//-->"&Chr(13)&Chr(10))
            Response.Write("</SCRIPT>"&Chr(13)&Chr(10))
        case 4
            Response.Write("<SCRIPT LANGUAGE=javascript>"&Chr(13)&Chr(10))
            Response.Write("<!--"&Chr(13)&Chr(10))
            Response.Write("l = screen.width/2-150;"&Chr(13)&Chr(10))
            Response.Write("t = screen.height/2-65;"&Chr(13)&Chr(10))
            Response.Write("window.open('../../error.asp?msg="&msg&"','fERROR','scrollbars=no,toolbar=no,menubar=no,location=no,status=no,resizable=no,width=300,height=130,left='"&"+l+"&"',top='"&"+t);"&Chr(13)&Chr(10))
            Response.Write("//-->"&Chr(13)&Chr(10))
            Response.Write("</SCRIPT>"&Chr(13)&Chr(10)) 
         case 5
            Response.Write("<SCRIPT LANGUAGE=javascript>"&Chr(13)&Chr(10))
            Response.Write("<!--"&Chr(13)&Chr(10))
            Response.Write("l = screen.width/2-150;"&Chr(13)&Chr(10))
            Response.Write("t = screen.height/2-65;"&Chr(13)&Chr(10))
            Response.Write("window.open('../error.asp?msg="&msg&"','fERROR','scrollbars=no,toolbar=no,menubar=no,location=no,status=no,resizable=no,width=300,height=130,left='"&"+l+"&"',top='"&"+t);"&Chr(13)&Chr(10))
            Response.Write("//-->"&Chr(13)&Chr(10))
            Response.Write("</SCRIPT>"&Chr(13)&Chr(10)) 
    end select     
end Sub


%>
123

⌨️ 快捷键说明

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