BytesToBstr獲取的源碼轉(zhuǎn)換為中文的代碼
更新時(shí)間:2007年09月01日 22:03:33 作者:
'==================================================
'函數(shù)名:BytesToBstr
'作 用:將獲取的源碼轉(zhuǎn)換為中文
'參 數(shù):Body ------要轉(zhuǎn)換的變量
'參 數(shù):Cset ------要轉(zhuǎn)換的類型
'==================================================
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
'函數(shù)名:BytesToBstr
'作 用:將獲取的源碼轉(zhuǎn)換為中文
'參 數(shù):Body ------要轉(zhuǎn)換的變量
'參 數(shù):Cset ------要轉(zhuǎn)換的類型
'==================================================
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
相關(guān)文章
asp正則html的圖片,對(duì)圖自動(dòng)縮放大小
下面的代碼是從html中正則取出圖片,然后批量替換等2008-03-03asp中讓function同時(shí)返回多個(gè)值的代碼
asp中讓function同時(shí)返回多個(gè)值的代碼,需要的朋友可以參考下。2011-02-02asp下實(shí)現(xiàn)字符串的補(bǔ)充fill()
在一個(gè)字符串前后補(bǔ)全另一字符串,在一個(gè)字符串前面補(bǔ)全另一字符串,在一個(gè)字符串后面補(bǔ)全另一字符串2008-02-02BytesToBstr獲取的源碼轉(zhuǎn)換為中文的代碼
BytesToBstr獲取的源碼轉(zhuǎn)換為中文的代碼...2007-09-09利用ASPUPLOAD,ASPJPEG實(shí)現(xiàn)圖片上傳自動(dòng)生成縮略圖及加上水印
利用ASPUPLOAD,ASPJPEG實(shí)現(xiàn)圖片上傳自動(dòng)生成縮略圖及加上水印...2007-02-02Asp下實(shí)現(xiàn)限制IP訪問(wèn)的程序代碼
Asp下實(shí)現(xiàn)限制IP訪問(wèn)的程序代碼...2007-04-04rs.open sql,conn,1,1與rs.open sql,conn,1.3還有rs.open sql,conn,
Rs.Open語(yǔ)法如下:rs.Open Source,ActiveConnection,CursorType,LockType Source為sql語(yǔ)句,ActiveConnection為數(shù)據(jù)庫(kù)連接,CursorType是游標(biāo),LockType是數(shù)據(jù)鎖定類型.2011-01-01