ASP编程：使用ASP远程猎取内容

在实现ERP等高端的ASP应用时，用户需要提供核心的经营资料，需要ASP商有很高的信用度。楼上说交互性不好，太牵强了吧。在微软提供的一套框架中，利用asp做网站，开发效率高，使用人数少，减少不必要的开销。交互性是互动方式，是有开发人员决定的。　
----------远程猎取内容，并将内容存在当地电脑上，包含任何文件！----------
---------------使用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
--------------------将字符串内容写进缓冲--------------------------
response.Writefname
objstream.SaveToFile"c:inetpubmywebuploadfilecache"&fName,adSaveCreateOverWrite
--------------------将缓冲的内容写进文件--------------------------
response.BinaryWriteobjstream.Read
objstream.Close()
setobjstream=nothing
-----------------------封闭工具，开释资本-------------------------
response.Writeerr.Description
Endsub
%>



</p>减少客户内IT专业人才缺乏带来的影响。ASP的客户员工利用浏览器进入相关的应用软件，简单易用，无需专业技术支持。

我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标.

不能只是将它停留在纸上谈兵的程度上。

ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点，理论上可以使用任何编程语言包括C++,VB,JS等等，当然，最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp)，它可以看作是VC和Java的混合体吧。

最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。

下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。

它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。

以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。

最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。

Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名")