rooms.asp

flash_chatc聊天程序,需要asp环境支持的

<%@Language = "VBScript"%>
<%
Option Explicit
Response.Buffer = True
Response.Expires = -1000

Dim vINIFile
Dim vRoomCount
Dim vRoomName, vRoomPassword
Dim vReturnString

vINIFile = Application("INIFile")

%>
<!-- #INCLUDE FILE="inifiles.asp" -->
<%


If Request.QueryString("getname") = "1" Then
	vRoomName = INIFileValue(vINIFile, "Rooms", "Name" & Session("RoomNo"))
	Response.Write "txtRoomName=" & vRoomName
	Response.Flush
	Response.End
End If

vRoomCount = 1

Do
	vRoomName = INIFileValue(vINIFile, "Rooms", "Name" & vRoomCount)
	If vRoomName = "" Then Exit do
	vRoomPassword = INIFileValue(vINIFile, "Rooms", "Password" & vRoomCount)
	vReturnString = vReturnString & "&Name" & vRoomcount & "=" & Server.URLEncode(vRoomName)
	vReturnString = vReturnString & "&Users" & vRoomCount & "=" & (0 + Application("UserCount" & vRoomCount))
	vReturnString = vReturnString & "&Password" & vRoomcount & "=" & (vRoomPassword<>"")
	vRoomCount = vRoomCount + 1
Loop

vReturnString = vReturnString & "&CurrentRoom=" & Session("RoomNo")
vReturnString = "Result=OK" & vReturnString & "&RoomCount=" & vRoomCount
			
Response.Write vReturnString
Response.Flush
Response.End
%>