• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    ASP常用的函数
    ASP常用的函数,希望能用的着。

    %
    dim db
    db="dbms.mdb"

    '******************************************************************
    '执行sql语句,不返回值,sql语句最好是如下:
    'update 表名 set 字段名=value,字段名=value where 字段名=value
    'delete from 表名 where 字段名=value
    'insert into 表名 (字段名,字段名) values (value,value)
    '******************************************************************
    Sub NoResult(sql)
    dim conn
    dim connstr
    Set conn = Server.CreateObject("ADODB.Connection")
    connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" Server.MapPath(""db"")
    conn.Open connstr
    conn.execute sql
    conn.close
    set conn=nothing
    End Sub

    '*******************************************************************
    '执行select语句,返回recordset对象。该对象只读。也就是不能更新
    '*******************************************************************
    Function Result(sql)
    dim conn
    dim connstr
    dim rcs
    Set conn = Server.CreateObject("ADODB.Connection")
    connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" Server.MapPath(""db"")
    conn.Open connstr
    Set rcs = Server.CreateObject("ADODB.Recordset")
    rcs.open sql,conn,1,1
    set Result = rcs
    End Function

    '*******************************************************************
    ' 弹出对话框
    '*******************************************************************
    Sub alert(message)
    message = replace(message,"'","\'")
    Response.Write ("script>alert('" message "')/script>")
    End Sub

    '*******************************************************************
    ' 返回上一页,一般用在判断信息提交是否完全之后
    '*******************************************************************
    Sub GoBack()
    Response.write ("script>history.go(-1)/script>")
    End Sub

    '*******************************************************************
    ' 重定向另外的连接
    '*******************************************************************
    Sub Go(url)
    Response.write ("script>location.href('" url "')/script>")
    End Sub

    '*******************************************************************
    ' 把html标记替换
    '*******************************************************************

    function htmlencode2(str)
    dim result
    dim l
    if isNULL(str) then
    htmlencode2=""
    exit function
    end if
    l=len(str)
    result=""
    dim i
    for i = 1 to l
    select case mid(str,i,1)
    case ""
    result=result+"lt;"
    case ">"
    result=result+"gt;"
    case chr(13)
    result=result+"br>"
    case chr(34)
    result=result+"quot;"
    case ""
    result=result+""
    case chr(32)
    'result=result+"nbsp;"
    if i+1=l and i-1>0 then
    if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9) then
    result=result+"nbsp;"
    else
    result=result+" "
    end if
    else
    result=result+"nbsp;"
    end if
    case chr(9)
    result=result+" "
    case else
    result=result+mid(str,i,1)
    end select
    next
    htmlencode2=result
    end function

    '*******************************************************************
    ' 检查sql字符串中是否有单引号,有则进行转化
    '*******************************************************************
    function CheckStr(str)
    dim tstr,l,i,ch
    str = Trim(str)
    l=len(str)
    for i=1 to l
    ch=mid(str,i,1)
    if ch="'" then
    tstr=tstr+"'"
    end if
    tstr=tstr+ch
    next
    CheckStr=tstr
    end function
    %>

    上一篇:IE功能汇总
    下一篇:一个非常简单的将半角转换为中文的函数
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    ASP常用的函数 ASP,常用的,常,用的,函数,