收录日期:2020/10/28 10:26:23 时间:2016/07/04 16:42:49 标签:ASP
  这两天在csdn论坛发现好多人在找ASP无组件上传,并且要求各不相同,今天我把自己以前写的类和示例统一作了下修改发出来,希望对大家有所帮助!
  本示例所使用上传类为自己写的类,不敢夸口说多完美,但能实现基本的功能.包括提取表单数据,上传到不同文件夹、保存到数据库以及二者同时进行(有的表单+上传必须分开进行),限制扩展名,限制大小,选择文件保存类型(原文件名和时间随机命名)等!
请到下面地址下载:
An-Upload无组件上传类8.7.28

An-Upload无组件上传类8.7.28



----------------------------^_^大家一起学习^_^------------------------------
艾恩ASP学习博客 http://blog.ii-home.cn
订阅我的BLOG文章
[img=http://blog.ii-home.cn/diy/ip.asp][/img]
Email:zhanghuiguoanlige@126.com   QQ:417833272
免费提供各种ASP学习资源,组件、源代码、学习手册、技术文章...
ASP无组件上传(支持多文件+表单数据)
ASP无组件上传(保存表单到数据库)
RSS基本结构的定义
好久没坐沙发了
多谢楼主分享。
乖乖那个东东

看到了我的ip,吓我一大跳跳
不过显示ip的图片打开非常慢

不知道和网通电信有没有关系,还是说你的服务器比较慢
还有,ip插件貌似不准,我不是adsl
引用 5 楼 yizia 的回复:
还有,ip插件貌似不准,我不是adsl

呵呵~我是调用的纯真数据库~~
引用 6 楼 Anlige 的回复:
引用 5 楼 yizia 的回复:
还有,ip插件貌似不准,我不是adsl 
 
呵呵~我是调用的纯真数据库~~

哦,不过确实有点慢,页面到挺清爽的。
下载试用一下,LZ辛苦了
呵呵 ,看看这个吧
http://www.scriptlover.com/dll/fyupload.dll
我没有任何同别人类比的意思~
仅仅是为了给大家提供方便~
呵呵~
引用 11 楼 Anlige 的回复:
我没有任何同别人类比的意思~ 
仅仅是为了给大家提供方便~ 
呵呵~

哈哈:)感觉你做东西挺用心的,赞一个。
接分  
支持。我也有一个Java版的,自己一直在用。呵呵!
好孩子呀。。。。支持
楼主真热心,赞
水印和缩略图,实现了没啊?
ding!
引用 17 楼 boigel 的回复:
水印和缩略图,实现了没啊?


得需要组件支持吧~??~呵呵~
顶一下!
引用 20 楼 daniel_jusa 的回复:
顶一下!
up....jf...
不错
哎~也不来接分的~
希望楼主能给出一个无刷新 上传方案
上传文件的最好还是控制在三五张以内.
 传多了文件大,要卡了就惨了..,
Anlige你可真是雷锋啊,又发东东又散分,按我说,你发了这好东东应该是我们出分才对嘛,哈哈,不管了,东东和分一起收下!
学习一下,接一下分

用file新类储存很有创意,比那个那个飓风什么直接copy好
引用 29 楼 smartcatiboy 的回复:
用file新类储存很有创意,比那个那个飓风什么直接copy好 

呵呵~也是copy的~本来想直接保存到一个变量,发现不行~老提示参数不对~呵呵~

Asp实现无刷新上传好象有点困难,前段时间看见一个用xml实现上传的,但就是没运行出来~
xml上传如何装入文件?adostream和其他涉及文件操作应该都是安全不允许的。能否说详细一些,关注。


引用 31 楼 smartcatiboy 的回复:
xml上传如何装入文件?adostream和其他涉及文件操作应该都是安全不允许的。能否说详细一些,关注。 

这个我还真不清楚~我一直寻找解决方法,php有 ajax上传的方法~
呵呵,现在只顾抢分了
看看先
楼主你好,你昨天回答的一个问题好像不正确


<%
function GetResStr(URL,code)
err.clear
dim ResBody,ResStr,PageCode,ReturnStr
Set Http=server.createobject("Microsoft.XMLHTTP") 
Http.open "GET",URL,False 
Http.Send() 
If Http.Readystate =4 Then 
  If Http.status=200 Then
    ResBody=http.responseBody
    ReturnStr=BytesToBstr(http.responseBody,code)
    GetResStr=ReturnStr
  End If 
