知识大全利用JSP的思想来做ASP

Posted 2022-07-18 语句

篇首语：学而不厌，诲人不倦。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全利用JSP的思想来做ASP相关的知识，希望对你有一定的参考价值。

asp提高篇：利用JSP的思想来做ASP 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

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

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

　　<% On Error Resume NextClass ConnExpublic ConnExpublic DBpath 数据库路径public DBtype 数据库类型 (Access) (SqlServer) (可扩充)public ConnMethod 连接方式（DSN 非DSN）public Userpublic PassSub Class_initializeEnd Sub

　　Sub Init()ConnStr = Driver=Microsoft Access Driver (* mdb);dbq= &Server MapPath( Date mdb )Set ConnEx = Server Createobject( ADODB CONNECTION )ConnEx Open ConnStrCatchError( Class_Terminate )End Sub

　　Sub CatchError( Str )If Err ThenErr ClearClass_Terminate()Response Write( 捕捉到错误程序结束!在 &Str& 处 )Response End()End IfEnd Sub

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

　　Function HasRecordBySql( Sql )Call CheckSql(Sql R )Dim Rs HasRSet Rs = ConnEx Execute( Sql )CatchError( HasReordSql )If Not (Rs eof Or Rs bof) ThenHasR = FalseElseHasR = TrueEnd IfRs CloseSet Rs = NothingHasRecordBySql = HasREnd Function

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

　　Function HasRecordById( StrTableName IntID ) CheckValue( IntID )Dim Rs HasRSql = Select top * from &StrTableName& Where Id = &IntIDCall CheckSql(Sql R )Set Rs = ConnEx Execute(Sql)CatchError( HasRecordByID )If Not (Rs eof Or Rs bof) ThenHasR = FalseElseHasR = TrueEnd IfRs closeSet Rs = NothingHasRecordById = HasREnd Function

　　 ********************************************** *通过SQL语句取得记录集 **********************************************Function GetRsBySql( Sql )Call CheckSql(Sql R )Dim RsSet Rs = Server CreateObject( Adodb RecordSet )Rs Open Sql ConnEx Set GetRsBySql = RsEnd Function

　　 ********************************************* *取得某个字段的值 *********************************************Function GetValueBySql( Sql )Call CheckSql(Sql R )Dim Rs ReturnValueSet Rs = ConnEx Execute(Sql)CatchError( GetValueBySql )If Not( Rs Eof Or Rs Bof ) ThenReturnValue = Rs( )ElseReturnValue = 没有记录 End IfRs CloseSet Rs = NothingGetValueBySql = ReturnValueEnd Function

　　 ======================Update Insert===================================

　　 ********************************************* *利用SQL修改数据 *********************************************Function UpdateBySql( Sql )Call CheckSql(Sql w )ConnEx Execute(Sql)CatchError( UpdateBySql )UpdateBySql = TrueEnd Function

　　 ******************************************** *利用SQL语句插入数据 ********************************************Function InsertBySql(Sql)Call CheckSql(Sql w )ConnEx Execute(Sql)CatchError( InsertBySql )InsertBySql = TrueEnd Function

　　 ======================Delete========================================

　　 ******************************************** *通过SQL语句删除 ********************************************Function DeleteBySql( Sql )Call CheckSql(Sql D )ConnEx Execute(Sql)CatchError( DeleteBySql )DeleteBySql = TrueEnd Function

　　 ******************************************** *检查SQL语句权限根据标志Flag 来检测语句拥有的权限 ********************************************Sub CheckSql( Sql Flag )Dim StrSql SinCounts DouCounts iStrSql = Lcase(Sql)SinCounts = DouCounts = For i = to Len(StrSql)If Mid(StrSql i ) = Then SinCounts = SinCounts + If Mid(StrSql i ) = Then DouConnts = DouCounts + Next

　　If (SinCounts Mod ) <> Or (DouCounts Mod ) <> Or Instr(StrSql ; ) > ThenCall Class_Terminate()Response Write( SQL语法错误! )Response End()End IfSelect Case FlagCase R r :If Instr(StrSql delete ) > Or Instr(StrSql update ) Or Instr(StrSql drop ) > Or Instr(StrSql insert ) > ThenClass_Terminate()Response Write( 权限不足没有执行写操作的权限 )Response End()End IfCase W w :If Instr(StrSql delete ) > Or Instr(StrSql drop ) > Or Instr(StrSql select ) > ThenClass_Terminate()Response Write( 权限不足没有执行删除操作的权限 )Response End()End IfCase D d :Case Else:Response Write( 函数CheckSql标志错误! )End SelectEnd Sub

cha138/Article/program/net/201311/11318

知识大全 利用JSP的思想来做ASP

知识大全利用JSP的思想来做ASP