language.asp

flashchat 基于flash的聊天室

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

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

Dim strLanguage

strLanguage = "" & Session("MyLanguage")
Application.Lock
Application("INIFile") = LoadINIFile(Server.MapPath("chat_ini.asp"))
Application.Unlock

If strLanguage = "" Then
	strLanguage = "" & IniFileValue(Application("INIFile"), "Languages", "ChatLanguage")
End If

Response.Write OutputINISection(Application("INIFile"), strLanguage)

Response.Flush
Response.End
%>