解密制作方法：

说明，其实这里面有好几张图片，只是用程序让它随机显示了来！！不信，回贴就知道！！
制作~
1、有一个ASP的空间
2、将6张图片，命名，0-5.jpg，保存到images目录下~~如果有学程序的一看不懂，没有学的也没关系，复制就行~
3、用记事本新建一个index.asp的文件，把以下代码保存到里面！


[Copy to clipboard] [ - ]CODE:
<%
dim JieImg
Randomize
JieImg = Int( Rnd * (5+1)) & ".jpg"           '如果有10张照片,就把5改成10
Call ShowImg(JieImg)
Sub ShowImg(ImgFileName)
Dim strFilePath, strFileSize, strFileName
Const adTypeBinary = 1
Response.Buffer = True
strFileName=ImgFileName
FilePath=Server.MapPath("images/"&strFileName)    
Response.Clear
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile FilePath
strFileSize =objStream.size
strFileType = lcase(Right(strFileName, 4))
Select Case strFileType
    Case ".gif"
    ContentType = "image/gif"
    Case ".jpg", "jpeg"
    ContentType = "image/jpeg"
    Case Else
    ContentType = "application/octet-stream"
End Select
Response.AddHeader "Content-Length", strFileSize
Response.Charset = "UTF-8"
Response.ContentType = ContentType
Response.BinaryWrite objStream.Read
Response.Flush
objStream.Close
Set objStream = Nothing
End Sub
%>

将以上代码保存到index.asp文件里，然后将图片跟index.asp上传到网站上，就可以了~~

文章来自: 本站原创
引用通告地址: http://www.meiyisi.com/trackback.asp?tbID=1052
Tags: