原创 asp 导出Excel ,导入Excel到SQL 速度极快

asp 导出Excel ,导入Excel到SQL 速度极快2007-05-16 10:49asp 导出Excel dim s,sql,filename,fs,myfile,x  Set fs = server.CreateObject("scripting.filesystemobject")  --假设你想让生成的EXCEL文件做如下的存放  filename = Server.M

原创 自己写一个函数代替isnumeric

看一下！function numeric(Num)    dim return_Numric    return_Numric = true    if Num="" or isnull(Num) or isempty(Num) then        return_Numric = false    else        dim iiiii        Num = trim(Num)

原创 类测试,分页

类文件:Rem ************************************************Rem ** 作者: 萧月痕(xiaoyuehen) 柏文整理Rem ** ASP 通用分页类Rem ** 版本: 1.2.00Rem ** 最后修改: 2005-4-18Rem ** 版权说明: 在文档完整的前提下可任意复制, 传播.Rem ** 联系作者: xiaoyuehen(

原创 ASP分页类支持同一页面多分页

*********************************************************************名称:ASP分页类功能:对数据库所有查询的记录集,进行分页,便于浏览.说明:ASP分页类在网上已有很多了.这个分页类,除了且有一般的分页功能外,可以在同一个ASP页面,可以 有多个分页.这本人写的第一个ASP类,有什么BUG希望给我写信.作者:Lon

原创 超强的ASP搜索类

CLASS功能.替换传入的字符串成为SQL语句Where关键字后面的表达式: 词语搜索 [例如: 小明] 词组搜索 词组里面每一个词都将被检索 例如: 小强1 小名1 小强强 小小强 逻辑搜索 支持 And 和 Or 运算符. 例如: 小明 And 小强 And 小小强 复合条件:例如:(小小明 Or 小明) And (小强 Or 小小强) 例如:(小小明 Or 小名) And 小小强例如: RO

原创 ASP经典分页类

以下为代码部分:XDOWNPAGE ASP版本版本1.00Code by zykj2000Email:[email protected]:http://bbs.513soft.net 本程序可以免费使用、修改，希望我的程序能为您的工作带来方便但请保留以上请息程序特点本程序主要是对数据分页的部分进行了封装，而数据显示部份完全由用户自定义，支持URL多个参数使用说明程

原创 ASP项目使用(VBScript)类

下面我们来看一个例子以下为代码部分:Class myClass//----声明（声明就是定义）myClass类的类内部（私有的[Private]）变量Private strAuthorPrivate strVersionPrivate strExample//---------------------------定义类的事件-------------------------------//

原创 ASP整合的一个SQL语句类

以下为代码部分:＜%class SQLString************************************变量定义************************************sTableName ---- 表名iSQLType ----SQL语句类型：0-增加，1-更新，2-删除,3-查询sWhere ---- 条件sOrder ---- 排序方式sSQ

原创 一个ASP字符串处理类

class StringOperations**************************************************************************** @功能说明: 把字符串换为char型数组 @参数说明: - str [string]: 需要转换的字符串 @返回值: - [Array] Char型数组*********

原创 生成目录树结构的类

1。test.asp 调用类生成树 代码如下          tree         ========================================   BUILDING A TREE PROGRAMATICALLY  ========================================   This approach would be best

原创 ASP缓存类无错版

********************************************** vbs Cache类 属性valid，是否可用，取值前判断 属性name，cache名，新建对象后赋值 方法add(值,到期时间)，设置cache内容 属性value，返回cache内容 属性blempty，是否未设置值 方法makeEmpty，释放内存，测试用 方法equa

原创 class property get、property let 使用说明

在 class 块中，成员通过相应的声明语句被声明为 private(私有成员，只能在类内部调用) 或 public(公有成员，可以在类内外部调用) 。被声明为 private 的将只在 class 块内是可见的。被声明为 public 不仅在 class 块的内部是可见的，对 class 块之外的代码也是可见的。没有使用 private 或 public 明确声明的被默认为 public。

原创 认识ASP的VBSCRIPT类

关于ASP的(VBScript)类首先ASP的(VBScript)类是由事件和方法（它们就是构成类的成员了）构成的 在 Class 块中，成员通过相应的声明语句被声明为 Private(私有成员，只能在类内部调用) 或 Public(公有成员，可以在类内外部调用) 。被声明为 Private 的将只在 Class 块内是可见的。被声明为 Public 不仅在 Class 块的内部是可见的，对 

转载 Asp类初体验

 Asp类初体验严格地说，ASP 并不是一门编程语言，所以不存在类这一概念，我们这里说 ASP 类是指 ASP 的编程语言 VBScript 在 ASP 里应用时的类。 ASP 类比较简单，它不具有真正意义类的继承、重载等特性，尽管如此，它仍然是非常有用的，它降低了我们编程的复杂度，使我们的程序模块更加合理。 ASP 类支持什么 ASP 类比较简单，它不具有真正意义类的继承、重载等特性。它支持

原创 一个数据管理类

Class QuickDb Private Conn, ConnStr Private SqlDatabaseName, SqlPassword, SqlUsername, SqlLocalName, SqlNowString Public rs Private Sub Class_Initialize()  SqlDatabaseName = "db"  SqlUsername = "sa"  

转载 由一张贴子引发出来的多个回复！

（原）我见过的一个让我瞠目结舌的电脑高手!(绝对真实)  很久以前，那还是我用win98的时候有次我系统崩溃了，因为我是电脑白吃，我朋友给我介绍了一个高手来帮我修电脑。　　他看了一下电脑，问我有没有98的盘，我说没有。　　他想了一下，叫我把固定电话拿给他，我想修电脑要电话干什么，但人家是高手，我也不好说什么，就把电话拔下来给他了。　　他把电话线空着的一头接在电脑的一个插孔内，然后进入了dos，

原创 推荐两个软件：虑镜.chm，终极配色手册.chm

虑镜.chm.jpg下载后删除.jpg 终极配色手册.chm.jpg下载后删除.jpg

原创 js调用FLASH

sohu.js------------------------------------------------------------------------if(typeof sas=="undefined")var sas=new Object();if(typeof sas.ued=="undefined")sas.ued=new Object();if(typeof sas.ued.uti

原创 我的网页配色器！

原创 asp常用函数

1.函数array()　 功能:创建一个数组变量　 格式:array(list)　 参数:list　为数组变量中的每个数值列,中间用逗号间隔　 例子:　 <%　i　=　array　("1","2","3")　%>　 结果:　i　被赋予为数组　 2.函数Cint()　 功能:将一表达式/其它类型的变量转换成整数类型(int)　 格式:Cint(expression)　 参数:expres

原创 ACCESS最快分页

Option ExplicitResponse.Buffer = True分页Function ShowPage(sfilename,totalnumber,maxperpage,ShowTotal,ShowAllPages,strUnit) dim CountPage,Ci_ShowPage if totalnumber mod maxperpage=0 then     CountPag

原创 在Access中创建表

在Access中创建表一般是用ADO来执行SQL语句来创建表。Access中的字段类型在SQL语句中是什么呢？在MSDN中有篇文章介绍得很详细：http://msdn.microsoft.com/office/understanding/access/codesamples/default.ASPx?pull=

原创 ASP错误总结

 ASP错误总结Microsoft VBscript 语法错误(0x800A03E9)-->内存不足 Microsoft VBscript 语法错误(0x800A03EA)-->语法错误 Microsoft VBscript 语法错误(0x800A03EB)-->缺少 : Microsoft VBscript 语法错误(0x800A03ED)-->缺少 ( Microsoft VBsc

原创 日历过程

SUB NEWDATE()    以下为ASP中通过该日历算法实现的具体代码    先判断是否指定了一个年份和月份，没有则根据当前的年和月份显示    dim CurrentDate,pyear,pmonth,pday,fromDate    dim toDate,nunmonthstart,nunmonthend,maxi,i,iv    If Request("ReqDate")=""

原创 保证asp叶面一定不会出现乱码

保证asp叶面一定不会出现乱码的代码应该是这样的：（假定是UTF-8的叶子）   可以建立公共文件code.asp，所有页面都包含这个编码指定. 

原创 Xml_javascript分页

function getxmlDoc(){  xmlDoc=new ActiveXObject("Microsoft.XMLDOM");    var currNode;    xmlDoc.async=false;    xmlDoc.load("myTest.xml");    if(xmlDoc.parseError.errorCode!=0)    {        var myErr=x

原创 Microsoft.XMLDOM

XMLDOM是用来访问和操作XML文档的编程接口规范。XMLDOM被设计为可用于任何语言和任何操作系统。借助DOM，程序员可以创建XML文档、遍历其结构，增、改、删其元素。DOM将整个XML文档视作一棵树，文档级的元素是树的根。XMLDOM包含四个主要对象：XMLDOMDocumentXMLDOMNodeXMLDOMNodeListXMLDOMNamedNodeMap每个XMLDOM对象有其自己的

原创 偷取男人心的七种武器，能让男人宠爱你一生

“我能想到最浪漫的事，就是和你一起慢慢变老，直到我们老得哪也去不了，你还依然把我当成手心里的宝。”总能听到女人时不时地哼唱这几句歌词。没错，哪个女人不想让他疼爱自己一辈子？可是，若想让他宠你，你得先学点儿爱的艺术……条件一：像情人那样做老婆 　　做个好老婆不难，做个好情人也不难，但是，一个老婆要做得跟他的情人一样，让他想念，让他迷恋，真需费点功夫。条件二：永远保持柔情似水 　　没有一个男人可以逃出

原创 返回XMLHTTP请求的当前状态

readyState返回XMLHTTP请求的当前状态语法lValue = oXMLHttpRequest.readyState;Examplevar XmlHttp;XmlHttp = new ActiveXObject("Msxml2.XMLHTTP.3.0");function send() {   XmlHttp.onreadystatechange = doHttpReadyStateCh

原创 珍惜你爱的人,和爱你的人

    女孩捧着饭盒呆呆的站在男孩的后面，看到了他开心的在键盘上打字，和他的传奇老婆诉说着绵绵情爱，女孩的心揪了一下，但她还是告诉自己，这只是网络而已。她把饭盒放在男孩的桌边说：“快点吃，凉了就不好吃了。”男孩头也没抬的恩了一声，继续他的情话大奉献。女孩默默的走了。此刻已是凌晨2点，女孩叹了口气，她已不奢望男孩会送她，但却连一句叮嘱的话都没有。她宽容的一笑，回家了。事隔数月———女孩说：“看着我的

原创 XMLHttp常用属性，方法，成员 XMLHttpRequest对象

onreadystatechange属性readyState属性responsebody属性responsestream属性responsetext属性responsexml成员status成员statusText成员abort方法getallresponseheaders方法getResponseHeader方法open方法send方法setrequestheader方法xmlhttp:onre

原创 自动广告图片

div id="fc" style="width:501px;height:140px;filter:progid:DXImageTransform.Microsoft.Fade ( duration=0.5,overlap=1.0 );"> div style="display:none;"> a href="#" target="_blank">  img src="images/01.g

原创 ascll码表

原创 复制与粘贴

function pasetext()   {     var sText = clipboardData.getData("Normal");         sText=sText.replace(/[/w[^>]*(?:style|lang|class=)(?:[ |>*)([^>]*)/gi,$1$3);        insertHTML(sText);  }要用正则过滤一下. 

原创 防止上传图片木马

首先判断文件大小：if file.filesize  Response.Write("alert(您没有选择上传文件)")  Response.Write("history.go(-1)")  Response.End()end if将文件上传到服务器后，判断用户文件中的危险操作字符:set MyFile = server.CreateObject("Scripting.FileSyste

原创 语音上传

＜script language="javascript"> function openScript(url, width, height){ var Win = window.open(url,"openScript",width= + width + ,height= + height + ,resizable=1,scrollbars=yes,menubar=no,sta

原创 javascript处理图片效果，看起来不错。

无标题文档function imgWidth(obj,Width_){ if(obj.width>Width_) {  obj.width = Width_; }}function ImgStyle(obj) obj.filters.item(0).apply() obj.filters.item(0).transition = 12 obj.Style.visibility = "" obj.f

原创 写给女孩的17条(女生必看)

1.给他取个专属的呢称,他心里会很高兴的.2.每天给他打一个电话，哪怕很短，因为他想听你说话的声音．听出他感冒了要逼迫他马上吃药，不要相信他说挂掉电话就吃的鬼话．3.他说给你唱歌听时，要微笑答应，就算走音了也要鼓励他，因为他只是想唱给你听，把他的心意记在心里就好． 4.冬天和他一起出去时记得带上手套，不然他会因为心疼你把他的大手握在你的小手外面，可他又不是人皮手套．5.分别后记得回头,然后对他笑笑

原创 数据库连接

function getConn()    dim conn    set conn = server.CreateObject("ADODB.Connection")    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.MapPath(dbstr&"Data/ChinaCity.mdb") &";"    

原创 广告图片效果

                       .bigon{background:url(http://mat1.qq.com/ent/ent2007/ent2-04.gif);color:#C9000E;}  .bigoff{background:url(http://mat1.qq.com/ent/ent2007/ent2-03.gif);color:#3C3C3C;}