?? rooms.asp
字號(hào):
<%@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
%>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -