chatdoor2.asp

聊天室源码呵呵你好用~~~~~~2.0版本

<%@ LANGUAGE=VBScript%>
<%Response.Expires=0
online=Application("a_c_user_online")
bg=Request.QueryString("bg")
fc=Request.QueryString("fc")
if bg="" then bg="E0E0E0"
if fc="" then fc="000000"
sername=Request.ServerVariables("SERVER_NAME")
scrname=Request.ServerVariables("SCRIPT_NAME")
linkurl="http://" & sername & Left(scrname,(len(scrname)-13)) & "check.asp"
chat = "<table border='0' align='center' bgcolor='" & bg & "' cellspacing='2'><form method='post' action='" & linkurl & "' name='dxjhqtchatdoor' target=_blank>"
chat = chat & "<tr><td colspan='2'><div align='center'>"
chat = chat & "<font color='" & fc & "' style='font-size:12pt'></font>"
chat = chat & "</div></td></tr>"
chat = chat & "<tr><td colspan='2'><div align=center><select name='userlist' style='font-size:9pt'><option selected>共 "&Application("a_c_user_inthechat")&" 人在线</option>"
for i=1 to Application("a_c_user_inthechat")*4 step 4
 chat = chat & "<option>" & online(i) & "</option>"
next
chat = chat & "</select></div>"
chat = chat & "</td></tr><tr><td>"
chat = chat & "<font color='" & fc & "' style='font-size:9pt'>用户名:</font></td>"
chat = chat & "<td><input name='username' maxlength='10' style='font-size:9pt' tabindex='0' size='10'></td></tr><tr><td>"
chat = chat & "<font color='" & fc & "' style='font-size:9pt'>密　码:</font></td>"
chat = chat & "<td><input type='password' name='userpassword' maxlength='10' style='font-size:9pt' tabindex='0' size='10'></td></tr><tr><td>"
chat = chat & "<font color='" & fc & "' style='font-size:9pt'>性　别:</font></td>"
chat = chat & "<td><select style='font-size:9pt' name='gender' tabindex='0'><option value='0' selected>None</option><option value='1'>Boy</option><option value='2'>Girl</option></select></td></tr><tr><td colspan='2'><div align='center'><input type='submit' name='enter' value='进 入' style='font-size:9pt' tabindex='0'> <input type='reset' name='reset' value='重 写' style='font-size:9pt'></div></td></tr></form></table>"
Response.Write "document.write(" & chr(34) & chat & chr(34) & ");"
Response.end%>