www.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>论坛SN:</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>GB名称:</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"-->