哥做的不是网站,是寂寞!

　　首先ASP的类是由事件和方法（它们就是构成类的成员了）构成的，如果大家还没有接触过，可以先看看下面的说明：　　在 Class 块中，成员通过相应的声明语句被声明为 Private(私有成员，只能在类内部调用) 或 Public(公有成员，可以在类内外部调用) 。被声明为 Private 的将只在 Class 块内是可见的。被声明为 Public 不仅在 Class 块的内部是可见的，对 C

简单的身份证验证(JS),只验证位数合法性(15位,18位,及最后的X)不验证生日及最后4位以及前缀合法性 <!--//自定义的身份证验证函数function checkID(f) { // 身份证验证 18 位数字 // 1. 18位 if(f.length != 18) { alert("请输入中国公民的18位身份证号

-----------------汉字转拼音-------------------Set d = CreateObject("Scripting.Dictionary")d.Add "A", -20319d.Add "Ai", -20317d.Add "An", -20304d.Add "Ang", -20295d.Add "Ao", -20292d.Add "Ba"

 function copyToClipboard(txt) {if(window.clipboardData) { window.clipboardData.clearData(); window.clipboardData.setData("Text", txt); alert("复制成功！");} else if(navigator.userAgent.indexO

 用正则抽取需要的字符patrn=正则；str=需替换字符；Function GetStrExp(patrn,strng) on error resume next Dim regEx, Match Set regEx = New RegExp regEx.Pattern = patrn regEx.IgnoreCase = true regEx.Global

<%保存JSFunction SaveFile(jsfile,jsarea) On Error Resume Next SaveFile = False Dim fso, f, FilePath FilePath = server.MapPath("jsfile/" & jsfile) Set fso = Server.CreateObject("Scripting

<%Msg(str) 消息函数参数说明: str:显示字符Sub Msg(str,method) Response.Clear() Response.Write "<!--" &_ "alert("&str&");"&method&"// -->" Response.End()End Subvbscript方式的消息输出函数sub msg

<%自动根据数据库表结构,输出INSERT SQL 语句已过滤ID自动编号字段dim ip,uid,pwd,databasedim conn,rs,sql ip="(local)" uid="sa" pwd="hello" database="vcp"call openconn()call showSQL("A_User_Level_Price",16,

代码解释功能,过滤特定的HTML标记(SCRIPT,OBJECT,TABLE,CLASS,STYLE,XML,NAMESPACE,FONT,MARQUEE) 源码下载地址: http://p.blog.csdn.net/images/p_blog_csdn_net/singlebear/EntryImages/20090720/decode.gif.gif 用工具下载下来后,后缀改成.

<%'true=是邮件;false=不是;Function validate(ByVal str)Dim temp,regSet reg = new regexpreg.ignorecase=truereg.global=truereg.pattern = "^/w+([-+.]/w+)*@/w+([-.]/w+)*/./w+([-.]/w+)*$"validate = reg.t