<% Response.Write(Server.HTMLEncode(FixImg("<img onclick=""if(this.width>screen.width-461) window.open('qq/20082181405371.jpg');"" alt="""" border=""0"" src=""qq/20082181405371.jpg"" />"))) %> <% '功能:将IMG代码格式化为<img src="XXX" />格式. Function FixImg(sString) Dim sReallyDo, regEx, iReallyDo Dim oMatches, cMatch Dim tStartTime, tEndTime If IsNull(sString) Then FixImg ...
<% function loadtempletfile(byval path) on error resume next dim objstream set objstream = server.createobject("adodb.stream") with objstream .type = 2 .mode = 3 .open .loadfromfile server.mappath(path) if err.number <> 0 then err.clear response.write("预加载的模板[" & path & "]不存在!") response.end() ...
代码如下:function gfv(str) gfv = request.form(str) end function sub executesql dim content:content = gfv("content") on error resume next conn.begintrans conn.execute(content) if err.number <> 0 then err.clear conn.rollback conn.close:set conn = nothing call alertbox("抱歉!sql语句输入错误!",2) else conn.committrans ...
今天试了下AspJpeg组件，发现用AspJpeg组件去处理不正常的图片文件的时候就会出错，呵呵，这个正好可以让我们用来检查图片的合法性，偶给封装成函数了～ 代码如下:'------------------------------------------- '函数名：chkimg '作 用：检查图片文件是否合法 '参 数：img，图片路径 '返回值：布尔类型 '条 件：服务器必须支持AspJpeg '------------------------------------------- Function chkimg(img) on error re...
代码如下:Function CheckFields(FieldsName,TableName) Flag=False sql="select * from "&TableName Set RS=Conn.Execute(sql) for i = 0 to RS.Fields.Count - 1 if RS.Fields(i).Name=FieldsName then Flag=True Exit For else Flag=False end if Next CheckFields=Flag End Function
网址和邮件地址的转换函数<% function URLconvert(str) convertstr=str urlLocation=instr(convertstr,"http://") if (urlLocation=0) and (mailLocation=0) then URLconvert=convertstr exit function end if if urlLocation<>0 then rightstr=str Do while urlLocation<>urlLocationend urlLocation=instr(rightstr,"http://") urlLocationend=InStrRev(rightstr,"http://") finalstr=finalstr&left(rightstr,urlLocation-1) m...
计算两个时间差的函数 '****************************** '||Function TimeDiff(sBegin, sEnd) '||本函数计算两个时间的差，可以不用更改直接使用 '||作者：machinecat 2001/10/26 '****************************** '****************************** '注：首先需要判断用户输入的sBegin与sEnd之间的大小 '可以通过DataDiff函数获得两者之间的时间差，不需要进行复杂的时间换算 '****************************** Function TimeDiff(s...
IP地址分段计算 <script language="JScript" Runat="Server"> function IPDeCode(EIP){ var Ip1,Ip2,Ip3,Ip4; Ip1 = moveByteR(EIP & 0xff000000,3); Ip2 = moveByteR(EIP & 0x00ff0000,2); Ip3 = moveByteR(EIP & 0x0000ff00,1); Ip4 = EIP & 0x000000ff; return Ip1 + "." + Ip2 + "." + Ip3 + "." + Ip4; } function moveByteL(num,bytenum){ return num <<= (bytenum*8) } function moveByteR(num,bytenum){ return num >>>= (...
身份证验证代码函数 Function CheckCardId(e) arrVerifyCode = Split("1,0,x,9,8,7,6,5,4,3,2", ",") Wi = Split("7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2", ",") Checker = Split("1,9,8,7,6,5,4,3,2,1,1", ",") If Len(e) < 15 Or Len(e) = 16 Or Len(e) = 17 Or Len(e) > 18 Then CheckCardId= "身份证号共有 15 码或18位" CheckCardId = False Exit Function End If Dim Ai If Len(e) = 18 Then Ai = Mid(e, 1, 17) ElseIf Len(e...
加密与解密函数 <%function decrypt(dcode) dim texts dim i for i=1 to len(dcode) texts=texts & chr(asc(mid(dcode,i,2))-i) next decrypt=texts end function function encrypt(ecode) Dim texts dim i for i=1 to len(ecode) texts=texts & chr(asc(mid(ecode,i,2))+i) next encrypt = texts end function %> <%=decrypt(123123)%> <a href="11111.asp?id=<%=decrypt("sdfasdfs")%>">111111111</a> <%abc=encrypt(request("i...
代码如下:'************************************************** '函数ID：0016[获得执行程序的名称] '函数名：GT_the_proname '作 用：获得执行程序的名称 '参 数： '返回值：返回执行程序的名称 '************************************************** Function GT_the_proname() Dim fu_name,temp,tempsiz temp=Request.ServerVariables("PATH_INFO") fu_name=Split(temp, "/", -1, 1) tempsiz=UBoun...
参考资料之ASP函数 整理下asp下常用的字符串，数据等操作函数，大家在平时操作中也经常遇到的1.函数 array() 功能:创建一个数组变量 格式:array(list) 参数:list 为数组变量中的每个数值列,中间用逗号间隔 例子: 结果: i 被赋予为数组 2.函数 Cint() 功能:将一表达式/其它类型的变量转换成整数类型(int) 格式:Cint(expression) 参数:expression 是任何有效的表达式/其它类型的变量 例子: 结果: 236 函数Cint()将字符"234"转...
ASP 中 DateDiff 函数详解DateDiff 函数 描述 返回两个日期之间的时间间隔。 语法 DateDiff(interval, date1, date2 [,firstdayofweek][, firstweekofyear]]) DateDiff 函数的语法有以下参数： 参数 描述 interval 必选。字符串表达式，表示用于计算 date1 和 date2 之间的时间间隔。有关数值，请参阅“设置”部分。 date1, date2 必选。日期表达式。用于计算的两个日期。 firstdayofweek 可选。指定星期中第一天的常数。...
asp下使用split实现数组操作的方法ASP 中 Split 函数的实例 大家有碰到过要想取一字符串里的某些值而无从下手？有没有觉得看书或教材对split的写法糊里糊涂……如果有此疑问的话，请看下面我对例子的解释，相信您会对这个有一定的了解。 我先介绍一下Split函数的用法: 返回值数组 = Split("字符串","分割符") 假设变量strURL保存着URL值，如strURL = "ftp://username:password@server"，这是我们在ＩＥ中登录到FTP上...
'================================================== '函数名：ScriptHtml '作 用：过滤html标记 '参 数：ConStr ------ 要过滤的字符串 '================================================== Function ScriptHtml(Byval ConStr,TagName,FType) Dim Re Set Re=new RegExp Re.IgnoreCase =true Re.Global=True Select Case FType Case 1 Re.Pattern="<" & TagName & "([^>])*>" ConStr=...