標簽歸檔:asp處理二進制

ASP的Base64加密解密

JS有Base64.js,PHP內建Base64支持,ASP處理Base64數據就沒有那么幸運了,既沒有Base64.asp,也沒有內建的函數,這可怎么辦?

ASP一般用到Base64的時候,都是處理二進制文件。簡單的文本,就沒有必要編碼咯。ASP處理二進制又是一個弱項,有沒有好的方法呢?xml中的bin.base64也許可以拿來用用。

'調用xml的編碼,用于參照
function Base64Encode(strData)
    dim objAds,objXd
    set objAds=createobject("adodb.stream")
    objAds.Type=2
    objAds.charset="unicode"
    objAds.mode=3
    call objAds.open()
    objAds.writeText strData
    objAds.Position=0
    objAds.Type=1
    'objAds.Position=2

    set objXd=createobject("msxml.domdocument")
    call objXd.loadXml("<root/>")
    objXd.DocumentElement.DataType="bin.base64"
    objXd.DocumentElement.NodeTypedValue=objAds.read()
    Base64Encode=objXd.DocumentElement.text
end function

function Base64Decode(strData)
    dim objXd
    set objXd=createobject("msxml.domdocument")
    call objXd.loadXml("<root/>")
    objXd.DocumentElement.DataType="bin.base64"
    objXd.DocumentElement.text=strData
    Base64Decode=objXd.DocumentElement.NodeTypedValue
end function

ASP WEBZip – 貓七原創ASP壓縮解壓系統

1.下載地址

?????? ? http://www.okfdzs1809.com/products/webzip.rar

2.程序源碼

????? ??http://www.okfdzs1809.com/p/webzip-code

3.使用說明

???????? http://www.okfdzs1809.com/p/webzip-demo

4.未解決問題

?????? ADODB.Stream讀取asp文件時,如果文件結尾為%>,則%后的>會被忽略掉,現在本人暫未解決這個問題,用戶可以在以%>結尾的asp文件,請在后邊添加一個空格或換行符,恢復后程序即可正常使用。

貓七原創ASP壓縮解壓系統 使用說明

1.下載&安裝

?????? 到http://www.okfdzs1809.com/products/webzip.rar,保存為webzip.rar以供備用。

2.壓縮

?????? 將webzip.rar中的webzip.asp、webzip.asp.webzip解壓到要壓縮的目錄。在瀏覽器中訪問[hostname]/[保存路徑]/webzip.asp打開本工具,點擊壓縮,稍等片刻,即可打包完畢。

3.上傳

???? 將webzip.asp、webzip.asp.webzip通過FTP或在線文件管理系統上傳到您的站點目錄。

4.解壓

?????在瀏覽器中訪問[hostname]/[保存路徑]/webzip.asp,選擇解壓。稍等片刻,您的整個站點將會在服務服務器上解壓完畢。

??? 至此,您的整個站點即可正常使用了。

[Debug]
1.ADODB.Stream讀取asp文件時,如果文件結尾為%>,則%后的>會被忽略掉,現在本人暫未解決這個問題,用戶可以在以%>結尾的asp文件,請在后邊添加一個空格或換行符,恢復后程序即可正常使用。

2.如果您在使用中發現出現某些問題,可直接致郵:mqycn@126.com