www.gusucode.com > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告) > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告)\13学生论坛ASPAC\BBS\admin_bbsface.asp
<!--#include file="conn.asp"--> <!--#include file="inc/const.asp"--> <!-- #include file="inc/DvADChar.asp" --> <% 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=Mybbs.cachedata(17,0) End If If StyleID="" Then StyleID=1 If Not Mybbs.master or instr(","&session("flag")&",",admin_flag)=0 Then Founderr=true Errmsg=ErrMsg + "<BR><li>本页面为管理员专用,请<a href=admin_index.asp target=_top>登录</a>后进入。<br><li>您没有管理本页面的权限。" 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 %> <form method="POST" action=?Stype=<%=request("Stype")%> name="bbspic" > <table width="95%" border="0" cellspacing="1" cellpadding="3" align=center> <tr> <td height="23" colspan="4" ><B>说明</B>:<br>①、以下图片均保存于论坛<%=bbspicurl%>目录中,如要更换也请将图片放于该目录<br>②、右边复选框为删除选项,如果选择后点保存设置,则删除相应图片<BR>③、如仅仅修改文件名,可在修改相应选项后直接点击保存设置而不用选择右边复选框 </td> </tr> </table> <table width="95%" border="0" cellspacing="1" cellpadding="3" align=center class="tableBorder"> <tr> <th height="23" colspan="4" align=left><%=actname%>管理设置 (目前共有<%=count%>个<%=actname%>图片在文件夹:<%=bbspicurl%>)</th> </tr> <tr> <td width="20%" align=left class=forumrow>当前模版名称:</td> <td width="80%" align=left class=forumrow colspan="3"><%=StyleName%> </td> </tr> <tr> <td width="20%" align=left class=forumrow>增加的文件名:</td> <td width="80%" align=left class=forumrow colspan="3"><input type="text" name="NEWFILENAME" value="<%=newfilename%>">(<font color=red>建议采用默认,增加后把相应的文件名上传到该目录下。</font>) </td> </tr> <tr> <td width="20%" align=left class=forumrow>批量增加数目:</td> <td width="80%" align=left class=forumrow colspan="3"><input type="text" name="NEWNUM" value="<%=newnum%>"> <input type="submit" name="Submit" value="增加"> </td> </tr> <tr> <td width="20%" align=left class=forumrow>覆盖所有模板:</td> <td width="80%" align=left class=forumrow colspan="3">是<input type=radio name=coverall value=1 >否<input type=radio name=coverall value=0 checked> </td> </tr> <% 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 %> <tr> <td width="20%" class=forumRowHighlight><%=actname%>ID:<input type=hidden name="face_id<%=i%>" size="10" value="<%=i%>"><%=i%></td> <td width="75%" class=forumRowHighlight colspan="2">新增加的文件:<input type="text" name="userface<%=i%>" value="<%=TempName%>.gif"></td> <td width="5%" class=forumRowHighlight> <input type="checkbox" name="delid<%=i%>" value="<%=i%>"> </td> </tr> <% next end if %> <tr> <th width="20%" class=forumrow>文件</th> <th width="45%" class=forumrow>文件名</th> <th width="30%" class=forumrow> 图片 <th width="5%" class=forumrow> 删除 </th> </tr> <tr> <td width="20%" class=forumrow>文件目录:<input type=hidden name="face_id0" size="10" ></td> <td width="45%" class=forumrow> <input type="text" name="userface0" value="<%=bbspicurl%>"></td> <td width="30%" class=forumrow></td> <td width="5%" class=forumrow></td> </tr> <% for i=1 to bbspicmun %> <tr> <td width="20%" class=forumrow>文件名:<input type=hidden name="face_id<%=i%>" size="10" value="<%=i%>"></td> <td width="45%" class=forumrow> <input type="text" name="userface<%=i%>" value="<%=connfile(i)%>"></td> <td width="30%" class=forumrow> <img src=<%=bbspicurl%><%=connfile(i)%>> <td width="5%" class=forumrow> <input type="checkbox" name="delid<%=i%>" value="<%=i+1%>"> </td> </tr> <% next %> <tr> <td colspan="4" class=forumrow> <B>注意</B>:右边复选框为删除选项,如果选择后点保存设置,则删除相应图片<BR>如仅仅修改文件名,可在修改相应选项后直接点击保存设置而不用选择右边复选框 </td> </tr> <tr> <td colspan="4" class=forumrow> <div align="center"> 删除选项:删除所选的实际文件(<font color=red>需要FSO支持功能</font>):是<input type=radio name=setfso value=1 >否<input type=radio name=setfso value=0 checked> 请选择要删除的文件,<input type="checkbox" name=chkall value=on onclick="CheckAll(this.form)">全选 <BR> <input type="submit" name="Submit" value="保存设置"> <input type="submit" name="Submit" value="恢复默认设置"> <input type="submit" name="Submit" value="恢复默认总设置"> </div> </td> </tr> </table><BR><BR> </form> <script language="JavaScript"> <!-- function CheckAll(form) { for (var i=0;i<form.elements.length;i++) { var e = form.elements[i]; if (e.name != 'chkall') e.checked = form.chkall.checked; } } //--> </script> <% end sub sub saveconst() dim f_userface,formname,d_elid,faceid dim filepaths,objFSO,upface 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 upconfig=Mybbs.checkstr(upconfig) if Request.form("coverall")=1 Then sql = "update Dv_Style set Style_Pic='"&upconfig&"'" Else sql = "update Dv_Style set Style_Pic='"&upconfig&"' where id="&styleId End If Mybbs.execute(sql) Mybbs.DelCahe "Style_Pic"&StyleID 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 upconfig=Mybbs.checkstr(upconfig) if Request.form("coverall")=1 Then sql = "update Dv_Style set Style_Pic='"&upconfig&"'" Else sql = "update Dv_Style set Style_Pic='"&upconfig&"' where id="&styleId End If Mybbs.DelCahe "Style_Pic"&StyleID Mybbs.execute(sql) 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=Mybbs.Execute (SQL) If not NRs.eof Then StyleId=NRs(0) StyleName=NRs(1) Style_Pic=NRs(2) Else Errmsg=ErrMsg + "<li>"+"模块未找到,可能已被删除,请重新选取正确模版!" 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 %>