上传图片
我想把图片上传到指定的文件夹，路径存储到数据库！请问这个怎么实现。
在网上找了很多无组件的代码，但是大部分代码都没有什么注释，所以看的晕乎乎的。
不知道给位大侠有没有这些方面的代码，最好能有详细的注释！
因为是刚学，所以注释很重要。。。
'文件上传=>该方法返回文件保存的相对路径
参数说明
filevalue 表单文件域的值
path 你想保存到指定的文件夹
'=====================================================================================
Function fileup(filevalue,path)
dim strFileName,filename,fileExt
strFileName = filevalue '得到前一页提交来的文件地址值
ranNum=int(90000*rnd)+10000
fileExt = Mid(strFileName,Instr(strFileName,".")+1,Len(strFileName)-Instr(strFileName,"."))'获取扩展名
filename=path&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&fileExt
set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 ' adTypeBinary
objStream.Open
objStream.LoadFromFile strFileName
objStream.SaveToFile Server.MapPath(filename),2
objStream.Close
fileup=filename
end Function
