威凡网全力打造:网页编程、软件开发编程、平面设计、服务器端开发、操作系统等在线学习平台!学编程,上威凡网!
ASP教程>> ASP基础 应用技巧 数据库相关 ASP类 存储过程 FSO专栏 ASP其他
当前位置:首页 > ASP教程 > FSO专栏
上一节 下一节
 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+"<"
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
%>


申明:本教程内容由威凡网编辑整理并提供IT程序员分享学习,如文中有侵权行为,请与站长联系(QQ:254677821)!
上一节 下一节
相关教程  
其他教程  
ASP基础
应用技巧
数据库相关
ASP类
存储过程
FSO专栏
ASP其他

违法和不良信息举报中心】邮箱:254677821@qq.com
Copyright©威凡网 版权所有 苏ICP备2023020142号
站长QQ:254677821