Private Function QpDecode(inString As String) As String  

  Dim myB     As Byte
  Dim myByte1     As Byte, myByte2       As Byte
  Dim convStr()     As Byte
  Dim mOutByte     As Byte
  Dim FinishPercent     As Long
  Dim TotalB, k       As Long
  Dim tmpByte     As Byte
   
  convStr = StrConv(inString, vbFromUnicode)
   
  TotalB = UBound(convStr)
  For k = 0 To TotalB
        myB = convStr(k)
        If myB = Asc("=") Then
              k = k + 1
              myByte1 = convStr(k)
              If myByte1 = &HA Then
                          '如果是回车,继续
              Else
                          '取第二个字节
                    k = k + 1
                    myByte2 = convStr(k)
                    Call DecodeByte(myByte1, myByte2, mOutByte)
                    If mOutByte >= 127 Then
                          If tmpByte <> 0 Then
                                QpDecode = QpDecode & Chr(Val("&H" & Hex(tmpByte) & Hex(mOutByte)))
                                tmpByte = 0
                          Else
                                tmpByte = mOutByte
                          End If
                    Else
                          QpDecode = QpDecode & Chr(mOutByte)
                          tmpByte = 0
                    End If
              End If
          Else
                  mOutByte = myB
                  QpDecode = QpDecode & Chr(mOutByte)
          End If
  Next
  End Function
  Private Sub DecodeByte(mInByte1 As Byte, mInByte2 As Byte, mOutByte As Byte)
  Dim tbyte1     As Integer, tbyte2       As Integer
  If mInByte1 > Asc("9") Then
          tbyte1 = mInByte1 - Asc("A") + 10
  Else
          tbyte1 = mInByte1 - Asc("0")
  End If
  If mInByte2 > Asc("9") Then
          tbyte2 = mInByte2 - Asc("A") + 10
  Else
          tbyte2 = mInByte2 - Asc("0")
  End If
  mOutByte = tbyte1 * 16 + tbyte2
  End Sub
   
  Private Sub EncodeByte(mInByte As Byte, mOutStr As String)
  If (mInByte >= 33 And mInByte <= 60) Or (mInByte >= 62 And mInByte <= 126) Then
          mOutStr = Chr(mInByte)
  Else
          If mInByte <= &HF Then
                  mOutStr = "=0" & Hex(mInByte)
          Else
                  mOutStr = "=" & Hex(mInByte)
          End If
  End If
End Sub

     QP编码的规则是，对于信息中的7位字符不作重新编码，而是仅将8位的数据转成7位即可。我们可以看到，QP编码是字符对应的编码，每个未编码的二进制字符都会被编码成3个字符，即一个等号加上两个该字符的16进制值，如“=A8”，但这样的编码数为1:3，所以编码效率相对于其它编码方式而言相当低。但不可否认的是，这种编码方法非常简单，特别适合那些数据大多数是7位的ASCII码文本、偶尔插入8位字符的情况，但遗憾的是对汉字编码效果不够好，因为每个双字节汉字经过编码后会变成6个字节。具体规则如下：

    ①将一个字元用两个十六进制数表示，然后前面再加上一个「=」（等号）字元；除非这个字元符合下面其他的规则。比如原先 ASCII 的「=」（等号）字元，其十进制数值是 61，十六进制数值为 3D，所以经过 QP 编码后，变成了「=3D」。

    ②字元的数值（十进制数）介于 33 到 60、及 62 到 126 者不必经过编码。（61 是「等号」）

    ③字元 TAB 或 SPACE 可以不经编码，但是不经编码的 TAB 或SPACE 不可以放在编码后每行字串的末尾；也就是說编码后的內容，一行字串中如果有 TAB 或 SPACE 的話，其后面一定还有其它的字元。

Public Function Base64Encode(strSource As String) As String
On Error Resume Next
If UBound(arrBase64) = -1 Then
    arrBase64 = Split(StrConv(cstBase64, vbUnicode), vbNullChar)
End If
Dim arrB() As Byte, bTmp(2)  As Byte, bT As Byte
Dim I As Long, J As Long
arrB = StrConv(strSource, vbFromUnicode)

