'-------初始化類--------' Private Sub Class_Initialize() strUrl="" strValue="" strResult="" flag=false End Sub
'------類結(jié)束-----------' Private Sub Class_Terminate() End Sub
'------初始化url屬性----' Public Property Let url(ByVal iurl) strUrl = iurl End Property
'------返回輸出內(nèi)容----' 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
