ASP的一些自定义函数整理第1/2页(5)

      case "13" 
          dateString = Day(dateStr)&language_arr(7)&Hour(dateStr)&language_arr(8) 
      Case "14" 
          dateString = Hour(dateStr)&language_arr(8)&Minute(dateStr)&language_arr(9) 
      Case "15" 
          dateString = Hour(dateStr)&":"&Minute(dateStr) 
      Case "16" 
          dateString = Year(dateStr)&language_arr(5)&Month(dateStr)&language_arr(6)&Day(dateStr)&language_arr(7) 
      Case Else 
          dateString = dateStr 
     End Select 
     DateFormat = dateString 
End Function 
'============================================================================================================================ 
'函数ID：5 
'函数作用：显示错误提示 
'作者名称：茫仔 xiamangmang@gmail.com 博客：blog.mzoe.com 
'建立时间：2006-2-16 16:29 
'修改时间： 
'传人参数： 
'    errStr:错误提示-字符型 
'返回值：返回提交页面 
'============================================================================================================================ 
sub ShowErr(errStr) 
    Response.Write("<script>alert("""&errStr&""");location.href=""javascript:history.back()"";</script>") 
    Response.End 
End sub 
'============================================================================================================================ 
'函数ID：6 
'函数作用：查询字符串中特定数据 
'作者名称：茫仔 xiamangmang@gmail.com 博客：blog.mzoe.com 
'建立时间：2006-2-16 16:40 
'修改时间： 
'传人参数： 
'    contentStr:查询字符串 
'    patternStr:匹配式字符串 
'    patternNum:查询定位-数字型 
'返回值： 
'    找不到返回false 
'    patternNum为-1返回所有匹配字符串并以[10]隔开 
'    否则返回指定位置的字符串 
'============================================================================================================================ 
Function SelectStr(contentStr,patternStr,patternNum)