ASP常用的函数

原创 2004年07月08日 20:42:00

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

ASP常用的函数模块 http://www.cnblogs.com/cnnix/archive/2006/07/16/452286.html

****************************************************************本作品来自网络,版权归原作者所有。如有异议,请留言。**********...
  • chief1985
  • chief1985
  • 2007年11月27日 18:06
  • 1383

asp中格式化时间的函数

该函数作用:按指定参数格式化显示时间。numformat=1:将时间转化为yyyy-mm-dd hh:nn格式。numformat=2:将时间转化为yyyy-mm-dd格式。numformat=3:将...
  • JesseW
  • JesseW
  • 2007年04月09日 15:05
  • 741

ASP六大对象常用语句示范

Response:Response.write StrVar/"String":向网页写出参数值或字符串  等同于在Html标记中嵌入 Response.End:停止页面编译,并将已经编译内容输出到浏...
  • feng19821209
  • feng19821209
  • 2005年08月25日 14:59
  • 1191

ASP常用的函数

 ASP常用的函数,希望能用的着。 dim db db="dbms.mdb" *************************************************************...
  • colayungnew
  • colayungnew
  • 2004年10月06日 09:19
  • 519

asp常用所有函数

1.函数array()  功能:创建一个数组变量  格式:array(list)  参数:list 为数组变量中的每个数值列,中间用逗号间隔  例子:  <% i = array ("1","2...
  • abandonship
  • abandonship
  • 2005年01月27日 12:31
  • 1143

常用ASP函数

Array()   FUNCTION: 返回一个数组   SYNTAX: Array(list)   ARGUMENTS: 字符,数字均可   EXAMPLE: Dim myArray() For i...
  • flashlm
  • flashlm
  • 2007年07月07日 21:40
  • 481

Asp 时间格式化函数 FormatDateTime

asp里面有一个超好用的格式化函数:FormatDateTime像 2007-90-3这样的格式只有用 FormatDateTime(Date,2)就好了,呵呵。这是一个系统系函数! 描述 返回表达式...
  • szsbell
  • szsbell
  • 2007年09月26日 15:10
  • 1596

一些常用的Asp函数

  • shunzi110
  • shunzi110
  • 2006年01月04日 00:11
  • 790

asp 中 mid函数的用法

从字符串中返回指定数目的字符。Mid(string, start, length) 参数 string 字符串表达式,从中返回字符。如果 string 包含 Null,则返回 Null。 St...
  • fjnu2008
  • fjnu2008
  • 2010年05月20日 16:23
  • 3684

ASP常用的函数 [转]

 ASP常用的函数,希望能用的着。 dim db db="dbms.mdb" *************************************************************...
  • soft_bird
  • soft_bird
  • 2005年03月09日 10:55
  • 414
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:ASP常用的函数
举报原因:
原因补充:

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