关于ASP的图片上传

zxwcq 2002-05-26 11:26:45

哪位能给我提供一个上传控件和上传的例子。急！~

...全文

53 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

99percent 2002-05-26

打赏
举报

=============================
<body>

<%
set obj=server.createobject("lyfupload.uploadfile")
gif=obj.request("gif")
filename="file1"
path="E:\myfile"'存上传后的文件路径
obj.extname="gif"
obj.maxsize=1024*50
ty=obj.savefile(filename,path,false)
filetype=obj.filetype("file1")
if ty="2" then
response.write"此文件在服务器上已经存在！不能覆盖！"
elseif ty="0" then
response.write"对不起，你上传的不是gif图片的格式"
elseif ty="1" then
response.write"对不起，你上传达室的文件大小超过限制"
elseif ty="" then
response.write"你上传失败"

else
response.write"上传成功，文件"&ty&",类型"&filetype&",你输入的图片"&gif&""

end if
%>
</body>
==============================
绝对中文解释

yyf_321 2002-05-26

打赏
举报

先建一个ACCESS数据库。我的数据库名是images, 表名是images ，有id（自动编号）和img(OLE对象)两个字段。下面是三个文件的代码：
upload.htm
<html>
<body>
<center>
<form name="mainForm" enctype="multipart/form-data" action="process.asp" method=post>
<input type=file name=mefile>
<input type=submit name=ok value="OK">
</form>
</center>
</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=;PWD=;"
connGraph.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("images.mdb") & ";Mode=ReadWrite|Share Deny None;Persist Security Info=False"
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
response.redirect "showimg.asp?id="&rec("id")&""
rec.closeset
rec=nothing
set connGraph=nothing %>

showimg.asp

<%
set connGraph=server.CreateObject("ADODB.connection")
'connGraph.ConnectionString="driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("images.mdb") & ";uid=;PWD=;"

connGraph.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("images.mdb") & ";Mode=ReadWrite|Share Deny None;Persist Security Info=False"
set rec=server.createobject("ADODB.recordset")
'id=trim(request.querystring("id"))
strsql="select img from images where id="&Request.QueryString("id")&""
rec.open strsql,connGraph,1,1
'Response.ContentType = "image/*"
Response.BinaryWrite rec("img").getChunk(7500000)
rec.close
set rec=nothing
set connGraph=nothing
%>

possible_Y 2002-05-26

打赏
举报

onsubmit="return mysubmit(this)"可以用来验证后缀名是否为jpg或gif
把下面代码加到<head></head>间
<Script language="javascript">
function mysubmit(theform)
{
if(theform.big.value=="")
{
alert("请点击浏览按钮，选择您要上传的jpg或gif文件!")
theform.big.focus;
return (false);
}
else
{
str= theform.big.value;
strs=str.toLowerCase();
lens=strs.length;
extname=strs.substring(lens-4,lens);
if(extname!=".jpg" && extname!=".gif")
{
alert("请选择jpg或gif文件!");
return (false);
}
}
return (true);
}
</script>

possible_Y 2002-05-26

打赏
举报

不用组建直接上传到数据库：
<form enctype="multipart/form-data" action="add.asp" method=post onsubmit="return mysubmit(this)">
<table border="0" width="50%" cellspacing="0" cellpadding="0">
<tr>
<td align="center">
<p>图片路径: <input type="file" name="big" size="20"></p>
</td>
</tr>
<tr>
<td>
<p align="center"><input type="submit" value=" 上传 " name="B3">　</p>
</td>
</tr>
</table>
</form>

'add.asp文件
<%
dim rs
dim formsize,formdata,bncrlf,divider,datastart,dataend,mydata
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)

curDir = Server.MapPath("apply.mdb")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & curDir
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "pic",oConn,3,2
rs.addnew
rs("big").appendchunk mydata
rs.update
set rs=nothing
set oConn=nothing
%>
<html>
<body>
上传成功！
</body>
</html>

funboy88 2002-05-26