复制代码 代码如下:% call getMyNumber(aa,bb,cc) response.write aa & " " & bb & "br /" & cc function getMyNumber(byref aa,byref bb,byref cc) aa=3 bb=4 cc =10 end function % ... [阅读全文]

Google 在 git 库中贴出了 Nexus S 的 2.6.35 Linux 核心源代码。想学习的开发者可以去下载啦。 via androidcentral 相关新闻： · Google CEO大秀Nexus S 新版系统还得等(2010-11-16) · Google与三星计划12月16日发售Nexus S(2010-12-07) · 关于Nexus S的三段视频(2010-12-11)... [阅读全文]

复制代码 代码如下:function FSOlastline(filename) dim fso,f,temparray,tempcnt set fso = server.CreateObject("scripting.filesystemobject") if not fso.fileExists(server.mappath(filename)) then exit function set ... [阅读全文]

复制代码 代码如下:td=date() '此次为设置当前日期,主要是为了调试方便,实际应用中可以使用当天日期.. str="一二三四五六日" '生成具体是周几的串,根据位置来取就可以了.. for x=1 to 7 '这个循环主要是判断是最近的周一是哪天就可以了... if td-weekday(td)+1+x=td then '这个判断是要让当前日期显示红色,没什么特别的价值.. respons... [阅读全文]

只要不是HTTP_REFERER来源于（google.com google.cn *.google.com *.google.cn baidu.com *.baidu.com）这些网址来源的请求，就通通转发至404复制代码 代码如下:% Dim a, reg a = Request.ServerVariables("HTTP_REFERER").Item Set reg = New RegExp ... [阅读全文]