知识大全 ASP的常用的自定义函数大全

Posted 2022-07-17 函数

篇首语：知识是工具，而不是目的。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 ASP的常用的自定义函数大全相关的知识，希望对你有一定的参考价值。

ASP的常用的自定义函数大全 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　 ================================

　　函数列表建立数据库的连接 ConnOpen(DataBaseConnectStr DBType Conn_object) 断开数据库的连接 ConnClose(Conn_object) 防止SQL注入 SafeRequest(paraName paraType) 格式化日期 DateFormat(dateStr dateType) 显示错误提示 ShowErr(errStr) 查询字符串中特定数据 SelectStr(contentStr patternStr patternNum) 过滤指定字符 Leach(contentStr badWords) 远程文件内容抓取 Seize(urlStr) 数据流编码处理 BytesToBstr(body cset) 编码cookies codeCookie(contentStr) 解码cookies DecodeCookie(contentStr) 检验数据提交来源是否合法 CPost() 个性化加密 MyEncrypt(StrPassword) 禁止浏览器缓存本页 NoBuffer() 网页格式化输入文本 HTMLEncode(fString) 从头部截取字符串的指定长度(按字符数算) GotTopic(Str StrLen) 检测验证码 CheckRadomPass(RadomPass) 生成验证码 GetCode() 获取客户端操作系统版本 GetSystem() 数据库事务处理 ConnManage(Conn_object) 快速排序（递归） QuickSort(arr Low High) 将数组的元素以特定字符串连起来 arr_join(arr character) 返回字符串以某分割符分割的数目 count_character(str character) 截取含有分割符的字符串中指定数目的字符串 inter_str_by_character_num(str character start num) 利用Stream下载文件 downloadFile(strFile) 返回信息 send_back(ResultWords) 获取错误信息 get_err() 与SafeRequest相反 SafeResponse(content) 保存远程图片 SaveRemoteFile(LocalFileName RemoteFileUrl) dim language_arr( ) language_arr( ) = "数据库连接的参数设置错误！" language_arr( ) = "数据库连接的类型参数设置错误！" language_arr( ) = "数据库连接失败！" language_arr( ) = "非法的参数值！" language_arr( ) = "参数值不是有效的日期格式！" language_arr( ) = "操作失败！" language_arr( ) = "栏目有重名！" language_arr( ) = "栏目名称为空！" language_arr( ) = "栏目文件夹创建失败！" language_arr( ) = "您没有此权限！" 函数ID 函数作用建立数据库的连接修改时间传人参数 connectStr 数据库连接字符串 connectType 数据库类别数字型为Access 为MS SQL 返回值

　　sub ConnOpen(DataBaseConnectStr DBType Conn_object) Set Conn_object = Server Createobject("adodb connection") if DataBaseConnectStr = "" then call ShowErr(language_arr( )) if DBType = then Conn_object Open "driver=Microsoft Access Driver (* mdb);dbq=" & DataBaseConnectStr elseif DBType = then Conn_object Open "Provider=SQLOLEDB ;" & DataBaseConnectStr else call ShowErr(language_arr( )) end if err clear end sub

　　函数ID 函数作用断开数据库的连接修改时间传人参数返回值

　　Sub ConnClose(Conn_object) Conn_object close set Conn_object = nothing End sub

　　函数ID 函数作用防止SQL注入修改时间传人参数 paraName:参数名称字符型 paraType:参数类型数字型( 表示以上参数是数字表示以上参数为字符)　返回值过滤后的字符串

　　Function SafeRequest(paraName paraType) dim paraValue paraValue = Request(paraName) select case paraType case paraValue = replace(paraValue " " "[system: ]") paraValue = replace(paraValue "=" "[system: ]") case if not IsNumeric(paraValue) then call ShowErr(language_arr( )) case if not IsNumeric(paraValue) then call ShowErr(language_arr( )) if paraValue = "" then paraValue = case else if len(paraValue) > paraType then call ShowErr(language_arr( )) paraValue = replace(paraValue " " "[system: ]") paraValue = replace(paraValue "=" "[system: ]") end select SafeRequest = paraValue End function =============================== 函数ID 函数作用格式化日期修改时间传人参数 dateStr:日期字符串 paraType:日期类型数字型返回值格式化后的日期 Function DateFormat(dateStr dateType) Dim dateString if IsDate(dateStr) = False then call ShowErr(language_arr( )) end if Select Case dateType Case " " dateString = Year(dateStr)&" "&Month(dateStr)&" "&Day(dateStr) Case " " dateString = Year(dateStr)&" "&Month(dateStr)&" "&Day(dateStr) Case " " dateString = Year(dateStr)&"/"&Month(dateStr)&"/"&Day(dateStr) Case " " dateString = Month(dateStr)&"/"&Day(dateStr)&"/"&Year(dateStr) Case " " dateString = Day(dateStr)&"/"&Month(dateStr)&"/"&Year(dateStr) Case " " dateString = Month(dateStr)&" "&Day(dateStr)&" "&Year(dateStr) Case " " dateString = Month(dateStr)&" "&Day(dateStr)&" "&Year(dateStr) Case " " dateString = Month(dateStr)&" "&Day(dateStr) Case " " dateString = Month(dateStr)&"/"&Day(dateStr) Case " " dateString = Month(dateStr)&" "&Day(dateStr) Case " " dateString = Month(dateStr)&language_arr( )&Day(dateStr)&language_arr( ) Case " " dateString = Day(dateStr)&language_arr( )&Hour(dateStr)&language_arr( ) case " " dateString = Day(dateStr)&language_arr( )&Hour(dateStr)&language_arr( ) Case " " dateString = Hour(dateStr)&language_arr( )&Minute(dateStr)&language_arr( ) Case " " dateString = Hour(dateStr)&":"&Minute(dateStr) Case " " dateString = Year(dateStr)&language_arr( )&Month(dateStr)&language_arr( )&Day(dateStr)&language_arr( ) Case Else dateString = dateStr End Select DateFormat = dateString End Function 函数ID 函数作用显示错误提示修改时间传人参数

　　 errStr:错误提示字符型返回值返回提交页面

cha138/Article/program/net/201311/14091