日期:2014-05-17 浏览次数:21228 次
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <title></title> </head> <body> <form action="d7.asp" method="post" enctype="multipart/form-data" name="form1" id="form1"> <table width="429" border="1" align="center" cellpadding="4" cellspacing="0" rules="none"> <tr> <th width="417" scope="col">上传照片</th> </tr> <tr> <td height="60" align="center">选择图片所在的文件: <input type="file" name="tupian1" id="tupian1" /></td> </tr> <tr> <td align="center"> <input type="submit" name="button" id="button" value="开始上传"></td> </tr> </table> </form> </body> </html>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <!--#include file="conn.asp" --> <% dim ccc,ddd ccc="select * from shangchuan" set ddd=server.createobject("adodb.recordset") ddd.open ccc,aaa,1,3 %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <title></title> </head> <body> <% a1=request.TotalBytes a2=request.BinaryRead(a1) a3=chr(13)&chr(10) a4=left(a2,clng(instr(a2,a3))) response.write(a4) a5=instr(a2,a3&a3)+4 response.write(a5) a6=instr(a5+1,a2,a4)-a5 response.write(a6) a7=mid(a2,a5,a6) response.write(a7) ddd.addnew ddd("photo").AppendChunk a7 ddd.update ddd.close %> </body> </html>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <!--#include file="conn.asp" --> <% dim ccc,ddd ccc="select * from shangchuan" set ddd=server.createobject("adodb.recordset") ddd.open ccc,aaa,1,3 %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <title></title> </head> <body> <% do while not ddd.eof %> <img src="d8.asp?xuhao=<%=ddd("id")%>"> <% ddd.MoveNext loop %> </body> </html>
<!--#include file="conn.asp" --> <% dim ccc,ddd ccc="select * from shangchuan where id='"&request("xuhao")&"'" set ddd=server.createobject("adodb.recordset") ddd.open ccc,aaa,1,3 %> <% response.ContentType="image/*" response.BinaryWrite ddd("photo").getChunk(8000000) %>