upload.asp:为传图片的一个标准的html网页 <script language=vbscript>function checkinfo() if (document.form1.picture.value<>"") then if (InStr(1,document.form1.picture.value,".")<=0)or((InStr(1,document.form1.picture.value,"bmp")<=0) and (InStr(1,document.form1.picture.value,"gif")<=0) and (InStr(1,document.form1.picture.value,"jpg")<=0)) then msgbox("图片格式或路径不正确，请重写！") document.form1.picture.focus() document.form1.picture.select(this) window.event.returnvalue=false exit function end if end if form2.submit if document.form1.picture.value<>"" then form1.submit end ifend function</script><table width="532" height="150" border="1"><form name="form1" ENCTYPE="multipart/form-data" ACTION="upimage.asp" METHOD="POST" target="_blank"> <tr> <td>图片位置：</td> <td><input NAME="picture" TYPE="FILE" size=40></td> </tr></form> <form method="POST" action="uptext.asp" name=form2 target="_blank"> <tr> <td>公司名称：</td> <td><input name="text" type="text" size=40></td> </tr> <tr> <td colspan="2" align="center"><input type="button" value="提 交" name="B1" onclick="checkinfo()"> <input type="reset" value="清 除" name="B2"></td> </tr> </form></table>uptext.asp :用来上传文本的网页 <!--#include file="../conn.asp"--> <% text=request("text")Set rs = Server.CreateObject("ADODB.Recordset") sql="SELECT * FROM tb_logo" rs.Open sql,conn,1,3rs.addnewrs("title")=textrs.update rs.closeresponse.write text%><p align=center><a href="javascript:close()">关闭窗口</a></p>upimage.asp 上传图片到数据库的网页 <!--#include file="../conn.asp"--><%FormSize = Request.TotalBytes '得到数据FormData = Request.BinaryRead( FormSize )function ImageUp(formsize,formdata) '这个函数的功能是截取其中的图像部分。 bncrlf=chrb(13) & chrb(10) '做成函数后。以后你可以自己随意使用了。 divider=leftb(formdata,instrb(formdata,bncrlf)-1) datastart=instrb(formdata,bncrlf&bncrlf)+4 dataend=instrb(datastart+1,formdata,divider)-datastart imageup=midb(formdata,datastart,dataend)end functionImage=ImageUp (FormSize,Formdata) '这里就是图像部分了。set rs=server.CreateObject("adodb.recordset")%><%sql="select top 1 * from tb_logo order by id desc" rs.Open sql,conn,1,3'因为表单二在表单一提交的过程中下提交了。rs("logo").appendchunk Image '所以这里是添加。rs.Update%><img src=showimg.asp?id=<%=rs("id")%>><%rs.Close%><p align=center>图片上传成功，<a href="javascript:close()">关闭窗口</a> 只是传进去了,你还想知道怎么显示出来吧 用这上网页 showimg.asp: <!--#include file="../conn.asp"--> <%id=Request("id")set rs=server.CreateObject("adodb.recordset")sql="SELECT * FROM tb_logo where id="&idrs.Open sql,conn,1,3response.contenttype="image/gif"Response.BinaryWrite rs("logo")%> 关于数据库的设计是 id:自动编号,我用的是sqlserver 也可是自动加1 的 title:一个文本字段 logo:image类型的
评论