Supportnet / Forum / Skripte(PHP,ASP,Perl...)
Chat
Frage
Es geht um einen Chat;
Was sagt mir dieser ASP-Code???
Was bedeutet APPLICATION.LOCK?
IF len(Request.Cookies("nick")) = 0 AND len(Request.Form("nick")) = 0 THEN
ELSE
Response.Cookies("Nick")=Request.Form("nick")
APPLICATION.LOCK
Application("txt10") = Application("txt9")
....
...
Antwort 1 von Unforgiven_II
Wenn du mir mehr davon schreibst (möglichst alles)
oder wo das ist, dann kann ich dir villeicht weiterhelfen.
Wenn du sicherheitslöcher suchst, dann versuch das mit den cookies ;-)
oder wo das ist, dann kann ich dir villeicht weiterhelfen.
Wenn du sicherheitslöcher suchst, dann versuch das mit den cookies ;-)
Antwort 2 von DerKlaus
Hier ist das ganze VBScript!!!
Danke im Voraus!
Grüsse Klaus
<%@ Language=VBScript %>
<%
IF len(Request.Cookies("nick")) = 0 AND len(Request.Form("nick")) = 0 THEN
%>
<HTML>
<HEAD>
<TITLE>Chat Login</TITLE>
</HEAD>
<BODY bgcolor=SkyBlue LINK="#FF0000" VLINK="#FF0000">
<BR>
<CENTER>Bitte geben Sie Ihren Nicknamen ein:</CENTER>
<FORM METHOD="POST" ACTION="default.asp" name=form1>
<CENTER><INPUT NAME="nick" TYPE="TEXT" SIZE=10></CENTER>
<CENTER><INPUT TYPE="SUBMIT" VALUE="ab in den CHAT" name=SUBMIT1></CENTER>
<%
ELSE
Response.Cookies("Nick")=Request.Form("nick")
APPLICATION.LOCK
Application("txt10") = Application("txt9")
Application("txt9") = Application("txt8")
Application("txt8") = Application("txt7")
Application("txt7") = Application("txt6")
Application("txt6") = Application("txt5")
Application("txt5") = Application("txt4")
Application("txt4") = Application("txt3")
Application("txt3") = Application("txt2")
Application("txt2") = Application("txt1")
Application("txt1") = "<FONT COLOR=""#0000FF"">** " & Request.Form("nick") & " kommt in den chatroom **</FONT>"
APPLICATION.UNLOCK
%>
<HEAD><TITLE>**CHAT**</TITLE></HEAD>
<FRAMESET ROWS="180,70" FRAMEBORDER="0" BORDER="false">
<FRAME SRC="display.asp" SCROLLING="auto">
<FRAME SRC="message.asp" SCROLLING="no">
</FRAMESET>
<%
END IF
%>
</BODY>
</HTML>
Danke im Voraus!
Grüsse Klaus
<%@ Language=VBScript %>
<%
IF len(Request.Cookies("nick")) = 0 AND len(Request.Form("nick")) = 0 THEN
%>
<HTML>
<HEAD>
<TITLE>Chat Login</TITLE>
</HEAD>
<BODY bgcolor=SkyBlue LINK="#FF0000" VLINK="#FF0000">
<BR>
<CENTER>Bitte geben Sie Ihren Nicknamen ein:</CENTER>
<FORM METHOD="POST" ACTION="default.asp" name=form1>
<CENTER><INPUT NAME="nick" TYPE="TEXT" SIZE=10></CENTER>
<CENTER><INPUT TYPE="SUBMIT" VALUE="ab in den CHAT" name=SUBMIT1></CENTER>
<%
ELSE
Response.Cookies("Nick")=Request.Form("nick")
APPLICATION.LOCK
Application("txt10") = Application("txt9")
Application("txt9") = Application("txt8")
Application("txt8") = Application("txt7")
Application("txt7") = Application("txt6")
Application("txt6") = Application("txt5")
Application("txt5") = Application("txt4")
Application("txt4") = Application("txt3")
Application("txt3") = Application("txt2")
Application("txt2") = Application("txt1")
Application("txt1") = "<FONT COLOR=""#0000FF"">** " & Request.Form("nick") & " kommt in den chatroom **</FONT>"
APPLICATION.UNLOCK
%>
<HEAD><TITLE>**CHAT**</TITLE></HEAD>
<FRAMESET ROWS="180,70" FRAMEBORDER="0" BORDER="false">
<FRAME SRC="display.asp" SCROLLING="auto">
<FRAME SRC="message.asp" SCROLLING="no">
</FRAMESET>
<%
END IF
%>
</BODY>
</HTML>