情留メ蚊子's Blog

生活所需，寻求赞助

2010-01-14T22:05:51+08:00

　　生活所需，寻求赞助 http://item.taobao.com/auction/item_detail-0db2-1b87b030d671e78ed49267af0e8f5f67.jhtml
　　赞助者得本站博客程序。 http://www.94qing.com/art/Sell-blog.html
　　

ASP中模拟PHP的关联数组

2009-11-25T23:22:39+08:00

　　ASP中给函数传参确实是个麻烦事，当参数个数特别多的时候（比如有七八个或者更多的参数个数）差不多就要眼冒金星了，一个个的数吧。而且要命的是参数位置必须不能有丁点错误。每次给函数传一大堆的参数时都让人觉得特无奈……
　　所以我借鉴了PHP中传参方法，将所有参数放在数组中，传个数组得了。
　　写了一个函数来实现类似于PHP中的关联数组：

复制内容到剪贴板程序代码

<%
Function assArray(iArray,iKey)
    If Not(isArray(iArray)) Then
        assArray = Null
        Exit Function
    End If
    Dim i, j, tmpArr
    For i = 0 to UBound(iArray)
        If InStr(iArray(i),"=>") > 0 Then
            tmpArr = Split(iArray(i),"=>")
            If IsArray(tmpArr) Then
                If UCase(Trim(tmpArr(0))) = UCase(Trim(iKey)) Then
                    assArray = tmpArr(1)
                    Exit Function
                End If
            End If
        End If
    Next
    assArray = Null
End Function

'用法
Dim myArr : myArr = Array("myName => 姓名","myTel => 110","性别=>男")
Response.Write assArray(myArr,"myname") & assArray(myArr,"性别")
%>

ASP解析JSON

2009-09-19T14:42:11+08:00

复制内容到剪贴板程序代码

<%
Dim sc4Json
Sub InitScriptControl
Set sc4Json = Server.CreateObject("MSScriptControl.ScriptControl")
    sc4Json.Language = "JavaScript"
    sc4Json.AddCode "var itemTemp=null;function getJSArray(arr, index){itemTemp=arr[index];}"
End Sub

Function getJSONObject(strJSON)
    sc4Json.AddCode "var jsonObject = " & strJSON
    Set getJSONObject = sc4Json.CodeObject.jsonObject
End Function

Sub getJSArrayItem(objDest,objJSArray,index)
    On Error Resume Next
    sc4Json.Run "getJSArray",objJSArray, index
    Set objDest = sc4Json.CodeObject.itemTemp
    If Err.number=0 Then Exit Sub
    objDest = sc4Json.CodeObject.itemTemp
End Sub

Dim strTest
strTest = "{name:""alonely"", age:24, email:[""ycplxl1314@163.com"",""ycplxl1314@gmail.com""], family:{parents:[""父亲"",""母亲""],toString:function(){return ""家庭成员"";}}}"
Dim objTest
Call InitScriptControl
Set objTest = getJSONObject(strTest)
%>
<%=objTest.name%>的邮件地址是<%=sc4Json.Eval("jsonObject.email[0]")%>
共有邮件地址<%=objTest.email.length%>个

<%
Dim father
getJSArrayItem father, objTest.family.parents, 0
Response.Write father
%>

一张图---舍不得的PJ

2009-08-27T02:50:02+08:00

图片来自：
网站：情留メ蚊子's Blog
网址http://www.94qing.com/

