- 博客(17)
- 收藏
- 关注
转载 文本框显示行号功能-支持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
2129
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
2395
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
3580
31
原创 支持所有浏览器的复制文本到剪切板的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
1943
原创 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
630
原创 Request参数传递ASP函数库
<%Msg(str) 消息函数参数说明: str:显示字符Sub Msg(str,method) Response.Clear() Response.Write "<!--" &_ "alert("&str&");"&method&"// -->" Response.End()End Subvbscript方式的消息输出函数sub msg
2009-07-23 15:16:00
1283
原创 自动生成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
2405
原创 代码解释功能,过滤特定的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
480
转载 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
581
原创 编写一个ASP类的方法
首先ASP的类是由事件和方法(它们就是构成类的成员了)构成的,如果大家还没有接触过,可以先看看下面的说明: 在 Class 块中,成员通过相应的声明语句被声明为 Private(私有成员,只能在类内部调用) 或 Public(公有成员,可以在类内外部调用) 。被声明为 Private 的将只在 Class 块内是可见的。被声明为 Public 不仅在 Class 块的内部是可见的,对 C
2009-07-17 16:40:00
557
转载 汉字转拼音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
2535
原创 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
640
原创 判断浏览器 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
2002
原创 ajax 抓取页面
function createAjax() { var _xmlhttp; try { _xmlhttp=new ActiveXObject("Microsoft.XMLHTTP"); } catch (e) { try { _xmlhttp=new XMLHttpReques
2009-06-18 20:11:00
1871
转载 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
2994
原创 iframe 自适应高度 支持IE、firefox火狐
第一种:简单,不支持firefox运行代码 第二种: 支持firefox运行代码 <!--function iframeFitHeight(oIframe) {//Iframe窗口自适应高度 兼容IE6.0 FF2.0以上 try { var oWin = oIframe.
2009-06-11 19:05:00
2013
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人