鐢╔ML缁勪欢鐢熸垚闈欐�侀�栭〉

Function GetURL(URL)
"涓嬭浇涓诲嚱鏁�
const TimeInterval=60
"璁惧畾鏃堕棿闂撮殧
"濡傛灉涓嬭浇鏃堕棿寰堟參锛屽氨鍐欐垚120绉�
"Response.LCID=2052
const lResolve=6
"瑙ｆ瀽鍩熷悕瓒呮椂鏃堕棿,绉�
const lConnect=6
"杩炴帴绔欑偣瓒呮椂鏃堕棿,绉�
const lSend=6
"鍙戦�佹暟鎹�璇锋眰瓒呮椂鏃堕棿,绉�
const lReceive=40
"涓嬭浇鏁版嵁瓒呮椂鏃堕棿,绉�
on error resume Next
Dim http
Set http = Server.CreateObject("Msxml2.ServerXMLHTTP")
http.setTimeouts lResolve*1000,lConnect*1000,lSend*1000,lReceive*1000
http.Open "GET",URL,False
http.Send
Select Case http.readyState
Case 0
GetURL="瀵硅薄鍒濆�嬪寲澶辫触"
Err.Clear
set http=nothing
Exit Function
Case 1
GetURL="鍩熷悕鍒嗘瀽瓒呮椂/杩炴帴绔欑偣瓒呮椂"
Err.Clear
set http=nothing
Exit Function
Case 2
GetURL="鍙戦�佹暟鎹�璇锋眰瓒呮椂,鏄�涓嶆槸鏈嶅姟鍣ㄥ嚭鏁呴殰浜�"
Err.Clear
set http=nothing
Exit Function
Case 3
GetURL="鏁版嵁涓嬭浇瓒呮椂/绛夊緟鍙嶉�堟椂闂磋秴鏃�"
Err.Clear
set http=nothing
Exit Function
Case 4
"涓嬭浇鎴愬姛
End Select
If http.status<>200  then
GetURL="涓嬭浇澶辫触"&Err.description
Err.Clear
set http=nothing
Exit Function
END IF
If http.status="200" then
GetURL=http.ResponseText
"GetURL=SaveFile()
End If
set http=nothing
End Function
-->

銆�銆�涓昏�佸姛鑳芥槸鎶撳彇鍦板潃鍙傛暟鐨勭綉椤垫枃浠剁殑鍐呭�广��銆�浣跨敤鏂规硶varia=GetURL("http://www.knowsky.com"),濡傛灉鏄�鏈�鍦版祴璇曞湴鍧�鍙�浠ュ啓鎴�http://localhost/default.asp 銆�銆�浣跨敤姝ゅ嚱鏁伴渶瑕佹敞鎰忕殑鏄疪esponse.LCID=2052灞炴�у湪windows server 2000涓嬩笉琚�鏀�鎸�,涓嶈繃闂�棰樹笉澶у彧瑕佹敞閲婃帀鍗冲彲姝ｅ父浣跨敤! 銆�銆�杩樻湁涓�浜涜秴鏃跺睘鎬у彲浠ユ牴鎹�闇�瑕佽嚜瀹氫箟,浣嗘敞鎰忎笉瑕佽�剧疆鐨勬椂闂村お鐭�,鍚﹀垯濡傛灉鏂囦欢澶ф垨鑰呭湴鍧�璁块棶閫熷害杈冩參灏卞�规槗鎶撳彇澶辫触! 杩欒�╂垜浠�灏卞彲浠ュ埄鐢ㄦ�ゅ嚱鏁版潵鎶撳彇浣犳兂瑕佺敓鎴愮殑缃戦〉鏂囦欢鍐呭�逛簡.灏嗗唴瀹瑰瓨鍏ュ彉閲�,绛夌潃鍐欏叆鏂囦欢鍚�!

涓嬮潰缁欏嚭杩欎釜绫�,鐢ㄦ潵灏嗗垰鍒氬埄鐢ㄥ嚱鏁版姄鍙栫殑鍐呭�瑰啓鍏ョ浉搴旀枃浠�,杩欐牱灏卞ぇ鍔熷憡鎴愪簡! 鐩存帴鐢熸垚浣犳墍瑕佺敓鎴愮殑缃戦〉鍚�,闈炲父鏂逛究鑰屼笖涓嶇敤淇�鏀瑰師鏉ョ殑鏂囦欢!

Class Htmlmaker

"鐩稿叧闂�棰樿�峰弬鐪� http://www.knowsky.com
"/*************************
"/ 灞炴�ц�剧疆璇存槑

"/ foldename "鏂囦欢澶瑰悕"
"/ 濡傛灉涓嶈�剧疆,灏嗚嚜鍔ㄧ敓鎴怺骞存湀鏃�]鏃堕棿鏍煎紡鐨勬枃浠跺す鍚�

"/ Filename "鏂囦欢鍚�"(鍚�鍓嶅悗缂�)
"/ 濡傛灉涓嶈�剧疆,灏嗚嚜鍔ㄧ敓鎴怺鏃跺垎绉抅鏃堕棿鏍煎紡鐨勬枃浠跺悕,鍚庣紑涓�.html

