<% Head() Dim admin_flag admin_flag=",20," Dim StyleID,StyleName,Style_Pic,Stype Dim Forum_emotNum,Forum_userfaceNum,Forum_PostFaceNum Dim Forum_PostFace,Forum_userface,Forum_emot Dim face_id,Count Dim newnum,newfilename Dim bbspicmun,bbspicurl,picfilename,actname,connfile,upconfig Dim TempForum_PostFace,TempForum_userface,TempForum_emot If IsNumeric(Request("Stype")) and Request("Stype")<>"" Then Stype = Cint(Request("Stype")) '1=表情，2=心情em，3=头像 Else Stype=4 End If If Request.QueryString("StyleID")<>"" and IsNumeric(Request.QueryString("StyleID")) Then StyleID=Cint(Request("StyleID")) Else StyleID=Dvbbs.CacheData(17,0) End If If StyleID="" Then StyleID=1 If Not Dvbbs.master or instr(","&session("flag")&",",admin_flag)=0 Then Founderr=true Errmsg=ErrMsg + "

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

您没有管理本页面的权限。" dvbbs_error() Else GetNum() End If If Founderr=false Then Select Case Stype case 1 'skins/default/topicface/face1.gif bbspicmun=Forum_PostFaceNum-1 If not isarray(Forum_PostFace) Then bbspicurl="../Skins/default/topicface/" Else bbspicurl="../" & Forum_PostFace(0) End If connfile=Forum_PostFace actname="发贴表情图片" picfilename="face" case 2 'Skins/Default/emot/em01.gif 'Forum_emot bbspicmun=Forum_emotNum-1 If not isarray(Forum_emot) Then bbspicurl="../Skins/Default/emot/" Else bbspicurl="../" & Forum_emot(0) End If connfile=Forum_emot actname="发贴心情图片" picfilename="em" case 3 'Images/userface/image1.gif bbspicmun=Forum_userfaceNum-1 If not isarray(Forum_userface) Then bbspicurl="../Images/userface/" Else bbspicurl="../" & Forum_userface(0) End If connfile=Forum_userface actname="注册头像" picfilename="image" case else 'Images/userface/image1.gif bbspicmun=Forum_userfaceNum-1 If not isarray(Forum_userface) Then bbspicurl="../Images/userface/" Else bbspicurl="../" & Forum_userface(0) End If 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=1 else count=bbspicmun+1 end if if REQUEST("Newnum")<>"" and request("Newnum")<>0 then newnum=REQUEST("Newnum") else newnum=0 end if if request("Submit")="保存设置" then call saveconst() elseif request("Submit")="恢复默认设置" then call savedefault() ElseIf request("Submit")="恢复默认总设置" then Stype=4 call savedefault() else call consted() end if End If if Founderr then dvbbs_error() Footer() sub consted() dim sel %>

name="bbspic" >

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

<% Dim TempName IF REQUEST("Submit")="增加" and REQUEST("Newnum")<>"" and request("Newnum")<>0 then newnum=REQUEST("Newnum") for i=count to count+newnum-1 if stype=2 and i<10 Then TempName = newfilename&"0"&i Else TempName = newfilename&i End If %> <% next end if %> <% for i=1 to bbspicmun %> <% next %>

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

