ASP常用函数

原创 2004年09月22日 17:17:00

'替换出字符串内非法字符
Function ManageStr(Str)     
If Str <> "" Then   
    ManageStr = Replace(Str, "'", "''")
    ManageStr = Replace(ManageStr, "|", "")
    ManageStr = Replace(ManageStr, "delete", "")
    'Managestr = Replace(str, "", "")
    'managestr=replace(managestr,"insert","")
    'managestr=replace(managestr,"""","""")
    ManageStr = Replace(ManageStr, "<", "&lt;")
    ManageStr = Replace(ManageStr, ">", "&gt;")
    ManageStr = Replace(ManageStr, "[[", "<")
    ManageStr = Replace(ManageStr, "]]", ">")
    ManageStr = Replace(ManageStr, "|", "")
    'response.write (instr(lcase(str),"select")<>0)
    '   End If
End If   
End Function


'取出文件名
Function DisImageFileName(strFileName)
  If inStr(strFileName,"/") > 0 Then
   For I = Len(strFileName) To 1 Step -1
    If Mid(strFileName,I,1) = "/" Then
     DisImageFileName = "file:///" & strPicPath & Right(strFileName,Len(strFileName) - I)
     Exit For
    End If
   Next
  Else
   DisImageFileName = "file:///" & strPicPath & strFileName 
  End If 
  'DisImageFileName = "file:///" & strPicPath & DisImageFileName
  
End Function 

'给出JS提示信息产跳转到指定页面
Sub DisJsMessageRedirect(strJsMessage,strRedirectUrl)
%>
  <Script Language="JavaScript">
  <!--   
   alert('<%=strJsMessage%>');
   window.location.href='<%=strRedirectUrl%>';
   //return true;
  -->
  </Script>
<%
 Response.End
End Sub

'把文本串加上单引号,AddComma("a,b,c,d")返回'a','b','c','d'
Function AddComma(strString) 
 strString = Replace(strString," ","")
 If Len(strString)>0 Then
  arrAddComma = Split(strString,",")
  For intL = 0 To Ubound(arrAddComma)
   If AddComma = "" Then
    AddComma = "'" & arrAddComma(intL) & "'"
   Else 
    AddComma = AddComma & ",'" & arrAddComma(intL) & "'"
   End If
  Next  
 End If
End Function


'发生错误时弹出一个窗口
Function GoError(strErrMsg)
%>
  <Script Language="JavaScript">
  <!--
   alert('<%=strErrMsg%>');
   window.location.href='../index.asp';
  -->
  </Script>
<%
  Response.End
End Function

'发送邮件
Sub SendMailByJmail(strFrom, strTo, strFromName, strToName, strSubject, strMailContent, strAddFileName)

    Dim objMail
    Dim arrMail
    Set objMail = CreateObject("JMail.Message")
   
    On Error Resume Next
    'objMail.Charset = "BIG5"
    objMail.From = strFrom
    objMail.FromName = strFromName
    objMail.AddRecipient strTo, strToName
    'arrMail = Split(strTo, ";")
    'For I = 0 To UBound(arrMail)
        'objMail.AddRecipient arrMail(I), arrMail(I)
    'Next
    objMail.Subject = strSubject
    objMail.HtmlBody = strMailContent

    'objMail.Send "hater:hater1234@211.147.7.6"
    objMail.Send "hater:hater1234@211.147.7.9"
   
    If Err.Number <> 0 Then
        'MsgBox Err.Description
        'MsgBox strTo
        intMailErrCount = intMailErrCount + 1
        strMailErr = strMailErr & " ; " & strTo
        
    End If

   
    If objMail.Silent Then
        g_str=g_str& objMail.ErrorMessage&Chr(10)
    End If
   
    objMail.Close
    Set objMail = Nothing

End Sub

'读取文本文件
Function ReadTextFile(strFileName)
    Set fs = Server.CreateObject("Scripting.FileSystemObject")
    Set a = fs.OpenTextFile(strFileName)
    ReadTextFile = a.ReadAll
    Set a = Nothing
    Set fs = Nothing
End Function


asp 中常用的文件处理函数

asp 中常用的文件处理函数 asp 中处理文件上传以及删除时常用的自定义函数 ''''''''''''''''''''''''''''''''''''''''''''''''...
  • u014739765
  • u014739765
  • 2014年04月23日 16:51
  • 254

ASP写的汉字转换UTF-8及UTF-8转GB2312

汉字转换为UTF-8 function chinese2unicode(Str)   dim i   dim Str_one   dim Str_unicode   for i=1 to l...
  • hefeng_aspnet
  • hefeng_aspnet
  • 2013年09月26日 15:29
  • 2293

ASP站点开发常用函数总结

ASP站点开发常用函数总结
  • netuser1937
  • netuser1937
  • 2016年12月19日 13:44
  • 277

asp网站基本构建(常用数据库的连接语句)

一、数据库的初始连接 ASP的对象存取数据库方法 在ASP中,用来存取数据库的对象统称ADO(Active Data Objects),主要含有三种对象:Connection、Recordset ...
  • form88
  • form88
  • 2017年03月26日 20:05
  • 570

asp短信接口开发经验及具体开发实现

http://www.leiyusoft.com/sms_sdk_asp.html 官网介绍及Demo下载。
  • baidu_31002735
  • baidu_31002735
  • 2015年09月02日 08:33
  • 763

vb常用函数一览表

vb常用函数一览表   常用内部函数 数学函数 函数 功能 示例 结果 说明 Ab...
  • u014451076
  • u014451076
  • 2014年11月23日 00:26
  • 934

asp与php常用函数对照表(全)

asp与php常用函数对照表(全)  (2013-02-20 14:13:44) 转载▼ 标签:  对照表   函数   it 分类: p...
  • zhangfeng1133
  • zhangfeng1133
  • 2015年10月30日 23:26
  • 334

PHP常用函数归类总结【大全】

用函数归类总结, 学习了这么就PHP,基础知识总感觉不牢靠,尤其是数组,字符串函数的应用,抽了个时间总结了一下,已做日后备查。 一。PHP基础语法 变量,常量     严格区分大小写,但内置结...
  • ty_hf
  • ty_hf
  • 2015年11月04日 18:57
  • 7878

Asp.Net 如何调用js中的函数function ?

http://bbs.csdn.net/topics/330215458 1、直接在前台调用 javascript 函数  很简单,在 head 元素之间加入 script 元素,将 ty...
  • DJ2008
  • DJ2008
  • 2013年09月28日 17:34
  • 5428

ASP远程脚本调用

远程脚本调用技术(Remote Scripting)的最大特点是:客户端脚本调用服务器脚本时无需刷新整个页面。一般情况  下,Web页面需要与服务器交互时必须提交表单数据,刷新整个页面。这不仅不利于...
  • u014739784
  • u014739784
  • 2014年04月25日 09:35
  • 380
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:ASP常用函数
举报原因:
原因补充:

(最多只允许输入30个字)