johngong-CSDN博客

原创 IE下AJAX中文返回乱码的解决方法

IE不支持overrideMimeType方法，并且只能用一种很蹩脚的方法来解决，此时需要引入一个杂交的函数： function gb2utf8(data)...{ var glbEncode = []; gb2utf8_data = data; execScript("gb2utf8_data = MidB(gb2utf8_data, 1)", "VBScr

2007-12-22 16:18:00 2362

原创只能输入数字与汉字的JS

//只能输入数字function JHshNumberText()...{ if ( (!((window.event.keyCode >= 48) && (window.event.keyCode 57))|| (window.event.keyCode == 13) || (window.event.keyCode == 46)|| (window.event.keyCode == 45

2007-12-22 16:15:00 644

原创 JS写取删Cookies

function setCookie(name,value)...{ var Days = 30; var exp = new Date(); //new Date("December 31, 9998"); exp.setTime(exp.getTime() + Days*24*60*60*1000); document.cookie = na

2007-12-22 16:12:00 464

原创一个比较日期大小的javascript函数

function compareDate(DateOne,DateTwo)...{var OneMonth = DateOne.substring(5,DateOne.lastIndexOf ("-"));var OneDay = DateOne.substring(DateOne.length,DateOne.lastIndexOf ("-")+1);var OneYear = DateOn

2007-12-22 16:11:00 536

原创 ASP通用分页类

一、类的属性、方法　　这是一个ASP通用分页类。你可以用它方便的给记录集分页，当然在网上有许多的分页类和分页函数。本分页主要有Conn、SQL、URL、FieldList、PageSize、Template、Init、Show、Close等属性和方法。　　1.Conn属性　　　：用来获取一个已创建的Connection对象。　　2.SQL属性　　　　　：根据传入的SQL语句，自动创建Recor

2007-12-22 16:09:00 538

原创 ASP过滤特定HTML标签函数

Function ScriptHtml(Byval ConStr,TagName,FType) Dim Re Set Re=new RegExp Re.IgnoreCase =False Re.Global=True Select Case FType Case 1 Re.Pattern="" & TagName & "([^>])*>"

2007-12-22 16:07:00 597

原创 ASP采集类

Class clsThiefPrivate value_Private src_Private isGet_public property let src(str)src_=strend propertypublic property get valuevalue=value_end propertyprivate sub class_initialize()value_=""src_=""i

2007-12-22 16:06:00 835

原创 UTF-8转GB2312函数

用途:將UTF-8編碼漢字轉換為GB2312碼，兼容英文和數字版權:雖說是原創，其實也參考了別人的部分算法用法:Response.write UTF2GB("%E9%83%BD%E5%B8%82%E6%83%85%E7%B7%A3 %E6%98%9F%E5%BA%A7") function UTF2GB(UTFStr) for Dig=1 to len(UTFStr) if mid(U

2007-12-22 16:03:00 584

原创 asp如何判断一个字符是不是汉字

程序设计中我们时常需要检测用户输入是否正确，特别是姓名，地址等等是不是输入的汉字。那么，如何判断一个字符是不是汉字呢？其实在asp中至少有两种方式一、直接将某字符用asc转为ASCII码，如果是英文，他应该是0-127的范围，而汉字则是一个比较大的数字，所以可以使用以下代码来判断： if abs(asc(whichChar))>127 then Response.write whichCha

2007-12-22 16:00:00 1342

原创 ASP阿拉伯数字转中文数字

################################ 函数名：阿拉伯数字转中文数字函数 ################################ function chnumstr(num) num=int(abs(num))strlen=len(num) for i=1 to strlen select case mid(num,i,1) case 1:chnum="一"

2007-12-22 15:57:00 1441

原创 ASP检查Email地址合法性

**************************************************函数名：IsValidEmail作用：检查Email地址合法性参数：email ----要检查的Email地址返回值：True ----Email地址合法 False ----Email地址不合法***************************************

2007-12-22 15:56:00 748

johngong的专栏