浅谈利用JSP编程思想来做ASP编程

JSP(Java Server Page)与ASP(Active Server Page)两者都是常用的动态网页技术，也都是可以嵌入HTML中的程序，JSP编程思想与ASP也差不多。但两者是有着本质的不同，主要从以下几个方面对其进行比较：

我们提供的服务有：成都做网站、网站设计、微信公众号开发、网站优化、网站认证、罗江ssl等。为千余家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的罗江网站制作公司

（1）Web服务器的支持：大多数通用的 Web服务器如：Apache、Netscape和Microsoft IIS都支持JSP页面，只有微软本身的Microsoft IIS和Personal Web Server可以支持ASP。

（2）平台的支持：JSP具有平台独立性，只要是一般的Java程序可以运行的平台，都支持JSP程序。Windows平台可以很好的支持ASP,但ASP对于基于Win32逐渐模型的依赖，使得它难于一直到其它平台上。

（3）组件模型：JSP是建立在可重用的、跨平台的组件（如：JavaBeans、Enterprises JavaBeans 和用户定制的标签库等组件）之上的，而ASP使用的是基于Win32的COM组件模型。

（4）脚本语言：JSP可以使用Java编程语言或JavaScript作为脚本语言，而ASP使用VBScript或Jscript作为脚本语言。

（5）安全性：JSP使用Java安全模型，而ASP使用Windows NT的安全结构。

（6）与Access数据库的连接：JSP使用JDBC建立与Access数据库的连接，而ASP对Access数据库使用Data Active Objects。

（7）用户定制的标签：JSP可以使用用户定制标签库进行扩充，而ASP中没有用户定制标签库，ASP是不能扩充的。

