Html 经典asp连接

Html 经典asp连接,html,sql,vbscript,asp-classic,Html,Sql,Vbscript,Asp Classic,您将如何通过不同的网页获取连接的用户输入。这是通过会话变量实现的,还是有其他方法实现的。我不想在每个网页上都建立连接,有人能给我指出正确的方向去做一些研究吗 下面是一段来自一个网站的代码,该网站上根本没有任何连接字符串 obj_ADO.ClearParameters lng_RecSet1 = obj_ADO.GetFreeRecordset obj_ADO.Recordset "A_combo_Permissions_select", adCmdStoredProc, obj_Session.

您将如何通过不同的网页获取连接的用户输入。这是通过会话变量实现的,还是有其他方法实现的。我不想在每个网页上都建立连接,有人能给我指出正确的方向去做一些研究吗

下面是一段来自一个网站的代码,该网站上根本没有任何连接字符串

obj_ADO.ClearParameters
lng_RecSet1 = obj_ADO.GetFreeRecordset
obj_ADO.Recordset "A_combo_Permissions_select", adCmdStoredProc, obj_Session.int_CommandTimeout, lng_RecSet1
while obj_ADO.EOF(lng_RecSet1) = 0

如果str_Action=obj_Session.str_FileName或len(str_Action)=0或str_Action=str_SwitchLangText,则

obj_ADO.ClearParameters
obj_ADO.AddParameter "SessionID", adChar, adParamInput, len(obj_Session.str_SessionID), obj_Session.str_SessionID
obj_ADO.AddParameter "PermissionID", adInteger, adParamInput, 8, lng_PermissionID
lng_RecSet = obj_ADO.GetFreeRecordset
obj_ADO.Recordset "A_PagePermissions_select", adCmdStoredProc, obj_Session.int_CommandTimeout, lng_RecSet

数据库连接

采用自定义库是正常的,它至少作为
打开连接
执行查询
关闭连接

例如:

<%
    '' Database file database.asp

    Sub openDB(query, objConn, objRS)

        Set objConn = Server.CreateObject("ADODB.Connection")
        objConn.ConnectionString = "DSN=myCONNECTION.dsn"
        objConn.Open

        Set objRS = Server.CreateObject("ADODB.Recordset")
        objRS.Open query, objConn

    End Sub

    Sub CloseRs(objRS)

        objRS.Close
        Set objRS = Nothing

    End Sub

    Sub CloseDb(objConn)

        objConn.Close
        Set objConn = Nothing

    End Sub

%>

更多

数据库连接

采用自定义库是正常的,它至少作为
打开连接
执行查询
关闭连接

例如:

<%
    '' Database file database.asp

    Sub openDB(query, objConn, objRS)

        Set objConn = Server.CreateObject("ADODB.Connection")
        objConn.ConnectionString = "DSN=myCONNECTION.dsn"
        objConn.Open

        Set objRS = Server.CreateObject("ADODB.Recordset")
        objRS.Open query, objConn

    End Sub

    Sub CloseRs(objRS)

        objRS.Close
        Set objRS = Nothing

    End Sub

    Sub CloseDb(objConn)

        objConn.Close
        Set objConn = Nothing

    End Sub

%>

更多

我想你指的是数据库连接?如果是这样的话,您不应该在会话变量中存储任何ADO对象;它不能扩展&因为它们是单元线程,所以不能使用线程池

需要时,您应该在每页上连接和断开连接(即通常只连接一次)。

幕后意味着它的影响比你想象的要小。

我想你指的是数据库连接?如果是这样的话,您不应该在会话变量中存储任何ADO对象;它不能扩展&因为它们是单元线程,所以不能使用线程池

需要时,您应该在每页上连接和断开连接(即通常只连接一次)。

幕后意味着它的影响比你想象的要小。

不一定,ASP<代码>会话对象是在整个用户会话中保留变量,而您仍然拥有整个网站的
应用程序
变量。。。哦,等等,这就是他要问的吗?我想你可能不仅把棍子的一端弄错了,而且把棍子也弄错了:-)只是现在我看到了
sql
标签,呵呵呵呵——我的坏!不一定,ASP中有一个会话对象<代码>会话对象是在整个用户会话中保留变量,而您仍然拥有整个网站的
应用程序
变量。。。哦,等等,这就是他要问的吗?我想你可能不仅把棍子的一端弄错了,而且把棍子也弄错了:-)只是现在我看到了
sql
标签,呵呵呵呵——我的坏!
<%
    If Session("user-login") = True Then
        Response.Redirect("NotAuthorized.asp")
    End if
%>
<!--#include file="header.inc"-->
...