关于图片上传问题(急)

[joshua2005]

1.我参考了以下文档进行设计图片上传
http://dev.csdn.net/develop/article/14/14845.shtm
但是总是提示"文件格式不对,请重新上传

2.里面的很多东西都看不懂,作者说建立了PHOTO目录
但是在UPFILE代码里,并没有指明目录啊

3.不知道当图片上传成功后,在数据库里显示的地址是/PHOTO/.GIF
还是.gif

4.不知道大家有没有调试好的例子提供参考,谢谢

[joshua2005]

谁有的话:发一份给俺,谢谢
[e-mail]

[hinavy]

我有自己写的一个，只支持一个文件上传，呵，所以呢，不满足你的要求了，呵

[joshua2005]

大家是不是觉得分值太少了,如果是的话,俺还可以再加啊.
真的很急啊!

[笨笨兔兔兔兔兔]

你要的那个组件还是无组？？例子在google 搜索lyfupload 一般下载后都有教程

无组是无惧上传还有风声或者查稻香老农

[hfkj]

<%Server.ScriptTimeOut=50000
formPath="../"
set rs=server.CreateObject("adodb.recordset")
sql="select * from info"
rs.open sql,objconn,1,3
dim upload,file,sortid,title,memo
set upload=new upload_5xSoft ''建立上传对象
set file=upload.file("file1")

memo=htmlencode(upload.form("memo"))
title=upload.form("title")
sortid=upload.form("sortid")
remfilename=""

Set fso = CreateObject("Scripting.FileSystemObject")
gblScriptName= Request.ServerVariables("Script_Name")
gblScriptName = Mid(gblScriptName,InstrRev(gblScriptName,"/") + 1)

folderPath=replace(Server.MapPath(Request.ServerVariables("Script_Name")),gblScriptName,"")
if file.FileName<>"" then
Dim getimageExt

Set getimageExt = CreateObject("Scripting.FileSystemObject")
GetAnExtension = getimageExt.GetExtensionName(file.FileName)

if GetAnExtension<>"jpg" and GetAnExtension<>"gif" and GetAnExtension<>"JPG" and GetAnExtension<>"GIF" then

response.Write "<SCRIPT language=javascript>"
response.write "alert('文件格式不对,请重新上传');"
response.write "opener.document.all('id_uploadstr').style.display='none';"
response.write "</SCRIPT>"
else
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
Randomize

remNum = Int((999 - 1 + 1) * Rnd + 1)&day(date)&month(date)&year(date)&hour(time)&minute(time)&second(time)
remFileName = "upimg/"&remNum&"."&GetAnExtension
file.SaveAs Server.mappath(formPath&remFileName) ''保存文件
end if
end if
end if


rs.addnew
rs("title")=title
rs("memo")=memo
rs("sortid")=sortid
rs("puttime")=now()
if remfilename="" then
rs("imgpath")="n"
else
rs("imgpath")=remFileName
end if
rs.update
set file=nothing
set upload=nothing ''删除此对象
Response.Write("<Script Language='Javascript'>")
Response.Write("alert('已经成功保存了!');")
response.Write("this.document.location=""info_add.asp"";")
Response.Write("</Script>")
closers rs
%>

[joshua2005]

我用的是稻香老农的例子
但是没有链接数据库
已经搜索过了,拿到了几个版本,就只有一个版本调试成功
但是无法链接到数据库.

[hinavy]

回复没办法上传
再写一次

第一个问题：这个程序限制了只能上传".gif"和".jpg"文件格式，区分大小写
第二个问题：这个photo目录名称设在表单里的隐藏域里，不是在程序里
第三个问题：原来文件是什么名称，上传成功后，地址就是“photo+原来文件名”
第四个问题：到网上找：ASP无组件上传

[joshua2005]

找到了一些代码?
但都是没有注释的啊
自己想学习一下这方面的知识
只是拿来别人的代码,看不懂也没有用啊.
再次请求能给俺一个完整的上传图片到数据库学习性质的例子,俺能说一下需求吗?
1.带数据库
2.有注释
3.能调试成功

[iuhxq]

要求满高的，大家都是摸索出来的呀，很多东西没有那么完美的。


http://blog.csdn.net/iuhxq有个WEB资源管理器，可以看看。

[joshua2005]

楼上的弟兄,俺看了一下,没有俺想要的东西.谢谢啦