J = UBound(arrB)
For I = 0 To J Step 3
    Erase bTmp
    bTmp(0) = arrB(I + 0)
    bTmp(1) = arrB(I + 1)
    bTmp(2) = arrB(I + 2)
   
    bT = (bTmp(0) And 252) / 4
    Base64Encode = Base64Encode & arrBase64(bT)
   
    bT = (bTmp(0) And 3) * 16
    bT = bT + bTmp(1) \ 16
    Base64Encode = Base64Encode & arrBase64(bT)
   
    bT = (bTmp(1) And 15) * 4
    bT = bT + bTmp(2) \ 64
    If I + 1 <= J Then
        Base64Encode = Base64Encode & arrBase64(bT)
    Else
        Base64Encode = Base64Encode & "="
    End If
   
    bT = bTmp(2) And 63
    If I + 2 <= J Then
        Base64Encode = Base64Encode & arrBase64(bT)
    Else
        Base64Encode = Base64Encode & "="
    End If
Next
End Function

Public Function Base64Decode(strEncoded As String) As String
'适用于中、英文的Base64编码/解码VB6超精简版 作者:同济黄正 引用请注明出处:http://hz932.ys168.com
On Error Resume Next
Dim arrB() As Byte, bTmp(3)  As Byte, bT, bRet() As Byte
Dim I As Long, J As Long
arrB = StrConv(strEncoded, vbFromUnicode)
J = InStr(strEncoded & "=", "=") - 2
ReDim bRet(J - J \ 4 - 1)
For I = 0 To J Step 4
    Erase bTmp
    bTmp(0) = (InStr(cstBase64, Chr(arrB(I))) - 1) And 63
    bTmp(1) = (InStr(cstBase64, Chr(arrB(I + 1))) - 1) And 63
    bTmp(2) = (InStr(cstBase64, Chr(arrB(I + 2))) - 1) And 63
    bTmp(3) = (InStr(cstBase64, Chr(arrB(I + 3))) - 1) And 63
   
    bT = bTmp(0) * 2 ^ 18 + bTmp(1) * 2 ^ 12 + bTmp(2) * 2 ^ 6 + bTmp(3)
   
    bRet((I \ 4) * 3) = bT \ 65536
    bRet((I \ 4) * 3 + 1) = (bT And 65280) \ 256
    bRet((I \ 4) * 3 + 2) = bT And 255
Next
Base64Decode = StrConv(bRet, vbUnicode)
End Function

      忽然有一天，我的ＩＥ浏览器无法正常弹出新的窗口了，无论是广告的窗口，还是正常的通过   hyperlink   的新开窗口，已经在Internet选项中启用javascript，但还是这样.你无法打开一个新的IE窗口，或者当你点击某一个链接时什么事也没有发生 。

