[求助]关于用asp上传图片的代码问题
各位好友你们好,我买了一本asp的书可是里面的上传图片代码,我看不懂希望各位能在百忙中给我解释一下意思...谢谢<!--#include file="adovbs.inc"-->
<% '功能：取得服务端相对图片路径
Function GetFileName(imagespath)
If imagespath <> "" Then
GetFileName = "UpImages/" & year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&Right(imagespath,4)
Else
GetFileName =""
End If
End Function
上面一个我倒是大概明白了,就是下面是什么意思呢!没看懂
'功能：用stream组件上传图片
Function upImages(imagespath)
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 ' adTypeBinary
objStream.Open
objStream.LoadFromFile imagespath
objStream.SaveToFile Server.MapPath(GetFileName(imagespath)),adSaveCreateOverWrite
objStream.Close
If ERR.number<>0 Then
upImages = 0
Else
upImages = 1
End If
End Function
