我本无名的专栏

Abs （数值） 绝对值。一个数字的绝对值是它的正值。空字符串 (null) 的绝对值，也是空字符串。未初始化的变数，其绝对为 0 例子：ABS(-2000) 结果：2000 Array （以逗点分隔的数组元素）

存储过程如下CREATE procedure p_splitpage   @sql nvarchar(4000), --要执行的sql语句@page int=1,    --要显示的页码@pageSize int,  --每页的大小@pageCount int=0 out, --总页数@recordCount int=0 out --总记录数asset nocount ondeclare @p

DateDiff 函数      返回 Variant (Long) 的值，表示两个指定日期间的时间间隔数目。语法DateDiff(interval, date1, date2[, firstdayofweek][, firstweekofyear]])DateDiff 函数语法中有下列命名参数：部分 描述 interval 必要。字符串表达式，表示用来计算date1 和 date2 的时间差的时

最近有很多的朋友问到调用存储过程的问题，这里简单介绍几种ASP调用带参数存储过程的方法。1 这也是最简单的方法,两个输入参数，无返回值：set connection = server.createobject("adodb.connection")connection.open someDSN Connection.Execute "procname varvalue1, varvalue2"

我们有时候会看到在一些论坛，我们在浏览一些帖子的时候，会说明只有注册用户可以浏览，所以我们登录，登录后，会发现它直接回到这个页面。其实它的代码，很简单，只有一句。response.redirect request.servervariables("HTTP_REFERER")

假设公司新闻页文件名：news.asp、查询页文件名：newslit.asp。　　news.asp主要代码如下：　　公司新闻function showpage(n){document.scripts[1].src = "newslist.asp?page_no=" + n;} 1& nbsp;2& nbsp;3showpage(1);　　newslist.asp代码：　　Dim c

session("datatime")="2007年2月5日"response.write"运行天数为"&datediff("d",year(date())&"1-1",cdate(session("datatime"))) 

如getData.aspif strData = "" or isNull(strData )  then   Response.Write "alert(网络繁忙!);"  TimeDelaySeconds 10  Response.Write "this.location=getData.asp;;"end if Sub TimeDelaySeconds(DelaySeconds)

读取到stream里，然后直接保存到文件了。 Function saveTofile(rs,file)       Dim objstream       Set objstream = CreateObject("adodb.stream")       objstream.Type = 1       objstream.Mode = 3       objstream.Open

dim re,matches,matchcount,strTest,iset re = new regexpre.pattern = ""re.global = truere.ignorecase = truestrTest="eeaacdfjkjfkdsahttp://www.pppqq.com/img/logo.gif"">jfkdsa href=""afdsjkhttp://www.cs

ASP中Cache动态使用 ASP从发布至今已经7年了，使用ASP技术已经相当成熟，自从微软推出了ASP.NET之后就逐渐停止了对ASP版本的更新。但是由于有很多人仍然习惯使用ASP来开发网站，所以，再次我将以一个简单的例子来说明在ASP中如何使用Cache。 简单的说使用Cache基本原理是，把经常需要且获得代价昂贵的数据在内存中持续保存一定时间，以供这些数据可以被直接地全局地访问。例如

在Ｔable里加 style="word-break:break-all;" 例如      11111111111111111111111111111111111111111111111111111                    

只要将onFocus="if(this.blur)this.blur()"这段代码,放在连接的后面,就相上面的例子一样.这样热区的被点击后的边框就没有了. 

在书写实现这个功能的过程中，我们会使用几个非常重要的ASP函数，先来了解一下：Split()函数将一个字符串分割并返回分割结果表达式 Split (S[，d]) 实例：For i = 0 To UBound(V)Response.Write V(i)Next%>返回结果: A B CUBound() 函数返回指定数组维数的最大可用下标>. 表达式 Ubound(arrayname [, dim

Listdim conndim rsdim sqldim countdim rs1dim sql1set conn = server.CreateObject ("adodb.connection")conn.Open "test","sa",""sql = "select * from district order by locationid asc"set rs = conn.exec

dim RegExp     Set RegExp=new RegExp     RegExp.IgnoreCase =true     RegExp.Global=True     RegExp.Pattern="(" & keyword & ")"     Content=RegExp.Replace(Content,"$1" )     Set RegExp=Nothing

目前可以处理的文件类型：.asp .inc .htm .html 具体类型可自行修改添加程序实现的功能：将源目录下的文件批量修改后存到目的目录下用它稍做修改可以实现很多东西噢！别的不说了，代码里面都写的很清楚了Server.ScriptTimeOut = 500 脚本超时时间Sub midfile(path_from, path_to) list_from = path_from

第一种方法:From_url = Cstr(Request.ServerVariables("HTTP_REFERER")) Serv_url = Cstr(Request.ServerVariables("SERVER_NAME")) if mid(From_url,8,len(Serv_url)) response.write "非法链接！" 防止盗链 response.end end

在ASP中，中文也被认为是一个字符，这样就在判断一行多少个字符时，就会与英文发生冲突，用下面的这段代码，就可以搞定Function Strlen(txt)    txt=trim(txt)    x = len(txt)    y = 0    for ii = 1 to x        if asc(mid(txt,ii,1)) 255 then             y = y + 2

调用请用注意:rs("PaginationType")是分页种类,写入数据库.rs("Content")是内容,rs("ArticleID")是文章ID.0 不分页1 自动2 手动(用[NextPage]分隔)****************************************************============================