　　其实一直有人在论坛询问“他”是不是我。其实到现在之前只有聊聊，无心，CP知道是我的马甲。我并不想别人知道。之前我说过不再为非客户回答问题，我实在做不到。不知道为什么每天依然去逛逛论坛。其实有PJ才有现在的我，在使用PJ之前我只会修改别人程序的菜鸟。使用了PJ，我曾经说过，新浪不能满足我，那么使用独立程序才能满足我的DIY个人化，经历了风风雨雨终于有今天的我了。其实我学习完全是独立完成的。很少问人，因为我知道别人答得不是我自己的，正所谓靠山山会倒，靠水水会干，靠人人会老，能靠得住的只有自己了。不知道我用这种方法教导别人是对还是错的，反正在他们中觉得我是一个无情无义的人。说实话，我真的很在意你们对我的看法，但是见到你们能做出自己的作品我也很开心。
　　PJ已成过去了。现在PJ主开发员也去自己开发blog了。真不知道他想什么的，自己接管了PJ还自己搞独立blog。也许PJ真的老了，要让“新人”顶替了。
　　现在我也在计划MQ-Blog，相信MQ-Blog很快能和大家见面。至于是否能胜于其他Blog我还不能保证，这个是看大家的看法的。

开心农场人生启示

2009-08-26T11:23:53+08:00

　　1、在利益面前，没有亲情和道义可讲，任何人都可能成为对你背后下手的贼；
　　2、帮你除草、杀虫，对你示好的人，来你家的真实目的可能并不是这个，而是看你有没有可偷的东西；
　　3、越有钱的人赚钱的速度最快，温饱线上的人都在量入为出中挣扎；
　　4、很多事情都有捷径可走，有“背景”的人肯定升级快；
　　5、勤能补拙是有局限性的，每天靠除草、杀虫的经验只有那么多；
　　6、挖、种是排除人民币升级之外最快的升级方法，也就是说只要肯付出高昂的代价走歪门邪道，肯定能领先别人一步；
　　7、那种以“友情”为名义的化肥，是最不讲友情的东西；
　　8、想让狗干活又不想给狗喂食，是不可能的，就算一条狗也会消极怠工；
　　9、狗会疯狂地咬穷人，当你身无分文，被咬的概率是100%；
　　10、广交朋友是硬道理，多个朋友就会多一条路；
　　11、有些时候我们期待着有人来搞一点小事端，从而获得想要的经验；
　　12、不遵守时间是要付出代价的；
　　13、没事的时候多出去转转，总会有意想不到的收获；
　　14、未必撒下昂贵的种子就一定赚更多的钱，但被盗时种贵菜的损失肯定会更多；
　　15、任何活动都是有目的的，不管是促销化肥还是促销打狗棒；
　　16、集体的力量是巨大的，可以瞬间让一个人破产；
　　17、当有人告诉你快去某某的菜地偷菜时，不要把他当成最亲密的战友，因为当你成熟的时候，他也一定会这么告诉别人；
　　18、大地主都是排在前面的；
　　19、很多级别高而且地多的人在种白萝卜，不是他们傻，而是因为他们想升职，而且不差钱儿；
　　20、早晨很早就起床，并不是不可能的。

ASP整合UCenter

2009-08-24T01:49:33+08:00

引用内容

　　UCenter 是 Comsenz 旗下各个产品之间信息直接传递的一个桥梁，通过 UCenter 站长可以无缝整合 Comsenz 系列产品，实现用户的一站式登录以及社区其他数据的交互。
　　官方称：UCenter 拥有机制完善的接口，经过简单修改便可以挂接其它任何平台的第三方的网络应用程序。

　　UCenter那么强大，但是UCenter只针对PHP,ASP.NET,JSP，单单不支持ASP。毕竟国内使用的ASP的人还是很多的。在百度，GG，bing，雅虎，搜狗等几大搜索引擎上根本找不到ASP整合UCenter的实例。只好自己研究UCenter的通信原理了。
　　花了2天终于有成果了。写下了ASP版的uc_client（Ucenter的客户端），终于可以用ASP操作UCenter了。对整合DZ和Ucenter Home更有帮助了。
　　ASP-UCenter 接口开发手册：http://www.94qing.com/ucenter
　　现在只完成了用户接口。其他接口慢慢来完成！！
　　花了几个通宵终于完成了！！
ASP：收费（50RMB），需要联系QQ 540644769
DLL版本（免费全功能）：
功能参考：http://www.94qing.com/ucenter

引用内容

