<%=Forum_info(0)%>--管理页面

<% dim admin_flag admin_flag="04" if not master or instr(session("flag"),admin_flag)=0 then Errmsg=Errmsg+"
"+"

本页面为管理员专用，请登陆后进入。

您没有管理本页面的权限。" call dvbbs_error() else call main() conn.close set conn=nothing end if sub main() %>

论坛初始信息设置
注意：在这里您可以调整部分论坛信息提示，其中部分功能可能需要FSO的支持，如果不支持FSO文件写入功能，请直接手动修改相关文件。
操作选项	注册条款修改 \| 注册邮件内容修改 \| 注册发送短信修改

<% select case request("action") case "email" call email() case "sms" call sms() case else call reg() end select end sub sub reg() dim objFSO dim fdata dim objCountFile on error resume next Set objFSO = Server.CreateObject("Scripting.FileSystemObject") if request("save")="" then Set objCountFile = objFSO.OpenTextFile(Server.MapPath("inc/reg_txt.asp"),1,True) If Not objCountFile.AtEndOfStream Then fdata = objCountFile.ReadAll else fdata=request("fdata") Set objCountFile=objFSO.CreateTextFile(Server.MapPath("inc/reg_txt.asp"),True) objCountFile.Write fdata end if objCountFile.Close Set objCountFile=Nothing Set objFSO = Nothing if err.number<>0 then response.write "您的空间不支持FSO，请同您的空间商联系，或者查看相关权限设置
"&Err.Description&"" response.end end if %>

注册条款修改
注意：文件将被保存在你安装目录下的inc/reg_txt.asp里，如果您的空间不支持FSO，请直接编辑该文件！内容中带有《%%》的部分不要进行编辑
<%=fdata%>
当前文件路径：<%=Server.MapPath("inc/reg_txt.asp")%>

<% end sub sub email() dim objFSO dim fdata dim objCountFile on error resume next Set objFSO = Server.CreateObject("Scripting.FileSystemObject") if request("save")="" then Set objCountFile = objFSO.OpenTextFile(Server.MapPath("inc/email_txt.asp"),1,True) If Not objCountFile.AtEndOfStream Then fdata = objCountFile.ReadAll else fdata=request("fdata") Set objCountFile=objFSO.CreateTextFile(Server.MapPath("inc/email_txt.asp"),True) objCountFile.Write fdata end if objCountFile.Close Set objCountFile=Nothing Set objFSO = Nothing if err.number<>0 then response.write "您的空间不支持FSO，请同您的空间商联系，或者查看相关权限设置
"&Err.Description&"" response.end end if %>

注册条款修改
注意：文件将被保存在你安装目录下的inc/email_txt.asp里，如果您的空间不支持FSO，请直接编辑该文件！修改说明： ①修改本文件需要一定HTML和ASP代码知识，如果您不会，请不要随意改动 ②文件中带有《%%》和"&&"之类的字符不要随意做改动 ③mailbody变量是邮件内容变量，htmlencode(username)是用户名，getpass是密码，Copyright是版权，Version版本信息 ④需要增加行和内容可以回车后采用这种方式：mailbody=mailbody & "添加内容" ⑤HTML中的双引号建议改成单引号，也可以不要引号或者加两个双引号都可以
<%=fdata%>
当前文件路径：<%=Server.MapPath("inc/email_txt.asp")%>

<% end sub sub sms() dim objFSO dim fdata dim objCountFile on error resume next Set objFSO = Server.CreateObject("Scripting.FileSystemObject") if request("save")="" then Set objCountFile = objFSO.OpenTextFile(Server.MapPath("inc/sms_txt.asp"),1,True) If Not objCountFile.AtEndOfStream Then fdata = objCountFile.ReadAll else fdata=request("fdata") Set objCountFile=objFSO.CreateTextFile(Server.MapPath("inc/sms_txt.asp"),True) objCountFile.Write fdata end if objCountFile.Close Set objCountFile=Nothing Set objFSO = Nothing if err.number<>0 then response.write "您的空间不支持FSO，请同您的空间商联系，或者查看相关权限设置
"&Err.Description&"" response.end end if %>

注册条款修改
注意：文件将被保存在你安装目录下的inc/email_txt.asp里，如果您的空间不支持FSO，请直接编辑该文件！修改说明： ①修改本文件需要一定HTML和ASP代码知识，如果您不会，请不要随意改动 ②文件中带有《%%》和"&&"之类的字符不要随意做改动 ③body变量是短信内容变量，Forum_info(0)是论坛名称变量，chr(10)是换行符号 ④不可用回车，增加内容请直接添加或者使用换行符号后添加 ⑤不可用HTML代码
<%=fdata%>
当前文件路径：<%=Server.MapPath("inc/sms_txt.asp")%>

<% end sub %>