orumset.asp 仿MOP对开式论坛程序 1.0源码程序 - ASP源码程序

gusucode.com > 仿MOP对开式论坛程序 1.0源码程序 > forumset.asp
    <%@language="VBScript"%>
<!--#include file="title.asp"-->
<%
contents=contents &"<title>论坛设置－"& caption &"</title>"&_
"</head>"&_
"<body>"&_
""&_
"<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"" class=""tdc"">"
if bbsadmin>4 then
Dim succe,url,forumset,fso,fsobj,nbbssn,ncaption,nsiteurl,ngbname,regchk,nunreg,nunname,ubbchk,ndefaulttheme,nframesetcolor,ndefaultleft,nreggb,naddgb,naddgbinterval,nanonymitygb,rtoolchk,nbbsad
Function rbbssn()
Randomize()
rbbssn=Left(Rnd()*1000000000000000,6)
rbbssn=Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(rbbssn,1,"G"),2,"g"),3,"B"),4,"b"),5,"M"),6,"m"),7,"A"),8,"a"),9,"D"),0,"d")
end Function
url=Request.ServerVariables("HTTP_REFERER")
if Instr(url,"forumset.asp")>0 then
nbbssn=Trim(Request.Form("bbssn"))
if nbbssn<>"" then bbssn=nbbssn
ncaption=Trim(Request.Form("caption"))
if ncaption<>"" then caption=ncaption
nsiteurl=Trim(Request.Form("siteurl"))
if nsiteurl<>"" then siteurl=nsiteurl
ngbname=Trim(Request.Form("gbname"))
if ngbname<>"" then gbname=ngbname
regchk=Trim(Request.Form("regchk"))
nunreg=Trim(Request.Form("unreg"))
if nunreg<>"" then unreg=nunreg
nunname=Trim(Request.Form("unname"))
if nunname<>"" then unname=nunname
ubbchk=Trim(Request.Form("ubbchk"))
ndefaulttheme=Trim(Request.Form("defaulttheme"))
if ndefaulttheme<>"" then defaulttheme=ndefaulttheme
nframesetcolor=Trim(Request.Form("framesetcolor"))
if nframesetcolor<>"" then framesetcolor=nframesetcolor
ndefaultleft=Trim(Request.Form("defaultleft"))
if ndefaultleft<>"" then defaultleft=ndefaultleft
nreggb=Trim(Request.Form("reggb"))
if nreggb<>"" then reggb=nreggb
naddgb=Trim(Request.Form("addgb"))
if naddgb<>"" then addgb=naddgb
naddgbinterval=Trim(Request.Form("addgbinterval"))
if naddgbinterval<>"" then addgbinterval=naddgbinterval
nanonymitygb=Trim(Request.Form("anonymitygb"))
if nanonymitygb<>"" then anonymitygb=nanonymitygb
rtoolchk=Trim(Request.Form("rtoolchk"))
nbbsad=Trim(Request.Form("bbsad"))
if nbbsad<>"" then bbsad=nbbsad
forumset=Chr(60) & Chr(37) & vbcrlf &"Dim bbssn,caption,siteurl,gbname,unreg,unname,ubb,defaulttheme,framesetcolor,defaultleft,reggb,addgb,addgbinterval,anonymitygb,rtool,bbsad"& vbcrlf &_
"bbssn="""& bbssn &""""& vbcrlf &_
"caption="""& caption &""""& vbcrlf &_
"siteurl="""& siteurl &""""& vbcrlf &_
"gbname="""& gbname &""""& vbcrlf
if regchk="yes" then
forumset=forumset &"unreg="""""& vbcrlf
unreg=""
else
forumset=forumset &"unreg="""& unreg &""""& vbcrlf
end if
forumset=forumset &"unname="""& unname &""""& vbcrlf
if ubbchk="yes" then
forumset=forumset &"ubb=1"& vbcrlf
ubb=1
else
forumset=forumset &"ubb=0"& vbcrlf
ubb=0
end if
forumset=forumset &"defaulttheme="""& defaulttheme &""""& vbcrlf &_
"framesetcolor="""& framesetcolor &""""& vbcrlf &_
"defaultleft="""& defaultleft &""""& vbcrlf &_
"reggb="& reggb & vbcrlf &_
"addgb="& addgb & vbcrlf &_
"addgbinterval="& addgbinterval & vbcrlf &_
"anonymitygb="& anonymitygb & vbcrlf
if rtoolchk="yes" then
forumset=forumset &"rtool=1"& vbcrlf
rtool=1
else
forumset=forumset &"rtool=0"& vbcrlf
rtool=0
end if
forumset=forumset &"bbsad="""& bbsad &""""& vbcrlf &_
Chr(37) & Chr(62)
Set fso=CreateObject("Scripting.FileSystemObject")
Set fsobj=fso.CreateTextFile(Server.MapPath("setting.asp"),true)
fsobj.Write forumset
fsobj.Close
Set fsobj=Nothing
Set fso=Nothing
succe="　填写成功。"
end if
if bbssn="gbmad" then bbssn=rbbssn()
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">论坛设置</td></tr>"&_
"<tr class=""tds""><td>"&_
"<table border=""0"" cellpadding=""3"" cellspacing=""3"" width=""100%"">"&_
"<form name=""forumset"" method=""post"" action=""forumset.asp"">"&_
"<tr><td width=""64"">保存设置：</td><td><input type=""submit"" value=""提交"" class=""out"" onmouseover=""this.className='over'"" onmouseout=""this.className='out'"">"& succe &"</td><td class=""otr"">保存下面更改的设置。</td></tr>"&_
"<tr><td>论坛ＳＮ：</td><td><input name=""bbssn"" type=""text"" maxlength=""255"" size=""27"" class=""iptwin"" value="""& bbssn &"""></td><td class=""otr"">论坛的随机序列号，允许在一个服务器安装多个论坛而不会导致冲突，非必要时请勿修改（必须是英文）。</td></tr>"&_
"<tr><td>论坛名称：</td><td><input name=""caption"" type=""text"" maxlength=""255"" size=""27"" class=""iptwin"" value="""& caption &"""></td><td class=""otr"">社区的名称。</td></tr>"&_
"<tr><td>论坛地址：</td><td><input name=""siteurl"" type=""text"" maxlength=""255"" size=""27"" class=""iptwin"" value="""& siteurl &"""></td><td class=""otr"">社区的网址。</td></tr>"&_
"<tr><td>ＧＢ名称：</td><td><input name=""gbname"" type=""text"" maxlength=""255"" size=""27"" class=""iptwin"" value="""& gbname &"""></td><td class=""otr"">社区的gb，也就是虚拟货币的名称。</td></tr>"&_
"<tr><td>注册用户：</td><td><input name=""regchk"" type=""checkbox"" value=""yes"""
if unreg="" then contents=contents &" checked"
contents=contents &">允许</td><td class=""otr"">不选择则不允许注册新用户。</td></tr>"&_
"<tr><td>停注原因：</td><td><input name=""unreg"" type=""text"" maxlength=""255"" size=""27"" class=""iptwin"" value="""
if unreg="" then
contents=contents &"由于大量粪青进入，暂时停止注册新用户。"
else
contents=contents & unreg
end if
contents=contents &"""></td><td class=""otr"">当不允许注册新用户时填写。</td></tr>"&_
"<tr><td>UBB 语言：</td><td><input name=""ubbchk"" type=""checkbox"" value=""yes"""
if ubb=1 then contents=contents &" checked"
contents=contents &">允许</td><td class=""otr"">是否允许UBB语言，就是[url]…[/url]这样啊，推荐不使用。</td></tr>"&_
"<tr><td>注册过滤：</td><td><input name=""unname"" type=""text"" maxlength=""255"" size=""27"" class=""iptwin"" value="""& unname &"""></td><td class=""otr"">不允许注册用户名包含字符，防止冒名管理员等，用|隔开。</td></tr>"&_
"<tr><td>默认主题：</td><td><input name=""defaulttheme"" type=""text"" maxlength=""255"" size=""27"" class=""iptwin"" value="""& defaulttheme &"""></td><td class=""otr"">社区默认的主题样式，填入主题样式对应的文件夹名称。</td></tr>"&_
"<tr><td>框架颜色：</td><td><input name=""framesetcolor"" type=""text"" maxlength=""255"" size=""27"" class=""iptwin"" value="""& framesetcolor &""" style=""color:#"& framesetcolor &"""></td><td class=""otr"">社区框架的边框颜色，Hex值。</td></tr>"&_
"<tr><td>默认左栏：</td><td><input name=""defaultleft"" type=""text"" maxlength=""255"" size=""27"" class=""iptwin"" value="""& defaultleft &"""></td><td class=""otr"">社区左栏默认显示版面。</td></tr>"&_
"<tr><td>注册gb值：</td><td><input name=""reggb"" type=""text"" maxlength=""255"" size=""27"" class=""iptwin"" value="""& reggb &"""></td><td class=""otr"">注册时gb值。</td></tr>"&_
"<tr><td>gb增加值：</td><td><input name=""addgb"" type=""text"" maxlength=""255"" size=""27"" class=""iptwin"" value="""& addgb &"""></td><td class=""otr"">每次间隔时间后登陆增加gb的值。</td></tr>"&_
"<tr><td>gb增间隔：</td><td><input name=""addgbinterval"" type=""text"" maxlength=""255"" size=""27"" class=""iptwin"" value="""& addgbinterval &"""></td><td class=""otr"">登陆时增加gb的间隔时间，单位为秒。</td></tr>"&_
"<tr><td>匿名gb减：</td><td><input name=""anonymitygb"" type=""text"" maxlength=""255"" size=""27"" class=""iptwin"" value="""& anonymitygb &"""></td><td class=""otr"">匿名发贴回帖时扣除的gb值。</td></tr>"&_
"<tr><td>随机道具：</td><td><input name=""rtoolchk"" type=""checkbox"" value=""yes"""
if rtool=1 then contents=contents &" checked"
contents=contents &">允许</td><td class=""otr"">是否允许用户在发贴、回帖、浏览帖子列表等时候随机获得道具。</td></tr>"&_

"</form>"&_
"</table>"&_
"</td></tr>"
else
call connclose
Response.Redirect "login.asp"
end if
contents=contents &"</table>"&_
""
%>
<!--#include file="bottom.asp"-->