如何实现无组件上传图片？

CSDN_HSB 2003-03-05 02:41:30

如何实现无组件上传图片？最好与其他表单一起提交

...全文

62 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

gdm 2003-03-05

打赏
举报

事例如下：

upload.htm
<html>

<body>

<center>

　　 <form name="mainForm" enctype="multipart/form-data"

action="process.asp" method=post>

　　　　<input type=file name=mefile><br>

　　 <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 conn = Server.CreateObject("ADODB.Connection")
connstr="driver={SQL Server};database=sss;server=localhost;uid=sa;"
conn.open connstr

set rec=server.createobject("ADODB.recordset")

rec.Open "SELECT * FROM [images] where id is null",conn,1,3

rec.addnew

rec("img").appendchunk mydata

rec.update

rec.close

set rec=nothing

set conn=nothing

%>

数据库中建立images表
字段id(int)、img(image)

liuqinyi 2003-03-05