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

<% dim face_id,count dim newnum,newfilename dim orders,bbspicmun,bbspicurl,picfilename,actname,connfile,upconfig if not isInteger(request("orders")) or request("orders")="" then orders=1 else orders=request("orders") end if select case orders case 1 bbspicmun=Forum_userfaceNum bbspicurl=Forum_info(11) connfile=Forum_userface actname="注册头像" picfilename="image" case 2 bbspicmun=Forum_PostFaceNum bbspicurl=Forum_info(8) connfile=Forum_PostFace actname="发贴心情图片" picfilename="face" case 3 bbspicmun=Forum_emotNum bbspicurl=Forum_info(10) connfile=Forum_emot actname="发贴表情图片" picfilename="em" case else bbspicmun=Forum_userfaceNum bbspicurl=Forum_info(11) connfile=Forum_userface actname="注册头像" picfilename="image" end select if trim(request("newfilename"))<>"" then newfilename=trim(request("newfilename")) else newfilename=picfilename end if if bbspicmun<0 then count=0 else count=bbspicmun end if if REQUEST("Newnum")<>"" and request("Newnum")<>0 then newnum=REQUEST("Newnum") else newnum=0 end if dim admin_flag admin_flag="73,74,75" if not master or instr(session("flag"),"73")=0 or instr(session("flag"),"74")=0 or instr(session("flag"),"75")=0 then Errmsg=Errmsg+"
"+"

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

您没有管理本页面的权限。" call dvbbs_error() else if request("Submit")="保存设置" then call saveconst() elseif request("Submit")="恢复默认设置" then call savedefault() else call consted() end if if founderr then call dvbbs_error() conn.close set conn=nothing end if sub consted() dim sel %>

&skinid=<%=skinid%> name="bbspic" >

说明：
①、以下图片均保存于论坛<%=bbspicurl%>目录中，如要更换也请将图片放于该目录
②、右边复选框为删除选项，如果选择后点保存设置，则删除相应图片
③、如仅仅修改文件名，可在修改相应选项后直接点击保存设置而不用选择右边复选框

> > > <% IF REQUEST("Submit")="增加" and REQUEST("Newnum")<>"" and request("Newnum")<>0 then newnum=REQUEST("Newnum") for i=count to count+newnum-1 %> <% next end if %> <% for i=0 to bbspicmun-1 %> <% next %>

<%=actname%>管理设置（目前共有<%=count%>个<%=actname%>图片在文件夹：<%=bbspicurl%>）
增加的文件名：	（建议采用默认，增加后把相应的文件名上传到该目录下。）
批量增加数目：
<%=actname%>ID：<%=i%>	新增加的文件：
文件	文件名	图片	删除
文件名：		<%=connfile(i)%>>
注意：右边复选框为删除选项，如果选择后点保存设置，则删除相应图片如仅仅修改文件名，可在修改相应选项后直接点击保存设置而不用选择右边复选框
删除选项：删除所选的实际文件（需要FSO支持功能）：是否请选择要删除的文件，全选

<% end sub sub saveconst() dim f_userface,formname,d_elid,faceid dim filepaths,objFSO,upface if trim(request("skinid"))="" and trim(request("boardid"))="" then Founderr=true Errmsg=Errmsg+"
"+"

请选择保存的模板名称" else for i=0 to count+newnum-1 faceid="face_id"&i d_elid="delid"&i formname="userface"&i if cint(request.Form(d_elid))=0 then f_userface=f_userface&request.Form(formname)&"|" else upface=bbspicurl&request.Form(formname) if request("setfso")=1 then filepaths=Server.MapPath(""&upface&"") Set objFSO = Server.CreateObject("Scripting.FileSystemObject") if objFSO.fileExists(filepaths) then objFSO.DeleteFile(filepaths) response.write "删除"&filepaths else response.write "未找到"&filepaths end if end if end if next if request("skinid")<>"" then select case orders case 1 upconfig=" Forum_userface='"&f_userface& "' " case 2 upconfig=" Forum_PostFace='"&f_userface& "' " case 3 upconfig=" Forum_emot='"&f_userface& "' " case else upconfig=" Forum_userface='"&f_userface& "' " end select sql = "update config set "&upconfig&" " 'response.write sql conn.execute(sql) end if response.write "
设置成功。点击返回" end if end sub sub savedefault() dim userface,PostFace,emot select case orders case 1 for i=1 to 60 userface=userface&"face"&i&".gif|" next sql = "update config set Forum_userface='"&userface&"' " conn.execute(sql) case 2 for i=1 to 18 PostFace=PostFace&"face"&i&".gif|" next sql = "update config set Forum_PostFace='"&PostFace&"' " conn.execute(sql) case 3 for i=1 to 9 emot=emot&"em0"&i&".gif|" next for i=10 to 28 emot=emot&"em"&i&".gif|" next sql = "update config set Forum_emot='"&emot&"' " conn.execute(sql) case else for i=1 to 60 userface=userface&"face"&i&".gif|" next sql = "update config set Forum_userface='"&userface&"' " conn.execute(sql) end select response.write "
设置成功。点击返回" end sub %>