我的文件
名称:Response.AddHeader "content-disposition", "attachment; filename="&rs("user")
类型:response.ContentType="image/jpeg"
<!--#include file=conn.asp-->
<%
dim sql
dim rs
dim id
id = request("id")
on error resume next
call conn_init()
set rs=server.CreateObject("adodb.recordset")
sql="SELECT * FROM imgdata WHERE user = '" & id & "'"
rs.Open sql,conn,1,1
if rs.recordcount = 0 then
rs.close
rs.open "SELECT * FROM imgdata WHERE user = 'not_available'",conn,1,1
end if
response.ContentType="image/jpeg"
Response.BinaryWrite rs("imagedata")
Response.AddHeader "content-disposition", "attachment; filename="&rs("user")
rs.Close
endconnection
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 function
%>
-----------------
Response.Clear
Response.ContentType = "application/octet-stream"
Response.AddHeader "content-disposition", "attachment; filename="&name
Set Stream = server.CreateObject("ADODB.Stream")
Stream.Type = adTypeBinary
Stream.Open
Stream.LoadFromFile Server.MapPath(FileName)
While Not Stream.EOS
Response.BinaryWrite Stream.Read(1024 * 64)
Wend
Stream.Close
Set Stream = Nothing
--------------------
以下是ASP图文混合上传的实例:
数据库驱动自己改一下
<% @ language=vbscript %>
upload.asp:
<html>
<head>
<meta name="VI60_defaultClientScript" content="VBScript">
<title> File Upload </title>
<script ID="clientEventHandlersVBS" LANGUAGE="vbscript">
'<!--
Sub form2_onsubmit
form1.submit
End Sub
'-->
</script>
</head>
<body>
<form name="form1" ENCTYPE="multipart/form-data" ACTION="upimage.asp" METHOD="POST" target="_blank">
Please choose a picture to upload: <br>
<input NAME="picture" TYPE="FILE"> <br>
</form>
<form name="form2" action="uptext.asp" method="post">
<input type="text" name="text1"><br>
<input type="text" name="text2"><br>
<input type="submit" value="提交">
</form>
</body>
</html>
upimage.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 function
Image=ImageUp (FormSize,Formdata)
set rs=server.CreateObject("adodb.recordset")
strconn="driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("test.mdb")
sql="SELECT * FROM imgtable"
rs.Open sql,strconn,1,3
rs.AddNew
rs("img").appendchunk Image
rs.Update
rs.Close
response.contenttype="image/gif"
response.binarywrite imageup(formsize,formdata)
%>
uptext.asp
<% @ language=vbscript %>
<%
strconn="driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("test.mdb")
text1=request.form("text1")
text2=request.form("text2")
response.write text1
response.write text2
set rs=Server.CreateObject("adodb.recordset")
sql="SELECT top 1 * FROM imgtable ORDER BY id DESC"
rs.Open sql,strconn,1,3
rs("text1")=text1
rs("text2")=text2
rs.Update
rs.Close
%>
show.asp
<%@ Language=VBScript %>
<%
strconn="driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("test.mdb")
set rs=Server.CreateObject("adodb.recordset")
sql="SELECT top 1 * FROM imgtable ORDER BY id DESC"
rs.Open sql,strconn,1,3
%>
<html>
<body>
以下是你的上传资料。<br>
文本一:<% Response.Write rs("text1") %><br>
文本二:<% Response.Write rs("text2") %><br>
你的图像:
<img src=showimg.asp?id=<%=rs("id")%>>
</body>
</html>
showimg.asp
<%@ Language=VBScript %>
<%
strconn="driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("test.mdb")
id=Request("id")
set rs=server.CreateObject("adodb.recordset")
sql="SELECT * FROM imgtable where id="&id
rs.Open sql,strconn,1,3
response.contenttype="image/gif"
Response.BinaryWrite rs("img")
%>
分享到:
相关推荐
ASP源码,压缩包解压密码:www.cqlsoft.com
asp 批量修改文件名 可以批量修改
本代码可以在asp 中获取当前页面的文件名
官方下载的3.3版文件不完整,怎么都调试不出来。下载了FusionChartsV3.2破解版,(来自... 包含.net下服务器端另存为图片的实验代码。 修改了官方的FCExporter.aspx.cs文件,以便指定保存的图片名称和存储位置。
ASP批量修改文件名程序,UTF-8编码,可以修改中文或其它语种的文件名。空间需要支持FSO。应各位网友要求,提供。欢迎交流,修正:[email protected]
asp.net修改word文字并另存为新的word及pdf,c#代码实现
ASP-134486-01 AD封装ASP-134486-01 AD封装ASP-134486-01 AD封装ASP-134486-01 AD封装ASP-134486-01 AD封装ASP-134486-01 AD封装ASP-134486-01 AD封装ASP-134486-01 AD封装ASP-134486-01 AD封装ASP-134486-01 AD封装...
ASP.NET 解决下载文件的时候文件名乱码问题,
ASP实例开发源码—批量修改文件名(asp 网页程序).zip ASP实例开发源码—批量修改文件名(asp 网页程序).zip ASP实例开发源码—批量修改文件名(asp 网页程序).zip
资源名称:ASP.NET初级篇-多媒体CD资源目录:【】ASP.NET初级篇-多媒体CD1_asp1-1【】ASP.NET初级篇-多媒体CD1_asp1-2【】ASP.NET初级篇-多媒体CD1_asp1-3【】ASP.NET初级篇-多媒体CD1_asp1-4【】ASP.NET初级篇-...
ASP教程---ASP概念.pptASP教程---ASP概念.ppt
农行网上支付平台-商户接口编程指南-ASP.NET_Edition-V3.1.6
在线编辑器插件for leadbbs 3.14 功能简介: 1:本系统可以在线编辑包括htm、html、asp、cgi、php、txt等格式的所有网页文件。(免FSO) 2:输入了一个不存在的文件名则会新建一个文件。(在不允许新建文件时会出现文件...
uEditor上传图片并保存为原文件名,参照了网上的,原本是不能保存为原文件名的。
彻底解决Asp.net 文件下载时文件名的中文乱码和空格异常全球性技术难题
-------------------------------------...3.把你的ASP文件COPY 到软件的安装目录下的wwwroot的目录中,主页文件名应为index.asp;index.htm,default.asp;default.htm均可以的。然后在浏览器窗口输入:127.0.0.1就OK了。
index.asp-login.asp-index1.asp p243.asp 显示登录学生记录(1条)信息 3.管理员登录:admin.asp->loginadmin.asp->index2.asp n247.asp显示全部学生信息,并带删除、编辑超链接 edit2.asp 编辑后台,del2.asp...
ASP旅游网站--简单的ASP旅游网站--简单的ASP旅游网站--简单的
ASP高效分页----最快的分页法,逐页翻页速度极快
ASP教程---ADO对象.pptASP教程---ADO对象.ppt