ASP编程通用函数收藏合集

只要大家每人献出一两条自己收藏已久，精典的通用函数，我想本帖将会对许许多多的ASP编程爱好者、工作者有很大的帮助，也将成为大家ASP编程的必备函数集。

赶快检查您自己的函数库吧，看一下你有的我们这里都有了吗？

如果你发现了你的函数库里还有着那么一两条鲜为人知的函数，那快点以下面格式跟帖回复吧。

发表通用函数帖子格式：

代码如下:

<%

'******************************

'函数：Function RndIP(s)

'参数：s，四个随机生成的IP头，如"218$211$61$221"

'作者：阿里西西

'日期：2007/7/12

'描述：随机IP地址生成，返回一个随机IP地址值

'示例：<%=RndIP("218$211$61$221")%>

'******************************

Function RndIP(s)

on error resume next

Dim ip,ip1,ip2,ip3,a,b,c

if s = "" or ubound(split(s,"$"))<>3 then

response.write "IP前缀参数设置错误，请返回重新设置后启动程序。"

response.end

end if

Randomize

ip1 = cInt(254*rnd)

ip2 = cInt(254*rnd)

ip3 = cInt(254*rnd)

b = Int ((3*rnd)+1)

a=Split(s,"$")

c=a(b)

RndIP = (c&"."&ip1&"."&ip2&"."&ip3)

End Function

%>

过滤常用的非法字符

代码如下:

<% 

'****************************** 

'函数：ReplaceBadChar(strChar) 

'参数：strChar，待过滤字符 

'作者：阿里西西 

'日期：2007/7/12 

'描述：过滤常用的非法字符 

'示例：<%=ReplaceBadChar("包含有非法字符的'*示例")%> 

'****************************** 

function ReplaceBadChar(strChar) 

 if strChar="" then 

  ReplaceBadChar="" 

 else 

  ReplaceBadChar=replace(replace(replace(replace(replace(replace(replace(strChar,"'",""),"*",""),"?",""),"(",""),")",""),"<",""),".","") 

 end if 

end function 

%> 

格式化HTML字符显示

代码如下:

<% 

'****************************** 

'函数：HTMLEncode(fString) 

'参数：fString，待格式化字符串 

'作者：阿里西西 

'日期：2007/7/12 

'描述：格式化HTML字符显示 

'示例：<%=HTMLEncode(fString)%> 

'****************************** 

function HTMLEncode(fString) 

if not isnull(fString) then 

    fString = replace(fString, ">", ">") 

    fString = replace(fString, "<", "<") 

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!