解决办法：

 此文章适用于：  
   
    Microsoft   Internet   Explorer   version   6   for   Windows   XP  
  Microsoft   Internet   Explorer   version   6   for   Windows   2000  
  Microsoft   Internet   Explorer   version   6   for   Windows   NT   4.0  
  Microsoft   Internet   Explorer   version   6   for   Windows   Millennium   Edition  
  Microsoft   Internet   Explorer   version   6   for   Windows   98   Second   Edition  
  Microsoft   Internet   Explorer   version   6   for   Windows   98  
  Microsoft   Internet   Explorer   5.5   for   Windows   2000  
  Microsoft   Internet   Explorer   5.5   for   Windows   NT   4.0  
  Microsoft   Internet   Explorer   5.5   for   Windows   Millennium   Edition  
  Microsoft   Internet   Explorer   5.5   for   Windows   98   Second   Edition  
  Microsoft   Internet   Explorer   5.5   for   Windows   98  
  Microsoft   Internet   Explorer   5.5   for   Windows   95  
  Microsoft   Internet   Explorer   5.01   for   Windows   2000  
  Microsoft   Internet   Explorer   5.01   for   Windows   NT   4.0  
  Microsoft   Internet   Explorer   5.01   for   Windows   98   Second   Edition  
  Microsoft   Internet   Explorer   5.01   for   Windows   98  
  Microsoft   Internet   Explorer   5.01   for   Windows   95  
  Microsoft   Internet   Explorer   5.0   for   Windows   NT   4.0  
  Microsoft   Internet   Explorer   5.0   for   Windows   98   Second   Edition  
  Microsoft   Internet   Explorer   5.0   for   Windows   98  
  Microsoft   Internet   Explorer   5.0   for   Windows   95  
   
  症状  
   
  当你点击e-mail或网页中的超链接，或者右键单击某个网页中的超链接然后点击“在新窗口打开”时，你可能会遇到下面的情况：  
   
  ·什么事也没有发生  
  ·打开的新窗口是空白页  
  ·你可能会收到一个脚本错误信息  
   
  当你使用Internet   Explorer中的打印或打印预览命令时，什么事也没发生。  
   
  当你尝试连接WEB文件夹时，你可能会收到下列错误信息：  
   
  当前操作无法完成，因为一个未预料的错误发生。  
   
   
  原因  
   
  可能的原因有：  
   
  1、下列的一个或几个注册表键值指向了不正确的urlmon.dll文件定位:  
   
  [HKEY_CLASSES_ROOT\CLSID\{79eac9e0-baf9-11ce-8c82-00aa004ba90b}\InprocServer32]  
   
  [HKEY_CLASSES_ROOT\CLSID\{79eac9f1-baf9-11ce-8c82-00aa004ba90b}\InprocServer32]  
   
  [HKEY_CLASSES_ROOT\CLSID\{79eac9f2-baf9-11ce-8c82-00aa004ba90b}\InprocServer32]  
   
  发生这个问题的原因可能是安装了由Internet   Explorer   Administration   Kit(IEAK)   5.01   Service   pack   1、5.5   Service   pack   1、6.0增加的自定义版本的Internet   Explorer。  
   
  2、下列注册表键值丢失或损坏：  
   
  HKLM\SOFTWARE\Classes\Interface\{00020400-0000-0000-C000-000000000046}    
   
  3、下列文件中的一个或几个丢失、损坏或注册错误：  
   
  Url.dll  
  Mshtml.dll  
  Actxprxy.dll  
  Oleaut32.dll  
  Shell32.dll  
  Shdocvw.dll  
   
   
  解决方法  
   
  按照下面的步骤进行  
   
  1、退出所有正在运行的程序  
    2、打开开始-〉运行  
  3、输入regsvr32   urlmon.dll，点击确定  
  4、当你收到“DllRegisterServer   in   urlmon.dll   succeeded”的信息，点击确定  
   
    如果上述方法不行，就对下列文件，重复执行第2步到第4步的操作（在第3步，将文件urlmon.dll替换为下列文件）：  
   
  Shdocvw.dll  
  Msjava.dll  
  Actxprxy.dll  
  Oleaut32.dll  
  Mshtml.dll  
  Browseui.dll  
  Shell32.dll   (如果系统是windows   2000和windows   xp的话)  
   
    如果问题仍然没有解决，确认下列注册表键值存在，并配置正确：  
   
  HKLM\SOFTWARE\Classes\Interface\{00020400-0000-0000-C000-000000000046}    
  Name:   (Default)  
  value:   IDispatch  
   
  HKLM\SOFTWARE\Classes\Interface\{00020400-0000-0000-C000-000000000046}\ProxyStubClsid  
  Name:   (Default)  
  value:   {00020420-0000-0000-C000-000000000046}    
   
  HKLM\SOFTWARE\Classes\Interface\{00020400-0000-0000-C000-000000000046}\ProxyStubClsid32  
  Name:   (Default)  
  value:   {00020420-0000-0000-C000-000000000046}  
   
    如果问题仍然存在，重新安装Internet   Explorer。如果你使用的是系统自带的Internet   Explorer，修复或重新安装系统。  
   
   
  针对安装了Internet   Explorer   Administration   Kit(IEAK)的用户  
   
  如果问题发生在你安装了一个由Internet   Explorer   Administration   Kit   (IEAK)   5.01   Service   Pack   1   (SP1),   5.5   SP1,   or   6.0增加的自定义版本的Internet   Explorer之后，并且通过重新注册urlmon.dll文件解决了问题，就请联系微软产品技术支持已获得最新的合适的修订。  
   
    相关的网站：  
   
  http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS  
   
   
  对于Internet   Explorer   6.0，英文版修订中应该含有下列文件属性：  
   
  Date   Time   Version   Size   File   name  
  ------------------------------------------------------  
  11-Oct-2001   19:45   6.0.2710.1100   189,440   Ie6wzd.exe  
   
  对于Internet   Explorer   5.5，英文版修订中应该含有下列文件属性：  
   
  Date   Time   Version   Size   File   name    
  --------------------------------------------------------  
  18-Dec-2000   17:22   5.50.4612.1800   183,056   Ie5wzd.exe  
   
  对于Internet   Explorer   5.01，英文版修订中应该含有下列文件属性：  
   
  Date   Time   Version   Size   File   name    
  ---------------------------------------------------------  
  01-Nov-2000   11:01a   5.0.3210.3100   177,424   Ie5wzd.exe  
   
   
    重要提示：如果Automatic   Version   Synchronization   (AVS，自动版本同步)在你做完上述文件修订之后执行了IEAK的安装，那么你必须再次手动进行一次修订！  
  

