ASP Chat & Community

Når ja...jeg skal også finde ud af hvordan kan man lave kommandoer ligesom på Jubii Chat ... /snebold [brugernavn] hvordan kan man lave det? Det får i også lige 30 points FOR

hvis du mener at man kan skrive /snebold [brugernavn], og teksten bliver skiftet ud med grafik, så tester du bare på om teksten er i strengen og laver en replace... men jeg er lidt usikker på hvad du egentlig mener - og nej gider ikke gå ind i jubiiiiii chat o få det illustreret - skriv det gerne mere eksplicit

hm..ikke helt det jeg mener... ligesom hvis du skriver /snebold deaz så skal den skrive.. \"test kyler en snebold lige i nakken på deaz\" i stedet for at den skriver /snebold deaz bare...

så kan du vel bruge noget á la:
if instr(\"minstreng\", \"snebold\") then
  response.write replace(\"minstreng\", \"snebold\", \"kyler en snebold lige i nakken på\") & brugernavn
end if

hey! tak tester lige funktionen... jeg har kun programmeret ASP i 3 måneder såå... jeg kender ikke alle funktionerne endnu ;)

Hvad skal jeg skrive i stedet for minstreng når det jo kan være alle brugere online??? det kan være deaz/test osv...

hvis vi antager du poster det folk de skriver, så skulle nedenstående kunne gøre det, du skal kun ændre <navn på beskedfelt> det hvad dit aktuelle beskedfelt hedder!


if instr(\"request.form(\"<navn på beskedfelt>\")\", \"snebold\") then
  response.write replace(\"request.form(\"<navn på beskedfelt>\")\", \"snebold\", \"kyler en snebold lige i nakken på\") & brugernavn

brug denne (havde glemt at fjerne gnyfferne :o)
if instr(request.form(\"<navn på beskedfelt>\"), \"snebold\") then
  response.write replace(request.form(\"<navn på beskedfelt>\"), \"snebold\", \"kyler en snebold lige i nakken på\") & brugernavn

Æh...Den gør sQ da ikke hvis man skriver /snebold test at så skriver den \"Deaz kyler en snebold lige i nakken på test\" Det dur ikke!!!

smid din kode op på sitet, så man kan se den - gør det lettere at hjælpe!

Har jeg gjort!

If request(\"besked\") <> \"\" then

if instr(\"minstreng\", \"snebold\") then
    response.write replace(\"minstreng\", \"snebold\", \"kyler en snebold lige i nakken på\") & brugernavn
    test = 1
end if


    Select Case request(\"besked\")
        Case \":)\"
            application(\"chat\") = \"<font face=verdana size=2>\" & \"<b>\" & session(\"brugernavn\") & \"</b>\" & \" : \" & \"<img src=images/glad.gif>\" & \"<br>\" & Application(\"chat\") & \"\" & \"</font>\"
            test = 1
        Case \":(\"
            application(\"chat\") = \"<font face=verdana size=2>\" & \"<b>\" & session(\"brugernavn\") & \"</b>\" & \" : \" & \"<img src=images/sur.gif>\" & \"<br>\" & Application(\"chat\") & \"\" & \"</font>\"
            test = 1
        Case \";)\"
            application(\"chat\") = \"<font face=verdana size=2>\" & \"<b>\" & session(\"brugernavn\") & \"</b>\" & \" : \" & \"<img src=images/blink.gif>\" & \"<br>\" & Application(\"chat\") & \"\" & \"</font>\"
            test = 1
    End select
       
    If test = 0 then
        Application(\"chat\") = \"<font face=verdana size=2>\" & \"<b>\" & session(\"brugernavn\") & \"</b>\" & \" : \" & request(\"besked\") & \"<br>\" & Application(\"chat\") & \"\" & \"</font>\"
    End if

End if

%>

prøv at paste dette ind
If request(\"besked\") <> \"\" then

if instr(request(\"besked\"), \"snebold\") then
    response.write replace(\"request(\"besked\")\", \"snebold\", \"kyler en snebold lige i nakken på\") & brugernavn
    test = 1
end if
Select Case request(\"besked\")
        Case \":)\"
            application(\"chat\") = \"<font face=verdana size=2>\" & \"<b>\" & session(\"brugernavn\") & \"</b>\" & \" : \" & \"<img src=images/glad.gif>\" & \"<br>\" & Application(\"chat\") & \"\" & \"</font>\"
            test = 1
        Case \":(\"
            application(\"chat\") = \"<font face=verdana size=2>\" & \"<b>\" & session(\"brugernavn\") & \"</b>\" & \" : \" & \"<img src=images/sur.gif>\" & \"<br>\" & Application(\"chat\") & \"\" & \"</font>\"
            test = 1
        Case \";)\"
            application(\"chat\") = \"<font face=verdana size=2>\" & \"<b>\" & session(\"brugernavn\") & \"</b>\" & \" : \" & \"<img src=images/blink.gif>\" & \"<br>\" & Application(\"chat\") & \"\" & \"</font>\"
            test = 1
    End select
       
    If test = 0 then
        Application(\"chat\") = \"<font face=verdana size=2>\" & \"<b>\" & session(\"brugernavn\") & \"</b>\" & \" : \" & request(\"besked\") & \"<br>\" & Application(\"chat\") & \"\" & \"</font>\"
    End if

End if

%>

end if


til dit problem med at markøren skal placere sig i sendtext feltet efter submit, kan du vel bruge noget á la:
<BODY onload=\"window.dinbeskedfelt.focus()\">

Der er 1 fejl

Microsoft VBScript compilation error \'800a03ee\'

Expected \')\'

/deaz/community/chat/besked.asp, line 18

response.write replace(\"request(\"besked\")\", \"snebold\", \"kyler en snebold lige i nakken på\") & brugernavn
---------------------------------^



if instr(request(\"besked\"), \"snebold\") then
    response.write replace(\"request(\"besked\")\", \"snebold\", \"kyler en snebold lige i nakken på\") & brugernavn
    test = 1
end if

fjern lige      de 2 gnyffer om
response.write replace(request(\"besked\"), \"snebold\", \"kyler en snebold lige i nakken på\") & brugernavn

Jeg tager de 60 og du får 60 =)

Den løsning holder jo ikke, hvad så hvis jeg skriver \"Lad os tage en snebold hver og holde snebold kamp\"
Så vil den også gøre det. Nej du skal ind og splite i strengen.