asp源码：利用JSP的思想来做ASP

　　程序的功能有了个大体的框架，其实可以自己添加一些功能，比如开始的数据库连接 ，可以先设置
　　变量然后通过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
　　%>