°Ñ¶¯Ì¬Ò³Ãæ×ª»»Îª¾²Ì¬Ò³Ã棬²ÉÓÃÏÂÃæµÄ´úÂ룺
<%
Call CreateHtml("http://192.168.1.7/index.asp","index.htm","/")
Function CreateHtml(Url, Filename, Path)
Set MyFileObject = Server.CreateObject("Scripting.FileSystemObject")
Path1 = Server.Mappath(Path) & "\" & FileName
Set MyTextFile = MyFileObject.CreateTextFile(Path1)
MyTextFile.WriteLine(GetHTTPPage(Trim(Url)))
MytextFile.Close
Response.Write "Éú³É" & FileName&"³É¹¦<br>"
Set MyFileObject = Nothing
End function
Function GetHTTPPage(Url)
On Error Resume Next
Dim Http
Set Http = Server.createobject("Microsoft.XMLHTTP")
Http.open "GET", url, False
Http.send()
If Http.Readystate <> 4 Then Exit Function
GetHTTPPage = BytesToBSTR(Http.ResponseBody,"GB2312")
Set Http = Nothing
If Err.number <> 0 Then
Response.Write "<p align='center'><font color='red'><b>·þÎñÆ÷»ñÈ¡ÎļþÄÚÈݳö´í</b></font></p>"
Err.Clear
End If
ÎÒÓÃobject±êÇ©ÔØÈëÒ»¸öÍⲿµÄhtmlÎļþ¿ÉÊÇÓÃvs2008´ò¿ªÈ´²»ÏÔʾ,ÏÔʾºì²æ,ÇëÎÊÊÇÔõô»ØÊÂ?
ÓÃiframeÔØÈë¡£
¿ÉÒÔÓÃiframeÔØÈë
ÓÃiframeÔØÈ볬Á´½ÓµØÖ·²»¸Ä±ä,û°ì·¨Ìø×ªÒ³Ãæ
ÒýÓÃ
ÓÃiframeÔØÈ볬Á´½ÓµØÖ· ......
<span id="Label1">Èç¹ûÄÜ¿´µ½Õâ¸ö±êÇ© ˵Ã÷ÎÒÃÇÒѾÄÜ´ÓHTML Ò³ÃæÉÏ»ñÈ¡ÁËÕâ¸öÔªËØ¿Ø¼þ´«µÝµ½SilverlightÓ¦ÓóÌÐòÖÐ </span>
<br />
<input type="sub ......