skins.asp

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

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

Dim vINIFile
Dim vSkincount
Dim vName, vFile
Dim vReturnString

vINIFile = Application("INIFile")

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

Do
	vName = INIFileValue(vINIFile, "Skins", "Name" & vSkinCount)
	If vName = "" Then Exit do
	vFile = INIFileValue(vINIFile, "Skins", "File" & vSkinCount)
	vReturnString = vReturnString & "&Name" & vSkinCount & "=" & Server.URLEncode(vName)
	vReturnString = vReturnString & "&File" & vSkinCount & "=" & Server.URLEncode(vFile)
	vSkinCount = vSkinCount + 1
Loop

vReturnString = "Result=OK" & vReturnString & "&SkinCount=" & vSkinCount
Response.Write vReturnString

Response.Flush
Response.End
%>