End If 
End Function

'函数名:BytesToBstr
'作用:转换二进制数据为字符
'参数:Body-二进制数据,Cset-文本编码方式
Function BytesToBstr(Body,Cset) 
  Dim Objstream 
  Set Objstream = Server.CreateObject("adodb.stream") 
  objstream.Type = 1 
  objstream.Mode =3 
  objstream.Open 
  objstream.Write body 
  objstream.Position = 0 
  objstream.Type = 2 
  objstream.Charset =Cset 
  BytesToBstr = objstream.ReadText 
  objstream.Close 
  set objstream = nothing 
End Function

dim reg,vUrl,VBody,code,time1,time2,title
vUrl="http://www.cz88.net/ip/ipcheck.aspx?ip="&request.servervariables("REMOTE_ADDR")
TempStr=GetResStr(vUrl,"gb2312")
p1=instr(TempStr,"""")+1
p2=InStrRev(TempStr,"""")
Add=mid(TempStr,p1,p2-p1)

response.write "您的IP为:"&request.servervariables("REMOTE_ADDR")&"<br />"
response.write "您的位置:"&Add&"<br />"
%> 



objstream.Write body 一行有问题:
ADODB.Stream 错误 '800a0bb9' 

参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突。

请指教
真是好心人,顶下再说~~~
谁说没人JF啊,我来JF了!~~  :)
gfgfgfgfgfgf
确实是个好东西!!!!!!!! 
顶一个
引用 35 楼 ltzhh 的回复:
楼主你好,你昨天回答的一个问题好像不正确 


VBScript code
<%
function GetResStr(URL,code)
err.clear
dim ResBody,ResStr,PageCode,ReturnStr
Set Http=server.createobject("Microsoft.XMLHTTP") 
Http.open "GET",URL,False 
Http.Send() 
If Http.Readystate =4 Then 
  If Http.status=200 Then
    ResBody=http.responseBody
    ReturnStr=BytesToBstr(http.responseBody,code)
    GetResStr=Return…


那个地址cz已经不用了~暂时没找到地址~呵呵~
我是来 接分的 细细  新手 下载  看看
多謝分享
好,试试看

麻煩大家給個用存儲過程鏈接其它地方的SQL,並從它讀出記錄在本地SQL創建一個視圖的例子 使用CFileDialog做保存功能。怎么样才能保存一次以后,就不再弹出对话框而自动存储呢? Big-Endian and Little-Endian different? 希望看到高手的出现 请教如何在editor control中输入字符时按回车可以换行?? 怎么让DataGrid在客户端排序? 有一队伍长100米,匀速前进,传令兵以匀速从队首运动到队尾然后返回队首,其间队伍前进了100米,问传令兵运动的距离。 来而不往非礼也......我也散分! 有一队伍长100米,匀速前进,传令兵以匀速从队首运动到队尾然后返回队首,其间队伍前进了100米,问传令兵运动的距离。 使用IShellLink访问快捷方式,需要包含什么单元 用java导出excel文件固定数据类型的问题! 关于数据导EXECL的问题 刚开始做自定义服务器控件,碰到一个小问题. 一个琢磨了好几天的问题,请高手进! .net框架不能卸载也不能重新安装怎么办? DropDownListBox的 AddItem如何使用? hibernate的order by语句问题 很感谢大家这么快帮我解决问题,我在问一个问题onBlur和onClick有什么区别吗? 中文参数乱码问题!!! 谁能看出这一句sql的问题,我佩服你,还给你加分 请过来人指教 :) 取一句话的各单词的首字母,有什么好方法实现? lable控件的文字显示(菜鸟的问题,所谓,难者不会,会者不难) 有没有免费的比较好用的换肤代码或控件? jbuilder 第三方类库怎么使用? 自己的网站如何做一个记数器的 如何逆序中文输出 请教,如何比较日期型的大小 求助:win2003 server中下载的组件运行不起来 谁知道IBM面试JAVA工程师的流程,笔试题大体什么样? 如何对图片进行翻转?