常用函数

原创 2004年08月11日 12:17:00

<%
 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+"&amp;"
              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
%>

vb常用函数一览表

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

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

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

LoadRunner常用函数列表

1.        Intweb_reg_save_param("参数名","LB=左边界","RB=右边界",LAST);/注册函数,在参数值出现的前面使用,注册成功时返回值为0,注册失败时返回值为...
  • huangjin0507
  • huangjin0507
  • 2016年08月08日 15:25
  • 2817

常用的jquery函数总结

1、表单验证 2、$.post 3、
  • qq_16465949
  • qq_16465949
  • 2014年08月08日 12:04
  • 898

【VB.NET】常用函数概览

写在前面的 函数的功能及其用法 Asc函数与Chr函数 Mid函数Right函数和Left函数 Format函数 Replace函数 Instr函数 Space函数 Filter函数 IsNumeri...
  • SugaryoTT
  • SugaryoTT
  • 2016年03月20日 11:45
  • 1299

MySQL常用函数

MySQL常用函数表 数学函数 作用 ABS(x) 返回x的绝对值 CEIL(x),CEILING(x) 返回大于或者等于x的最小整数 FLOOR(x) 返回小于或者等于...
  • zhangjintao2012
  • zhangjintao2012
  • 2016年07月30日 12:55
  • 1018

windows常用API函数

windows常用API函数   http://www.vbgood.com/api.html http://hi.baidu.com/3582077/item/9cc3483b...
  • farmwang
  • farmwang
  • 2016年01月28日 22:38
  • 6473

常见损失函数

转自:http://blog.csdn.net/shenxiaoming77/article/details/51614601 损失函数(loss function)是用来估量你模型的预测值f(...
  • u014755493
  • u014755493
  • 2017年05月08日 09:21
  • 897

OpenMP中的常用函数

OpenMP中的常用函数
  • jacke121
  • jacke121
  • 2017年03月24日 16:42
  • 178

ACM 头文件大全 常用函数

ACM   头文件大全    常用函数 #include//设定插入点 #include //字符处理 #include//定义错误码 #include //浮点数处理 #in...
  • LiuJiuXiaoShiTou
  • LiuJiuXiaoShiTou
  • 2017年04月09日 21:45
  • 658
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:常用函数
举报原因:
原因补充:

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