Søg
Avatar billede webserv Nybegynder
15. august 2003 - 16:57 Der er 10 kommentarer og
1 løsning

Fjerne to billeder samt hyperlinks

Hej jeg har dette chatroom:
<%
    Response.Expires = 0
    Response.Expiresabsolute = Now() - 1
    Response.AddHeader "pragma","no-cache"
    Response.AddHeader "cache-control","private"
    Response.CacheControl = "no-cache"
    '----------------setup------------------
    Const UserTimeout = 60 ' mins for user's timeout   
    Const Title = "DaChat v.2.5" 'title of web page
    '----------------/setup------------------

    Select Case Request("event")
        Case "login"
            If Request("login") = "" Then
                Response.Redirect "index.asp"
            End If
           
            If ConnectUser(HTMLFormat(Request("login"))) = False Then
                Response.Redirect "index.asp?error=1&username=" & request("login")
            End If
       
            For ln =20 to 2 Step -1
                Application(ln)=Application(ln-1)
            Next
           
            Application("1")="<font color=""#666666""><b>"& Request("login") & "</b> har joinet dette chatroom</font>"
            Response.Redirect "chat.asp"
           
        ' Show ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        Case "show"
            Response.Write  "<meta http-equiv='refresh' content='" & Session("refresh") &"'>"
            Response.Write  "<body bgcolor='#eeeeee'>"
            Response.Write  "<font face='arial,verdana' size='2'>"
            For f=1 to 20
                Response.Write  Application(f) & "<br/>"
            Next
           
        ' Post ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        Case "post"
            For ln =20 to 2 Step -1
                Application(ln)=Application(ln-1)
            Next
           
        ' Smiles are here
            ChatText = HTMLFormat(Request("text"))
            ChatText = Replace(ChatText, ":)", "<img src=""images/smilies/smile1.gif""/>")
            ChatText = Replace(ChatText, ":D", "<img src=""images/smilies/smile2.gif""/>")
            ChatText = Replace(ChatText, ":o","<img src=""images/smilies/smile3.gif""/>")
            ChatText = Replace(ChatText, ":(", "<img src=""images/smilies/smile4.gif""/>")
            ChatText = Replace(ChatText, ";)", "<img src=""images/smilies/smile5.gif""/>")
            ChatText = Replace(ChatText, ":p", "<img src=""images/smilies/smile6.gif""/>")
            ChatText = Replace(ChatText, "8)", "<img src=""images/smilies/smile7.gif""/>")
            ChatText = Replace(ChatText, ":[", "<img src=""images/smilies/smile8.gif""/>")
            ChatText = Replace(ChatText, ":kill:", "<img src=""images/smilies/smile9.gif""/>")
           
            ChatCommand = Lcase(Mid(ChatText, 1, InstrRev(ChatText,":")))
           
            Select Case ChatCommand
                Case "/clear:"
                    For t=1 to 20
                        Application(t) = ""
                    Next
                Case Else
                    CurrentNickName = "<a onClick=""document.chatform.text.focus();"">" & Session("nickname") & "</a>"
                    Application("1")="<b>" & Session("nickname") & ":</b> "& ChatText
            End Select
            x= SetUserSettings(Session("nickname"),"timer",Now)
            Response.Redirect "chat.asp?event=form"
           
        ' Logout ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        Case "logout"
            For ln =20 to 2 Step -1
                Application(ln)=Application(ln-1)
            Next
           
            Application("1")="<font color='#666666'><b>"& Session("nickname") & "</b> har forladt dette chatroom</font>"           
           
            x = DisconnectUser (Session("nickname"))

            Response.Redirect"index.asp"
   
        ' List Users ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
        Case "listusers"
            tmpBuf = tmpBuf & "<meta http-equiv='refresh' content='10'>"
            tmpBuf = tmpBuf & "<link href=""site.css"" rel=""stylesheet"" type=""text/css"">"
            tmpBuf = tmpBuf & "<body bgcolor='#6699CC'>"
            tmpBuf = tmpBuf & ListUsers
            tmpBuf = tmpBuf &"</body>"
            Response.Write tmpBuf
           
        ' Setup ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        Case "setup"           
            tmpBuf = tmpBuf & "<link href=""site.css"" rel=""stylesheet"" type=""text/css"">"
            tmpBuf = tmpBuf & "<body bgcolor=""#ffffff"">"
            tmpBuf = tmpBuf & "<span class=""sitetitle"">Refresh</span>"
            tmpBuf = tmpBuf & "<hr size=""1"" noshade=""noshade"" color=""#cccccc"" />"
            tmpBuf = tmpBuf & "<center>"
            tmpBuf = tmpBuf & "<form action=""chat.asp?event=refresh"" method=""post"" name=""ChatForm"">"
            tmpBuf = tmpBuf & "<select class=""button"" size=""1""  name=""refresh"">"
            For Rfrsh = 5 To 60 Step 10           
                tmpBuf = tmpBuf & "<option value=""" & Rfrsh & """ >" & Rfrsh & "</option>"
            Next
            tmpBuf = tmpBuf & "<option value=""" & Session("refresh") & """ selected>" & Session("refresh") & "</option>"
            tmpBuf = tmpBuf & "</select>"
            tmpBuf = tmpBuf & "<input class=""button"" type=""submit"" value=""Indlæs nye beskeder inden for (sekunder.)"">"
            tmpBuf = tmpBuf & "</form>"
            Response.Write tmpBuf
           
        ' Refresh ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        Case "refresh"
            Session("refresh") = Request("refresh")
            Response.Redirect"chat.asp"   
           
        ' Form ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        Case "form"
            tmpBuf = tmpBuf & "<link href=""site.css"" rel=""stylesheet"" type=""text/css"">"
            tmpBuf = tmpBuf & "<body bgcolor=""#FFffff"" topmargin=""25"">"
            tmpBuf = tmpBuf & "<table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"">"
            tmpBuf = tmpBuf & "<tr>"
            tmpBuf = tmpBuf & "<td>"
            tmpBuf = tmpBuf & "<form action=""chat.asp?event=post"" method=""post"" name=""chatform"">"
            tmpBuf = tmpBuf & "<input class=""field"" type=""text"" name=""text"" size=""50"">"
            tmpBuf = tmpBuf & "<input type=""image"" src=""images/post.gif"" align=""absmiddle"" border=""0"">"
            tmpBuf = tmpBuf & "<br/>"
            ' Smiles ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
            tmpBuf = tmpBuf & " <a onClick=""document.chatform.text.value=':-)'"">"
            tmpBuf = tmpBuf & "<img src=""images/smilies/smile1.gif"" class=""clsCursor"">"
            tmpBuf = tmpBuf & "</a>"
           
            tmpBuf = tmpBuf & " <a onClick=""document.chatform.text.value=':D'"">"
            tmpBuf = tmpBuf & "<img src=""images/smilies/smile2.gif"" class=""clsCursor"">"
            tmpBuf = tmpBuf & "</a>"
           
            tmpBuf = tmpBuf & " <a onClick=""document.chatform.text.value=':o'"">"
            tmpBuf = tmpBuf & "<img src=""images/smilies/smile3.gif"" class=""clsCursor"">"
            tmpBuf = tmpBuf & "</a>"
           
            tmpBuf = tmpBuf & " <a onClick=""document.chatform.text.value=':('"">"
            tmpBuf = tmpBuf & "<img src=""images/smilies/smile4.gif"" class=""clsCursor"">"
            tmpBuf = tmpBuf & "</a>"
           
            tmpBuf = tmpBuf & " <a onClick=""document.chatform.text.value=';)'"">"
            tmpBuf = tmpBuf & "<img src=""images/smilies/smile5.gif"" class=""clsCursor"">"
            tmpBuf = tmpBuf & "</a>"
           
            tmpBuf = tmpBuf & " <a onClick=""document.chatform.text.value=':p'"">"
            tmpBuf = tmpBuf & "<img src=""images/smilies/smile6.gif"" class=""clsCursor"">"
            tmpBuf = tmpBuf & "</a>"
           
            tmpBuf = tmpBuf & " <a onClick=""document.chatform.text.value='8-)'"">"
            tmpBuf = tmpBuf & "<img src=""images/smilies/smile7.gif"" class=""clsCursor"">"
            tmpBuf = tmpBuf & "</a>"
           
            tmpBuf = tmpBuf & " <a onClick=""document.chatform.text.value=':['"">"
            tmpBuf = tmpBuf & "<img src=""images/smilies/smile8.gif"" class=""clsCursor"">"
            tmpBuf = tmpBuf & "</a>"
            '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
            tmpBuf = tmpBuf & "</td>"
            tmpBuf = tmpBuf & "<td width=""120"">"
            tmpBuf = tmpBuf & "<a href=""chat.asp?event=setup"" target=""_top""><img border=""0"" src=""images/setup.gif""></a>"
            tmpBuf = tmpBuf & "<a href=""chat.asp?event=logout"" target=""_top""><img border=""0"" src=""images/exit.gif"" align=""absmiddle""></a>"
            tmpBuf = tmpBuf & "</td>"
            tmpBuf = tmpBuf & "</tr>"
            tmpBuf = tmpBuf & "</table>"
            tmpBuf = tmpBuf & "</form>"
            Response.Write tmpBuf           
           
        ' Anything Else ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        Case Else
            tmpBuf = tmpBuf & "<link href=""site.css"" rel=""stylesheet"" type=""text/css"">"
            tmpBuf = tmpBuf & "<frameset rows=""*,80"" cols=""*"" frameborder=""0"">"
            tmpBuf = tmpBuf & "<frameset cols=""*,130"">"
            tmpBuf = tmpBuf & "    <frame name=""contents"" target=""main"" scrolling=""auto"" src=""chat.asp?event=show&userrefresh=" & Session("refresh") & """>"
            tmpBuf = tmpBuf & "    <frame name=""main"" scrolling=""auto"" src=""chat.asp?event=listusers"">"
            tmpBuf = tmpBuf & "</frameset>"
            tmpBuf = tmpBuf & "<frame name=""bottom"" scrolling=""no"" target=""contents"" src=""chat.asp?event=form"">"
            tmpBuf = tmpBuf & "<noframes>"
            tmpBuf = tmpBuf & "<link href=""site.css"" rel=""stylesheet"" type=""text/css"">"
            tmpBuf = tmpBuf & "<body>"
            tmpBuf = tmpBuf & "<p>This page uses frames, but your browser doesn't support them.</p>"
            tmpBuf = tmpBuf & "</body>"
            tmpBuf = tmpBuf & "</noframes>"
            tmpBuf = tmpBuf & "</frameset>"
            Response.Write tmpBuf
    End Select
   
    Function ListUsers()
        Dim UsersBuf
        Set XMLDOC = CreateObject("Microsoft.XMLDOM")
        XMLDOC.async = False
        XMLDOC.resolveExternals = False
       
        If Application("xmldoc") = "" Then           
            Application("xmldoc") = "<chat><users/></chat>"
        End If
       
        XMLDoc.LoadXML Application("xmldoc")           
        XPath = "//users/*"
       
        Set UsersList = XMLDOC.SelectNodes(XPath)
       
        If UsersList.Length = 0 Then
            ListUsers = "Chatroom er tomt"
        Else           
            For Each UserName In UsersList
                ThisUserName = UserName.GetAttribute ("nick")               
                ThisUserTimeout = GetUserSettings(ThisUserName, "timer")
                If ThisUserTimeout = "" Then
                    ThisUserTimeout = 0
                End If
               
                TimeDifference = DateDiff("s", ThisUserTimeout, Now())               
                               
                If TimeDifference > UserTimeout Then
                    DisconnectUser (ThisUserName)
                    For ln =20 to 2 Step -1
                        Application(ln)=Application(ln-1)
                    Next                   
                    Application("1")="<font color='#666666'><b>"& Session("nickname") & "</b> er blevet sparket ud fra dette chatroom. </font><img src=""images/smilies/smile9.gif""/>"                   
                    'Session("nickname") = ""
                    'Response.Redirect "chat.asp"
                End If
               
                UsersBuf = UsersBuf & UserName.GetAttribute ("nick") & "<br/>" '" (" & FormatNumber((ThisUserTimeout - Timer)/100,2) & ")" & "<br/>"
            Next
            ListUsers = UsersBuf
        End IF
    End Function
   
    Function ConnectUser (NickName)
        Set XMLDOC = CreateObject("Microsoft.XMLDOM")
        XMLDOC.async = False
        XMLDOC.resolveExternals = False
       
        If Application("xmldoc") = "" Then           
            Application("xmldoc") = "<chat><users/></chat>"
        End If
       
        XMLDoc.LoadXML Application("xmldoc")
       
        XPath = "//user[@nick='" & NickName & "']"
        Set RegisteredUser = XMLDOC.SelectSingleNode(XPath)       
        If RegisteredUser Is Nothing Then
            XPath = "//users"
            Set UsersList = XMLDOC.SelectSingleNode(XPath)           
            Set NewUser = XMLDOC.CreateElement("user")
            NewUser.SetAttribute "nick", NickName
            NewUser.SetAttribute "timer", Now
            UsersList.AppendChild NewUser
            Application("xmldoc") = XMLDOC.xml
            Session("nickname") = NickName
            Session("refresh") = 5                                   
            ConnectUser = True           
        Else
            ConnectUser = False
        End If
    End Function
   
    Function DisconnectUser(NickName)
        Set XMLDOC = CreateObject("Microsoft.XMLDOM")
        XMLDOC.async = False
        XMLDOC.resolveExternals = False
       
        If Application("xmldoc") = "" Then           
            Application("xmldoc") = "<chat><users/></chat>"
        End If
       
        XMLDoc.LoadXML Application("xmldoc")
       
        XPath = "//user[@nick='" & NickName & "']"
        Set UserList = XMLDOC.SelectNodes(XPath)
       
        If UserList Is Nothing Then
            DisconnectUser = False
        Else
            For Each Node In UserList
                Node.parentNode.removeChild Node
            Next
            Application("xmldoc") = XMLDoc.xml
            DisconnectUser = True
        End If
    End Function
   
    Function GetUserSettings(LoginName, PropertyName)
        If LoginName = "" then Exit Function
        Set XMLDOC = CreateObject("Microsoft.XMLDOM")
        XMLDOC.async = False
        XMLDOC.resolveExternals = False
       
        If Application("xmldoc") = "" Then           
            Application("xmldoc") = "<chat><users/></chat>"
        End If
       
        XMLDoc.LoadXML Application("xmldoc")
       
        XPath = "//user[@nick='" & LoginName & "']"
       
        Set SelectedUser = XMLDOC.SelectSingleNode(XPath)
        If SelectedUser Is Nothing Then
            GetUserSettings = ""
        Else
            If Len(SelectedUser.GetAttribute(PropertyName)) = 0 Then
                GetUserSettings = ""
            Else                               
                GetUserSettings = SelectedUser.GetAttribute(PropertyName)               
            End If
        End If
    End Function
   
    Function SetUserSettings(NickName,UserProperty,PropertyInfo) ' As Boolean
        Set XMLDOC = CreateObject("Microsoft.XMLDOM")
        XMLDOC.async = False
        XMLDOC.resolveExternals = False
       
        If Application("xmldoc") = "" Then           
            Application("xmldoc") = "<chat><users/></chat>"
        End If
       
        XMLDoc.LoadXML Application("xmldoc")
       
        XPath = "//user[@nick='" & NickName & "']"
        Set SelectedUser = XMLDOC.SelectSingleNode(XPath)
        If SelectedUser Is Nothing Then
            SetUserSettings = False
        Else
            SelectedUser.SetAttribute UserProperty, PropertyInfo
            Application("xmldoc") = XMLDOC.XML
            SetUserSettings = True
        End If       
    End Function
   
    Function HTMLFormat(sInput)
        Dim sAns
        Dim sIIIStart, sIIIEnd
        sAns = Replace(sInput, "  ", "&nbsp; ")
        sAns = Replace(sAns, Chr(34), "&quot;")
        sIllStart = "<" & Chr(37)
        sIllEnd = Chr(37) & ">"
   
        If InStr(sAns, sIllStart) > 0 Or InStr(sAns, sIllEnd) > 0 Then
          sAns = Replace(sAns, "<" & Chr(37), "")
          sAns = Replace(sAns, Chr(37) & ">", "")
        End If
   
        sAns = Replace(sAns, ">", "&gt;")
        sAns = Replace(sAns, "<", "&lt;")
        sAns = Replace(sAns, vbCrLf, "<BR>")
        sAns = Replace(sAns, "", "<b>")
        sAns = Replace(sAns, "", "</b>")
        sAns = Replace(sAns, "", "<i>")
        sAns = Replace(sAns, "", "</i>")
        HTMLFormat = sAns
    End Function