<% end sub sub saveconst() dim f_userface,formname,d_elid,faceid dim filepaths,objFSO,upface,Rs 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) upface=replace(upface,"..","") upface=replace(upface,"\","") 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 Set objFSO=Nothing ''1=表情，2=心情em，3=头像 'Style_Pic=TempForum_userface+"@@@"+TempForum_PostFace+"@@@"+TempForum_emot f_userface=replace(f_userface,"@@@","") Select Case Stype Case 1 upconfig=TempForum_userface+"@@@"+f_userface+"@@@"+TempForum_emot Case 2 upconfig=TempForum_userface+"@@@"+TempForum_PostFace+"@@@"+f_userface Case 3 upconfig=f_userface+"@@@"+TempForum_PostFace+"@@@"+TempForum_emot End Select If Request.form("coverall")=1 Then sql = "update Dv_Style set Style_Pic='"&Dvbbs.checkstr(upconfig)&"'" Set Rs = Dvbbs.Execute("Select ID From Dv_Style") If Not (Rs.Eof And Rs.Bof) Then Do While Not Rs.Eof Dvbbs.Name = "Style_Pic"&Rs(0) Dvbbs.value=upconfig Rs.MoveNext Loop End If Rs.Close Set Rs=Nothing Else sql = "update Dv_Style set Style_Pic='"&Dvbbs.checkstr(upconfig)&"' where id="&styleId Dvbbs.Name = "Style_Pic"&StyleID Dvbbs.value=upconfig End If Dvbbs.execute(sql) Dv_suc(actname&"设置成功。") End Sub sub savedefault() dim userface,upconfig userface="" select case Stype case 1 for i=1 to 18 userface=userface&"face"&i&".gif|||" next userface="Skins/default/topicface/|||"+userface upconfig=TempForum_userface+"@@@"+userface+"@@@"+TempForum_emot case 2 for i=1 to 9 userface=userface&"em0"&i&".gif|||" next for i=10 to 49 userface=userface&"em"&i&".gif|||" next userface="Skins/Default/emot/|||"+userface upconfig=TempForum_userface+"@@@"+TempForum_PostFace+"@@@"+userface case 3 for i=1 to 60 userface=userface&"image"&i&".gif|||" next userface="Images/userface/|||"+userface upconfig=userface+"@@@"+TempForum_PostFace+"@@@"+TempForum_emot case else ''头像--------------------------------------- for i=1 to 60 userface=userface&"image"&i&".gif|||" next userface="Images/userface/|||"+userface upconfig=userface+"@@@" ''表情--------------------------------------- userface="" for i=1 to 18 userface=userface&"face"&i&".gif|||" next userface="Skins/default/topicface/|||"+userface upconfig=upconfig+userface+"@@@" ''心情--------------------------------------- userface="" for i=1 to 9 userface=userface&"em0"&i&".gif|||" next for i=10 to 49 userface=userface&"em"&i&".gif|||" next userface="Skins/Default/emot/|||"+userface upconfig=upconfig+userface end select If Request.form("coverall")=1 Then sql = "update Dv_Style set Style_Pic='"&Dvbbs.checkstr(upconfig)&"'" Set Rs = Dvbbs.Execute("Select ID From Dv_Style") If Not (Rs.Eof And Rs.Bof) Then Do While Not Rs.Eof Dvbbs.Name = "Style_Pic"&Rs(0) Dvbbs.value=upconfig Rs.MoveNext Loop End If Rs.Close Set Rs=Nothing Else sql = "update Dv_Style set Style_Pic='"&Dvbbs.checkstr(upconfig)&"' where id="&styleId Dvbbs.Name = "Style_Pic"&StyleID Dvbbs.value=upconfig End If Dv_suc(actname&"恢复设置成功。") end sub '表名：Dv_Style '字段名：Style_Pic '@@@,||| Sub GetNum() Dim NRs SQL=" Select id,StyleName,Style_Pic from Dv_Style where id="&styleId Set NRs=Dvbbs.Execute (SQL) If not NRs.eof Then StyleId=NRs(0) StyleName=NRs(1) Style_Pic=NRs(2) Else Errmsg=ErrMsg + "

"+"模块未找到，可能已被删除，请重新选取正确模版！" Founderr=True Exit Sub End if Rs.close:Set Rs=Nothing Style_Pic=Split(Style_Pic,"@@@") '模版大类以@@@分割；小类以|||分割; TempForum_userface=Style_Pic(0) '用户头像 TempForum_PostFace=Style_Pic(1) '发贴表情 TempForum_emot=Style_Pic(2) '发贴心情 EM Forum_PostFace=split(TempForum_PostFace,"|||") Forum_userface=split(TempForum_userface,"|||") Forum_emot=split(TempForum_emot,"|||") Forum_emotNum=UBound(Forum_emot) Forum_userfaceNum=UBound(Forum_userface) Forum_PostFaceNum=UBound(Forum_PostFace) End Sub %>