我写ASP时常用到的一些函数

对于ASP语言来说，把某一功能模块写成类，那对于效率来讲，未必是件很提倡的事，但是把这种模块化向小了去说，把一些功能写成函数，那就对于在ASP开发的时候，省不少事了，以下是一些我经常用到的函数，有一些是我写的，有的是从网上找的，比如说CFS编码的；网上的CFS编码的函数里面的变量都没声明，所以在我的页面声明了option explicit后就不能正常使用了，很简单，我在FUNCTION里把变量声明了就可以了。 数据挖掘实验室

这儿只是一部分，因为我现在在公司，而我的大部分资料都在家里电脑上，以后再补充了……大家如果有什么好的有和的函数，也欢迎和我交流…… 数据挖掘交友

"@转换日期为星期几函数
"@idate为标准日期格式
"@itype为0时表示英文星期几,否则为中文
function showweek(idate,itype)
if itype <> 0 then itype = 1 "//防止误输出错
dim inum,nday
inum = weekday(idate)
if itype = 0 then
 select case inum
  case 1
   nday = "Sunday"
  case 2
   nday = "Monday"
  case 3
   nday = "Tuesday"
  case 4
   nday = "Wednesday"
  case 5
   nday = "Thursday"
  case 6
   nday = "Friday"
  case 7
   nday = "Saturday"
 end select
else
 select case inum
  case 1
   nday = "星期天"
  case 2
   nday = "星期一"
  case 3
   nday = "星期二"
  case 4
   nday = "星期三"
  case 5
   nday = "星期四" 数据挖掘研究院 
  case 6
   nday = "星期五"
  case 7
   nday = "星期六"
 end select
end if
"//OUTPUT
 showweek = nday
end function
"//************************************************************* 
数据挖掘实验室
 

"@分页列表函数
"@参数说明：TotalReCount:记录总数
"@page:当前页码,pagesize:分页大小，url:页面地址
function PageList(TotalReCount,page,pagesize,url)
dim startPage,endPage,ipage,totalPage
"//判断链接文件后参数个数
if inStr(1,url,"?") = 0 then
 url = url & "?"
else
 url = url & "&"
end if
"//得到总页数
totalPage = TotalReCount  pagesize
if TotalRecount mod pagesize <> 0 then totalPage = Cint(TotalRecountpagesize+1)
startPage = 1
endPage = totalPage
if page > 10 then startPage = page - 4
if totalPage < 10 then
 endPage = totalPage
else
 if page =< 10 then
  endPage = 10
 else
  endPage = page + 4
  if endPage > totalPage then endPage = totalPage
 end if
end if%>
共有:<%=TotalReCount%>&nbsp;<%=pagesize%>页 
<%if page>1 then%>
<a href="<%=url%>page=1"><font face="webdings">9</font></a>&nbsp; 数据挖掘工具 
<a href="<%=url%>page=<%=page-1%>"><font face="webdings">7</font></a>&nbsp;
<%end if%>
<%for ipage = startPage to endPage
if ipage <> page then%>
 <a href=""><%=ipage%></a>&nbsp;
<%else
 response.write i&"&nbsp;"
end if
next%>
<%if (totalPage-page)>4 then%>
<a href="<%=url%>page=<%=page+1%>"><font face="webdings">8</font></a>&nbsp;
<a href="<%=url%>page=<%=totalPage%>"><font face="webdings">:</font></a>&nbsp;
<%end if 
数据挖掘实验室
 

end function
"//************************************************************* 
数据挖掘交友
 

"//检测组件是否安装函数
Function IsObjInstalled(strClassString)
On Error Resume Next
 IsObjInstalled = False
 Err = 0
 Dim xTestObj
 Set xTestObj = Server.CreateObject(strClassString)
 If 0 = Err Then IsObjInstalled = True
 Set xTestObj = Nothing
 Err = 0
End Function
"//************************************************************* 数据挖掘研究院 

Function SafeRequest(ParaName,ParaType)   "防止SQL注入攻击代码
"--- 传入参数 ---//例: SafeRequest("username",0)或SafeRequest("id",1)
"ParaName:参数名称-字符型
"ParaType:参数类型-数字型(1表示参数是数字，0表示参数为字符) 
数据挖掘论坛
 

       Dim ParaValue
       ParaValue=Request(ParaName)
       If ParaType=1 then
              If not isNumeric(ParaValue) then
                     "Response.write "<script language=javascript>alert("参数" & ParaName & "必须为数字型！");</script>"
      Response.write "<script language=javascript>window.history.back();</script>"
                     Response.end
     elseif ParaValue < 1 then
     ParaValue = 1
              End if
       Else 
