日期:2014-05-17 浏览次数:21416 次
<%@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)
%>