高分200 求无组件上源码 asp上传源码...

来源：百度知道 编辑：UC知道 时间：2024/05/14 10:53:32
图片上传功能:(详细者优先!)
可以是:FSO上传功能,无组件上传功能!
上传图片:判断图片大小,格式..,上传更改名称...
谢谢
本人QQ:16647900

http://www.mycodes.net/soft/8953.htm
我只能帮你到这里了，不好意思

我有经常在公司项目中用的源码及使用示例。
如果需要，给我邮箱我发给你。

<%
a=Request.TotalBytes
if a>0 Then
Set c=Createobject("adodb.stream")
c.Type=1
c.Open
c.Write Request.BinaryRead(a)
c.Position=0

d=c.Read
e=chrB(13)&chrB(10)
f=Instrb(d,e)
g=Instrb(f+1,d,e)

set h=Createobject("adodb.stream")
h.Type=1
h.Open
c.Position=f+1
c.Copyto h,g-f-3
h.Position=0
h.type=2
h.CharSet="BIG5"
i=h.Readtext
h.close

j=mid(i,InstrRev(i,"\")+1,g)

if instr("jsp/asp/aspx/exe/php/html/htm/...",right(j,len(j)-instr(j,".")))>0 then
session("error")="您要上传不允许的文件"
response.redirect("error.asp")
end if

j=replace(date