流星的博客

原创 小心短信平台提供商的陷井。

伺候咖啡 09:01:23你是哪一个伺候咖啡 15:07:27。。。伺候咖啡 15:07:37不是已经有了吗伺候咖啡 15:09:11代理商充值短信只有3个月有效期，开户后用户有效期是1年。 过期自动清零。伺候咖啡 15:09:25002004001已经销户，需要重开希望 15:09:56 但我那时打了3000块进去的哦。  伺候咖啡 15:10:24现在已经没有了。希望 15:10:55 那是预

原创 给图片添加图片的倒影

/** * reflection.js v1.5 * * Contributors: Cow http://cow.neondragon.net *               Gfx http://www.jroller.com/page/gfx/ *               Sitharus http://www.sitharus.com *               Andreas L

原创 用ADODB.Stream代替FSO读取文本文件

文件内容读取.Function LoadFile(ByVal File)    Dim objStream    On Error Resume Next    Set objStream = Server.CreateObject("ADODB.Stream")    If Err.Number=-2147221005 Then         Response.Write "非常遗憾,您的主

原创 文章自动排版功能。

function format(){        var body = "/n"+document.getElementById("thebody").value;        body = body.replace(/ |　/ig,"");        body = body.replace(//r/n/ig,"/n");        body = body.replace(//n/n/

原创 ASP显示数据库的货币

ACCESS数据库中的货币内容在ASP页面中把0.35显示成了.35，前面没有那个0可不行呀，请教如何解决？告诉你三种方法：num=0.55第一种if num response.write str第二种response.write FormatNumber(num,2,-1)第三种response.write FormatCurrency(num,2,-1)%> 

原创 ASP获得网卡的MAC地址

   Private Const NCBASTAT = &H33   Private Const NCBNAMSZ = 16   Private Const HEAP_ZERO_MEMORY = &H8   Private Const HEAP_GENERATE_EXCEPTIONS = &H4   Private Const NCBRESET = &H32   Private Type

原创 ASP调用纯真IP库实例

============================================ 返回IP信息 Disp_IPAddressData(IP,0) ============================================Function Look_Ip(IP)        Dim Wry, IPType, QQWryVersion, IpCounter       

原创 Best4C在线画图工具，强！

在线绘图工具，强！ 

转载 保存远程图片到本地并加水印

函数功能：远程图片自动保存到本地服务器，并利用aspjpeg为图片加上水印（注意：请先在目录下创建images目录，用来保存临时图片）程序落伍者:我是星星加入落伍第二份原创程序,HOHO,今天一定要落伍类,5.6日注册,5.7日落伍,庆祝一下!本程序需要在服务器上安装"aspjpeg组件"否则无法正常使用也可以只取22222222以上的部分,这部分可以保存图片,

原创 xml神奇的数据岛

神奇的数据岛利用xml可以轻松的把数据显示在静态网页中，加上javascript，可以实现静态页面的动态显示。他们都是客户端的，可以把用户资料带到任何地方，只要支持xml和javascript的浏览器都可以打开，太棒了！show.html---------------------------http://www.w3.org/TR/html4/loose.dtd">神奇的数据岛     

原创 XML检测节点是否存在

url=http://www.hope365.com/sitmap.xmlresponse.write urlresponse.endSet http=Server.CreateObject("Microsoft.XMLHTTP")http.open "GET",url,Falsehttp.sendSet xml=Server.CreateObject("Microsoft.XMLDOM")x

原创 ASP过滤不文明字符

Function badchar(str) badstr="不文明字符列表，用|分开（因发表时不能含有那些字符，所以不能贴出。）" badword=split(badstr,"|") For i=0 to Ubound(badword) If instr(str,badword(i)) > 0 then  badchar=True  Exit For Else  badchar=False End

原创 .net ajax控件：CalendarExtender

今天测试了CalendarExtender日历控件，居然在FF下也没问题，看来微软的东西越来越规范了。。。 

转载 鹰的重生－－李东生

鹰之重生——李东生总裁系列文章 鹰  之  重  生李东生鹰之重生Ⅰ    这是一个关于鹰的故事。   鹰是世界上寿命最长的鸟类，它一生的年龄可达70岁。要活那么长的寿命，它在40岁时必须做出困难却重要的决定。这时，它的喙变得又长又弯，几乎碰到胸脯；它的爪子开始老化，无法有效地捕捉猎物；它的羽毛长得又浓又厚，翅膀变得十分沉重，使得飞翔十分吃力。     此时的鹰只有两种选择：要么等死，要么经过一个

原创 .NET的控件都是大怪物，不可泛用。。。

.NET的控件都是大怪物，不可泛用。。。     昨天解决了.NET的CheckBox控件问题，但今天却发现，它是一个庞大的怪物，连Js可以实现的功能全部都在服务器端运行了，这样会造成对服务器端的资源占用太厉害了，而且会造成客户端的速度慢死了，可能点一下

转载 常用ASP脚本程序集锦（适合初学者）

常用ASP脚本程序集锦（适合初学者） 1. ASP与Access数据库连接：dim conn,mdbfilemdbfile=server.mappath("数据库名称.mdb")set conn=server.createobject("adodb.connection")conn.open "driver={microsoft access driver (*.mdb)};uid=admin

转载 动网缓存类使用说明

迷城浪子写的 Class Cls_Cache  Rem ==================使用说明==================== Rem = 本类模块是动网先锋原创，作者：迷城浪子。如采用本类模块，请不要去掉这个说明。这段注释不会影响执行的速度。 Rem = 作用：缓存和缓存管理类 Rem = 公有变量：Reloadtime 过期时间（单位为分钟）缺省值为14400 Rem =

原创 Web.UI 2006SN

近日好不容易才找到Web.UI 2006的SN，在此贴出来与大家分享。Web.UI Enterprise Key 646G6-A6QWT-EV6NE  

原创 VB数据类型

根据课本定义 数据类型： 整型数 integer 长整型数 long 单精度型数 single 双精度型数 double 字节型数 byte 逻辑型数 boolean 字符串型数（变长） string 字符串型数（定长） string 日期型数 date 货币型数 currency 对象型数 object 变体型数 varient 常量数据类型： 数值常量 字符常量 逻辑型常量 日期型常量 符

原创 vb打开帮助文件

ShellExecute Me.hwnd, "Open", App.Path & "MyEBook.CHM", "", AppPath, 1 

原创 VB6中改变屏幕的分辨率和刷新频率

Option ExplicitPublic Declare Function ChangeDisplaySettings Lib "user32.dll" Alias "ChangeDisplaySettingsA" (ByRef lpDevMode As DEVMODE, ByVal dwFlags As Long) As LongPublic Declare Function EnumDi

原创 JavaScrip获取汉字拼音的首字母

function getFirstPyLetter(s){    execScript("tmp=asc(/""+s+"/")", "vbscript"); // 不支持 ff    tmp = 65536 + tmp;        var py = "";    if(tmp>=45217 && tmp        py = "A"    } else if(tmp>=45253 && tm

原创 DIV_圆边圆角的实现

v/:*{behavior: url(#default#VML);} 

原创 Css表格圆角

原创 Visual Studio 2008 Beta2简体中文版

          晕死，今天看到优快云上面说，VS2008测试2简体中文版出来了，.NET框架也从2.0升到3.5，呵呵，VS2005都未熟悉，2008就出来了。。。        VS2008下载地址：http://www.microsoft.co

原创 ASP自动解压RAR文件

    想实现这种功能很简单，首先要上传一个RAR的解压程序，就是RAR自己的解压程序，只需要它的核心程序RAR.EXE这个文件就可以了。然后就要上传一个执行RAR.EXE的程序 CMD.EXE 这个是windows里的程序。最后就开始执行这些程序了。看一下下面的代码dim ylj,ywj,Mlpath,Shell,rarcomm,RetCode,cmd,comm,fsoMlpath=