无法调用SUB过程,大家进来帮下忙

最新推荐文章于 2024-09-13 00:01:43 发布

piaofouxi6969

最新推荐文章于 2024-09-13 00:01:43 发布

阅读量364

点赞数

本文链接：https://blog.csdn.net/piaofouxi6969/article/details/53988956

版权

本人想在A页面调用B页面的连接数据库的过程    但是经过测试无法调用成功, 如果不调用SUB那么可以成功链接数据库  请问怎么解决  谢谢

不成功的情况
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
A页面

<%
call ConnectionDatabase
%>
B页面
<%
public Sub ConnectionDatabase
  dim conn
  Set conn = Server.CreateObject("ADODB.Connection")
  response.Write Server.MapPath("client.mdb")
  conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("client.mdb")
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "The Sever Is Busy,Please try again..."
Response.End
End If
End Sub
%>;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

成功的情况
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
A页面

<%
'call ConnectionDatabase
%>
B页面
<%
'public Sub ConnectionDatabase
  dim conn
  Set conn = Server.CreateObject("ADODB.Connection")
  response.Write Server.MapPath("client.mdb")
  conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("client.mdb")
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "The Sever Is Busy,Please try again..."
Response.End
End If
'End Sub
%>;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;