案例：
本博客和DZ论坛： http://bbs.94qing.com 和 http://www.94qing.com
网人程序和DZ论坛： http://www.17890.net 和 http://www.jjzaza.cn

PJ整合Discuz!

2009-08-22T16:54:11+08:00

　　忙了一个通宵终于搞好了。可以同步登录，同步退出，同步注册，同步修改资料！
　　N天前，有个客户问我，PJ是否能整合论坛。我没有给明确的答案给他。
　　于是下载了动网下来了解下他的接口。（ASP整合asp比较容易）。但是考虑到动网总不如DZ。
正好准备想搞MQ-Blog的论坛。所以下载了DZ。花了几十小时配置DZ，后来才记得要整合PJ。在百度根本找不到ASP程序整合DZ的相关资料。只好自己下手了。
　　UCenter 是 Comsenz 旗下各个产品之间信息直接传递的一个桥梁，通过 UCenter 站长可以无缝整合 Comsenz 系列产品，实现用户的一站式登录以及社区其他数据的交互。
　　官方称：UCenter 拥有机制完善的接口，经过简单修改便可以挂接其它任何平台的第三方的网络应用程序。然而事实上，要挂接除php之外的其他程序语言还是有点困难的。比如制作一个ASP版的uc_client就会遇到不少的麻烦。
　　花了几小时去看了UCenter的开发手册。明白了UCenter的操作过程。但是用ASP实现UCenter里的authcode（康盛旗下所有程序都用到的加密函数）并不是很容的事情。所以我决定用PHP写。（最讨厌PHP的写法了。逼于无奈哎。）
　　演示： http://www.94qing.com 整合 http://bbs.94qing.com 用户的资料是互通了。在那方修改另一方也一样修改的。

支付宝接口（asp-支持UTF8、GB2312）

2009-08-13T02:00:04+08:00

　　终于完成了。哈哈。。辛苦。
　　谢谢支付宝那个姐姐帮助我。。
　　支付宝接口签约地址（免费）：https://www.alipay.com/himalayas/practicality_customer.htm?customer_external_id=C4335324344127901113&market_type=from_agent_contract&pro_codes=26A533A9D11BD074727C1991119AA03E
　　这个接口UTF-8，GB2312编码都通用。（支付宝官方的只发出了GB2312版的。。）
　　用法很简单，直接调用类就可以了。详细资料请查看“使用说明（必看）.txt”，默认编码UTF-8
　　UTF-8演示地址：http://www.94qing.com/alipay/index.htm
　　下载地址：
更新说明：

引用内容

1、2009-8-13 15:00 添加整合标准双接口

QQ2009封群BUG

2009-08-06T11:04:58+08:00

　　申明：此漏洞有严重损害他人利益之嫌，请勿随意使用。
　　此漏洞可以完全封闭QQ2009用户的QQ群，本人已亲测，效果真实可靠。

　　测试效果如下
　　将QQ用户的qq群(非管理)昵称改为: ?疼訓扣扣? 疼訓扣扣四个字可以随意代替
　　QQ群内的所有qq2009用户都将自动关闭,都将弹出"错误报告"窗口
　　若QQ用户不改掉QQ昵称的话,所有QQ群内用户都将无法登陆此qq群

　　修改昵称方法：群右键，查看群组资料，群昵称改回来就可以了！

大唐双龙传(粤语)---播放器测试

2009-07-30T20:17:19+08:00

　　今天测试一个万能播放器，各大视频网都可以播放：优酷,土豆,56,新浪,Q播Qvod,迅播Gvod天线高清,土豆高清,新浪高清,56高清等等视频列表
　　来个56的演示：

56观看地址56视频播放→点击打开/关闭折叠播放器

情留メ蚊子's Blog

生活所需，寻求赞助

ASP中模拟PHP的关联数组

ASP解析JSON

一张图---舍不得的PJ

开心农场 人生启示

ASP整合UCenter

PJ整合Discuz!

支付宝接口（asp-支持UTF8、GB2312）

QQ2009封群BUG

大唐双龙传(粤语)---播放器测试

开心农场人生启示