<%
ServerURL="http://google.com/" '要抓的網址
Set Mail1 = Server.CreateObject("CDO.Message")
Mail1.CreateMHTMLBody ServerURL,31
AA=Mail1.HTMLBody
Set Mail1 = Nothing
AA=replace(AA,"<","< ")
Response.Write AA %>
Selected Category: 程式-Perl (3)
- Jun 10 Wed 2009 18:53
ASP抓取網頁的內容
- Apr 03 Thu 2008 21:32
vb程式碼-轉換
Public Function SizeCalc(Size As Long) As String
Dim SizeArray(3) As String
Dim Prefix As Integer
Dim strSize As String
Prefix = Int(Log(Size) / Log(1024))
SizeArray(0) = "B"
SizeArray(1) = "KB"
SizeArray(2) = "MB"
SizeArray(3) = "GB"
strSize = Str(Round(Size / (1024 ^ Prefix), 2)) & " " & SizeArray(Prefix)
strPrefix = SizeArray(Prefix)
Dim SizeArray(3) As String
Dim Prefix As Integer
Dim strSize As String
Prefix = Int(Log(Size) / Log(1024))
SizeArray(0) = "B"
SizeArray(1) = "KB"
SizeArray(2) = "MB"
SizeArray(3) = "GB"
strSize = Str(Round(Size / (1024 ^ Prefix), 2)) & " " & SizeArray(Prefix)
strPrefix = SizeArray(Prefix)
- Jan 05 Sat 2008 11:22
Perl-批次處理目錄下符合副檔名之資料
好久沒碰Perl了，
都快忘了基本語法，
這次教授出個任務，
順便複習Perl給我的震撼囉...
都快忘了基本語法，
這次教授出個任務，
順便複習Perl給我的震撼囉...
#!/usr/bin/perl -w
use strict;
=head1 [以下註解]
作用：把目錄下符合檔名資料取出前三行作批次替換處理。
程式：kinom (kinomelma@yahoo.com.tw)
日期：2008/01/05
=cut [以上註解]