%>

___________________________________________________________

Jeg vil gerne have disse to knapper fjernet, setup knappen som har billedet setup.gif den anden knap er exit kanppen som har billedet exit.gif de skal fjernes.

På forhånd tak.
Avatar billede mm12010 Nybegynder
15. august 2003 - 17:02 #1
så fjerner du bare disse 2 linier:

tmpBuf = tmpBuf & "<a href=""chat.asp?event=setup" target=""_top""><img border=""0"" src=""images/setup.gif""></a>"
tmpBuf = tmpBuf & "<a href=""chat.asp?event=logout" target=""_top""><img border=""0"" src=""images/exit.gif"" align=""absmiddle""></a>"
Avatar billede mm12010 Nybegynder
15. august 2003 - 17:06 #2
det er linie 160+161 hvis det er hele koden du har postet her

istedet for dem skriver du:
  tmpBuf = tmpBuf & "&nbsp;"
Avatar billede mm12010 Nybegynder
15. august 2003 - 17:10 #3
skal jeg gøre det?
Avatar billede webserv Nybegynder
15. august 2003 - 17:10 #4
Ja det må du godt.
Avatar billede mm12010 Nybegynder
15. august 2003 - 17:12 #5
<%
    Response.Expires = 0
    Response.Expiresabsolute = Now() - 1
    Response.AddHeader "pragma","no-cache"
    Response.AddHeader "cache-control","private"
    Response.CacheControl = "no-cache"
    '----------------setup------------------
    Const UserTimeout = 60 ' mins for user's timeout   
    Const Title = "DaChat v.2.5" 'title of web page
    '----------------/setup------------------

    Select Case Request("event")
        Case "login"
            If Request("login") = "" Then
                Response.Redirect "index.asp"
            End If
           
            If ConnectUser(HTMLFormat(Request("login"))) = False Then
                Response.Redirect "index.asp?error=1&username=" & request("login")
            End If
       
            For ln =20 to 2 Step -1
                Application(ln)=Application(ln-1)
            Next
           
            Application("1")="<font color=""#666666""><b>"& Request("login") & "</b> har joinet dette chatroom</font>"
            Response.Redirect "chat.asp"
           
        ' Show ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        Case "show"
            Response.Write  "<meta http-equiv='refresh' content='" & Session("refresh") &"'>"
            Response.Write  "<body bgcolor='#eeeeee'>"
            Response.Write  "<font face='arial,verdana' size='2'>"
            For f=1 to 20
                Response.Write  Application(f) & "<br/>"
            Next
           
        ' Post ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        Case "post"
            For ln =20 to 2 Step -1
                Application(ln)=Application(ln-1)
            Next
           
        ' Smiles are here
            ChatText = HTMLFormat(Request("text"))
            ChatText = Replace(ChatText, ":)", "<img src=""images/smilies/smile1.gif""/>")
            ChatText = Replace(ChatText, ":D", "<img src=""images/smilies/smile2.gif""/>")
            ChatText = Replace(ChatText, ":o","<img src=""images/smilies/smile3.gif""/>")
            ChatText = Replace(ChatText, ":(", "<img src=""images/smilies/smile4.gif""/>")
            ChatText = Replace(ChatText, ";)", "<img src=""images/smilies/smile5.gif""/>")
            ChatText = Replace(ChatText, ":p", "<img src=""images/smilies/smile6.gif""/>")
            ChatText = Replace(ChatText, "8)", "<img src=""images/smilies/smile7.gif""/>")
            ChatText = Replace(ChatText, ":[", "<img src=""images/smilies/smile8.gif""/>")
            ChatText = Replace(ChatText, ":kill:", "<img src=""images/smilies/smile9.gif""/>")
           
            ChatCommand = Lcase(Mid(ChatText, 1, InstrRev(ChatText,":")))
           
            Select Case ChatCommand
                Case "/clear:"
                    For t=1 to 20
                        Application(t) = ""
                    Next
                Case Else
                    CurrentNickName = "<a onClick=""document.chatform.text.focus();"">" & Session("nickname") & "</a>"
                    Application("1")="<b>" & Session("nickname") & ":</b> "& ChatText
            End Select
            x= SetUserSettings(Session("nickname"),"timer",Now)
            Response.Redirect "chat.asp?event=form"
           
        ' Logout ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        Case "logout"
            For ln =20 to 2 Step -1
                Application(ln)=Application(ln-1)
            Next
           
            Application("1")="<font color='#666666'><b>"& Session("nickname") & "</b> har forladt dette chatroom</font>"           
           
            x = DisconnectUser (Session("nickname"))

            Response.Redirect"index.asp"
   
        ' List Users ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
        Case "listusers"
            tmpBuf = tmpBuf & "<meta http-equiv='refresh' content='10'>"
            tmpBuf = tmpBuf & "<link href=""site.css"" rel=""stylesheet"" type=""text/css"">"
            tmpBuf = tmpBuf & "<body bgcolor='#6699CC'>"
            tmpBuf = tmpBuf & ListUsers
            tmpBuf = tmpBuf &"</body>"
            Response.Write tmpBuf
           
        ' Setup ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        Case "setup"           
            tmpBuf = tmpBuf & "<link href=""site.css"" rel=""stylesheet"" type=""text/css"">"
            tmpBuf = tmpBuf & "<body bgcolor=""#ffffff"">"
            tmpBuf = tmpBuf & "<span class=""sitetitle"">Refresh</span>"
            tmpBuf = tmpBuf & "<hr size=""1"" noshade=""noshade"" color=""#cccccc"" />"
            tmpBuf = tmpBuf & "<center>"
            tmpBuf = tmpBuf & "<form action=""chat.asp?event=refresh"" method=""post"" name=""ChatForm"">"
            tmpBuf = tmpBuf & "<select class=""button"" size=""1""  name=""refresh"">"
            For Rfrsh = 5 To 60 Step 10           
                tmpBuf = tmpBuf & "<option value=""" & Rfrsh & """ >" & Rfrsh & "</option>"
            Next
            tmpBuf = tmpBuf & "<option value=""" & Session("refresh") & """ selected>" & Session("refresh") & "</option>"
            tmpBuf = tmpBuf & "</select>"
            tmpBuf = tmpBuf & "<input class=""button"" type=""submit"" value=""Indlæs nye beskeder inden for (sekunder.)"">"
            tmpBuf = tmpBuf & "</form>"
            Response.Write tmpBuf
           
        ' Refresh ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        Case "refresh"
            Session("refresh") = Request("refresh")
            Response.Redirect"chat.asp"   
           
        ' Form ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        Case "form"
            tmpBuf = tmpBuf & "<link href=""site.css"" rel=""stylesheet"" type=""text/css"">"
            tmpBuf = tmpBuf & "<body bgcolor=""#FFffff"" topmargin=""25"">"
            tmpBuf = tmpBuf & "<table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"">"
            tmpBuf = tmpBuf & "<tr>"
            tmpBuf = tmpBuf & "<td>"
            tmpBuf = tmpBuf & "<form action=""chat.asp?event=post"" method=""post"" name=""chatform"">"
            tmpBuf = tmpBuf & "<input class=""field"" type=""text"" name=""text"" size=""50"">"
            tmpBuf = tmpBuf & "<input type=""image"" src=""images/post.gif"" align=""absmiddle"" border=""0"">"
            tmpBuf = tmpBuf & "<br/>"
            ' Smiles ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
            tmpBuf = tmpBuf & " <a onClick=""document.chatform.text.value=':-)'"">"
            tmpBuf = tmpBuf & "<img src=""images/smilies/smile1.gif" class=""clsCursor"">"
            tmpBuf = tmpBuf & "</a>"
           
            tmpBuf = tmpBuf & " <a onClick=""document.chatform.text.value=':D'"">"
            tmpBuf = tmpBuf & "<img src=""images/smilies/smile2.gif" class=""clsCursor"">"
            tmpBuf = tmpBuf & "</a>"
           
            tmpBuf = tmpBuf & " <a onClick=""document.chatform.text.value=':o'"">"
            tmpBuf = tmpBuf & "<img src=""images/smilies/smile3.gif" class=""clsCursor"">"
            tmpBuf = tmpBuf & "</a>"
           
            tmpBuf = tmpBuf & " <a onClick=""document.chatform.text.value=':('"">"
            tmpBuf = tmpBuf & "<img src=""images/smilies/smile4.gif" class=""clsCursor"">"
            tmpBuf = tmpBuf & "</a>"
           
            tmpBuf = tmpBuf & " <a onClick=""document.chatform.text.value=';)'"">"
            tmpBuf = tmpBuf & "<img src=""images/smilies/smile5.gif" class=""clsCursor"">"
            tmpBuf = tmpBuf & "</a>"
           
            tmpBuf = tmpBuf & " <a onClick=""document.chatform.text.value=':p'"">"
            tmpBuf = tmpBuf & "<img src=""images/smilies/smile6.gif" class=""clsCursor"">"
            tmpBuf = tmpBuf & "</a>"
           
            tmpBuf = tmpBuf & " <a onClick=""document.chatform.text.value='8-)'"">"
            tmpBuf = tmpBuf & "<img src=""images/smilies/smile7.gif" class=""clsCursor"">"
            tmpBuf = tmpBuf & "</a>"
           
            tmpBuf = tmpBuf & " <a onClick=""document.chatform.text.value=':['"">"
            tmpBuf = tmpBuf & "<img src=""images/smilies/smile8.gif" class=""clsCursor"">"
            tmpBuf = tmpBuf & "</a>"
            '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
            tmpBuf = tmpBuf & "</td>"
            tmpBuf = tmpBuf & "<td width=""120"">"
            tmpBuf = tmpBuf & "&nbsp;"
            tmpBuf = tmpBuf & "</td>"
            tmpBuf = tmpBuf & "</tr>"
            tmpBuf = tmpBuf & "</table>"
            tmpBuf = tmpBuf & "</form>"
            Response.Write tmpBuf           
           
        ' Anything Else ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        Case Else
            tmpBuf = tmpBuf & "<link href=""site.css"" rel=""stylesheet"" type=""text/css"">"
            tmpBuf = tmpBuf & "<frameset rows=""*,80"" cols=""*"" frameborder=""0"">"
            tmpBuf = tmpBuf & "<frameset cols=""*,130"">"
            tmpBuf = tmpBuf & "    <frame name=""contents" target=""main"" scrolling=""auto"" src=""chat.asp?event=show&userrefresh=" & Session("refresh") & """>"
            tmpBuf = tmpBuf & "    <frame name=""main"" scrolling=""auto"" src=""chat.asp?event=listusers"">"
            tmpBuf = tmpBuf & "</frameset>"
            tmpBuf = tmpBuf & "<frame name=""bottom"" scrolling=""no" target=""contents"" src=""chat.asp?event=form"">"
            tmpBuf = tmpBuf & "<noframes>"
            tmpBuf = tmpBuf & "<link href=""site.css"" rel=""stylesheet"" type=""text/css"">"
            tmpBuf = tmpBuf & "<body>"
            tmpBuf = tmpBuf & "<p>This page uses frames, but your browser doesn't support them.</p>"
            tmpBuf = tmpBuf & "</body>"
            tmpBuf = tmpBuf & "</noframes>"
            tmpBuf = tmpBuf & "</frameset>"
            Response.Write tmpBuf
    End Select
   
    Function ListUsers()
        Dim UsersBuf
        Set XMLDOC = CreateObject("Microsoft.XMLDOM")
        XMLDOC.async = False
        XMLDOC.resolveExternals = False
       
        If Application("xmldoc") = "" Then           
            Application("xmldoc") = "<chat><users/></chat>"
        End If
       
        XMLDoc.LoadXML Application("xmldoc")           
        XPath = "//users/*"
       
        Set UsersList = XMLDOC.SelectNodes(XPath)
       
        If UsersList.Length = 0 Then
            ListUsers = "Chatroom er tomt"
        Else           
            For Each UserName In UsersList
                ThisUserName = UserName.GetAttribute ("nick")               
                ThisUserTimeout = GetUserSettings(ThisUserName, "timer")
                If ThisUserTimeout = "" Then
                    ThisUserTimeout = 0
                End If
               
                TimeDifference = DateDiff("s", ThisUserTimeout, Now())               
                               
                If TimeDifference > UserTimeout Then
                    DisconnectUser (ThisUserName)
                    For ln =20 to 2 Step -1
                        Application(ln)=Application(ln-1)
                    Next                   
                    Application("1")="<font color='#666666'><b>"& Session("nickname") & "</b> er blevet sparket ud fra dette chatroom. </font><img src=""images/smilies/smile9.gif""/>"                   
                    'Session("nickname") = ""
                    'Response.Redirect "chat.asp"
                End If
               
                UsersBuf = UsersBuf & UserName.GetAttribute ("nick") & "<br/>" '" (" & FormatNumber((ThisUserTimeout - Timer)/100,2) & ")" & "<br/>"
            Next
            ListUsers = UsersBuf
        End IF
    End Function
   
    Function ConnectUser (NickName)
        Set XMLDOC = CreateObject("Microsoft.XMLDOM")
        XMLDOC.async = False
        XMLDOC.resolveExternals = False
       
        If Application("xmldoc") = "" Then           
            Application("xmldoc") = "<chat><users/></chat>"
        End If
       
        XMLDoc.LoadXML Application("xmldoc")
       
        XPath = "//user[@nick='" & NickName & "']"
        Set RegisteredUser = XMLDOC.SelectSingleNode(XPath)       
        If RegisteredUser Is Nothing Then
            XPath = "//users"
            Set UsersList = XMLDOC.SelectSingleNode(XPath)           
            Set NewUser = XMLDOC.CreateElement("user")
            NewUser.SetAttribute "nick", NickName
            NewUser.SetAttribute "timer", Now
            UsersList.AppendChild NewUser
            Application("xmldoc") = XMLDOC.xml
            Session("nickname") = NickName
            Session("refresh") = 5                                   
            ConnectUser = True           
        Else
            ConnectUser = False
        End If
    End Function
   
    Function DisconnectUser(NickName)
        Set XMLDOC = CreateObject("Microsoft.XMLDOM")
        XMLDOC.async = False
        XMLDOC.resolveExternals = False
       
        If Application("xmldoc") = "" Then           
            Application("xmldoc") = "<chat><users/></chat>"
        End If
       
        XMLDoc.LoadXML Application("xmldoc")
       
        XPath = "//user[@nick='" & NickName & "']"
        Set UserList = XMLDOC.SelectNodes(XPath)
       
        If UserList Is Nothing Then
            DisconnectUser = False
        Else
            For Each Node In UserList
                Node.parentNode.removeChild Node
            Next
            Application("xmldoc") = XMLDoc.xml
            DisconnectUser = True
        End If
    End Function
   
    Function GetUserSettings(LoginName, PropertyName)
        If LoginName = "" then Exit Function
        Set XMLDOC = CreateObject("Microsoft.XMLDOM")
        XMLDOC.async = False
        XMLDOC.resolveExternals = False
       
        If Application("xmldoc") = "" Then           
            Application("xmldoc") = "<chat><users/></chat>"
        End If
       
        XMLDoc.LoadXML Application("xmldoc")
       
        XPath = "//user[@nick='" & LoginName & "']"
       
        Set SelectedUser = XMLDOC.SelectSingleNode(XPath)
        If SelectedUser Is Nothing Then
            GetUserSettings = ""
        Else
            If Len(SelectedUser.GetAttribute(PropertyName)) = 0 Then
                GetUserSettings = ""
            Else                               
                GetUserSettings = SelectedUser.GetAttribute(PropertyName)               
            End If
        End If
    End Function
   
    Function SetUserSettings(NickName,UserProperty,PropertyInfo) ' As Boolean
        Set XMLDOC = CreateObject("Microsoft.XMLDOM")
        XMLDOC.async = False
        XMLDOC.resolveExternals = False
       
        If Application("xmldoc") = "" Then           
            Application("xmldoc") = "<chat><users/></chat>"
        End If
       
        XMLDoc.LoadXML Application("xmldoc")
       
        XPath = "//user[@nick='" & NickName & "']"
        Set SelectedUser = XMLDOC.SelectSingleNode(XPath)
        If SelectedUser Is Nothing Then
            SetUserSettings = False
        Else
            SelectedUser.SetAttribute UserProperty, PropertyInfo
            Application("xmldoc") = XMLDOC.XML
            SetUserSettings = True
        End If       
    End Function
   
    Function HTMLFormat(sInput)
        Dim sAns
        Dim sIIIStart, sIIIEnd
        sAns = Replace(sInput, "  ", "&nbsp; ")
        sAns = Replace(sAns, Chr(34), "&quot;")
        sIllStart = "<" & Chr(37)
        sIllEnd = Chr(37) & ">"
   
        If InStr(sAns, sIllStart) > 0 Or InStr(sAns, sIllEnd) > 0 Then
          sAns = Replace(sAns, "<" & Chr(37), "")
          sAns = Replace(sAns, Chr(37) & ">", "")
        End If
   
        sAns = Replace(sAns, ">", "&gt;")
        sAns = Replace(sAns, "<", "&lt;")
        sAns = Replace(sAns, vbCrLf, "<BR>")
        sAns = Replace(sAns, "", "<b>")
        sAns = Replace(sAns, "", "</b>")
        sAns = Replace(sAns, "", "<i>")
        sAns = Replace(sAns, "", "</i>")
        HTMLFormat = sAns
    End Function
