ASP 擷取網頁資料

ServerURL="http://c5aweb01/MFG/Personal/Personal_Info.asp?WorkID=" & Session("WorkID")

Set Mail1 = Server.CreateObject("CDO.Message") 

Mail1.CreateMHTMLBody ServerURL,31 

AA=Mail1.HTMLBody '結果回傳到AA裡 

Set Mail1 = Nothing

message_count = Split(AA,",")

message_count = Array(0,0)

'=====重要訊息=====

ServerURL="http://c5aweb01/MFG/common/重要訊息/Top5.asp?FAB=" & FAB

Set Mail1 = Server.CreateObject("CDO.Message") 

Mail1.CreateMHTMLBody ServerURL,31 

MFG_MESSAGE = Mail1.HTMLBody

Set Mail1 = Nothing