Asp编程中的一些重要函数（2）

特别声明，以下有一些函数是从各个站点代码中截取，不完全是本人写的。如有异议，请与本人联系。

（9）检测Email地址是否合法

'********************************************
'函数名：IsValidEmail
'作  用：检查Email地址合法性
'参  数：email ----要检查的Email地址
'返回值：True  ----Email地址合法
'       False ----Email地址不合法
'********************************************
function IsValidEmail(email)
 dim names, name, i, c
 IsValidEmail = true
 names = Split(email, "@")
 if UBound(names) <> 1 then
    IsValidEmail = false
    exit function
 end if
 for each name in names
  if Len(name) <= 0 then
   IsValidEmail = false
      exit function
  end if
  for i = 1 to Len(name)
      c = Lcase(Mid(name, i, 1))
   if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then
         IsValidEmail = false
         exit function
       end if
    next
    if Left(name, 1) = "." or Right(name, 1) = "." then
       IsValidEmail = false
       exit function
    end if
 next
 if InStr(names(1), ".") <= 0 then
  IsValidEmail = false
    exit function
 end if
 i = Len(names(1)) - InStrRev(names(1), ".")
 if i <> 2 and i <> 3 then
    IsValidEmail = false
    exit function
 end if
 if InStr(email, "..") > 0 then
    IsValidEmail = false
 end if
end function

（10）检测上页是否从本站提交

' ============================================
' 检测上页是否从本站提交
' 返回:True,False
' ============================================
Function IsSelfRefer()
 Dim sHttp_Referer, sServer_Name
 sHttp_Referer = CStr(Request.ServerVariables("HTTP_REFERER"))
 sServer_Name = CStr(Request.ServerVariables("SERVER_NAME"))
 If Mid(sHttp_Referer, 8, Len(sServer_Name)) = sServer_Name Then
  IsSelfRefer = True
 Else
  IsSelfRefer = False
 End If
End Function

（11）得到安全字符串,在查询中使用

' ============================================
' 得到安全字符串,在查询中使用
' ============================================
Function Get_SafeStr(str)
 Get_SafeStr = Replace(Replace(Replace(Trim(str), "'", ""), Chr(34), ""), ";", "")
End Function

（11）取实际字符长度

' ============================================
' 取实际字符长度
' ============================================
Function Get_TrueLen(str)
 Dim l, t, c, i
 l = Len(str)
 t = l
 For i = 1 To l
  c = Asc(Mid(str, i, 1))
  If c < 0 Then c = c + 65536
  If c > 255 Then t = t + 1
 Next
 Get_TrueLen = t
End Fu

nction

（12）判断是否安全字符串,在注册登录等特殊字段中使用

' ============================================
' 判断是否安全字符串,在注册登录等特殊字段中使用
' ============================================
Function IsSafeStr(str)
 Dim s_BadStr, n, i
 s_BadStr = "' 　&<>?%,;:()`~!@#$^*{}[]|+-=" & Chr(34) & Chr(9) & Chr(32)
 n = Len(s_BadStr)
 IsSafeStr = True
 For i = 1 To n
  If Instr(str, Mid(s_BadStr, i, 1)) > 0 Then
   IsSafeStr = False
   Exit Function
  End If
 Next
End Function

（14）格式化时间（显示）
' 格式化时间(显示)
' 参数：n_Flag
' 1:"yyyy-mm-dd hh:mm:ss"
' 2:"yyyy-mm-dd"
' 3:"hh:mm:ss"
' 4:"yyyy年mm月dd日"
' 5:"yyyymmdd"
' ============================================
Function Format_Time(s_Time, n_Flag)
 Dim y, m, d, h, mi, s
 Format_Time = ""
 If IsDate(s_Time) = False Then Exit Function
 y = cstr(year(s_Time))
 m = cstr(month(s_Time))
 If len(m) = 1 Then m = "0" & m
 d = cstr(day(s_Time))
 If len(d) = 1 Then d = "0" & d
 h = cstr(hour(s_Time))
 If len(h) = 1 Then h = "0" & h
 mi = cstr(minute(s_Time))
 If len(mi) = 1 Then mi = "0" & mi
 s = cstr(second(s_Time))
 If len(s) = 1 Then s = "0" & s
 Select Case n_Flag
 Case 1
  ' yyyy-mm-dd hh:mm:ss
  Format_Time = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s
 Case 2
  ' yyyy-mm-dd
  Format_Time = y & "-" & m & "-" & d
 Case 3
  ' hh:mm:ss
  Format_Time = h & ":" & mi & ":" & s
 Case 4
  ' yyyy年mm月dd日
  Format_Time = y & "年" & m & "月" & d & "日"
 Case 5
  ' yyyymmdd
  Format_Time = y & m & d
 End Select
End Function

（15）格式化性别显示

'sex字段必须是数字
Function Format_sex(sex)
 select case sex
 case 1 
  Format_sex="女"
 case 0
   Format_sex= "男"
 End Select
End Function

（16）格式化血型函数
'*********显示血型函数*********
Function Format_bloodType(bloodType)
 select case bloodType
 case 1
   Format_bloodType= "A型"
  case 2 
  Format_bloodType="B型"
 case 3 
  Format_bloodType="AB型"
 case 4 
  Format_bloodType="O型"
 case 5 
  Format_bloodType="不清楚"
 End Select
End Function
'*********显示结婚状态函数*********
Function Format_marry(marry)
 select case marry
 case 0
   Format_marry= "未婚"
  case 1 
  Format_marry="离异"
 case 2 
  Format_marry="丧偶"
 End Select
End Function
'************格式化收入显示函数********************
Function Format_income(income)
 select case income
 case 0
   Format_income="1000以下"
  case 1 
  Format_income="1000～2000"
 case 2 
  Format_income="2000～3000"
 case 3
   Format_income="3000～4000"
  case 4 
  Format_income="4000～5000"
 case 5 
  Format_income="5000～6000"
 case 6
   Format_income="6000～8000"
  case 8 
  Format_income="8000～12000"
 case 12
  Format_income="12000～20000"
 case 20
  Format_income="20000以上"
 End Select
End Function
'****************显示学历函数**************
Function Format_edu(edu)
 select case edu
 case 1
   Format_edu= "大专以下"
  case 2 
  Format_edu="本科"
 case 3 
  Format_edu="硕士"
 case 4
   Format_edu= "博士"
  case 5 
  Format_edu="博士后"
 End Select
End Function
'****************显示年龄函数**************
Function Format_age(age)
 select case age
 case 1
   Format_age= year(now)-year(age)
 End Select
End Function

 本文转自 simeon2005 51CTO博客，原文链接:http://blog.51cto.com/simeon/9665