%>
Avatar billede webserv Nybegynder
15. august 2003 - 17:22 #6
Den dur ikke prøv en gang: http://www33.brinkster.com/zmai/
Avatar billede mm12010 Nybegynder
15. august 2003 - 17:28 #7
det er fordi eksperten har 'ædt' af dine " :o)

<%
    Response.Expires = 0
    Response.Expiresabsolute = Now() - 1
    Response.AddHeader "pragma","no-cache"
    Response.AddHeader "cache-control","private"
    Response.CacheControl = "no-cache"
    '----------------setup------------------
    Const UserTimeout = 60 ' mins for user's timeout   
    Const Title = "DaChat v.2.5" 'title of web page
    '----------------/setup------------------

    Select Case Request("event")
        Case "login"
            If Request("login") = "" Then
                Response.Redirect "index.asp"
            End If
           
            If ConnectUser(HTMLFormat(Request("login"))) = False Then
                Response.Redirect "index.asp?error=1&username=" & request("login")
            End If
       
            For ln =20 to 2 Step -1
                Application(ln)=Application(ln-1)
            Next
           
            Application("1")="<font color=""#666666""><b>"& Request("login") & "</b> har joinet dette chatroom</font>"
            Response.Redirect "chat.asp"
           
        ' Show ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        Case "show"
            Response.Write  "<meta http-equiv='refresh' content='" & Session("refresh") &"'>"
            Response.Write  "<body bgcolor='#eeeeee'>"
            Response.Write  "<font face='arial,verdana' size='2'>"
            For f=1 to 20
                Response.Write  Application(f) & "<br/>"
            Next
           
        ' Post ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        Case "post"
            For ln =20 to 2 Step -1
                Application(ln)=Application(ln-1)
            Next
           
        ' Smiles are here
            ChatText = HTMLFormat(Request("text"))
            ChatText = Replace(ChatText, ":)", "<img src=""images/smilies/smile1.gif""/>")
            ChatText = Replace(ChatText, ":D", "<img src=""images/smilies/smile2.gif""/>")
            ChatText = Replace(ChatText, ":o","<img src=""images/smilies/smile3.gif""/>")
            ChatText = Replace(ChatText, ":(", "<img src=""images/smilies/smile4.gif""/>")
            ChatText = Replace(ChatText, ";)", "<img src=""images/smilies/smile5.gif""/>")
            ChatText = Replace(ChatText, ":p", "<img src=""images/smilies/smile6.gif""/>")
            ChatText = Replace(ChatText, "8)", "<img src=""images/smilies/smile7.gif""/>")
            ChatText = Replace(ChatText, ":[", "<img src=""images/smilies/smile8.gif""/>")
            ChatText = Replace(ChatText, ":kill:", "<img src=""images/smilies/smile9.gif""/>")
           
            ChatCommand = Lcase(Mid(ChatText, 1, InstrRev(ChatText,":")))
           
            Select Case ChatCommand
                Case "/clear:"
                    For t=1 to 20
                        Application(t) = ""
                    Next
                Case Else
                    CurrentNickName = "<a onClick=""document.chatform.text.focus();"">" & Session("nickname") & "</a>"
                    Application("1")="<b>" & Session("nickname") & ":</b> "& ChatText
            End Select
            x= SetUserSettings(Session("nickname"),"timer",Now)
            Response.Redirect "chat.asp?event=form"
           
        ' Logout ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        Case "logout"
            For ln =20 to 2 Step -1
                Application(ln)=Application(ln-1)
            Next
           
            Application("1")="<font color='#666666'><b>"& Session("nickname") & "</b> har forladt dette chatroom</font>"           
           
            x = DisconnectUser (Session("nickname"))

            Response.Redirect"index.asp"
   
        ' List Users ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
        Case "listusers"
            tmpBuf = tmpBuf & "<meta http-equiv='refresh' content='10'>"
            tmpBuf = tmpBuf & "<link href=""site.css"" rel=""stylesheet"" type=""text/css"">"
            tmpBuf = tmpBuf & "<body bgcolor='#6699CC'>"
            tmpBuf = tmpBuf & ListUsers
            tmpBuf = tmpBuf &"</body>"
            Response.Write tmpBuf
           
        ' Setup ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        Case "setup"           
            tmpBuf = tmpBuf & "<link href=""site.css"" rel=""stylesheet"" type=""text/css"">"
            tmpBuf = tmpBuf & "<body bgcolor=""#ffffff"">"
            tmpBuf = tmpBuf & "<span class=""sitetitle"">Refresh</span>"
            tmpBuf = tmpBuf & "<hr size=""1"" noshade=""noshade"" color=""#cccccc"" />"
            tmpBuf = tmpBuf & "<center>"
            tmpBuf = tmpBuf & "<form action=""chat.asp?event=refresh"" method=""post"" name=""ChatForm"">"
            tmpBuf = tmpBuf & "<select class=""button"" size=""1""  name=""refresh"">"
            For Rfrsh = 5 To 60 Step 10           
                tmpBuf = tmpBuf & "<option value=""" & Rfrsh & """ >" & Rfrsh & "</option>"
            Next
            tmpBuf = tmpBuf & "<option value=""" & Session("refresh") & """ selected>" & Session("refresh") & "</option>"
            tmpBuf = tmpBuf & "</select>"
            tmpBuf = tmpBuf & "<input class=""button"" type=""submit"" value=""Indlæs nye beskeder inden for (sekunder.)"">"
            tmpBuf = tmpBuf & "</form>"
            Response.Write tmpBuf
           
        ' Refresh ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        Case "refresh"
            Session("refresh") = Request("refresh")
            Response.Redirect"chat.asp"   
           
        ' Form ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        Case "form"
            tmpBuf = tmpBuf & "<link href=""site.css"" rel=""stylesheet"" type=""text/css"">"
            tmpBuf = tmpBuf & "<body bgcolor=""#FFffff"" topmargin=""25"">"
            tmpBuf = tmpBuf & "<table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"">"
            tmpBuf = tmpBuf & "<tr>"
            tmpBuf = tmpBuf & "<td>"
            tmpBuf = tmpBuf & "<form action=""chat.asp?event=post"" method=""post"" name=""chatform"">"
            tmpBuf = tmpBuf & "<input class=""field"" type=""text"" name=""text"" size=""50"">"
            tmpBuf = tmpBuf & "<input type=""image"" src=""images/post.gif"" align=""absmiddle"" border=""0"">"
            tmpBuf = tmpBuf & "<br/>"
            ' Smiles ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
            tmpBuf = tmpBuf & " <a onClick=""document.chatform.text.value=':-)'"">"
            tmpBuf = tmpBuf & "<img src=""images/smilies/smile1.gif"" class=""clsCursor"">"
            tmpBuf = tmpBuf & "</a>"
           
            tmpBuf = tmpBuf & " <a onClick=""document.chatform.text.value=':D'"">"
            tmpBuf = tmpBuf & "<img src=""images/smilies/smile2.gif"" class=""clsCursor"">"
            tmpBuf = tmpBuf & "</a>"
           
            tmpBuf = tmpBuf & " <a onClick=""document.chatform.text.value=':o'"">"
            tmpBuf = tmpBuf & "<img src=""images/smilies/smile3.gif"" class=""clsCursor"">"
            tmpBuf = tmpBuf & "</a>"
           
            tmpBuf = tmpBuf & " <a onClick=""document.chatform.text.value=':('"">"
            tmpBuf = tmpBuf & "<img src=""images/smilies/smile4.gif"" class=""clsCursor"">"
            tmpBuf = tmpBuf & "</a>"
           
            tmpBuf = tmpBuf & " <a onClick=""document.chatform.text.value=';)'"">"
            tmpBuf = tmpBuf & "<img src=""images/smilies/smile5.gif"" class=""clsCursor"">"
            tmpBuf = tmpBuf & "</a>"
           
            tmpBuf = tmpBuf & " <a onClick=""document.chatform.text.value=':p'"">"
            tmpBuf = tmpBuf & "<img src=""images/smilies/smile6.gif"" class=""clsCursor"">"
            tmpBuf = tmpBuf & "</a>"
           
            tmpBuf = tmpBuf & " <a onClick=""document.chatform.text.value='8-)'"">"
            tmpBuf = tmpBuf & "<img src=""images/smilies/smile7.gif"" class=""clsCursor"">"
            tmpBuf = tmpBuf & "</a>"
           
            tmpBuf = tmpBuf & " <a onClick=""document.chatform.text.value=':['"">"
            tmpBuf = tmpBuf & "<img src=""images/smilies/smile8.gif"" class=""clsCursor"">"
            tmpBuf = tmpBuf & "</a>"
            '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
            tmpBuf = tmpBuf & "</td>"
            tmpBuf = tmpBuf & "<td width=""120"">"
            tmpBuf = tmpBuf & "&nbsp;"
            tmpBuf = tmpBuf & "</td>"
            tmpBuf = tmpBuf & "</tr>"
            tmpBuf = tmpBuf & "</table>"
            tmpBuf = tmpBuf & "</form>"
            Response.Write tmpBuf           
           
        ' Anything Else ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        Case Else
            tmpBuf = tmpBuf & "<link href=""site.css"" rel=""stylesheet"" type=""text/css"">"
            tmpBuf = tmpBuf & "<frameset rows=""*,80"" cols=""*"" frameborder=""0"">"
            tmpBuf = tmpBuf & "<frameset cols=""*,130"">"
            tmpBuf = tmpBuf & "    <frame name=""contents"" target=""main"" scrolling=""auto"" src=""chat.asp?event=show&userrefresh=" & Session("refresh") & """>"
            tmpBuf = tmpBuf & "    <frame name=""main"" scrolling=""auto"" src=""chat.asp?event=listusers"">"
            tmpBuf = tmpBuf & "</frameset>"
            tmpBuf = tmpBuf & "<frame name=""bottom"" scrolling=""no"" target=""contents"" src=""chat.asp?event=form"">"
            tmpBuf = tmpBuf & "<noframes>"
            tmpBuf = tmpBuf & "<link href=""site.css"" rel=""stylesheet"" type=""text/css"">"
            tmpBuf = tmpBuf & "<body>"
            tmpBuf = tmpBuf & "<p>This page uses frames, but your browser doesn't support them.</p>"
            tmpBuf = tmpBuf & "</body>"
            tmpBuf = tmpBuf & "</noframes>"
            tmpBuf = tmpBuf & "</frameset>"
            Response.Write tmpBuf
    End Select
   
    Function ListUsers()
        Dim UsersBuf
        Set XMLDOC = CreateObject("Microsoft.XMLDOM")
        XMLDOC.async = False
        XMLDOC.resolveExternals = False
       
        If Application("xmldoc") = "" Then           
            Application("xmldoc") = "<chat><users/></chat>"
        End If
       
        XMLDoc.LoadXML Application("xmldoc")           
        XPath = "//users/*"
       
        Set UsersList = XMLDOC.SelectNodes(XPath)
       
        If UsersList.Length = 0 Then
            ListUsers = "Chatroom er tomt"
        Else           
            For Each UserName In UsersList
                ThisUserName = UserName.GetAttribute ("nick")               
                ThisUserTimeout = GetUserSettings(ThisUserName, "timer")
                If ThisUserTimeout = "" Then
                    ThisUserTimeout = 0
                End If
               
                TimeDifference = DateDiff("s", ThisUserTimeout, Now())               
                               
                If TimeDifference > UserTimeout Then
                    DisconnectUser (ThisUserName)
                    For ln =20 to 2 Step -1
                        Application(ln)=Application(ln-1)
                    Next                   
                    Application("1")="<font color='#666666'><b>"& Session("nickname") & "</b> er blevet sparket ud fra dette chatroom. </font><img src=""images/smilies/smile9.gif""/>"                   
                    'Session("nickname") = ""
                    'Response.Redirect "chat.asp"
                End If
               
                UsersBuf = UsersBuf & UserName.GetAttribute ("nick") & "<br/>" '" (" & FormatNumber((ThisUserTimeout - Timer)/100,2) & ")" & "<br/>"
            Next
            ListUsers = UsersBuf
        End IF
    End Function
   
    Function ConnectUser (NickName)
        Set XMLDOC = CreateObject("Microsoft.XMLDOM")
        XMLDOC.async = False
        XMLDOC.resolveExternals = False
       
        If Application("xmldoc") = "" Then           
            Application("xmldoc") = "<chat><users/></chat>"
        End If
       
        XMLDoc.LoadXML Application("xmldoc")
       
        XPath = "//user[@nick='" & NickName & "']"
        Set RegisteredUser = XMLDOC.SelectSingleNode(XPath)       
        If RegisteredUser Is Nothing Then
            XPath = "//users"
            Set UsersList = XMLDOC.SelectSingleNode(XPath)           
            Set NewUser = XMLDOC.CreateElement("user")
            NewUser.SetAttribute "nick", NickName
            NewUser.SetAttribute "timer", Now
            UsersList.AppendChild NewUser
            Application("xmldoc") = XMLDOC.xml
            Session("nickname") = NickName
            Session("refresh") = 5                                   
            ConnectUser = True           
        Else
            ConnectUser = False
        End If
    End Function
   
    Function DisconnectUser(NickName)
        Set XMLDOC = CreateObject("Microsoft.XMLDOM")
        XMLDOC.async = False
        XMLDOC.resolveExternals = False
       
        If Application("xmldoc") = "" Then           
            Application("xmldoc") = "<chat><users/></chat>"
        End If
       
        XMLDoc.LoadXML Application("xmldoc")
       
        XPath = "//user[@nick='" & NickName & "']"
        Set UserList = XMLDOC.SelectNodes(XPath)
       
        If UserList Is Nothing Then
            DisconnectUser = False
        Else
            For Each Node In UserList
                Node.parentNode.removeChild Node
            Next
            Application("xmldoc") = XMLDoc.xml
            DisconnectUser = True
        End If
    End Function
   
    Function GetUserSettings(LoginName, PropertyName)
        If LoginName = "" then Exit Function
        Set XMLDOC = CreateObject("Microsoft.XMLDOM")
        XMLDOC.async = False
        XMLDOC.resolveExternals = False
       
        If Application("xmldoc") = "" Then           
            Application("xmldoc") = "<chat><users/></chat>"
        End If
       
        XMLDoc.LoadXML Application("xmldoc")
       
        XPath = "//user[@nick='" & LoginName & "']"
       
        Set SelectedUser = XMLDOC.SelectSingleNode(XPath)
        If SelectedUser Is Nothing Then
            GetUserSettings = ""
        Else
            If Len(SelectedUser.GetAttribute(PropertyName)) = 0 Then
                GetUserSettings = ""
            Else                               
                GetUserSettings = SelectedUser.GetAttribute(PropertyName)               
            End If
        End If
    End Function
   
    Function SetUserSettings(NickName,UserProperty,PropertyInfo) ' As Boolean
        Set XMLDOC = CreateObject("Microsoft.XMLDOM")
        XMLDOC.async = False
        XMLDOC.resolveExternals = False
       
        If Application("xmldoc") = "" Then           
            Application("xmldoc") = "<chat><users/></chat>"
        End If
       
        XMLDoc.LoadXML Application("xmldoc")
       
        XPath = "//user[@nick='" & NickName & "']"
        Set SelectedUser = XMLDOC.SelectSingleNode(XPath)
        If SelectedUser Is Nothing Then
            SetUserSettings = False
        Else
            SelectedUser.SetAttribute UserProperty, PropertyInfo
            Application("xmldoc") = XMLDOC.XML
            SetUserSettings = True
        End If       
    End Function
   
    Function HTMLFormat(sInput)
        Dim sAns
        Dim sIIIStart, sIIIEnd
        sAns = Replace(sInput, "  ", "&nbsp; ")
        sAns = Replace(sAns, Chr(34), "&quot;")
        sIllStart = "<" & Chr(37)
        sIllEnd = Chr(37) & ">"
   
        If InStr(sAns, sIllStart) > 0 Or InStr(sAns, sIllEnd) > 0 Then
          sAns = Replace(sAns, "<" & Chr(37), "")
          sAns = Replace(sAns, Chr(37) & ">", "")
        End If
   
        sAns = Replace(sAns, ">", "&gt;")
        sAns = Replace(sAns, "<", "&lt;")
        sAns = Replace(sAns, vbCrLf, "<BR>")
        sAns = Replace(sAns, "", "<b>")
        sAns = Replace(sAns, "", "</b>")
        sAns = Replace(sAns, "", "<i>")
        sAns = Replace(sAns, "", "</i>")
        HTMLFormat = sAns
    End Function
