- UID
- 447539
- 在线时间
- 小时
- 积分
- 1419
- 帖子
- 离线
- 18694 天
- 注册时间
- 2008-3-12
|
无聊做个FLASH+ASP无组件上传,红色部分是存入数据库的代码,没有他可以成功上传图片而且没有错误,加上后访问这个ASP文件就提示http500内部服务器错误,逻辑是正常的啊,很困惑。
<%OPTION EXPLICIT%>
<!--#include FILE="upload_5xsoft.inc"-->
<%
dim filename,filepath,flashname,strnow,fileext,filelink,fileinstr
'路径获取并处理
filepath=REQUEST("filepath")
if right(filepath,1)<>"/" then
filepath=filepath&"/"
end if
'文件名获取并自动重命名
flashname=REQUEST("filename")
fileext=lcase(right(flashname,3))
strnow=replace(replace(replace(now, ":", ""), "-", ""), " ", "")
filename=strnow&"."&fileext
'获取图片链接
filelink=request("filelink")
'获取图片说明
fileinstr=request("fileinstr")
dim upload,file,formName
set upload=new upload_5xsoft
upload.CheckAndCreateFolder(filepath)
for each formName in upload.objFile
set file=upload.objFile(formName)
if file.FileSize>0 then
file.SaveAs Server.mappath(filepath&filename)
Set Conn= Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("img.mdb")
Conn.Open
Dim SQL
SQL="INSERT INTO image(name,instr,time,link) Values ('"&filename&"','"&fileinstr&"','"&now()&"','"&filelink&"')"
Conn.Execute(SQL)
Response.Write("成功!")
end if
set file=nothing
next
set upload=nothing
%> |
|