针对有网友说看不见文章内容，
现提示如下:
点击每一个标题行任一地方都会展开和隐藏此文章内容(不要点击标题).
目前展开隐藏功能只支持IE浏览器，虽然可以改成支持FF浏览器，不过现在一直没时间去弄，等有时间再修改了。 |
|
blog名称:乱闪Blog
日志总数:267
评论数量:1618
留言数量:-26
访问次数:2674062
建立时间:2005年1月1日 |
|
|
| |
 Execute 设计防盗链
|
| 作者：DLL
On Error Resume NextResponse.Buffer = TrueResponse.Clear
Function UseStream(FileName)Dim FileStream,FileSet FileStream = Server.CreateObject("ADODB.Stream")FileStream.OpenFileStream.Type = 1File = server.MapPath(FileName)FileStream.LoadFromFile(File)'Response.ContentType = "application/octet-stream"
Response.BinaryWrite FileStream.Read Response.Flush
FileStream.CloseSet FileStream = NothingEnd Function
Dim Server_v1,Server_v2Server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))Server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
If Server_v1<>"" And Mid(Server_v1,8,Len(Server_v2)) = Server_v2 Then FilePath = "../XBB2003DFSDADA/" & Request("FileName")Else FilePath = "../NoImg.gif"End If
DIm FileTypeNameFileTypeName = Lcase(Split(Request("FileName"),".")(ubound(Split(Request("FileName"),"."))))
If Request("Type") = "" AND FileTypeName <> "jpg" ThenServer.Execute(FilePath)If err.Number <> 0 Then Response.Clear err.Clear Response.Redirect("Image.asp?Type=UseStream&FileName=" & Request("FileName")) Response.End()End IfElseUseStream(FilePath)If Err.Number <> 0 Then '当上面的方法出错时，使用stream对象输出图片 Err.Clear Response.Redirect("../NoImg2.gif")End IfEnd If |
|
回复:Execute 设计防盗链
|
| 电脑与网络 SDFSFS(游客)发表评论于2005/11/28 13:09:16 |
| |
回复:Execute 设计防盗链
|
| 电脑与网络 SDFSFS(游客)发表评论于2005/11/28 13:09:16 |
| |
» 1 »
|
