分类：电脑/网络-互联网
问题：自己的门户如何才能有聊天室？自己免费申请了一个门户，但想有个聊室 
自己免费申请了一个门户，但想有个聊室，不知该怎样获得？最好是免费的；最近不太忙；有个门户也想让大家方便交流下。
回答：一个免费的简单聊天室源 ml  以下为引用的内容：<html> <head><title>Chat</title></head> <frameset rows="*,100"> <frame src=" p"> <frame src=" p"> </frameset> </html>   p  以下为引用的内容：<html> <head> <META HTTP-EQUIV=refresh content="5;URL= p"></head> <body bgcolor=FFFFFF> <center> <table border=0 width=350> <tr><td width=50> <% =Application("A9") %></td><td width=300><% =Application("B9") %> </td></tr><tr><td> <% =Application("A8") %></td><td><% =Application("B8") %> </td></tr><tr><td> <% =Application("A7") %></td><td><% =Application("B7") %> </td></tr><tr><td> <% =Application("A6") %></td><td><% =Application("B6") %> </td></tr><tr><td> <% =Application("A5") %></td><td><% =Application("B5") %> </td></tr><tr><td width=50> <% =Application("A4") %></td><td><% =Application("B4") %> </td></tr><tr><td> <% =Application("A3") %></td><td><% =Application("B3") %> </td></tr><tr><td> <% =Application("A2") %></td><td><% =Application("B2") %> </td></tr><tr><td> <% =Application("A1") %></td><td><% =Application("B1") %> </td></tr></table> <table border=0 width=350> <tr><td align=right> Get your chat at <A REF=" ">Submitside</A>: free script. </td></tr></table> </center> </body> </html>   p  <%  If Request.Form ("Opinion")="" then  ShowForm()  else    if Session("AA")="" then   NewUser()   GoAhead()   else   GoAhead()   end if  end if %> <% Sub ShowForm() %> <html><body  bgcolor=FFFFFF> <center> <form method=post action= p> <table border=0><tr><td> <%  if Session("AA")="" then %> Chose a name or  nickname  <input type=text name=Name size=20><BR> Type your opinion  <% else %> <% =Session("AA") %> <% end if %> <input type=text size=60 name=Opinion value="<% = rm("Opinion") %>"><BR> <input type=submit value="Submit"> </td><tr></table> </form> </center> </body> </html> <% End Sub %> <% Sub GoAhead() %> <% BB= rm("Opinion") BB= mlencode(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 %> <html> <head></head><body bgcolor=FFFFFF> <center> <form method=post action= p> <table border=0><tr><td> <% =Session("AA") %> <input type=text size=60 name=Opinion> <BR><input type=submit value="Submit"> </td></tr></table> </form> </center> </body> </html> <% End Sub %> <% Sub NewUser() %>   <%   AA= rm("Name")   AA= mlencode(AA)   Session("AA")=AA   %> <% End Sub %>