UC知道求一段代码，高分感谢！
来源：百度知道 编辑：UC知道 时间：2024/05/23 00:03:05
例如地址图片地址http://www.123.com/xxx.jpg
我想在论坛发布地址使用我的域名http://www.myname.com来连接到图片地址，
例如http://www.myname.com/?url=http://www.123.com/xxx.jpg,要求这样能在论坛发布贴图并且显示正常，
同时要求如果单独在浏览器输入http://www.myname.com/?url=http://www.123.com/xxx.jpg 要自动转入我的网站http://www.myname.com
等待高手出现？！！！！
使用asp实现，谢谢
我想在论坛发布地址使用我的域名http://www.myname.com来连接到图片地址，
例如http://www.myname.com/?url=http://www.123.com/xxx.jpg,要求这样能在论坛发布贴图并且显示正常，
同时要求如果单独在浏览器输入http://www.myname.com/?url=http://www.123.com/xxx.jpg 要自动转入我的网站http://www.myname.com
等待高手出现？！！！！
使用asp实现，谢谢
<%
'盗链判断
Dim server_v1,server_v2
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.Write "非法的盗链"
Response.End
End If
Dim url, body, myCache
url = Request.QueryString("url")
Set myCache = new cache
myCache.name = "picindex"&url
If myCache.valid Then
body = myCache.value
Else
body = GetWebData(url)
myCache.add body,dateadd("d",1,now)
End If
If Err.Number = 0 Then
Response.CharSet = "UTF-8"
Response.ContentType = "application/octet-stream"
Response.BinaryWrite body
Response.Flush
Else
Wscript.Echo Err.Description
End if
'取得数据