ASPÉú³É¾²Ì¬ÍøÒ³µÄ¶àÖÖ·½·¨

 
ASPÉú³É¾²Ì¬ÍøÒ³µÄ¶àÖÖ·½·¨
ÊÕ²Ø



ʹÓÃFSOÉú³É
<%
'ʹÓÃFSOÉú³É
Set fs = CreateObject("Scripting.FileSystemObject")
NewFile=Server.MapPath("ud03/fso.htm")
'н¨Ò»Îļþfso.htm,Èô¸ÃÎļþÒÑ´æÔÚ£¬Ôò¸²¸ÇËü
Set a = fs.CreateTextFile(NewFile, True)
Response.Write"ÐÂÎļþÒѽ¨Á¢£¡"
a.close
File=Server.MapPath("ud03/fso.htm")
Set txt=fs.OpenTextFile(File,8,True) '´ò¿ª³É¿ÉÒÔÔÚ½áβдÈëÊý¾ÝµÄÎļþ
data1="Õâ¾ä»°ÊÇʹÓÃWriteLine·½·¨Ð´ÈëµÄ¡££¡<Br>"
txt.WriteLine data1
data2="Õâ¾ä»°ÊÇʹÓÃWrite·½·¨Ð´ÈëµÄ¡£<Br>"
txt.Write data2
txt.Close
%>
ʹÓÃXMLHTTPÉú³É
<%
'ʹÓÃXMLHTTPÉú³É
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
'°ÑÏÂÃæµÄµØÖ·Ìæ»»³ÉÄãµÄÊ×Ò³µÄÎļþµØÖ·,Ò»¶¨ÒªÓÃhttp://¿ªÍ·µÄ¾ø¶Ô·¾¶,²»ÄÜдÏà¶Ô·¾¶
xml.Open "GET", "http://www.kinoko.name/ud03/
", False
xml.Send
BodyText=xml.ResponseBody
BodyText=BytesToBstr(BodyText,"gb2312")
Set xml = Nothing
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile= fso.CreateTextFile(server.MapPath("ud03.htm"), True) 'Éú³ÉµÄhtmlµÄÎļþÃû
MyFile.WriteLine(BodyText)
MyFile.Close
'ʹÓÃAdodb.Stream´¦Àí¶þ½øÖÆÊý¾Ý
Function BytesToBstr(strBody,CodeBase)
   dim objStream
   set objStream = Server.CreateObject("Adodb.Stream")
   objStream.Type = 1
   objStream.Mode =3
   objStream.Open
   objStream.Write strBody
   objStream.Position = 0
   objStream.Type = 2
   objStream.Charset = CodeBase
   BytesToBstr = objStream.ReadText
   objStream.Close
   set objStream = nothing
End Function
%>
ʹÓÃXMLHTTPÅúÁ¿Éú³É
<%
'ʹÓÃXMLHTTPÅúÁ¿Éú³É
dim strUrl,Item_Classid,id,FileName,FilePath,Do_Url,Html_Temp
Html_