用最简单的语句写一个asp上传图片代码,上传到一个指定文件夹里
upfile.asp 上传的图片存到images/upfile文件夹下。
<!--#include FILE="upfile"-->
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <%
if Request("menu")="up" then
Resume Next
Set upl = Server.CreateObject("SoftArtisans.FileUp")
If -2147221005 = Err Then
„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„
set FileUP=new Upload_file
FileUP.GetDate(-1)
formPath="images/upfile/"
set file=FileUP.file("file")
filename=formPath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&"."&file.FileExt
select case LCase(file.FileExt)
case "gif"
img="[img]"&cluburl&"/"&filename&"[/img]"
case "jpg"
img="[img]"&cluburl&"/"&filename&"[/img]"
case "swf"
img="[flash]"&cluburl&"/"&filename&"[/flash]"
case else
error2("Sorry ,this local server only supports GIF , JPG and SWF format of files\n does not support "&file.FileExt&" format of files")
end select
file.SaveToFile Server.mappath(filename)
set FileUP=nothing
„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„
else
filename=""&year(date)&""&month(date)&
amp;""&day(date)&""&hour(time)&""&minute(time)&""&second(time)&""
select case ""&upl.ContentType&""
case "application/octet-stream"
error2("Unknown file format!")
case "image/gif"
types="gif"
case "image/pjpeg"
types="jpg"
case "application/x-shockwave-flash"
types="swf"
end select
filename="images/upfile/"&filename&"."&types&""
if types="gif" or types="jpg" then
img="[img]"&cluburl&"/"&filename&"[/img]"
elseif types="swf" then
img="[flash]"&cluburl&"/"&filename&"[/flash]"
else
error2("Sorry ,this local server only supports GIF , JPG and SWF format of files\n does not support "&upl.ContentType&"format of files") end if
upl.SaveAs Server.mappath(""&filename&"")
set upl=nothing
End If
response.write
"<SCRIPT>parent.myform.pic.value=„admin/"&filename&"?</SCRIPT>"
responseend
else
%>
<body topmargin=0>
<table cellpadding=0 cellspacing=0 width=100% height="20">
<form enctype=multipart/form-data method=post action=upfile.asp?menu=up>
<tr><td>
<input type=file style=FONT-SIZE:9pt name=file size="2">
<input style=FONT-SIZE:9pt type="submit"
value="Upload" name=Submit>
</td></tr></form></table>
<%
end if
%> 评论(2) | mngenius | 十二级 采纳率43% 擅长: 汇编语言 其他编程语言 数据库DB 其他类似问题 -03-05用简单的2012-03-22寻找一个ASP语句把图片上传到服务器指定的文件夹 asp上传图片的代码,并记录图片名称。如果有文件并且可以直-12-12用纯ASP代码实现图片上传到
-07-31求ASP上传图片指定文件夹并存入数据库中的代码。谁有呀
代码(上传图片到指定文件夹,同时获取路径保存到数据库...
2008-08-30
用ASP编写网站应用程序时间长了,难免会遇到各式各样的问题,其中
关于如何上传文件到服务器恐怕是遇见最多的问题了,尤其是上传图片,比如你想要在自己的社区里面实现类似网易虚拟社区提供的“每日一星”的功能,就要提供给网友上传照片的功能。上传图片文件到服务器可以使用各种免费的文件上传组件,使用起来功能虽然很强大,但是由于很多情况下,我们只能使用免费的支持ASP的空间或者租用别人的虚拟空间,对于第一种情况,我们根本就没有可能来使用文件上传组件;至于第二种情况,我们也要付出不少的“银子”才可以。除非你拥有自己的虚拟主机,你就可以随便的在服务器上面安装自己所需要的组件,这种情况对于大多数人来说是可望而不可及的。那我们就没有办法了吗,呵呵,
答案
八年级地理上册填图题岩土工程勘察试题省略号的作用及举例应急救援安全知识车间5s试题及答案
是肯定的(当然是肯定的了,要不然我也没法写出这篇文章啊)。下面就让我们一起来使用纯ASP代码来实现图片的上传以及保存到数据库的功能(顺便也实现显示数据库中的图片到网页上的功能)。
首先我们先来熟悉一下将要使用的对象方法。我们用来获取上一个页面传递过来的数据一般是使用Request对象。同样的,我们也可以使用Request对象来
获取上传上来的文件数据,使用的方法是Request.BinaryRead()。而我们要从数
据库中读出来图片的数据显示到网页上面要用到的方法是:
Request.BinaryWrite()。在我们得到了图片的数据,要保存到数据库中的时候,不可以直接使用Insert语句对数据库进行操作,而是要使用ADO的AppendChunk
方法,同样的,读出数据库中的图片数据,要使用GetChunk方法。各个方法的具体语法如下:
* Request.BinaryRead语法:
variant = Request.BinaryRead(count)
参数
variant
返回值保存着从客户端读取到数据。
count
指明要从客户端读取的数据量大小,这个值小于或者等于使用方法
Request.TotalBytes得到的数据量。
* Request.BinaryWrite语法:
Request.BinaryWrite data
参数
data
要写入到客户端浏览器中的数据包。
* Request.TotalBytes语法:
variant = Request.TotalBytes
参数
variant
返回从客户端读取到数据量的字节数。
* AppendChunk语法
将数据追加到大型文本、二进制数据 Field 或 Parameter 对?
object.AppendChunk Data
参数
object Field 或 Parameter 对象
Data 变体型,包含追加到对象中的数据。
说明
使用 Field 或 Parameter 对象的 AppendChunk 方法可将长或字符数据填写到对象中。在系统内存有限的情况下,可以使用 AppendChunk 方法对长整型值进行部分而非全部的操作。
* GetChunk语法
返回大型文本或二进制数据 Field 对象的全部或部分内容 。
variable = field.GetChunk( Size )
返回值
返回变体型。
参数
Size
表
关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf
达式,等于所要检索的字节或字符数。
说明
使用 Field 对象的 GetChunk 方法检索其部分或全部长或字符数据。在系统 类型 描述
id 自动编号 主键值
img OLE对象 用来保存图片数据
对于在MS SQL Server7中,对应的结构如下:
字段名称 类型 描述
id int(Identity) 主键值
img image 用来保存图片数据
现在开始正式编写我们的纯ASP代码上传部分了,首先,我们有一个提供给用
户的上传界面,可以让用户选择要上传的图片。代码如下
(upload.htm):
<html>
<;body>
<center>
<form name="mainForm" ="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>
注意代码中黑色斜体的部分,一定要在Form中有这个属性,否则,将无法得到上传上来的数据。
接下来,我们要在process.asp中对从浏览器中获取的数据进行必要的处理,因为我们在process.asp中获取到的数据不仅仅包含了我们想要的上传上来的图片的数据,也包含了其他的无用的信息,我们需要剔除冗余数据,并将处理过的图片数据保存到数据库中,这里我们以Access97为例。具体代码如下(process.asp):
<%
response.buffer=true
formsize=request.totalbytes
formdata=request.binaryread(formsize)
bncrlf=chrB(13) & chrB(10)
divider=leftB(formdata,clng((formdata,bncrlf))-1)
datastart=(formdata,bncrlf & bncrlf)+4
dataend=(datastart+1,formdata,divider)-datastart
mydata=midb(formdata,datastart,dataend)
set connGraph=server.CreateObject("ADODB.connection")
connGraph.ConnectionString="driver={Microsoft Access Driver (*.mdb)};DBQ=" &
server.MapPath("images.mdb") & ";uid=;PWD=;"
connGraph.Open
set rec=server.createobject("ADODB.recordset")
rec.Open "SELECT * FROM [images] where id is null",connGraph,1,3
rec.addnew
rec("img").appendchunk mydata
rec.update
rec.close
set rec=nothing
set connGraph=nothing
%>
好了,这下我们就把上传来的图片保存到了名为images.mdb的数据库中了,
剩下的工作就是要将数据库中的图片数据显示到网页上面了。一般在HTML中,
显示图片都是使用<IMG>标签,也就是<IMG SRC="图片路径
">,但是我们的图片是保存到了数据库中,“图片路径”是什么呢,呵呵,
其实这个SRC属性除了指定路径外,也可以这样使用哦:
<IMG SRC="showimg.asp?id=xxx">
所以,我们所要做的就是在showimg.asp中从数据库中读出来符合条件的数据,
并返回到SRC属性中就可以了,具体代码如下(showimg.asp):
<%
set connGraph=server.CreateObject("ADODB.connection")
connGraph.ConnectionString="driver={Microsoft Access Driver (*.mdb)};DBQ=" &
server.MapPath("images.mdb") & ";uid=;PWD=;"
connGraph.Open
set rec=server.createobject("ADODB.recordset")
strsql="select img from images where id=" & trim(request("id"))
rec.open strsql,connGraph,1,1
Response.ContentType = "image/*"
Response.BinaryWrite rec("img").getChunk(7500000)
rec.close
其他类似问题
-06-22asp如何在上传图片指定路径文件夹的同时,传入数据库路径,
7 2010-07-31求ASP上传图片代码(上传图片到指定文件夹,同时获取路径保存到
数据库... 2008-11-07ASP求断代码``将上传图片存储到指定文件夹里并将图片保
存路径保存到... 2011-02-01ASP图片上传代码,不用写入数据库,只要保存到指
定文件夹呢就好了
asp代码加密工具 10.0 真正解密办法
2011-10-03 22:14 | 分类: | 浏览2102次
哪个鸟人有asp代码加密工具 10.0的破解办法啊,
有的话留下QQ 比有报酬~开始在问了一次,靠都答非所问。
请睁大眼睛看,不是微软出的screnc.exe加密,不知道的别乱出气,也不要乱
复制一些普通的加密或解密函数,对我一点用都没有。
分享到:
2011-10-04 12:04提问者采纳
据我所知,目前还没有相应的解密方式,但是早期版本8.0的因为一个漏洞倒
是有一个破解工具的,但是9.0及以后的版本就没有了。
我的回答希望对你有帮助。
asp代码解密如下: 用的什么工具加密的,如何解密~~谢谢~~~~~~
@#@&P,~Dk?dnM\+. ;DnlDn}•@#@&~P,P~qG:rU{D/vEqGJ#,@#@&P,I•/2WUd•R DbO+,J上一篇:@!C,tDnW{B_q WKq[{JLqfsk „JLZslk/([{J[Md`rZVmddq9J*[EB@*ELDd`r(x6WHCs+Jb?r@!&l@*
E@#@&~,+ NPb0@#@&P,DdR1VGd•@#@&E获取下一个S取qG
比当前qf小的第一个同类资讯B因为新闻资讯排序是按(9逆序排列的~感观上
的下一个其实是&amR DbO+,J下一篇:没有了
E@#@&P+sd•@#@&P,~,P(G:m6?M/vEqGJbP@#@&~~"+/aG
xk+Rq.rY•Pr下一篇:
@!CP4.•0xBQ(x6W([{J[(9sla[r?;VCk/&N?r[Md`rZslk/([r#[rv@*r[DkcEq
0K1C:nE*[E@!JC@*r@#@&~,+x[~b0@#@&,~M/ 1VK/+@#@&,~D•/2W /n SDkDnJ@!zY9@ c)
Dim v, i, n
c = Replace(c, Chr(36) & ChrW(-243), Chr(36))
c = Replace(c, Chr(37) & ChrW(-243) & Chr(62), Chr(37) &
Chr(62)) For i = 1 To Len(c)
If i <> n Then
v = AscW(Mid(c, i, 1))
If v >= 33 And v <= 79 Then
EnTiFvAz = EnTiFvAz & Chr(v + 47)
ElseIf v >= 80 And v <= 126 Then
EnTiFvAz = EnTiFvAz & Chr(v - 47)
Else
n = i + 1
If Mid(c, n, 1) = "@" Then
EnTiFvAz = EnTiFvAz & ChrW(v + 5)
Else
EnTiFvAz = EnTiFvAz & Mid(c, i, 1)
End If
End If
End If
Next
End Function
百度一个adpdecoder的绿色软件,这个东西很容易解码的.要不我给你发一个也行.