有时候我们在写asp的时候需要给用户一些反馈信息，这个自定义的返回信息函数，很方便大家使用 ************************ 子程序名：信息提示窗口 功能：信息提示，并作返回或者转向 参数： str 提示字符串 stype 处理类型:Back 返回 GoUrl 转向 Close 关闭 url 转向方向 ************************ Sub MsgBox(str,stype,url)response.write "<script language=javascript>"response.write "alert("&str&");"select case stypecase ...
今天看到一个帖子求项目完成的时间，需求是这样的： 给你一个项目的开始时间，给你项目总需求的天数，求项目的项目结束时间？注意：周六周日为休息日。 在asp编程开发中，计算时间很容易，直接用项目开始时间+天数，即可得到项目结束时间，但这里麻烦就在要排除周六和周日这两个休息时间。 经过思考，代码写出来了，放在这里和大家分享一下： <% starttime=cdate("2013-09-08") 项目开始时间 endtime="" 项目结束时间 num=8 项目需...
用ASP开发的时候遇到一个解码问题。虽然在ASP中使用Request获取编码过URL字符串会自动解码，但是Request.BinaryRead(Request.TotalBytes)取得Post数据时却不会解码，所以只能手动进行解码。 ASP解码函数：Function URLDecode(enStr) dim deStr,strSpecial dim c,i,v deStr=""strSpecial="!""#$%&()*+,.-_/:;<=>?@[/]^`{|}~%"for i=1 to len(enStr) c=Mid(enStr,i,1) if c="%" then v=eval("&h"+Mid(enStr,i+1,2)) if inStr(strSpec...
在上一篇小编向大家简要介绍了 ASP 脚本语言之一 VBScript 的一些基本常识，本期将继续给大家讲解 VBScript 的脚本编写方法，并通过展示 VBScript 在 ASP 程序编写过程中的一系列实例使大家对 VBScript 有更进一层的理解。 函数和过程一样都是命名了的代码块，但它们却有很大的区别，过程完成程序任务，函数则返回值。我们可以这样理解，过程象一个完整的句子，而函数则象一个单词。举个例子，当你想获取某个数的平方根，你只要...
代码如下: 数据库表行数函数，这是取表的行数 Function GetTblRows(TblName) 如果TblName表名值为空，则 if TblName="" Then GetTblRows="未知TblName" exit Function Else set rec = server.createobject("adodb.recordset") SQL="EXEC sp_spaceused "&TblName rec.open sql,conn,1,1 GetTblRows=Trim(rec("rows")) rec.close set rec=nothing end if End ...
这个函数是必需要的，很多黑客来捣乱，黑掉数据库，会注入大量的病毒js，在存储和展示文本数据的时候，使用此函数过滤一下，可避免不少麻烦 clearhtml代码 清除HTML代码 function clearhtml(content)content=replacehtml("&#[^>]*;","",content)content=replacehtml("</?marquee[^>]*>","",content)content=replacehtml("</?object[^>]*>","",content)content=replacehtml("</?param[^>]*>","",content)content=replacehtml("</?em...
如果标题过长，因为页面布局的限制，只能列表10个字符，这个函数会帮你实现的代码如下: 截取字符串 strvalue(标题,字数) function strvalue(str,lennum) dim p_num dim i if strlen(str)<=lennum then strvalue=str else p_num=0 x=0 do while not p_num > lennum-2 x=x+1 if asc(mid(str,x,1))<0 then p_num=int(p_num) + 2 ...
图片不进行处理，图片默认是用浏览器打开显示，如果希望图片变为下载可以使用以下代码 function downloadFile(strFile)strFilename = server.MapPath(strFile)Response.Buffer = TrueResponse.ClearSet s = Server.CreateObject("ADODB.Stream")s.Opens.Type = 1on error resume nextSet fso = Server.CreateObject("Scripting.FileSystemObject")if not fso.FileExists(strFilename) thenResponse.Write("<h1>Error:</h1>" & strF...
Array() 函数返回一个数组 表达式 Array(list) 允许数据类型: 字符，数字均可 实例： <% Dim myArray() For i = 1 to 7 Redim Preserve myArray(i) myArray(i) = WeekdayName(i) Next %>返回结果: 建立了一个包含7个元素的数组myArray myArray("Sunday","Monday", ... ... "Saturday") CInt() 函数将一个表达式转化为数字类型 表达式 CInt(expression) 允许数据类型: 任何有效的字符均可 实例： <% f = "234" response.write cINT...
数据库连接是一种关键的有限的昂贵的资源，这一点在多用户的网页应用程序中体现得尤为突出。对数据库连接的管理能显著影响到整个应用程序的伸缩性和健壮性，影响到程序的性能指标。数据库连接池正是针对这个问题提出来的。数据库连接池负责分配、管理和释放数据库连接，它允许应用程序重复使用一个现有的数据库连接，而再不是重新建立一个；释放空闲时间超过最大空闲时间的数据库连接来避免因为没有释放数据库连接而引起的数据库连...
在做ajax中的post时，发现在服务器端取得数据时总是乱码，网上看了些解决方法也搞不定，我post过去时是xml形式，由于乱码服务器端xml也解析不了或出错。于是在post前先把它编码，到服务器端再解码，这样问题解决了，但是要是数据很大时估计会很影响速度。 虽然ASP中的request会自动解码经过url编码的字符串，但是Request.BinaryRead(Request.TotalBytes)取得post数据时却不会解码，所以要进行解码。 下面是我找到的一个ASP中server...
首先，我在知道Split这个函数的作用，是把一个字符串按指定的分割符分割成一个字符串数组。 ASP里有这个Split，是这样定义的dim Split(byval source as string ,byval str as string) as string() source是源字符串，str是分隔符 我这里用了VB.net的写法，方便说明返回值的类型和参数的类型。 大家一看就明白怎么用了。 在C#里，我们是这样用的 string[] Split(string source,char[] char) 在这里Char是一个Char[]...
字符串转化为整数 asp: cint()--注意只能转换短整数值的范围必须在-32768与32767之间，长整数应用clng() 如果输入的不是纯数字字符串或者空字符串，则直接500错误。所以输入前应该检查是否为数字类型。 代码如下:Function JCID(ByVal ParaValue) If ((Not isNumeric(ParaValue)) or (Trim(ParaValue)="")) Then JCID=0 Else JCID=ParaValue End If End function 在各类型之间转换为需要的格式...
Split 程序代码代码如下:<%attribs="商场名^^快餐店名^^报停名"names=Split(attribs,"^^")i=0for each name in names response.write names(i)&"<br>" i=i+1next%> 程序拆分结果：商场名快餐店名报停名根据 Split 结果生成 SQL 语句代码如下:<%attribs="商场名^^快餐店名^^报停名"names=Split(attribs,"^^")i=0sql="select top 10 * from TableName where"for each name in names if names(i)="商场名" then sql=sql+" or 商...
我今天介绍的是在ASP中如果把时间（例如：2008-8-8 13:45:22）转换成秒的函数，和相反的把秒转换成时间的函数。当然时间转换的时候。必须有一个相对的固定时间，那就是格林威治时间。大家想想因为格林威治时间是以“ 1970 年 1 月 1 日 00:00:00 ”开始的，ASP提供了一个叫 DateDiff() 的函数，这个函数可以返回一个时间差的秒，那就是说我们放进去一个格林威治标准时间与现在的时间对比一下返回秒就OK。但我们还要注意时区，我们中...