术立方工作室

在修改一个别人的项目时候遇到的问题.人家那个全部都是GB的编码,还非让我用AJAX....UTF-8对AJAX的支持才好啊.在GB给UTF-8页AJAX传信息之后发现传过来的东西惨不忍睹.....在网上找了半天才找到这个解决办法...谢天谢地,总算解决....PS:以后再也不接修改别人项目的活了,看那种乱七八糟的代码真是一种折磨....-_-! function chinese2unicode(s

定义object对象 Dim objXML定义链接Dim strURLdim xmlGetxmlGet=""strURL=http://www.xxx.comSet objXML = CreateObject("Microsoft.XMLHTTP")  发送信息objXML.Open "get", strURL, FalseobjXML.Send 获取目标HTML源代码xmlGet = o

注册ADODB.Stream组件regsvr32 "C:/Program Files/Common Files/System/ado/msado15.dll"关于Adodb.Stream 的使用说明 组件："Adodb.Stream" 有下列方法： Cancel 方法 使用方法如下 Object.Cancel 说明：取消执行挂起的异步 Execute 或 Open 方法的调用。 Close

Option ExplicitResponse.buffer=trueNumCodeFunction NumCode() Response.Expires = -1 Response.AddHeader "Pragma","no-cache" Response.AddHeader "cache-ctrol","no-cache" dim zNum,i,j dim Ados,Ados1 Rando

 getfile.asp利用xmlhttp组件获取远程文件保存到当前空间此是网站建设中的一个实例,远程获取一个网页内容并筛选出相关的天气数据,当然可以跳过文件本地存储再获取数据参考了xoyu的函数,在此感谢fileurl="http://www.hbqx.gov.cn/other/tqyb/inc_city_hb.asp"dotloc=InStrRev(fileurl,".")file

Sub LinkData100() set conn100 = server.createobject("adodb.connection") connstr = "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=user;password=pwd;Data Source=ora100"  conn100.open co

Private Const BITS_TO_A_BYTE = 8Private Const BYTES_TO_A_WORD = 4Private Const BITS_TO_A_WORD = 32Private m_lOnBits(30)Private m_l2Power(30) Private Function LShift(lValue, iShiftBits)    If iShiftB