一小偷類!!有興趣的可以看看
2024-05-04 11:01:42
供稿：網友
類代碼 (cls.asp)
<%
Class clsThief
Private strUrl ' 偷取地址
Private strValue ' 偷取的內容,所有內容
Private strResult ' 偷取結果,可以具體某一塊內容
Private flag ' 是否已經偷過
'-------初始化類--------'
Private Sub Class_Initialize()
strUrl=""
strValue=""
strResult=""
flag=false
End Sub
'------類結束-----------'
Private Sub Class_Terminate()
End Sub
'------初始化url屬性----'
Public Property Let url(ByVal iurl)
strUrl = iurl
End Property
'------返回輸出內容----'
public property get value
value=strValue
end property
public property get result
result=strResult
end property
'------------文字處理-----------'
private Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
'-------文字處理-------'
private Function Ichange(str)
Dim finalStr
Dim icharCode
Dim inextCode
For i = 1 To lenb(str)
icharCode = ascb(midb(str,i,1))
If icharCode < &H80 Then
finalStr = finalStr & chr(icharCode)
Else
inextCode = ascb(midb(str,i+1,1))
finalstr = finalstr & chr(clng(icharCode) * &H100 + cint(inextCode))
i = i + 1
End If
