上传分为几个页面来的,所以你最好看完我写给你的东东,,你要仔细看。。。
这样你最好是加我百度HI,我用HI传给你,就两个文件。在这里说一大通,你可能还是不会明白。。。
这是上传第一个页面
上传课程:
点击上传 (允许格式为avi|wmv|mov|rm|rmvb|wma)
你看到那个NAME没?你在写入数据时,就把它写进去就可以了,你点那个点击上传,就会另外弹出一个小窗口页面,那个页面名就叫upfile。
htm,这一段你可以加到你想要加的地方
第二个页面:弹出小窗口进行上传的页面,也就是upfile。
htm页面
这个页面是让你选择上传文件来的,然后把你选择的文件一些值传到upfile_flash。
asp?id=id这个页面进行处理
最后第三个页面upfile_flash。asp,也就是处理页面了
文件上传
"" then
GuFolderPath=upload。
form("GuFolderPath")
call FolderNameCheck(GuFolderPath)
GuFolderPath=upload。form("GuFolderPath")
if right(GuFolderPath,1)"" then
GuFolderPath=GuFolder0
call FolderNameCheck(GuFolderPath)
GuFolderPath=GuFolder0
if right(GuFolderPath,1)0 then
dim FileExtF,FileExtY,FileExtOK,ii,jj
FileExtF=split(File。
FileName,"。")
for jj=0 to ubound(FileExtF)
next
FileExtY=0
FileExtOK=split(GuFileExt0,"|")
for ii=0 to ubound(FileExtOK)
if FileExtOK(ii)=FileExtF(jj-1) then
FileExtY=1
exit for
end if
next
if FileExtY=0 then
response。
Write "上传失败,不允许上传的文件类型"
elseif file。FileSize>GuFileSize0*1024 then
response。Write "上传失败,单个文件大小超过限制,最大"&GuFileSize0&"*1024 字节,1K=1024字节"
else
dim FileNameOK
if GuAutoName="1" then
FileNameOK=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&iCount&"。
"&FileExtF(jj-1)
else
FileNameOK=file。FileName
end if
file。SaveAs Server。
mappath(GuFolderPath&FileNameOK) '保存文件
dim pictext
'标题: upload。form("pictext")
'call savedata(file。
FileName,file。FileSize)
Response。write ""
'iCount=iCount 1
end if
else
response。
Write "上传失败,请选择要上传的文件"
end if
set file=nothing
next
set upload=nothing
'response。
Write "上传成功!"
Sub FolderNameCheck(FolderNameNew)
dim Letters,i,c
Letters=" =:;,[]0 then
Htmend "上传失败,文件夹名称含有特殊字符"
end if
next
GuFolderPath=server。
MapPath(GuFolderPath)
Set fso=Server。CreateObject("Scripting。FileSystemObject")
if fso。FolderExists(GuFolderPath)=false then
fso。
CreateFolder(GuFolderPath)
end if
Set fso=nothing
End sub
%>
这当中有一个很重要的地方,你一定要注意,就是在这一段中Response。
write ""
你看到有个zuoyeup没有?传值的名字来的,这个名字一定要与要写入数据的名字一样,不然,就无法将获取得到的图片地址传到第一个页面的框框中,反正你再看看上面第一个页面哪里有这个名字的,你要改名字的,这两个地方都要一样的名字就是了。
第四个,upload_5xsoft。inc页面内容
。
全部