涂鸦代理：强行引用反盗链图片

    <script type="text/javascript" src="http://www.myfootprints.cn/jsLib/mfMessage.js"></script>      <script type="text/javascript"> 
<!--
    var oInfo = new mfMessage(); 

    // 将焦点置于第一个输入框上
    oInfo.addEventHandler(window, 'load', function () {
            oInfo.focusOnFirstFormElement();
            }); 
    
    // 生成图片链接地址
    function generateUrl() {
        var sRssUrl = document.getElementById('link').value;
        var reUrl = /^(http:\/\/)?(\w+\.)?([\w|-]+)\.\w+.*[^.]$/;
        if (sRssUrl.length <= 0) {
            return;
        }
        if (!reUrl.test(sRssUrl)) {
            return;
        }
        var sDoodleImageRSSUrl = 'http://www.myfootprints.cn/ASPAgent.asp';
        sDoodleImageRSSUrl += '?url=' + encodeURIComponent(sRssUrl) + '&contentType=image/*';
        // 由于有些地方会对链接类型做检查，后缀名不是图片格式则非法，所以多加一个参数
        sDoodleImageRSSUrl += '&imgType=.jpg';
        document.getElementById('doodleLink').value = sDoodleImageRSSUrl;

        var oImg = document.getElementById('imagePreview');
        oImg.src = sDoodleImageRSSUrl;

        return sDoodleImageRSSUrl;
    }

    // 输入框里的按键事件捕获
    function catchKeyup() {
        var oEvent = oInfo.getEvent(window.event);
        if (oEvent.keyCode == 13) {
            if (oEvent.target == document.getElementById('link')) {
                // 生成图片的链接地址
                generateUrl();
            } else if (oEvent.target == document.getElementById('doodleLink')) {
                // 复制图片的链接地址
                copyIt(oEvent.target);
            }
        }
        return false;
    }

    // 复制对象内容
    function copyIt(o) {
        try {
            if (o.value.length > 0) {
                o.select();
                window.document.execCommand('Copy');

                oInfo.showMessage('涂鸦代理链接复制成功。', true);
            }
        } catch (oError) {
            oInfo.showMessage('发生意外，请用鼠标右键->复制或者Ctrl+C复制。');
        }
    }
    
//-->
</script>

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% Option Explicit %>
<%Session.CodePage=65001%>
<%
    Response.CharSet = "utf-8"
%>
<%    
    Dim sRSSUrl, oHTTP, charset, contentType
    sRSSUrl = Request.QueryString("url")
    charset = Request.QueryString("charset")
    contentType = Request.QueryString("contentType")
If Len(contentType) &lt;= 0 Then
    contentType = "text/html"
End If
Response.ContentType = contentType

If Len(charset) &lt;= 0 Then
    charset = "utf-8"
End If

If Len(sRSSUrl) &gt; 0 Then

    Set oHTTP = Server.CreateObject("Microsoft.XMLHTTP")
    oHTTP.Open "GET", sRSSURL, False
    oHTTP.Send
    
    if contentType = "text/html" Then        
        If charset = "utf-8" Then
            Response.Write oHTTP.ResponseText
        Else
            Response.Write Cbns2TextStream(oHTTP.ResponseBody, charset)
        End If
    Else
        Response.AddHeader "Content-Disposition", "attachment; filename=" &amp; "OpenItWithYourPhotoViewer.jpg"
        Response.BinaryWrite oHTTP.ResponseBody
    End If
    Set oHTTP = Nothing
Else
    Response.Write ""
End If

%>
<%
'
' 将指定的二进制串转换成特定编码的文本
'
Public Function Cbns2TextStream(ByRef bns, ByRef sCharset)
Dim stm
    Set stm = Server.CreateObject("ADODB.Stream")
    stm.Type = 2
    stm.Open
    stm.WriteText bns
    stm.Position = 0
    If Len(sCharset) &gt; 0 Then stm.Charset = sCharset
    Cbns2TextStream = stm.ReadText
    stm.Close
    Set stm = Nothing
End Function 

%>