一个免费的简单聊天室源代码

ASP教程 2025-08-28

推荐:几种打开记录集方式的比较先定义conn.asp <% dim objConn dim strConn strConn = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & chr(34) & Server

chat.html

以下为引用的内容:

Chat




chatopinions.asp

以下为引用的内容:







<% =Application(A9) %>
<% =Application(B9) %>

<% =Application(A8) %>
<% =Application(B8) %>

<% =Application(A7) %>
<% =Application(B7) %>

<% =Application(A6) %>
<% =Application(B6) %>

<% =Application(A5) %>
<% =Application(B5) %>

<% =Application(A4) %>
<% =Application(B4) %>

<% =Application(A3) %>
<% =Application(B3) %>

<% =Application(A2) %>
<% =Application(B2) %>

<% =Application(A1) %>
<% =Application(B1) %>



Get your chat at Submitside: free script.





chatform.asp
<%
If Request.Form (Opinion)= then
ShowForm()
else
if Session(AA)= then
NewUser()
GoAhead()
else
GoAhead()
end if
end if %>
<% Sub ShowForm() %>





<% if Session(AA)= then %>
Chose a name or nickname


Type your opinion
<% else %>
<% =Session(AA) %>
<% end if %>
>








<% End Sub %>

<% Sub GoAhead() %>

<%
BB=Request.form(Opinion)
BB=server.htmlencode(BB)

Application.Lock
Application(B1)=Application(B2)
Application(B2)=Application(B3)
Application(B3)=Application(B4)
Application(B4)=Application(B5)
Application(B5)=Application(B6)
Application(B6)=Application(B7)
Application(B7)=Application(B8)
Application(B8)=Application(B9)
Application(B9)=BB

Application(A1)=Application(A2)
Application(A2)=Application(A3)
Application(A3)=Application(A4)
Application(A4)=Application(A5)
Application(A5)=Application(A6)
Application(A6)=Application(A7)
Application(A7)=Application(A8)
Application(A8)=Application(A9)
Application(A9)=Session(AA)
Application.Unlock
%>






<% =Session(AA) %>








<% End Sub %>

<% Sub NewUser() %>
<%
AA=Request.form(Name)
AA=server.htmlencode(AA)
Session(AA)=AA
%>

<% End Sub %>

分享:ASP利用Google实现在线翻译功能有时候想为我们的网页提供多语言支持,如果一种语言用一张网页来做实在太麻烦了,幸好Google提供了语言工具功能,下面介绍如何利用它来实现网页多种语言之间的转换。lan.htm