我有asp上传图片到指定文件夹并将路径保存到指定的数据库中,就是不能用出错,找不至服务器请指点!
请高手给我详细的代码,目前我正需要用asp上传图片急需!!!我这里有一些代码就是不能用出错,找不到服务器,代码如下:请帮我修改一下。下面是upload.htm代码<htm...
请高手给我详细的代码,目前我正需要用asp上传图片急需!!!我这里有一些代码就是不能用出错,找不到服务器,代码如下:请帮我修改一下。
下面是upload.htm代码
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<form action="process.asp" method="post" enctype="multipart/form-data" name="
mainForm">
<div align="center">
<input type="file" name="mefile">
<input type="submit" name="ok" value="上传图片">
</div>
</form>
</body>
</html>
下面是process.asp代码：
<%
response.buffer=true
formsize=request.totalbytes
formdata=request.binaryread(formsize)
bncrlf=chrB(13) & chrB(10)
divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
datastart=instrb(formdata,bncrlf & bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
mydata=midb(formdata,datastart,dataend)
set connGraph=server.CreateObject("ADODB.connection")
connGraph.ConnectionString="driver={Microsoft Access Driver (*.mdb)};DBQ=" &
server.MapPath("images.mdb") & ";uid=WD=;"
connGraph.Open
set rec=server.createobject("ADODB.recordset")
rec.Open "SELECT * FROM [images] where id is null",connGraph,1,3
rec.addnew
rec("img").appendchunk mydata
rec.update
rec.close
set rec=nothing
set connGraph=nothing
%> 展开
下面是upload.htm代码
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<form action="process.asp" method="post" enctype="multipart/form-data" name="
mainForm">
<div align="center">
<input type="file" name="mefile">
<input type="submit" name="ok" value="上传图片">
</div>
</form>
</body>
</html>
下面是process.asp代码：
<%
response.buffer=true
formsize=request.totalbytes
formdata=request.binaryread(formsize)
bncrlf=chrB(13) & chrB(10)
divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
datastart=instrb(formdata,bncrlf & bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
mydata=midb(formdata,datastart,dataend)
set connGraph=server.CreateObject("ADODB.connection")
connGraph.ConnectionString="driver={Microsoft Access Driver (*.mdb)};DBQ=" &
server.MapPath("images.mdb") & ";uid=WD=;"
connGraph.Open
set rec=server.createobject("ADODB.recordset")
rec.Open "SELECT * FROM [images] where id is null",connGraph,1,3
rec.addnew
rec("img").appendchunk mydata
rec.update
rec.close
set rec=nothing
set connGraph=nothing
%> 展开
1个回答
展开全部
来看下，没分就算了，。有分我给你传一份
建议你上网下一个无组件上传，就ok了
建议你上网下一个无组件上传，就ok了
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
