博客园_我一直在努力！技术，发展的灵魂

vbscript/javascript版的base64编码函数，支持中文，代码超精简

2011-04-27T03:34:00Z

The following fuctions wrapper the encoding/decoding functionality:

Private Function EncodeBase64(ByRef arrData() As Byte) As String

    Dim objXML As MSXML2.DOMDocument
    Dim objNode As MSXML2.IXMLDOMElement

    ' help from MSXML
    Set objXML = New MSXML2.DOMDocument

    ' byte array to base64
    Set objNode = objXML.createElement("b64")
    objNode.dataType = "bin.base64"
    objNode.nodeTypedValue = arrData
    EncodeBase64 = objNode.Text

    ' thanks, bye
    Set objNode = Nothing
    Set objXML = Nothing

End Function

Private Function DecodeBase64(ByVal strData As String) As Byte()

    Dim objXML As MSXML2.DOMDocument
    Dim objNode As MSXML2.IXMLDOMElement

    ' help from MSXML
    Set objXML = New MSXML2.DOMDocument
    Set objNode = objXML.createElement("b64")
    objNode.dataType = "bin.base64"
    objNode.Text = strData
    DecodeBase64 = objNode.nodeTypedValue

    ' thanks, bye
    Set objNode = Nothing
    Set objXML = Nothing

End Function

以下内容转自互联网，版权归原作者所有

vbscript版本：

Function Base64Encode(psText)
dim oXml, oStream, oNode
Set oXml =Server.CreateObject("MSXML2.DOMDocument")
Set oStream =Server.CreateObject("ADODB.Stream")
Set oNode =oXml.CreateElement("tmpNode")
oNode.dataType ="bin.base64"
oStream.Charset ="gb2312"
oStream.Type =2'0=adStateClosed 1=adStateOpen
If oStream.state =0 Then oStream.Open()
oStream.WriteText(psText)
oStream.Position =0
oStream.Type =1'1=adTypeBinary 2=adTypeText
oNode.nodeTypedValue =oStream.Read(-1)'-1=adReadAll
oStream.Close()
Base64Encode =oNode.Text
Set oNode =Nothing
Set oStream =Nothing
Set oXml =Nothing
End Function

javascript版本：

function Base64EncodeText(TextStr){
var xml_dom =new ActiveXObject("MSXML2.DOMDocument");
var ado_stream =new ActiveXObject("ADODB.Stream");
var tmpNode =xml_dom.createElement("tmpNode");
tmpNode.dataType ="bin.base64";
ado_stream.Charset ="gb2312";
ado_stream.Type =2;//   1=adTypeBinary   2=adTypeText
if(ado_stream.state ==0){//   0=adStateClosed 1=adStateOpen
   ado_stream.Open();
}
ado_stream.WriteText(TextStr);
ado_stream.Position =0;
ado_stream.Type =1;//   1=adTypeBinary   2=adTypeText
tmpNode.nodeTypedValue =ado_stream.Read(-1);//   -1=adReadAll
ado_stream.Close();
return tmpNode.text;
}

vbscript版本其实就是从javascript版本改过来的，可直接用于asp中，javascript版的也可以直接用于asp中，如果默认脚本语言是vbscript，则：

javascript版base64函数代码.....

</script>

另不止对字符串进行编码，还可以对文件进行编码，具体代码如下：

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title> 用 XMLDOM 和 ADODB.Stream 实现base64编码解码 </title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css" title="">
#textarea1,#textarea3,#textarea5 { background-color: #EEEEEE; }
</style>
</head>

<body>

<h3>用 XMLDOM 和 ADODB.Stream 实现base64编码解码</h3>
<h5>By: CuiXiPing(无心)</h5>

<h4>1.对文件的base64编码</h4>

<h4>2.对文本的base64编码</h4>

<input type="button" value="base64编码" onclick="textarea3.value=Base64EncodeText(textarea2.value)">
<br>
<textarea id="textarea2" rows="4" cols="40">坚决抵制日货</textarea>
<textarea id="textarea3" rows="4" cols="40" readOnly></textarea>

<h4>3.对文本的base64解码</h4>

ado_stream.Type = 1; // 1=adTypeBinary
if(ado_stream.state==0){ // 0=adStateClosed 1=adStateOpen
ado_stream.Open();
}
ado_stream.LoadFromFile(fileSpec);
tmpNode.nodeTypedValue = ado_stream.Read(-1); // -1=adReadAll
ado_stream.Close();

return tmpNode.text;
}
function Base64EncodeText(TextStr){
var xml_dom = new ActiveXObject("MSXML2.DOMDocument");
var ado_stream = new ActiveXObject("ADODB.Stream");
var tmpNode = xml_dom.createElement("tmpNode");
tmpNode.dataType = "bin.base64";

ado_stream.Charset = "gb2312";
ado_stream.Type = 2; // 1=adTypeBinary 2=adTypeText
if(ado_stream.state==0){ // 0=adStateClosed 1=adStateOpen
ado_stream.Open();
}
ado_stream.WriteText(TextStr);
ado_stream.Position = 0;
ado_stream.Type = 1; // 1=adTypeBinary 2=adTypeText
tmpNode.nodeTypedValue = ado_stream.Read(-1); // -1=adReadAll
ado_stream.Close();

return tmpNode.text;
}
function Base64DecodeText(Base64Str){
var xml_dom = new ActiveXObject("MSXML2.DOMDocument");
var ado_stream = new ActiveXObject("ADODB.Stream");
var tmpNode = xml_dom.createElement("tmpNode");
tmpNode.dataType = "bin.base64";
tmpNode.text = Base64Str;

ado_stream.Charset = "gb2312";
ado_stream.Type = 1; // 1=adTypeBinary 2=adTypeText
ado_stream.Open();
ado_stream.Write(tmpNode.nodeTypedValue);
ado_stream.Position = 0;
ado_stream.Type = 2; // 1=adTypeBinary 2=adTypeText
var str = ado_stream.ReadText(-1); // -1=adReadAll
ado_stream.Close();

return str;
}
//-->
</script>

