ASP常用的函数 [转]

最新推荐文章于 2023-12-09 01:43:31 发布

soft_bird

最新推荐文章于 2023-12-09 01:43:31 发布

阅读量540

点赞数

分类专栏： 6.Web 文章标签： asp function sql insert delete url

本文链接：https://blog.csdn.net/soft_bird/article/details/315568

版权

6.Web 专栏收录该内容

16 篇文章 0 订阅

订阅专栏

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+"<"
            case ">"
                 result=result+">"
              case chr(13)
                 result=result+"<br>"
            case chr(34)
                 result=result+"""
            case "&"
                 result=result+"&"
              case chr(32)
                 'result=result+" "
                 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+" "
                    else
                       result=result+" "
                    end if
                 else
                    result=result+" "
                 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
%>