下面的程式功能有了个大体的FRAME，其实可以自己添加一些功能，比如开始的Datcbase连接 ，可以先设置变量然后通过INIT() 来选择不同TYPE的Datcbase。

 
 
 
      
  
  
  1. <%   
    2.   
  
  
  2. ’On Error Resume Next   
    3.   
  
  
  3. Class ConnEx   
    4.   
  
  
  4. publiC ConnEx   
    5.   
  
  
  5. publiC DBpath ’---------Datcbase路径   
    6.   
  
  
  6. publiC DBtype ’---------DatcbaseTYPE 1(ACCess) 2(SqlServer) 3(可扩充)   
    7.   
  
  
  7. publiC ConnMethod ’--------连接方式 （DSN，非DSN）   
    8.   
  
  
  8. publiC User   
    9.   
  
  
  9. publiC Pass   
    10.   
  
  
  10. Sub Class_initialize   
    11.   
  
  
  11. End Sub   
    12.   
  
  
  12.  
    13.   
  
  
  13. Sub Init()   
    14.   
  
  
  14. ConnStr = "Driver={MiCrosoft ACCess Driver (*.mdb)};dbq="&Server.MapPath("Date.mdb")   
    15.   
  
  
  15. Set ConnEx = Server.CreateobjeCt("ADODB.CONNECTION")   
    16.   
  
  
  16. ConnEx.Open ConnStr   
    17.   
  
  
  17. CatChError("Class_Terminate")   
    18.   
  
  
  18. End Sub   
    19.   
  
  
  19.  
    20.   
  
  
  20. Sub CatChError( Str )   
    21.   
  
  
  21. If Err Then   
    22.   
  
  
  22. Err.Clear   
    23.   
  
  
  23. Class_Terminate()   
    24.   
  
  
  24. Response.Write("捕捉到错误,程式结束!在"&Str&"处")   
    25.   
  
  
  25. Response.End()   
    26.   
  
  
  26. End If   
    27.   
  
  
  27. End Sub   
    28.   
  
  
  28.  
    29.   
  
  
  29. ’******************************************   
    30.   
  
  
  30. ’*通过SQL语言规则语句来查找记录是否存在,容易出错   
    31.   
  
  
  31. ’******************************************   
    32.   
  
  
  32.  
    33.   
  
  
  33. FunCtion HasReCordBySql( Sql )   
    34.   
  
  
  34. Call CheCkSql(Sql,"R")   
    35.   
  
  
  35. Dim Rs,HasR   
    36.   
  
  
  36. Set Rs = ConnEx.ExeCute( Sql )   
    37.   
  
  
  37. CatChError("HasReordSql")   
    38.   
  
  
  38. If Not (Rs.eof Or Rs.bof) Then   
    39.   
  
  
  39. HasR = False   
    40.   
  
  
  40. Else   
    41.   
  
  
  41. HasR = True   
    42.   
  
  
  42. End If   
    43.   
  
  
  43. Rs.Close   
    44.   
  
  
  44. Set Rs = Nothing   
    45.   
  
  
  45. HasRHasReCordBySql = HasR   
    46.   
  
  
  46. End FunCtion   
    47.   
  
  
  47.  
    48.   
  
  
  48. ’***************************************   
    49.   
  
  
  49. ’*通过ID来查找记录是否存在   
    50.   
  
  
  50. ’***************************************   
    51.   
  
  
  51.  
    52.   
  
  
  52. FunCtion HasReCordById( StrTableName , IntID )   
    53.   
  
  
  53. ’CheCkValue( IntID , 1 )   
    54.   
  
  
  54. Dim Rs,HasR   
    55.   
  
  
  55. Sql = "SeleCt top 1 * from "&StrTableName&" Where Id = "&IntID   
    56.   
  
  
  56. Call CheCkSql(Sql,"R")   
    57.   
  
  
  57. Set Rs = ConnEx.ExeCute(Sql)   
    58.   
  
  
  58. CatChError("HasReCordByID")   
    59.   
  
  
  59. If Not (Rs.eof Or Rs.bof) Then   
    60.   
  
  
  60. HasR = False   
    61.   
  
  
  61. Else   
    62.   
  
  
  62. HasR = True   
    63.   
  
  
  63. End If   
    64.   
  
  
  64. Rs.Close   
    65.   
  
  
  65. Set Rs = Nothing   
    66.   
  
  
  66. HasRHasReCordById = HasR   
    67.   
  
  
  67. End FunCtion   
    68.   
  
  
  68.  
    69.   
  
  
  69. ’**********************************************   
    70.   
  
  
  70. ’*通过SQL语言规则语句取得记录集   
    71.   
  
  
  71. ’**********************************************   
    72.   
  
  
  72. FunCtion GetRsBySql( Sql )   
    73.   
  
  
  73. Call CheCkSql(Sql,"R")   
    74.   
  
  
  74. Dim Rs   
    75.   
  
  
  75. Set Rs = Server.CreateObjeCt("Adodb.ReCordSet")   
    76.   
  
  
  76. Rs.Open Sql,ConnEx,1,1   
    77.   
  
  
  77. Set GetRsBySql = Rs   
    78.   
  
  
  78. End FunCtion   
    79.   
  
  
  79.  
    80.   
  
  
  80. ’*********************************************   
    81.   
  
  
  81. ’*取得某个字段的value   
    82.   
  
  
  82. ’*********************************************   
    83.   
  
  
  83. FunCtion GetValueBySql( Sql )   
    84.   
  
  
  84. Call CheCkSql(Sql,"R")   
    85.   
  
  
  85. Dim Rs,ReturnValue   
    86.   
  
  
  86. Set Rs = ConnEx.ExeCute(Sql)   
    87.   
  
  
  87. CatChError("GetValueBySql")   
    88.   
  
  
  88. If Not( Rs.Eof Or Rs.Bof ) Then   
    89.   
  
  
  89. ReturnValue = Rs(0)   
    90.   
  
  
  90. Else   
    91.   
  
  
  91. ReturnValue = "没有记录"   
    92.   
  
  
  92. End If   
    93.   
  
  
  93. Rs.Close   
    94.   
  
  
  94. Set Rs = Nothing   
    95.   
  
  
  95. GetValueBySql = ReturnValue   
    96.   
  
  
  96. End FunCtion   
    97.   
  
  
  97.  
    98.   
  
  
  98. ’============================Update,Insert====================  
    99.   
  
  
  99.  
    100.   
  
  
  100. ’*********************************************   
    101.   
  
  
  101. ’*利用SQL语言规则修改Data   
    102.   
  
  
  102. ’*********************************************   
    103.   
  
  
  103. FunCtion UpdateBySql( Sql )   
    104.   
  
  
  104. Call CheCkSql(Sql,"w")   
    105.   
  
  
  105. ConnEx.ExeCute(Sql)   
    106.   
  
  
  106. CatChError("UpdateBySql")   
    107.   
  
  
  107. UpdateBySql = True   
    108.   
  
  
  108. End FunCtion   
    109.   
  
  
  109.  
    110.   
  
  
  110. ’********************************************   
    111.   
  
  
  111. ’*利用SQL语言规则语句插入Data   
    112.   
  
  
  112. ’********************************************   
    113.   
  
  
  113. FunCtion InsertBySql(Sql)   
    114.   
  
  
  114. Call CheCkSql(Sql,"w")   
    115.   
  
  
  115. ConnEx.ExeCute(Sql)   
    116.   
  
  
  116. CatChError("InsertBySql")   
    117.   
  
  
  117. InsertBySql = True   
    118.   
  
  
  118. End FunCtion   
    119.   
  
  
  119.  
    120.   
  
  
  120. ’=====================Delete=====================  
    121.   
  
  
  121.  
    122.   
  
  
  122. ’********************************************   
    123.   
  
  
  123. ’*通过SQL语言规则语句删除   
    124.   
  
  
  124. ’********************************************   
    125.   
  
  
  125. FunCtion DeleteBySql( Sql )   
    126.   
  
  
  126. Call CheCkSql(Sql,"D")   
    127.   
  
  
  127. ConnEx.ExeCute(Sql)   
    128.   
  
  
  128. CatChError("DeleteBySql")   
    129.   
  
  
  129. DeleteBySql = True   
    130.   
  
  
  130. End FunCtion   
    131.   
  
  
  131.  
    132.   
  
  
  132. ’********************************************   
    133.   
  
  
  133. ’*检查SQL语言规则语句权限，根据标志Flag 来检测语句拥有的权限   
    134.   
  
  
  134. ’********************************************   
    135.   
  
  
  135. Sub CheCkSql( Sql , Flag )   
    136.   
  
  
  136. Dim StrSql,SinCounts,DouCounts,i   
    137.   
  
  
  137. StrSql = LCase(Sql)   
    138.   
  
  
  138. SinCounts = 0   
    139.   
  
  
  139. DouCounts = 0   
    140.   
  
  
  140. For i = 1 to Len(StrSql)   
    141.   
  
  
  141. If Mid(StrSql,i,1) = "’" Then SinCountsSinCounts = SinCounts + 1   
    142.   
  
  
  142. If Mid(StrSql,i,1) = """" Then DouConnts = DouCounts + 1   
    143.   
  
  
  143. Next   
    144.   
  
  
  144.  
    145.   
  
  
  145. If (SinCounts Mod 2) <> 0 Or (DouCounts Mod 2) <> 0 Or Instr(StrSql,";") > 0 Then   
    146.   
  
  
  146. Call Class_Terminate()   
    147.   
  
  
  147. Response.Write("SQL语言规则语言规则错误!")   
    148.   
  
  
  148. Response.End()   
    149.   
  
  
  149. End If   
    150.   
  
  
  150. SeleCt Case Flag   
    151.   
  
  
  151. Case "R","r":   
    152.   
  
  
  152. If Instr(StrSql,"delete") > 0 Or Instr(StrSql,"update") Or Instr(StrSql,"drop") > 0 Or Instr(StrSql,"insert") > 0 Then   
    153.   
  
  
  153. Class_Terminate()   
    154.   
  
  
  154. Response.Write("权限不足,没有运行写操作的权限")   
    155.   
  
  
  155. Response.End()   
    156.   
  
  
  156. End If   
    157.   
  
  
  157. Case "W","w":   
    158.   
  
  
  158. If Instr(StrSql,"delete") > 0 Or Instr(StrSql,"drop") > 0 Or Instr(StrSql,"seleCt") > 0 Then   
    159.   
  
  
  159. Class_Terminate()   
    160.   
  
  
  160. Response.Write("权限不足，没有运行删除操作的权限")   
    161.   
  
  
  161. Response.End()   
    162.   
  
  
  162. End If   
    163.   
  
  
  163. Case "D","d":   
    164.   
  
  
  164. Case Else:   
    165.   
  
  
  165. Response.Write("参数CheCkSql标志错误!")   
    166.   
  
  
  166. End SeleCt   
    167.   
  
  
  167. End Sub   
    168.   
  
  
  168.  
    169.   
  
  
  169. Sub Class_Terminate   
    170.   
  
  
  170. If Not IsEmpty(FriendConn) Then   
    171.   
  
  
  171. FriendConn.Close   
    172.   
  
  
  172. Set FriendConn = Nothing   
    173.   
  
  
  173. CatChError()   
    174.   
  
  
  174. End If   
    175.   
  
  
  175. End Sub   
    176.   
  
  
  176. End Class   
    177.   
  
  
  177. %> 
    178.

利用JSP编程思想来做ASP编程就为大家介绍到这里。

【编辑推荐】

  1. 构造JSP和Javabean开发和发布环境的方法
  2. JSP设计模式浅析
  3. 什么是JSP以及其强弱势
  4. JSP页面Tomcat提高性能之王道
  5. JSP教程基础之脚本的使用

标题名称：浅谈利用JSP编程思想来做ASP编程
网页链接：http://www.shufengxianlan.com/qtweb/news1/82851.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联

猜你还喜欢下面的内容

软件开发知识

行业网站建设

做网站设计　　 　大英网站建设　　 　自贡主机托管　　 　什邡网站建设　　 　网站推广　　 　成都SEO优化公司　　 　轻质隔墙板　　 　小程序开发　　 　营山网站建设　　 　百度关键词排名　　 　乐山石膏隔墙　　 　成都雨棚定制　　 　成都店面装修公司　　 　盐亭网站制作公司　　 　云服务器香港　　 　定制网站　　 　php空间　　 　四川艾名斯　　 　成都网站推广　　 　成都木托盘