</body>
</html>

本文链接

SQL 自增长列identity 数据同步问题，批量更新自增长列的Seed

2010-12-17T15:08:00Z

使用SQL 进行数据同步后，自增长列的数据只是进行了数据同步，但是对应的Seed并没有增长。

如果只有个别表，可以使用

DEclARE @autoid int
set @autoid=(SELECT MAX(autoid) FROM mysqlpub)
if @autoid is NULL
SET @autoid=0
DBCC CHECKIDENT (mysqlpub, RESEED,@autoid)

来更新自增长列当前的Seed。

如果含有表比较多，可以结合游标批量操作

declare @tableName varchar(50)
declare @colName varchar(20)
declare @SQL varchar(2000)
declare tmpCursor cursor
for select o.name,c.name from sysobjects o, sys.columns c
where o.id=c.object_id and o.xtype='U' and o.name like 'tap%' and is_identity=1

open tmpCursor
fetch next from tmpCursor into @tableName,@colName
while @@FETCH_STATUS = 0
begin
SET @SQL = 'DEclARE @autoid int ' + CHAR(13)
   + ' set @autoid=(SELECT MAX(IDENTITYCOL)+1 FROM '+@tableName+') ' + CHAR(13)
   + 'if @autoid is NULL '+ CHAR(13)
   +' SET @autoid=10000 '+ CHAR(13)
   + ' DBCC CHECKIDENT ('+@tableName+', RESEED,@autoid)'+ CHAR(13)
EXEC(@SQL)
--SELECT @SQL
fetch next from tmpCursor into @tableName,@colName
end
close tmpCursor
deallocate tmpCursor

本文链接

开发手记之-水晶报表(Crystal Report) 无开发环境下拉(Pull)模式登录问题

2010-12-09T07:25:00Z

最近一个小项目中用了水晶报表来做一些报表呈现，由于需求不一样，所以实现过程中有些用的是推(Push)模式，有些用的是拉（Pull）模式。

开发环境为VS2008, 报表是10.5.37, 服务器是Win Server 2003

这部分的内容，大家可以先读一下阿泰的文章：http://www.cnblogs.com/babyt/category/75444.html

由于部署的服务器上没有开发环境，所以需要部署水晶报表的运行时环境。

参考：http://www.cnblogs.com/babyt/archive/2008/02/19/1073688.html

现在终点说一说遇到的问题：

1、部署完成之后，运行，发现报表打不开，提示加载报表失败，这个是没有权限的问题，给..Windows\Temp目录，对Network Service 加上修改的权限。

2、用拉(Pull)模式写的报表，一直出现登录提示对话框，设置CrystalReportViewer的属性，不显示登录提示，这个时候出现错误为数据库链接失败，Provider不存在。

查阅许多才发现，原来是设计报表的时候使用的链接用的是SQL Native Client 或者是SQLNCLI在服务器上没有，把他改为SQLOLEDB就OK了。

用VS打开报表，在数据库那里右键，有个Set Database Location，打开属性，找到Provider，右键编辑，即可更改SQLOLEDB，保存发布，一切正常。

3、针对2的问题，另外一种解决办法是按照VS2005的SQL Native Client package，我没试过，在下边列出下载地址，需要的朋友可以自行尝试。

参考文章：

http://forums.asp.net/t/1040333.aspx

http://www.microsoft.com/downloads/en/details.aspx?FamilyID=d09c1d60-a13c-4479-9b91-9e8b9d835cdc&displaylang=en

本文链接

IIS6 下运行MVC2

2010-11-13T05:10:00Z

背景：

最近的团购十分火热，大大小小的网站如雨后春笋，但是团购的商品有限，每天只有一两种，里边的某些东西也着实便宜，也许刚好是我们需要的，但是一家一家的看过来，也委实太麻烦。于是团购导航的想法应运而生，找谷哥问了一下，里边导航的也有，不过不是特多，而且大部分是收费的。那些导航也做的委实不错，主要是抓数据的。

仔细一看，感觉还是不是特别好用，失去了团购网站简洁明快的定位，密密麻麻一片，还是看不太清楚。于是决定还是自己写一个查看方便。

刚好最近MVC2也方兴未艾，于是就用MVC2做了这个站点。做好之后在IIS7下运行没问题，但是服务器是2003+IIS6 +.net 3.5, 到了IIS6上，这个站点儿就古怪起来了。

闲话少说，截图按流程，一步一步的介绍。

第一步：按照正常流程创建一个站点。（有疑问的可以去做做功课先）

第二步：浏览网站，会出现错误

第三步：我们来改一下设置：

第四步：添加应用程序映射，注意红线圈住的地方。

第五步：再来看下网站咯：

文笔不行，假以图片堆砌，有什么情况可以讨论，大家一起学习。

附以这个站点：http://www.tuantuana.com/ 可以看看效果。

本文链接