sound.asp

来自「asp+flash 文字聊天源码 asp+flash 文字聊天源码」· ASP 代码 · 共 26 行

<%@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
%>