借助JSP的思想来做ASP

发布时间：2023-07-21 14:06:19 所属栏目：Asp教程来源：

导读：程序的功能有了个大体的框架，其实可以自己添加一些功能，比如开始的数据库连接，可以先设置

　　变量然后通过INIT() 来选择不同类型的数据库

　　<%

　　’On Error Resume Next

　　Class C

程序的功能有了个大体的框架，其实可以自己添加一些功能，比如开始的数据库连接，可以先设置

　　变量然后通过INIT() 来选择不同类型的数据库

　　<%

　　’On Error Resume Next

　　Class ConnEx

　　public ConnEx

　　public DBpath ’---------数据库路径

　　public DBType ’---------数据库类型 1(Access) 2(SqlServer) 3(可扩充)

　　public ConnMethod ’--------连接方式（DSN，非DSN）

　　public User

　　public Pass

　　Sub Class_initialize

　　End Sub

　　Sub Init()

　　ConnStr = "Driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("Date.mdb")

　　Set ConnEx = Server.Createobject("ADODB.CONNECTION")

　　ConnEx.Open ConnStr

　　CatchError("Class_Terminate")

　　End Sub

　　Sub CatchError( Str )

　　If Err Then

　　Err.Clear

　　Class_Terminate()

　　Response.Write("捕捉到错误,程序结束!在"&Str&"处")

　　Response.End()

　　End If

　　End Sub

　　’******************************************

　　’*通过SQL语句来查找记录是否存在,容易出错

　　’******************************************

　　Function HasRecordBySql( Sql )

　　Call CheckSql(Sql,"R")

　　Dim Rs,HasR

　　Set Rs = ConnEx.Execute( Sql )

　　CatchError("HasReordSql")

　　If Not (Rs.eof Or Rs.bof) Then

　　HasR = False

　　Else

　　HasR = True

　　End If

　　Rs.Close

　　Set Rs = Nothing

　　HasRecordBySql = HasR

　　End Function

　　’***************************************

　　’*通过ID来查找记录是否存在

　　’***************************************

　　Function HasRecordById( StrTableName , IntID )

　　’CheckValue( IntID , 1 )

　　Dim Rs,HasR

　　Sql = "Select top 1 * from "&StrTableName&" Where Id = "&IntID

　　Call CheckSql(Sql,"R")

　　Set Rs = ConnEx.Execute(Sql)

　　CatchError("HasRecordByID")

　　If Not (Rs.eof Or Rs.bof) Then

　　HasR = False

　　Else

　　HasR = True

　　End If

　　Rs.close

　　Set Rs = Nothing

　　HasRecordById = HasR

　　End Function

　　’**********************************************

　　’*通过SQL语句取得记录集

　　’**********************************************

　　Function GetRsBySql( Sql )

　　Call CheckSql(Sql,"R")

　　Dim Rs

　　Set Rs = Server.CreateObject("Adodb.RecordSet")

　　Rs.Open Sql,ConnEx,1,1

　　Set GetRsBySql = Rs

　　End Function

　　’*********************************************

　　’*取得某个字段的值

　　’*********************************************

　　Function GetValueBySql( Sql )

　　Call CheckSql(Sql,"R")

　　Dim Rs,ReturnValue

　　Set Rs = ConnEx.Execute(Sql)

　　CatchError("GetValueBySql")

　　If Not( Rs.Eof Or Rs.Bof ) Then

　　ReturnValue = Rs(0)

　　Else

　　ReturnValue = "没有记录"

　　End If

　　Rs.Close

　　Set Rs = Nothing

　　GetValueBySql = ReturnValue

　　End Function

　　’　　　　==================================================Update,Insert

　　’*********************************************

　　’*利用SQL修改数据

　　’*********************************************

　　Function UpdateBySql( Sql )

　　Call CheckSql(Sql,"w")

　　ConnEx.Execute(Sql)

　　CatchError("UpdateBySql")

　　UpdateBySql = True

　　End Function

　　’********************************************

　　’*利用SQL语句插入数据

　　’********************************************

　　Function InsertBySql(Sql)

　　Call CheckSql(Sql,"w")

　　ConnEx.Execute(Sql)

　　CatchError("InsertBySql")

　　InsertBySql = True

　　End Function

　　’======================================Delete============

　　’********************************************

　　’*通过SQL语句删除

　　’********************************************

　　Function DeleteBySql( Sql )

　　Call CheckSql(Sql,"D")

　　ConnEx.Execute(Sql)

　　CatchError("DeleteBySql")

　　DeleteBySql = True

　　End Function

　　’********************************************

　　’*检查SQL语句权限，根据标志Flag 来检测语句拥有的权限

　　’********************************************

　　Sub CheckSql( Sql , Flag )

　　Dim StrSql,SinCounts,DouCounts,i

　　StrSql = Lcase(Sql)

　　SinCounts = 0

　　DouCounts = 0

　　For i = 1 to Len(StrSql)

　　If Mid(StrSql,i,1) = "’" Then SinCounts = SinCounts + 1

　　If Mid(StrSql,i,1) = """" Then DouConnts = DouCounts + 1

　　Next

　　If (SinCounts Mod 2) <> 0 Or (DouCounts Mod 2) <> 0 Or Instr(StrSql,";") > 0 Then

　　Call Class_Terminate()

　　Response.Write("SQL语法错误!")

　　Response.End()

　　End If

　　Select Case Flag

　　Case "R","r":

　　If Instr(StrSql,"delete") > 0 Or Instr(StrSql,"update") Or Instr(StrSql,"drop") > 0 Or Instr(StrSql,"insert") > 0 Then

　　Class_Terminate()

　　Response.Write("权限不足,没有执行写操作的权限")

　　Response.End()

　　End If

　　Case "W","w":

　　If Instr(StrSql,"delete") > 0 Or Instr(StrSql,"drop") > 0 Or Instr(StrSql,"select") > 0 Then

　　Class_Terminate()

　　Response.Write("权限不足，没有执行删除操作的权限")

　　Response.End()

　　End If

　　Case "D","d":

　　Case Else:

　　Response.Write("函数CheckSql标志错误!")

　　End Select

　　End Sub

　　Sub Class_Terminate

　　If Not IsEmpty(FriendConn) Then

　　FriendConn.Close

　　Set FriendConn = Nothing

　　CatchError()

　　End If

　　End Sub

　　End Class

　　%>

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!