<s c r i p t language=vb runat=server id="modInternet">
' 發展單位：風禹科技驗證有限公司
' 撰寫人：鄭子璉(Tzu-Lien, Cheng, 璉璉) ，成大水利博肄，微軟最有價值專家
' Web: http://tlcheng.twbbs.org/TLCheng/ E-Mail: qvb3377@ms5.hinet.net
' --------------------------------------------------------------------------------------

	Public Function MyWebDownloadFile(ByVal address As String, ByVal filename As String) As String
		Dim wc As New System.Net.WebClient

		MyCreateDirectory(MyGetPathName(filename))
		MyWebDownloadFile = filename
		Try
			wc.DownloadFile(address, filename)
		Catch
			MyWebDownloadFile = ""
		End Try
	End Function

	Public Function MyWebDownloadData(ByVal address As String) As Byte()
		Dim wc As New System.Net.WebClient

		Try
			Return wc.DownloadData(address)
		Catch
			Return Nothing
		End Try
	End Function
</ s c r i p t>