ASP编程：远程猎取内容，并将内容存在当地电脑上...
帮助用户快速实现各种应用服务，ASP商有整合各方面资源的能力，可在短期内为用户提供所需的解决方案。例如，典型的ERP安装，如果要在客户端安装的话需要半年到二年的时间，但是美国的一些ASP商如USI和CORIO能在90—120天内提供ERP应用方案。ado|stream|xml|原创<%------------------------------------------------------------------------
-------------------无垠网域：http://www.5inet.net/---------------------
-------------------嘻哈呵嘿,webmaster@5inet.net-----------------
----------远程猎取内容，并将内容存在当地电脑上，包含任何文件！----------
---------------使用xmlhttp和adodb.stream,酷！相对原创！-----------------
OnErrorResumeNext
Setthecontenttypetothespecifictypethatyouaresending.
Response.ContentType="IMAGE/JPEG"
-------------------------------界说输入格局-----------------------------
Path=request.querystring("p")
sPath=Path
ifleft(lcase(path),7)"http://"then
-------------假如后面没有http就是当地文件，交给LocalFile处置------------
LocalFile(path)
else
--------------------不然为远程文件，交给RemoteFile处置------------------
RemoteFile(Path)
endif
Response.Writeerr.Description
subLocalFile(Path)
-------------------假如为当地文件则复杂的跳转到该页面-------------------
Response.RedirectPath
EndSub
SubRemoteFile(sPath)
-------------------------处置远程文件函数------------------------------
FileName=GetFileName(sPath)
-------------GetFileName为把地点转换为及格的文件名历程-------------
FileName=Server.MapPath("/UploadFile/Cache/"&FileName)
SetobjFso=Server.CreateObject("Scripting.FileSystemObject")
Response.WritefileName
ifobjFso.FileExists(FileName)Then
--------------反省文件是不是是已会见过,如是，则复杂跳转------------
Response.Redirect"/uploadfile/cache/"&GetFileName(path)
Else
----------------不然的话就先用GetBody函数读取----------------------
Response.WritePath
t=GetBody(Path)
-----------------用二进制办法写到扫瞄器上--------------------------
Response.BinaryWritet
Response.Flush
-----------------输入缓冲------------------------------------------
SaveFilet,GetFileName(path)
------------------将文件内容缓存到当地路径，以待下次会见-----------
Endif
SetobjFso=Nothing
EndSub
FunctionGetBody(url)
-----------------------本函数为远程猎取内容的函数---------------------
onerrorresumenext
Response.Writeurl
SetRetrieval=CreateObject("Microsoft.XMLHTTP")
----------------------创建XMLHTTP工具-----------------------------
WithRetrieval
.Open"Get",url,False,"",""
------------------用Get，异步的办法发送-----------------------
.Send
GetBody=.ResponseText
GetBody=.ResponseBody
------------------函数前往猎取的内容--------------------------
EndWith
SetRetrieval=Nothing
response.Writeerr.Description
EndFunction
FunctionGetFileName(str)
-------------------------本函数为及格化的文件名函数-------------------
str=Replace(lcase(str),"http://","")
str=Replace(lcase(str),"//","/")
str=Replace(str,"/","")
str=replace(str,vbcrlf,"")
GetFileName=str
EndFunction
subSaveFile(str,fName)
-------------------------本函数为将流内容存盘的函数-------------------
onerrorresumenext
SetobjStream=Server.CreateObject("ADODB.Stream")
--------------创建ADODB.Stream工具，必需要ADO2.5以上版本---------
objStream.Type=adTypeBinary
-------------以二进制形式翻开-------------------------------------
objStream.Open
objstream.writestr
&nb</p>实现规模效益。与传统的用户拥有硬件软件所有权和使用权以及传统的应用服务商提供一对一的服务模式不同，ASP拥有应用系统所有权，用户拥有使用权，应用系统集中放在ASP的数据中心中，集中管理，分散使用，以一对多的租赁的形式为众多用户提供有品质保证的应用技术服务，实现规模效益。 ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。 因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。 掌握asp的特性而且一定要知道为什么。 哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的? 先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习 如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助: 不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍 我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。 多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。
页:
[1]