最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
ASP常用的函数
时间:2022-06-30 11:45:31 编辑:袖梨 来源:一聚教程网
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 ("")
End Sub
'*******************************************************************
' 返回上一页,一般用在判断信息提交是否完全之后
<%
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 ("")
End Sub
'*******************************************************************
' 返回上一页,一般用在判断信息提交是否完全之后
相关文章
- 火必网app官网正版 05-05
- 币信app官网版 05-05
- 币安网app苹果版 05-05
- 火币网最新版本 05-05
- 香港osl交易所官网版 05-05
- 猫咪斗恶龙2修改器在哪下载 05-05