[求助]请教大家急！急！急！急！怎样把一个图片文件的文件名、路径写入数据库中呢， - ASP技术论坛

问题点数：0 回复次数：0

[求助]请教大家急！急！急！急！怎样把一个图片文件的文件名、路径写入数据库中呢，

请教大家急！急！急！急！怎样把一个图片文件的文件名、路径写入数据库中呢，并把文件存到files目录下呢？文件名用时间表示，
Photo表为
Id typeid filename filepath addtime filesize
文件ID 文件类型文件名文件存放路径上传时间文件大小
看看下列代码怎样改才能实现，我是一个初学者，不知道如何用这些，请各位大哥大姐一定帮帮忙呀，本段代码由本人不幸给弄的面目受损了




<%
set upfile=new upfile_class '建立上传对象
upfile.GetData (102480000) '取得上传数据,限制最大上传10M

file_id=session("file_id") '取出入库id
'response.Write(file_id)

sql="select * from photo where id=" & Cint(file_id)
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
call show_msg("参数错误！请重新填写",1,"")
end if
folder_path=Server.MapPath("../files")
%>
<html>
<head>
<title>文件上传</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../css/style.css" rel=STYLESHEET type=text/css>
</head>
<body >
<%
if upfile.err > 0 then '如果出错
select case upfile.err
case 1
call show_msg("你没有上传文件！请重新上传",1,"")
case 2
call show_msg("你上传的文件超出我们的限制,最大10M",1,"")
end select
else
%>
<br>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="1" class="t_table2" >
<tr >
<td height="25" valign='middle' class="t_head">　本地文件　</td>
<td width="100" valign='middle' class="t_head">　大小(字节)　</td>
<td valign='middle' class="t_head">　上传到　</td>
</tr>
<%dim upload,file,formName,formPath,newname
function MakedownName()
dim fname
fname = now()
fname = replace(fname,"-","")
fname = replace(fname," ","")
fname = replace(fname,":","")
fname = replace(fname,"PM","")
fname = replace(fname,"AM","")
fname = replace(fname,"上午","")
fname = replace(fname,"下午","")
fname = int(fname) + int((10-1+1)*Rnd + 1)
MakedownName=fname
end function
for each formName in upfile.file '列出所有上传了的文件

newname=MakedownName()&"."&mid(ofile.FileName,InStrRev(file.FileName, ".")+1)
set oFile=upfile.file(formname)
if oFile.filesize<=0 then
call show_msg("你没有上传文件！请重新上传",1,"")
end if
FileName=upfile.form(formName)'取得文本域的值
if not FileName>"" then FileName="& newname&" '如果没有输入新的文件名,就用原来的文件名
oFile.SaveToFile folder_path&"\"&Cstr(file_id)&Cstr(right(FileName,4)) ''保存文件
update_sql="update photo set filename='" & FileName & "',filepath='/files"&"/f"&Cstr(file_id)&Cstr(right(FileName,4))&"',filesize=" & oFile.filesize & " where ID=" & cint(file_id)
conn.execute(update_sql)
%>
<tr>
<td height="20" valign='middle'><font color="#000000"><%=oFile.FilePath&oFile.FileName%></font></td>
<td valign='middle'><div align="center"><font color="#000000"><%=oFile.filesize%></font></div></td>
<td valign='middle'><%=response.write("/files"&"/f"&Cstr(file_id)&Cstr(right(FileName,4)))%></td>
</tr><%
set oFile=nothing
next
end if
set upfile=nothing '删除此对象
%>
</table>
<br>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td><div align="right"><strong>[</strong><a href="tplist.asp">::图片文件列表::</a><strong>]</strong></div></td>
</tr>
</table>
</body>
</html>