2.8w+
社区成员
- 主页
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
wcwtitxu 2009-10-22
Function DecodeBase64(str)
With CreateObject("Microsoft.XMLDOM").createElement("TXT")
.dataType = "bin.base64"
.text = str
DecodeBase64 = .nodeTypedValue
End With
End Function
Function EncodeBase64(dt)
With CreateObject("Microsoft.XMLDOM").createElement("TXT")
.dataType = "bin.base64"
.nodeTypedValue = dt
EncodeBase64 = .text
End With
End Functionlzp4881 2009-10-19
自 由 颂
林昭
生命似嘉树，爱情若丽花；
自由昭临处，欣欣迎日华。
生命巍然在，爱情永无休；
愿殉自由死，终不甘为囚。
林昭
生命似嘉树，爱情若丽花；
自由昭临处，欣欣迎日华。
生命巍然在，爱情永无休；
愿殉自由死，终不甘为囚。
mahui19780126 2009-08-18
写程序改要下载控件。用photoshop改好，再传上去。
hookee 2009-08-17
组件下载: http://www.chakucun.com/Base64Lib.zip
<img src="test.asp">
test.asp
<img src="test.asp">
test.asp
<%
s = "R0lGODlhCgAKAIAAAEqxNQAAACH5BAAAAAAALAAAAAAKAAoAAAIIhI+py+0PYysAOw=="
Set obj = CreateObject("Base64Lib.Base64Codec")
Response.BinaryWrite obj.Decode(s,0)
Set obj = Nothing
%>
