小李刀刀博客

　　妈妈一直希望我回去工作。毕业快一年了，隔一段时间就告诉我又给我联系了一个单位，问我的意向。

　　这回说有机会让我回我们县政府办去做网络工作。我说好像我们县政府连网站都没有，似乎是没有这方面需求的。结果今天一个高中同学受我妈委托，把我们县的电子政务网地址发给我了。

　　http://www.ynmlp.gov.cn

　　我没想到还真有，而且一看地址就特正规的，我们花钱都买不来的域名，点开一看，有点失望……好难看的页眉……

　　等到页面全展开，我一眼就看到了动易系统官方模板，那个汗如雨下啊……，红色页眉，蓝色主题，动易2005免费版……

　　我居然一直不知道动易的用户里有跟我关系如此密切的，可惜不认识，真是很遗憾。不过可以看出动易的普及率已经是真的遍及全国各地了

客户：你好，我刚下载了一个动易2005SP2，安装在XP上。
刀刀：嗯，有什么问题？
客户：你可以帮我整合论坛吗？
刀刀：你按照整合说明来操作就行。
客户：我按说明修改了conn.asp，可是不行啊。
客户：[发送一张图片，传输超时]
刀刀：看不到图，你具体说说看
客户：提示：找不到“file:///c://admin/admin_index.asp"。请确认路径或internet地址正确
刀刀：[哦？从来没遇到过的问题]你的conn.asp里路径怎么填写的？
客户：db="PE2005databasePowerEasy5.mdb"
刀刀：没问题啊
客户：是啊，前面是不是要加上这个C:InetpubwwwrootPowerEasy？
刀刀：不用。[一个念头：看看他的路径是不是错了]你的访问地址是什么？
客户：我还没有上传，在本机测试呢。
刀刀：是啊，我是说你本机上用的访问地址是什么？
客户：C:InetpubwwwrootPowerEasyIndex.html
刀刀：……
刀刀：用http://开头的地址访问，动易系统需要在服务器环境下运行。
客户：那我输什么啊？
刀刀：你机器上装IIS了吗？
客户：IIS？我是XP啊！是不是要重新单装？
刀刀：IIS在WinXP Pro/Win2000/WinNT/Win2003的系统光盘里自带，你在控制面板添加/删除软件那里进去装即可。
客户：哦，我装一下。
刀刀：[继续参加整合方案讨论]
……5分钟后……
客户：从网上下一个可以吗？
刀刀：好像不行，你是什么系统？
客户：XP
刀刀：我知道，我是说XP哪一版？Home还是Pro？
客户：怎么能看出来？我的电脑是联想的电脑，买来就装好了的。
刀刀：[雪莱说过：I faint, I fall, I die...]你右键点“我的电脑”，选“属性”
客户：我看看。[刀刀心想：联想品牌机……不用想，十有八九是OEM的home版]
客户：Service Pack 2
刀刀：……
刀刀：有没有显示“Professional”？
客户：嗯
刀刀：[猜测：原来是联想装的盗版]那你的安装光盘里就有。
客户：我没有光盘了
刀刀：-_-! 你可以从网上下载XP Pro的盗版盘。
客户：下载到硬盘？
刀刀：……
客户：然后安装到哪里？
刀刀：……
客户：找不到可以下的地方
刀刀：死过去了

　　已经放在淘宝了，可以到淘宝去看：

http://auction1.taobao.com/auction/0/item_detail-1d5a80cf3324ed6351ac1d2f05567415b-b5a5d6eed53bc3fb6ebae5124737d224.jhtml

　　买来没有很久，才2个月时间。当时被这款PDA的配置、性能和外观所惑，一时冲动买下来的，实际上因为我用的是多普达智能手机，买了PDA以后几乎不使用。感觉这笔投资有点不必要，所以打算转让。

 　　我很少在网上卖东西，怕麻烦，所以最好是北京地区的买家，当面交易最好。

 　　如果有兴趣，请联系我的QQ：5930434，或者上班时间打电话：01065778481

 　　联系人：吴康瑞

 　　二外及附近的朋友可以直接找我看货。

以下是我的机器的实拍照片：

在用XMLHTTP进行远程数据传输的时候，如果涉及到不同编码，比如从oblog向我的博客发送一个trackback ping，数据中包含的中文字符就会出现乱码。

为了解决这个问题，可以在发送之前，把所有的数据中的中文都进行Unicode编码然后再传输。这样就可以顺利解决问题。

但是有时候还会涉及到另外一个问题，就是到了目标程序后，要进行数据库检索，发送过来的中文字符串都已经编码为类似 &#32462 这样的Unicode编码，而数据库中的数据虽然以unicode编码保存，但是却还是中文字符，并没有表示为 &#32462 这样的形式。这就导致检索失败。

为了解决这样的问题，我只好采取这样的办法：发送端对中文字符串进行Unicode编码，接受端接收后进行Unicode解码，还原为中文字符。

这两个函数如下：

'**************************************************
'函数名：AnsiToUnicode
'作  用：转换为 Unicode 编码
'参  数：str —- 要转换的字符
'返回值：转换后的字符
'Author：nt2003
'**************************************************
Public Function AnsiToUnicode(ByVal str)
    Dim i, j, c, i1, i2, u, fs, f, p
    AnsiToUnicode = ""
    p = ""
    For i = 1 To Len(str)
        c = Mid(str, i, 1)
        j = AscW(c)
        If j < 0 Then
            j = j + 65536
        End If
        If j >= 0 And j <= 128 Then
            If p = "c" Then
                AnsiToUnicode = " " & AnsiToUnicode
                p = "e"
            End If
            AnsiToUnicode = AnsiToUnicode & c
        Else
            If p = "e" Then
                AnsiToUnicode = AnsiToUnicode & " "
                p = "c"
            End If
            AnsiToUnicode = AnsiToUnicode & ("&#" & j & ";")
        End If
    Next
End Function
'**************************************************
'函数名：AnsiToUnicode
'作  用：转换为 Unicode 编码
'参  数：str —- 要转换的字符
'返回值：转换后的字符
'**************************************************
Function UnicodeToAnsi(ByVal str)
    If IsNull(str) or str = "" Then
        UnicodeToAnsi = ""
        Exit Function
    End If
    Dim reg,strMatch,strTemp,arrMatches
    strTemp = str
    Set reg = New RegExp
    reg.IgnoreCase = True
    reg.Global = False
    reg.Pattern = "&#(d*);"
    Set arrMatches = reg.Execute(str)
    For Each strMatch In arrMatches
        str = Replace(str,strMatch.Value,chrW(strMatch.SubMatches(0)))
    Next
    set reg=Nothing
    UnicodeToAnsi = str
End Function