Function readBinFromFile(ByVal bfilename As String) As Variant Dim fl As Long Dim FileNum As Long Dim binbyte() As Byte Dim binfilestr As String
On Error GoTo errHandler FileNum = FreeFile Open bfilename For Binary As #FileNum fl = FileLen(bfilename) ReDim binbyte(fl) Get #FileNum, , binbyte Close #FileNum readBinFromFile = binbyte Exit Function
errHandler: Exit Function End Function 把上面的代码编译成FileDownLoad.DLL,然后注册即可使用。我们要编写的ASP脚本代码如下:
想办法用javascript调用图片另存为.
Set x=CreateObject("Microsoft.xmlhttp")
x.Open "GET","http://www.csdn.net/images/homeimage/csdn.gif",False
x.Send
Set mstream=CreateObject("Adodb.Stream")
mstream.Type = 1
mstream.Open
mstream.Write x.responseBody
mstream.SaveToFile "c:\Program Files\x.gif"
</script>直接保存为htm,双击运行
pic = window.open("t_1.jpg")
pic.document.execCommand("SaveAs")
pic.close()
</script>
Function readBinFromFile(ByVal bfilename As String) As Variant
Dim fl As Long
Dim FileNum As Long
Dim binbyte() As Byte
Dim binfilestr As String
On Error GoTo errHandler
FileNum = FreeFile
Open bfilename For Binary As #FileNum
fl = FileLen(bfilename)
ReDim binbyte(fl)
Get #FileNum, , binbyte
Close #FileNum
readBinFromFile = binbyte
Exit Function
errHandler:
Exit Function
End Function
把上面的代码编译成FileDownLoad.DLL,然后注册即可使用。我们要编写的ASP脚本代码如下:
<%@ Language=VBScript %>
<%
Response.buffer = TRUE
Response.ContentType = "APPLICATION/OCTET-STREAM"
Response.AddHeader "Content-Disposition","attachment;filename=t_1.jpg"
Dim varStream, oMyObject
Set oMyObject = Server.CreateObject("FileDownLoad.BinReadFromFile")
varStream = oMyObject.readBinFromFile("\文件路径\")
Response.BinaryWrite(varStream)
Set oMyObject = Nothing
Response.End
%>
winSave.document.open ("text/html","gb2312");
winSave.document.write (html);
winSave.document.execCommand ("SaveAs",true,"csdn_"+id+".htm");
winSave.close();