singlebear-CSDN博客

转载文本框显示行号功能-支持IE/firefox/chrome等浏览器

代码地址一：http://www.51xflash.com/website/html/200906/16-9793.html代码地址二：http://www.zzw.cn/thread-4144-1-1.html 在线运行检测HTML代码http://www.jd100.net/ip/coderun.htm

2010-02-27 19:11:00 2109 1

原创简单的身份证验证(JS)

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

2009-10-15 15:51:00 2361 1

原创使用ASP验证email邮箱地址

<%'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

2009-10-15 15:08:00 3456 31

原创不间断循环滚动

2009-08-30 22:12:00 501

原创支持所有浏览器的复制文本到剪切板的ASP代码(IE/Firefox/Opera/netscape/chrome/safari)

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

2009-08-26 18:17:00 1925

原创 FSO文件操作类

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

2009-07-23 16:18:00 614

原创 Request参数传递ASP函数库

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

2009-07-23 15:16:00 1268

原创自动生成Insert Into 的SQL语句

<%自动根据数据库表结构,输出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,

2009-07-20 15:24:00 2363

原创代码解释功能,过滤特定的HTML标记

代码解释功能,过滤特定的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 用工具下载下来后,后缀改成.

2009-07-20 11:46:00 465

转载 ASP用xmlhttp获得网页源代码

<%Function OpenURL(url) on error resume next Dim obj, BytesStream Set obj = Server.CreateObject("Msxml2.ServerXMLHTTP") Call obj.Open("GET", url, False) Call obj.send Set

2009-07-17 16:51:00 564

原创编写一个ASP类的方法

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

2009-07-17 16:40:00 544

转载汉字转拼音ASP中文转换

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

2009-07-03 19:51:00 2428

原创 ASP正则提取字符

用正则抽取需要的字符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

2009-06-22 14:59:00 629

原创判断浏览器 Firefox Opera Safari Chrome IE5 6 7 8 各版本

QQ群 29032448 前端开发 <!--//----------------------------- 判断浏览器 -------------------------function myBrowser(){var userAgent = navigator.userAgent; //取得浏览器的userAgent字符串var isOpera = userA

2009-06-21 17:48:00 1992

原创 ajax 抓取页面

function createAjax() { var _xmlhttp; try { _xmlhttp=new ActiveXObject("Microsoft.XMLHTTP"); } catch (e) { try { _xmlhttp=new XMLHttpReques

2009-06-18 20:11:00 1857

转载 jmail 发送邮件函数代码[附jmail4.5组件下载及中文chm帮助文档]

Function sendJmail(strFromEmail, strFromName, strToEmail, strSubject, intBodyType, strBody) Dim msg Set JMail = Server.CreateObject("JMail.Message") JMail.Charset = "UTF-8" 邮件文字的代码为

2009-06-17 15:46:00 2966

原创 iframe 自适应高度支持IE、firefox火狐

第一种:简单,不支持firefox运行代码第二种: 支持firefox运行代码 <!--function iframeFitHeight(oIframe) {//Iframe窗口自适应高度兼容IE6.0 FF2.0以上 try { var oWin = oIframe.

2009-06-11 19:05:00 1992

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