从vbscript子返回在ASP页面上导致错误

问题描述

这使我发疯。从此子目录返回时，我的网页上出现错误（“ 500-内部服务器错误。”）。它执行得很好，并且可以执行预期的操作：如果尚未添加事件（EventID），则将用户的记录（MemID）添加到聊天表中。第一个查询是查找是否已经有记录。如果不是，则INSERT语句添加一条记录。子程序运行后发生错误。

Sub NewView (EventID)
    MemID=Session("MemID")
    
    If MemID>0 then
        Set cn5=Server.CreateObject("ADODB.connection")
        cn5.open application("gbConnect")    
        sql="SELECT Chat.MemID,Chat.EventID FROM Chat WHERE Chat.MemID=" & MemID & " AND Chat.EventID=" & EventID & ";"  
        cn5.cursorLocation=3

        Set Rst=cn5.execute(sql)
        
        If Rst.recordcount = 0 then
            Comment="is watching"
            sql="INSERT INTO Chat ( MemID,EventID,Comment ) SELECT " & MemID & "," & EventID & ",'" & Comment & "';"
            cn5.execute(sql)
            Set cn5=nothing
        End If
    End If 
End Sub

在页面上： NewView（EventID）'从此子级返回会导致错误！ “ 500-内部服务器错误。”

解决方法

好。我想到了。我上了一堂关于变量范围的课。在子目录中设置变量Rst（记录集）会破坏主页上的相同变量。现在只需要等待我的头发长出来即可。

asp-classic vbscript vbscript vbscript