特别提示：安装了acdsee5迷你中文版后会出现这种情况，重装一下E文的acdsee5可解决。

说到这里不得不提一下以前一个风靡全国的垃圾游戏《传奇》，可能当时大家刚刚接触图形网络游戏，觉得这个传奇实在太好了。现在看来，真是垃圾啊：1、物品和装备基本没有提示。2、画面难看。3、任务没有说明。4、朦胧美的地图指示，迷失方向。有了这几个问题，我真不知道进去能干什么？

《魔兽》好多了，用某位仁兄的话：很人性化。(见魔兽官方站《[经验心得] 感动spmk的《魔兽》人性化设计 》www.wowchina.com/fans/articles/exp_20041123_1.htm)，他说的人性化，其实都是基本要求。现在网络游戏的核心是做任务、杀怪、升级，谁愿意浪费时间，象个没头苍蝇一样，整天在路上跑来跑去找人找怪，除非你实在不知道怎么耗费你的时间。《魔兽》一样，还是脱不了网络游戏杀怪升级的老套套，一个游戏，TMD要花你几个月，甚至1年的时间重复干一样的事情，开始的新鲜感慢慢消失，烦都烦死了。

《魔兽》用的3D画面，俺实在不明白，3D有啥好的，真实吗？真实个P，NPC和玩家都是浮在场景上，做得差一点的游戏，人都是透明的！大家欣赏一下做完圣战士正义试炼任务，得到的一把战锤www.wowchina.com/fans/articles/img/20040905_5/2004-06-15-22-35-48.jpg，我不明白这么重的铁锤没有东西绑住它怎么能够“浮”在背上？《魔兽》的画面都做成这样，其他的就更惨不忍睹。而且3D对机器要求那么高，差一点的机器就慢死，3D有啥好？那位仁兄能告诉我？

《魔兽》里的NPC和玩家画像games2.sina.com.cn/g_pic//2006/3-19/6/gwwwrjcv.l.1.jpg怎么都这么难看，歪七歪八，东凸一块，西凹一块，怎么看都不协调，鬼佬的审美观和我们不一样到是可以理解，可我们都是中国人，大家都觉得这种画面很美，很精致，那真是见鬼了。

《魔兽》的故事背景太复杂，角色名字非常拗口，而且这种乱编的杂乱无章的国外神话故事实在是让人提不起兴趣(希腊神话不一样)。

种种理由都表明《魔兽》不应该成为中土的NO.1网络游戏，可实际上是，确实很悲哀。也许《魔兽》的技术很顶尖，可是离我心目中适合中国人的顶尖游戏还差的远。

任务要在一定的等级才能接，设计这种思路的真是个“天才”，为了做任务，大家只能不断练级，这样就陷入杀怪练级的怪圈。中国有句古话“量力而行”，任务根本不需要人为限制到一定等级才能做，你没那个本事，硬要去做你完成不了的任务，两个字：找死。有人会说，没有等级限制，那高手可以帮忙完成，大家很容易升级，满世界都是高手，游戏就不耐玩。屁话，游戏的耐玩就体现在不停的杀怪升级？没有等级限制后，你更可以千方百计想各种办法完成任务，比以前单纯靠杀怪升级更有意思了。 这样，反而能让游戏开发商把精力放在提升游戏的耐玩度上，而不是靠不停的杀怪升级耗费时间来骗游戏迷的钱了。

根据IResearch艾瑞市场调查报告《2005市场占有率前15强网络游戏》，网易的《梦幻西游》 排名第一，可这游戏竟然连《西游记》中最吸引人的“飞”功能都不实现。拜托，大家都是神仙，你竟然不让我飞，这个神仙当着还有个啥意思？最可恨的，竟然把单机游戏中的“地雷”和回合制也引进来了，走几步，又是个地雷，然后开始你打我一拳，我再打你一拳，太恶了吧？这种游戏还能得第一? 只能说明我们的游戏和玩游戏的网民还真正处于“社会主义初级阶段”。

