Red de conocimiento informático - Material del sitio web - Interfaz de inicio de sesión de sala de chat Programa ASP escrito por gambas (preferiblemente con comentarios) Programa de script escrito en VBscript

Interfaz de inicio de sesión de sala de chat Programa ASP escrito por gambas (preferiblemente con comentarios) Programa de script escrito en VBscript

Código fuente de la sala de chat simple:

chat.html

Chat < / p>

p>

chatopinions.asp

< tr>< td> <% =Aplicación("B6") %& gt; >

t;

<% =Aplicación("A3") %>

<% =Application("A9") %> <% =Aplicación("B9") %>

<% =Aplicación("A8 ") %>

<% =Aplicación("B8") %>

</td>

<% =Aplicación("A7") %>

<% =Aplicación("B7") % >

<% =Aplicación("A6") %>

<% =Aplicación("A5") %>

<% =Aplicación("B5") ) %>

<% =Aplicación("A4") %> p>

<% =Aplicación("B4") %>

< <% =Aplicación("B3") %>

<% =Aplicación("A2") %>

& lt;td align=right>

en Submitside Obtén tu chat: script gratuito.

chatform.asp

<%

Si Request.Form ("Opinión")="" Entonces

ShowForm( )

si no

si Sesión("AA")="" entonces

NuevoUsuario()

GoAhead()

else

GoAhead()

finalizar si

finalizar si %> >

< tr >

<% if Session("AA")="" then %>

Seleccione nombre o apodo

<BR>

Ingresa tu opinión

<% else %>

< % =Sesión("AA") %>

<% end if %>

"> ;

<

<% End Sub %>

<% Sub GoAhead() %>

<%

BB= Request.form("Opinión")

BB=server.htmlencode(BB)

Application.Lock

p>

Aplicación.GoAhead() bloqueo

Aplicación("B1")=Aplicación("B2")

Aplicación("B2")=Aplicación("B3 " )

Aplicación("B3")=Aplicación("B4")

Aplicación("B4")=Aplicación("B5")

Aplicar ( "B5")=Aplicar("B6")

Aplicar("B6")=

Aplicar("B7")

Aplicar("B7") = Aplicar("B8")

Aplicar("B8") = Aplicar("B9")

Aplicación("B9")=BB

Aplicación("A1")=Aplicación("A2")

Aplicación("A2")=Aplicación("A3" )

Aplicación("A3")=Aplicación("A4")

Aplicación("A4")=Aplicación("A5")

Aplicación( "A5")=Aplicación("A6")

Aplicación("A6")=Aplicación("A7")

Aplicación("A7")=Aplicación("A8" )

Aplicación("A8")= Aplicación("A9")

Aplicación("A9")=Sesión("AA")

Aplicación.

%>

<% =Sesión("AA ") %>


tr>

<% Fin Sub %>

<% Sub NuevoUsuario() %>

<%

<%

AA=Request.form("Nombre")

AA= server.htmlencode(AA)

Sesión("AA")=AA

%>

<% Fin Sub %>