"/ Htmlstr "鐢熸垚鐨勪唬鐮佸唴瀹�"
"/*************************

Private HtmlFolder,HtmlFilename,HtmlContent

Public property let foldename(str)
HtmlFolder=str
End property

Public property let Filename(str)
HtmlFilename=str
End property

Public property let Htmlstr(str)
HtmlContent=str
End property

"/*************************
"/ 鏂囦欢鍚嶈浆鎹㈡棩鏈熷嚱鏁�
"/*************************

    Private Function Datename1(timestr)
        dim s_year,s_month,s_day
        s_year=year(timestr)
        if len(s_year)=2 then s_year="20"&s_year
        s_month=month(timestr)
        if s_month<10 then s_month="0"&s_month
        s_day=day(timestr)
        if s_day<10 then s_day="0"&s_day
        Datename1=s_year & s_month & s_day
    End Function

    Private Function Datename2(timestr)
        dim s_hour,s_minute,s_ss
        s_hour=hour(timestr)
        if s_hour<10 then s_hour="0"&s_hour
        s_minute=minute(timestr)
        if s_minute<10 then s_minute="0"&s_minute
        s_ss=second(timestr)
        if s_ss<10 then s_ss="0"&s_ss
        Datename2 = s_hour & s_minute & s_ss
    End Function

"/*************************
"/ 鍒濊瘯鍖�
"/*************************

    Private Sub class_initialize()
        HtmlFolder=Datename1(now)
        HtmlFilename=Datename2(now)&".html"
        HtmlC
    End Sub

    Private Sub class_terminate()
    End Sub

"/*************************
"/ Html鏂囦欢鐢熸垚
"/*************************

    Public Sub Htmlmake()
    "    On Error Resume Next
        dim filepath,fso,fout
        filepath = HtmlFolder&"/"&HtmlFilename
        Set fso = Server.CreateObject("Scripting.FileSystemObject")
        If fso.FolderExists(Server.MapPath(HtmlFolder)) Then
        Else
        fso.CreateFolder(Server.MapPath(HtmlFolder))
        End If
    "    Set fout = fso.CreateTextFile(Server.MapPath(filepath),true)
    "    fout.WriteLine HtmlContent
    "    fout.close
        dim objFSO,adTypeText,adSaveCreateOverWrite,Charsett,objAdoStream
        Charsett = "utf-8"
        set objAdoStream = Server.CreateObject("ADODB.Stream")
        adTypeText  = 2
        adSaveCreateOverWrite = 2
        objAdoStream.Type = adTypeText
        objAdoStream.Open
        objAdoStream.Charset = Charsett
        objAdoStream.WriteText(HtmlContent)
        objAdoStream.SaveToFile Server.MapPath(filepath),2
        objAdoStream.Close
    End Sub

"/*************************
"/ Html鏂囦欢鍒犻櫎
"/*************************

    Public Sub Htmldel()
    dim filepath,fso
    filepath = HtmlFolder&"/"&HtmlFilename
    Set fso = CreateObject("Scripting.FileSystemObject")
    if fso.FileExists(Server.MapPath(filepath)) then
        fso.DeleteFile(Server.mappath(filepath))
    end if
    Set fso = nothing
    End Sub

End class

涓嬮潰涓轰簡璁╁ぇ瀹舵洿濂界殑瀛︿範缁欏嚭鍏蜂綋鐨勪妇涓�涓�瀹炰緥:

鎴戜滑鏈変竴涓�缃戠珯鍦板潃鏄� http://www.knowsky.com/

鎴戜滑瑕佸皢鍏堕�栭〉涔熷氨鏄痙efault.asp鐢熸垚闈欐�佺殑htm鏂囦欢

鎴戜滑鍏堝缓绔嬩釜鏂囦欢:makeindex.asp

<!--#include file="function_class.asp"-->
<%
dim indexhtmlstr
indexhtmlstr=GetURL("http://www.knowsky.com/default.asp")
dim indexfilename
indexfilename="index.htm"
dim actionstat
if len(indexhtmlstr) <200 then
    acti&indexfilename&"鏂囦欢鏃堕亣鍒�"&indexhtmlstr&"閿欒��"
else
    dim myhtml
    set myhtml= new Htmlmaker
    myhtml.foldename = "../.."
    myhtml.Filename = indexfilename
    myhtml.Htmldel
    myhtml.Htmlstr = indexhtmlstr
    myhtml.Htmlmake
    set myhtml=nothing
    acti&indexfilename&"鏂囦欢"
end if
response.write actionstat
%>

鏂囦欢function_class.asp鐨勫唴瀹逛富瑕佸寘鎷�鍓嶉潰缁欏嚭鐨勫嚱鏁板拰鐢熸垚鏂囦欢鐨勭被灏卞彲浠ヤ簡!
杩愯�宮akeindex.asp灏卞彲浠ョ敓鎴恏tm鏂囦欢浜�!