sound.asp

asp+flash 文字聊天源码 asp+flash 文字聊天源码

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

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

Dim vSoundOnOff

Application.Lock
Application("INIFile") = LoadINIFile(Server.MapPath("chat_ini.asp"))
Application.Unlock

vSoundOnOff = "" & Trim(IniFileValue(Application("INIFile"), "sounds", "sounds"))

If vSoundOnOff = "" Then vSoundOnOff = "1"


Response.Write "sounds=" & vSoundOnOff & "&result=OK"

Response.Flush
Response.End
%>