不说了，网络游戏还有很长的路要走，现在所谓的种种好游戏，就像以前的传奇，过几年再看，垃圾一个！

Dim Chart
Set Chart = Server.CreateObject ("ASPChart.Chart")
Chart.AddAxisLabel 1,"test"

Chart.LineWidth = 1
Chart.LegendTextStyle = 2
Chart.HintsVisible = true

Chart.AddSeries (1)
Chart.SeriesTitle="a"
Chart.VertAxisMax =300
Chart.VertAxisMin =0

Chart.AddValue 100, "1", vbRed
Chart.AddValue 133, "2 ", vbRed
Chart.AddValue 160, "3", vbRed
Chart.BarStyle = cGradient

Chart.AddSeries (5)
Chart.SeriesTitle="b"
Chart.VertAxisMax =300
Chart.VertAxisMin =0
Chart.HorizAxisMax =6
Chart.HorizAxisMin =0
Chart.AddValue 200, "1", 0
Chart.AddValue 233, "2 ", vbGreen
Chart.AddValue 260, "3", vbGreen
Chart.BarStyle = cGradient

Chart.PanelColor = vbWhite
Chart.BevelOuter = cNone
Chart.ChartBGColor = vbWhite

Chart.Height = 300
Chart.Width = 500

Chart.ProgressiveJPEGEncoding = true

'Chart.FileName="c\1.jpg"
'Chart.SaveChart
Response.ContentType = "image/JPEG"
Response.BinaryWrite Chart.Image
Set Chart = nothing

下载ASPCHART和文档：UploadFiles/2007-6/66809631.rar

今天去浙江嘉善古镇－西塘逛了一圈，感觉还可以一看。

汤帅哥到这种地方拍过电影后不知道感觉如何？文涛会所

今天到浙江嘉善的古镇西塘逛了一圈。发现了这么些古董。

旧上海的广告大部分是香烟广告，也有照相机、奶粉、啤酒、布料等。

我的照相机的时间没注意调整，实际上是今天照的。

' 变量说明
Dim gbolGoProcedure
Dim strFromDir '源文件夹
Dim strTargetDir '目标文件夹
Dim objFS
Dim objRootFolder
Dim objFile
Dim strFileNameLen
Dim strPrevFileName
Dim strFileExt '文件扩展名
Dim strFileNameCount
Dim strNewFileName
Dim strRealCount '处理的文件数量

dim action
action=Request.Form("action")
strFromDir=replace(Request.Form("strFromDir")," ","")
strTargetDir=replace(Request.Form("strTargetDir")," ","")
'Response.Write action&":"&strFromDir&":"&strTargetDir

if action="start" then  '开始改名并转移

 Set objFS = Server.CreateObject("Scripting.FileSystemObject")
 Set objRootFolder = objFS.GetFolder(strFromDir)
 For each objFile in objRootFolder.Files  '规则k40-12A.vox---->k_40_12.vox     k9-4.vox--->q_9_4.vox
  strPrevFileName = objFile.Name
  if (instr(strPrevFileName,"k")>0 and instr(strPrevFileName,"A")>0 and instr(strPrevFileName,"-")>0)  then '答案
   strNewFileName=replace(strPrevFileName,"k","k_")
   strNewFileName=replace(strNewFileName,"A","")
   strNewFileName=replace(strNewFileName,"-","_")
   Response.Write strTargetDir &"\"&strNewFileName&"<BR>"
   objFile.Move strTargetDir &"\"& strNewFileName   
  end if
  
  if (instr(strPrevFileName,"k") and instr(strPrevFileName,"A")=0 and instr(strPrevFileName,"-")>0) then '问题
   strNewFileName=replace(strPrevFileName,"k","q_")   
   strNewFileName=replace(strNewFileName,"-","_")
   objFile.Move strTargetDir &"\"& strNewFileName
   Response.Write strTargetDir &"\"& strNewFileName&"<BR>"
   
  end if
 Next

end if
%>

<form name="changFileName" method="post">
原来目录：<input type="text" name="strFromDir" value="<%=strFromDir%>" size="50"><BR>
目的目录：<input type="text" name="strTargetDir"  value="<%=strTargetDir%>" size="50">
<input type="hidden" name="action" value="start">
<input name="but" type="button" value="开始改名并转移文件" onclick="changFileName.submit()">

</form>
</BODY>
</HTML>