数据挖掘研究院
 
              ParaValue=replace(ParaValue,""","""")
       End if
       SafeRequest=ParaValue
End function
"//************************************************************* 数据挖掘工具 

"//HTML解码函数
Function HTMLDecode(fString)
 If Not IsNull(fString) Then
  fString = replace(fString, ">", ">")
  fString = replace(fString, "&lt;", "<")
  fString = Replace(fString, " ", CHR(32))  "&nbsp;
  fString = Replace(fString, " ", CHR(9))   "&nbsp;
  fString = Replace(fString, "&quot;", CHR(34)) "双引号过滤
  "fString = Replace(fString, CHR(39), "&#39;") "单引号过滤
  "fString = Replace(fString, ,"" CHR(13))
  fString = Replace(fString, "</p><p>", CHR(10) & CHR(10))
  fString = Replace(fString, "<br>", CHR(10))
  HTMLDecode = fString
 End If
End Function
"//************************************************************* 
数据挖掘实验室
 

"//HTML编码函数
Function HTMLEncode(fString)
 If Not IsNull(fString) Then
  fString = replace(fString, ">", ">")
  fString = replace(fString, "<", "&lt;")
  fString = Replace(fString, CHR(32), " ")  "&nbsp;
  fString = Replace(fString, CHR(9), " ")   "&nbsp;
  fString = Replace(fString, CHR(34), "&quot;") "双引号过滤
  "fString = Replace(fString, CHR(39), "&#39;") "单引号过滤
  fString = Replace(fString, CHR(13), "")
  fString = Replace(fString, CHR(10) & CHR(10), "</p><p>")
  fString = Replace(fString, CHR(10), "<br>")
  HTMLEncode = fString
 End If
End Function
"//************************************************************* 数据挖掘实验室 

"CFS Encode Function
Function CfsEnCode(CodeStr)
Dim CodeLen
Dim CodeSpace
Dim NewCode
dim cecr,cecb,cec
CodeLen = 30
CodeSpace = CodeLen - Len(CodeStr)
If Not CodeSpace < 1 Then
 For cecr = 1 To CodeSpace
  CodeStr = CodeStr & Chr(21)
 Next
End If
NewCode = 1
Dim Been
For cecb = 1 To CodeLen
 Been = CodeLen + Asc(Mid(CodeStr,cecb,1)) * cecb
 NewCode = NewCode * Been
Next
CodeStr = NewCode
NewCode = Empty
For cec = 1 To Len(CodeStr)
 NewCode = NewCode & CfsCode(Mid(CodeStr,cec,3))
Next
For cec = 20 To Len(NewCode) - 18 Step 2
 CfsEnCode = CfsEnCode & Mid(NewCode,cec,1)
Next
End Function 
数据挖掘论坛
 

Function CfsCode(Word)
dim cc
For cc = 1 To Len(Word)
 CfsCode = CfsCode & Asc(Mid(Word,cc,1))
Next
CfsCode = Hex(CfsCode)
End Function
"//************************************************************* 数据挖掘研究院 

"//转换中文货币大小写
function CLMoney(thenumber) 
dim Money,i,String1,String2,length,checkp"定义变量 
dim one(),onestr()"定义数组  
数据挖掘研究院
 

String1 = "零壹贰叁肆伍陆柒捌玖" 
String2 = "万仟佰拾亿仟佰拾万仟佰拾元角分厘毫"  数据挖掘交友 

checkp=instr(thenumber,".")"判断是否含有小数位 
if checkp<>0 then 
thenumber=replace(thenumber,".","")"去除小数位 
end if  数据挖掘实验室 

length=len(thenumber) "取得数据长度 
redim one(length-1)"重新定义数组大小 
redim onestr(length-1)"重新定义数组大小  
数据挖掘实验室
 

for i=0 to length-1  数据挖掘工具 

one(i)=mid(thenumber,i+1,1) "循环取得每一位的数字 
one(i)=mid(string1,one(i)+1,1)"循环取得数字对应的大写  
数据挖掘工具
 

if checkp=0 then 
"不含有小数的数据其数字对应的单位 
onestr(i)=mid(string2,14-length+i,1) 
else 
"含有小数的数据其数字对应的单位 
onestr(i)=mid(string2,15-length+i+len(thenumber)-checkp,1) 
end if  
数据挖掘研究院
 

one(i)=one(i)&onestr(i)"将数字与单位组合 
next  
数据挖掘论坛
 

Money=replace(join(one)," ","") "取得数组中所有的元素，并连接起来 
Money=replace(Money,"零元","元") 
Money=replace(Money,"零万","万") 
Money=replace(Money,"零亿","亿") 
Money=replace(Money,"零仟","零") 
Money=replace(Money,"零佰","零") 
Money=replace(Money,"零拾","零")  数据挖掘论坛 

do while not instr(Money,"零零")=0 
Money=replace(Money,"零零","零") 
loop 
CLmoney = Money
end function
"//*********************************************************** 
数据挖掘实验室
 

"//IP转换成数字，限制IP时用
"@使用示例
"// userIPnum = IP2Num(Request.ServerVariables("REMOTE_ADDR"))
"// if userIPnum > IP2Num("192.168.0.0") and userIPnum < 
"// IP2Num("192.168.0.255") then
"//  response.write ("<center>您的IP被禁止</center>")
"//  response.end
"// end if 数据挖掘研究院 

function IP2Num(sip)
 dim str1,str2,str3,str4
 dim num
 IP2Num=0
 if isnumeric(left(sip,2)) then
  str1=left(sip,instr(sip,".")-1)
  sip=mid(sip,instr(sip,".")+1)
  str2=left(sip,instr(sip,".")-1)
  sip=mid(sip,instr(sip,".")+1)
  str3=left(sip,instr(sip,".")-1)
  str4=mid(sip,instr(sip,".")+1)
  num=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
  IP2Num = num
 end if
end function
"//******************************************************** 
数据挖掘交友