码迷,mamicode.com
首页 > Web开发 > 详细

asp参数化查询读取写入修改删除完整版

时间:2018-10-10 14:22:49      阅读:210      评论:0      收藏:0      [点我收藏+]

标签:fun   lse   create   help   end   完整   isarray   参数化   bubuko   

asp参数化查询读取写入修改删除完整版

Function SqlHelper(sqlstr,para)
Dim cmd
Set cmd = Server.CreateObject( "ADODB.Command" )
queryType = 0
If Not IsArray(para) Then
If para<>"" Then
para = Array(para)
End If
End If
If Instr(Lcase(Left(sqlstr, 7)),"select ")>0 Then queryType = 1
With cmd
.ActiveConnection = Conn
.CommandType = adCmdText
.CommandText = sqlstr
.Prepared = True
If queryType = 1 Then
conn.CursorLocation = 3 ‘游标服务位置为client时才能返回正确的RecordCount
End If
If IsArray(para) Then
nnn = Ubound(para)
For iii = 0 To nnn
.Parameters(iii).value = Para(iii)
Next
End If
If queryType = 1 Then
Set SqlHelper = .Execute
Else
.Execute affectedRows, , 129
SqlHelper = affectedRows
End If
.ActiveConnection = Nothing
End With
Set Cmd = Nothing
End Function

=============================================

互相学习电话微信:18611436777(加微信注明事由)

技术分享图片

asp参数化查询读取写入修改删除完整版

标签:fun   lse   create   help   end   完整   isarray   参数化   bubuko   

原文地址:https://www.cnblogs.com/lytocnc/p/9765635.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!