Question

asp无组件上传图片到指定文件夹，路劲保存到Access数据库里

现在的问题是能上传，但保存不了，显示图片的时候是个X，最好具体点，比如数据库表应该怎么建，我的数据表id编号，title相片描述，pic路劲，txt_jj产品描述,tct_jg产品规格
能尽量详细点吗，这是我全部分了
我的QQ是1324795419,能耽误你们点时间教下我吗,用的是无惧类的无组件上传<!--#include FILE="upload.inc"-->
<%
dim upload,file,formName,formPath,iCount,filename,fileExt
set upload=new upload_5xSoft ''建立上传对象
formPath="../pic"
''在目录后加(/)
if right(formPath,1)<>"/" then formPath=formPath&"/"
iCount=0
for each formName in upload.file ''列出所有上传了的文件
set file=upload.file(formName) ''生成一个文件对象
if file.filesize<100 then
response.write "<font size=2>请先选择你要上传的图片 [ <a href=# onclick=history.go(-1)>重新上传</a> ]</font>"
response.end
end if

if file.filesize>500000 then
response.write "<font size=2>图片大小超过了限制 [ <a href=# onclick=history.go(-1)>重新上传</a> ]</font>"
response.end
end if

fileExt=lcase(right(file.filename,4))

if fileEXT<>".gif" and fileEXT<>".jpg" then
response.write "<font size=2>文件格式不对 [ <a href=# onclick=history.go(-1)>重新上传</a> ]</font>"
response.end
end if

部分代码

Answer 1

你在上传的时候记录下保存在服务器的路径，然后把文件名保存到PIC字段里，用的时候直接<img src=上传保存路径/"&rs("pic")&">就可以了

Answer 2

问题原因：图片路径不正确
解决方法：鼠标右键查看图片属性，看图片的网址，把域名去掉后就是图片在空间上的相对路径，而这个路径是错误的，你再对比图片在空间上的正确路径（需要你登陆空间FTP去找），找到后，对比一下多了还是少了哪部分，修改源文件就行了。

追问

在本机调试的话也可以传图片到文件夹吗，还有为什么产品说明写不进数据库里面去，可以加QQ教教我吗，好几天了这个问题还没解决

追答

本地测试当然也可以传图片了，产品说明可能是你的文字太多，超出字段的限制了

Answer 3

不知道你用的是哪个无组件的，你看下upload.asp页面是否有和“dim strFile1:strFile1=myrequest.Form("Photo")”类似的内容，如果有的话，应该和我的是一样的，可以参照我的方法

upload.asp页面添加下面代码：
<%
dim strFile1 : strFile1=myrequest.Form("Photo")
dim rs,exec
set rs = server.CreateObject ("adodb.recordset")
exec="select title,pic,tex_jj,tct_jg from table where 你的条件'"
rs.open exec,strDconn,1,3
rs("title")=相片描述
rs("pic")=strFile1
rs("tex_jj")=产品描述
....
rs.update
rs.close:set rs=nothing
%>

Answer 4

1.使用风声无组件上传类 2.0 ，
2.把下载的这个上传类文件命名为UpLoadClass.asp，并放在你的网站文件夹下。
3.在需要进行上传图片的处理程序a.asp里对它进行调用。<!--#include file="UpLoadClass.asp"-->（注意你的路径，是不是在同一个文件夹下）
4.然后在上传页a.asp中添加
<%
dim strFile1
time1=timer()
Set myrequest=new UpLoadClass
myrequest.MaxSize = 5000*1024
myrequest.FileType = "png/bmp/gif/jpg"
myrequest.Savepath = "../存放图片的文件夹/"
myrequest.open
%>
5.
strFile1=myrequest.Form("newPhoto") '这里的newphoto是表单里的文本框名
set rs=server.CreateObject("adodb.recordset")
sql="select * from 表名"
rs.open sql,conn,1,3
rs.addnew
rs("pic")=strFile1 '这里的pic是数据表里的字段名
rs.update
rs.close
conn.close()
set conn=nothing