install6.asp

基于ASP开发的聊天室源码

<%
chatroomname=Request.Form("chatroomname")
master=Request.Form("master")
open=Request.Form("open")
reg=Request.Form("reg")
intochat=Request.Form("intochat")
outchat=Request.Form("outchat")
outdown=Request.Form("outdown")
drop=Request.Form("drop")
changename=Request.Form("changename")
kick=Request.Form("kick")
ip=Request.Form("ip")
unip=Request.Form("unip")
hongzha=Request.Form("hongzha")
kick_long=Request.Form("kick_long")
ip_long=Request.Form("ip_long")
hongzha_long=Request.Form("hongzha_long")
delnameday=Request.Form("delnameday")
clsmax=Request.Form("clsmax")
savevaluetime=Request.Form("savevaluetime")
reloadtime=Request.Form("reloadtime")
badwordtime=Request.Form("badwordtime")
timeout=Request.Form("timeout")
chatbg=Request.Form("chatbg")
chatbgpic=Request.Form("chatbgpic")
chattext=Request.Form("chattext")
chatfontsize=Request.Form("chatfontsize")
saybg=Request.Form("saybg")
saybgpic=Request.Form("saybgpic")
saytext=Request.Form("saytext")
titlebg=Request.Form("titlebg")
titlebgpic=Request.Form("titlebgpic")
titletext=Request.Form("titletext")
butbg=Request.Form("butbg")
buttext=Request.Form("buttext")
selectbg=Request.Form("selectbg")
selecttext=Request.Form("selecttext")
if not (IsNumeric(kick_long) and IsNumeric(ip_long) and IsNumeric(hongzha_long) and IsNumeric(delnameday) and IsNumeric(clsmax) and IsNumeric(savevaluetime) and IsNumeric(reloadtime) and IsNumeric(badwordtime) and IsNumeric(timeout)) then Response.Redirect "err.asp?kind=63"
if Int(reloadtime)<3 then Response.Redirect "err.asp?kind=120"
if Int(timeout)<500 then Response.Redirect "err.asp?kind=121"
set fso=server.createobject("scripting.filesystemobject")
file=server.mappath("config.asp")
set fs=fso.opentextfile(file,2,true)
fs.writeline "<" & "%"
fs.writeline "const zzbird_chatroomname=" & chr(34) & chatroomname & chr(34)
fs.writeline "const zzbird_master=" & chr(34) & master & chr(34)
if open="yes" then 
 fs.writeline "const zzbird_open=true"
else
 fs.writeline "const zzbird_open=false"
end if
if reg="yes" then
 fs.writeline "const zzbird_reg=true"
else
 fs.writeline "const zzbird_reg=false"
end if
fs.writeline "const zzbird_intochat=" & chr(34) & intochat & chr(34)
fs.writeline "const zzbird_outchat=" & chr(34) & outchat & chr(34)
fs.writeline "const zzbird_outdown=" & chr(34) & outdown & chr(34)
fs.writeline "const zzbird_drop=" & chr(34) & drop & chr(34)
fs.writeline "const zzbird_changename=" & chr(34) & changename & chr(34)
fs.writeline "const zzbird_kick=" & chr(34) & kick & chr(34)
fs.writeline "const zzbird_ip=" & chr(34) & ip & chr(34)
fs.writeline "const zzbird_unip=" & chr(34) & unip & chr(34)
fs.writeline "const zzbird_hongzha=" & chr(34) & hongzha & chr(34)
fs.writeline "const zzbird_kick_long=" & kick_long
fs.writeline "const zzbird_ip_long=" & ip_long
fs.writeline "const zzbird_hongzha_long=" & hongzha_long
fs.writeline "const zzbird_delnameday=" & delnameday
fs.writeline "const zzbird_clsmax=" & clsmax
fs.writeline "const zzbird_savevaluetime=" & savevaluetime
fs.writeline "const zzbird_reloadtime=" & reloadtime
fs.writeline "const zzbird_badwordtime=" & badwordtime
fs.writeline "const zzbird_timeout=" & timeout
fs.writeline "const zzbird_chatbg=" & chr(34) & chatbg & chr(34)
fs.writeline "const zzbird_chatbgpic=" & chr(34) & chatbgpic & chr(34)
fs.writeline "const zzbird_chattext=" & chr(34) & chattext & chr(34)
fs.writeline "const zzbird_chatfontsize=" & chr(34) & chatfontsize & chr(34)
fs.writeline "const zzbird_saybg=" & chr(34) & saybg & chr(34)
fs.writeline "const zzbird_saybgpic=" & chr(34) & saybgpic & chr(34)
fs.writeline "const zzbird_saytext=" & chr(34) & saytext & chr(34)
fs.writeline "const zzbird_titlebg=" & chr(34) & titlebg & chr(34)
fs.writeline "const zzbird_titlebgpic=" & chr(34) & titlebgpic & chr(34)
fs.writeline "const zzbird_titletext=" & chr(34) & titletext & chr(34)
fs.writeline "const zzbird_butbg=" & chr(34) & butbg & chr(34)
fs.writeline "const zzbird_buttext=" & chr(34) & buttext & chr(34)
fs.writeline "const zzbird_selectbg=" & chr(34) & selectbg & chr(34)
fs.writeline "const zzbird_selecttext=" & chr(34) & selecttext & chr(34)
fs.writeline "const zzbird_gonggao=" & chr(34) & zzbird_gonggao & chr(34)
fs.writeline "const zzbird_disip=" & chr(34) & zzbird_disip & chr(34)
fs.writeline "%" & ">"
fs.close
set fs=nothing
set fso=nothing
%>
<Script>
top.location.href="install7.asp";
</Script>