%>
Avatar billede webserv Nybegynder
15. august 2003 - 17:33 #8
Men det dur stadig væk ikke af en eller anden merkelig grund.
Avatar billede webserv Nybegynder
15. august 2003 - 17:33 #9
Jeg bliver nød til at gå kommer tilbage om en time.
Avatar billede mm12010 Nybegynder
15. august 2003 - 17:37 #10
så bliver du nok selv nød til at gå ind og erstatte linie 160+161 i dit oprindelige script:

mpBuf = tmpBuf & "<a href=""chat.asp?event=setup" target=""_top""><img border=""0"" src=""images/setup.gif""></a>"
tmpBuf = tmpBuf & "<a href=""chat.asp?event=logout" target=""_top""><img border=""0"" src=""images/exit.gif"" align=""absmiddle""></a>"
 
istedet for dem skriver du:

tmpBuf = tmpBuf & "&nbsp;"
Avatar billede webserv Nybegynder
15. august 2003 - 22:23 #11
Ok nu virker det tak for hjælpen her er dine points.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
ASP classic kopiere database fil på server Af bsn i ASP 7 31/10/202610:20 01/11/202620:28
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 16:30 Wlan i windows 11 home Af dcedata1977 i Windows
11/1121:19 Irriterende ikon på proceslinjen Af ErikHg i Windows
11/1116:33 Kan man slippe af med "msn" ? Af Ikke-ekspert i Windows
11/1112:17 Flytte fra et projekt til andet Af hkprofil i Excel
11/1109:23 Slet tal, bevar de underliggende formler Af bbkdk i Excel
White papers
Flere white papers »