<% Head() Dim Admin_flag Admin_flag=",36," If Not Dvbbs.master or instr(","&session("flag")&",",Admin_flag)=0 then Errmsg=ErrMsg + "
  • 本页面为管理员专用，请登录后进入。
  • 您没有管理本页面的权限。" dvbbs_error() Else Select Case Request("Action") Case "Addnew" AddNew() Case "EditMagic" EditMagic() Case Else Main_head() MagicFaceList() End Select If founderr then dvbbs_error() End If Footer() Sub Main_head() %>
    魔法表情（头像）设置和管理
    魔法表情（头像）设置和管理：
    1、魔法表情（头像）默认的图片和Flash效果图路径分别是：Dv_Plus/Tools/magicface/gif/和Dv_Plus/Tools/magicface/swf/，在添加或管理图片和flash效果的时候最好将相关文件上传到此位置。
    2、您可以分别设定使用每个魔法表情所需要的金币和点券数，所设置的金币和点券数为用户购买需要。可设置使用每个魔法表情（头像）需要的帖子、金钱、经验、魅力、威望数限制，这些只是限制达到此标准的才能使用，并不扣除相应设置的数值。

    <% End Sub Sub MagicFaceList() Dim Rs,Sql,iMagicFaceType,i,ii,stype Dim Page,MaxRows,Endpage,CountNum,PageSearch,SqlString Endpage = 0 MaxRows = 50 Page = Request("Page") If IsNumeric(Page) = 0 or Page="" Then Page=1 Page = Clng(Page) stype = Request("stype") If IsNumeric(stype) = 0 or stype="" Then stype=-1 stype = Clng(stype) Response.Write "" iMagicFaceType = Split(MagicFaceType,"|") PageSearch = "stype="&stype %> <% '[Dv_Plus_Tools_MagicFace] 'ID,Title,MagicFace_s,MagicFace_l,iMoney,iTicket,MagicSetting Dim MagicSetting If stype = -1 Then Sql="Select ID,Title,MagicFace_s,MagicFace_s As MagicFace_l,MagicType,iMoney,iTicket,MagicSetting,tMoney,tTicket From Dv_Plus_Tools_MagicFace Order By ID Desc" Else Sql="Select ID,Title,MagicFace_s,MagicFace_s As MagicFace_l,MagicType,iMoney,iTicket,MagicSetting,tMoney,tTicket From Dv_Plus_Tools_MagicFace Where MagicType = "&stype&" Order By ID Desc" End If Set Rs = Server.CreateObject ("adodb.recordset") If Cint(Dvbbs.Forum_Setting(92))=1 Then If Not IsObject(Plus_Conn) Then Plus_ConnectionDatabase Rs.Open Sql,Plus_Conn,1,1 Else If Not IsObject(Conn) Then ConnectionDatabase Rs.Open Sql,conn,1,1 End If If Not (Rs.Eof And Rs.Bof) Then CountNum = Rs.RecordCount If CountNum Mod MaxRows=0 Then Endpage = CountNum \ MaxRows Else Endpage = CountNum \ MaxRows+1 End If Rs.MoveFirst If Page > Endpage Then Page = Endpage If Page < 1 Then Page = 1 If Page >1 Then Rs.Move (Page-1) * MaxRows End if SQL=Rs.GetRows(MaxRows) For i=0 To Ubound(SQL,2) MagicSetting = Split(SQL(7,i),"|") %> <% Next End If Rs.Close Set Rs=Nothing %>
  • 图片和Flash请参照上述说明放在默认目录，图片用数字序号填写，图片和flash文件只是在显示时后缀不同，在此为统一名称，点击图片可预览效果
  • 修改魔法表情（头像）类别请打开Dv_Plus/Tools/plus_tools_const.asp文件修改其中MagicFaceType参数
  • 金币1和点券1是购买魔法表情的价格，金币2和点券2是购买魔法头像的价格
  • 添加魔法表情（头像）请预先准备三个文件并传到相应目录，两个gif图片分别是小和大图片，小图片用于用户购买选择处显示，大图片用于用户购买魔法头像后在帖子及其资料中显示，一个swf文件是魔法效果
    快速查看分类：全部 | <% For i = 0 To Ubound(iMagicFaceType) If i <> Ubound(iMagicFaceType) Then Response.Write ""&iMagicFaceType(i)&" | " Else Response.Write ""&iMagicFaceType(i)&"" End If Next %>
    • ID 预览 说明 类别 图片 金币1 点券1 金币2 点券2 帖子 金钱 经验 魅力 威望 操作
    新
    <%=SQL(0,i)%>
    请选中指定的魔法表情进行修改或删除操作  全选   
    <% PageSearch=Replace(Replace(PageSearch,"\","\\"),"""","\""") Response.Write "" End Sub Sub Addnew() Dim ntitle,ntype,ngif,nswf,nmoney,nticket,ntmoney,ntticket,ntopic,nwealth,nuserep,nusercp,npower If Request("ntitle")="" Then Errmsg=ErrMsg + "
  • 请输入魔法表情说明。" founderr=True End If ntitle = Dvbbs.CheckStr(Request("ntitle")) If Request("ntype")="" Or Not IsNumeric(Request("ntype")) Then Errmsg=ErrMsg + "
  • 请选择魔法表情类型。" founderr=True End If ntype = Request("ntype") If Request("ngif")="" Then Errmsg=ErrMsg + "
  • 请输入魔法表情小图片。" founderr=True End If ngif = Dvbbs.CheckStr(Request("ngif")) If Request("nmoney")="" Or Not IsNumeric(Request("nmoney")) Then Errmsg=ErrMsg + "
  • 请输入魔法表情需要的金币数。" founderr=True End If nmoney = Request("nmoney") If Request("nticket")="" Or Not IsNumeric(Request("nticket")) Then Errmsg=ErrMsg + "
  • 请输入魔法表情需要的点券数。" founderr=True End If nticket = Request("nticket") If Request("ntmoney")="" Or Not IsNumeric(Request("ntmoney")) Then Errmsg=ErrMsg + "
  • 请输入魔法表情需要的金币数。" founderr=True End If ntmoney = Request("ntmoney") If Request("ntticket")="" Or Not IsNumeric(Request("ntticket")) Then Errmsg=ErrMsg + "
  • 请输入魔法表情需要的点券数。" founderr=True End If ntticket = Request("ntticket") If Request("ntopic")="" Or Not IsNumeric(Request("ntopic")) Then Errmsg=ErrMsg + "
  • 请输入魔法表情需要的帖子数。" founderr=True End If ntopic = Request("ntopic") If Request("nwealth")="" Or Not IsNumeric(Request("nwealth")) Then Errmsg=ErrMsg + "
  • 请输入魔法表情需要的金钱数。" founderr=True End If nwealth = Request("nwealth") If Request("nuserep")="" Or Not IsNumeric(Request("nuserep")) Then Errmsg=ErrMsg + "
  • 请输入魔法表情需要的经验数。" founderr=True End If nuserep = Request("nuserep") If Request("nusercp")="" Or Not IsNumeric(Request("nusercp")) Then Errmsg=ErrMsg + "
  • 请输入魔法表情需要的魅力数。" founderr=True End If nusercp = Request("nusercp") If Request("npower")="" Or Not IsNumeric(Request("npower")) Then Errmsg=ErrMsg + "
  • 请输入魔法表情需要的威望数。" founderr=True End If npower = Request("npower") npower = Request("ntopic") & "|" & Request("nwealth") & "|" & Request("nuserep") & "|" & Request("nusercp") & "|" & Request("npower") If Founderr Then Exit Sub Dvbbs.Plus_Execute("Insert Into Dv_Plus_Tools_MagicFace (Title,MagicFace_s,MagicType,iMoney,iTicket,MagicSetting,tMoney,tTicket) Values ('"&ntitle&"',"&ngif&","&ntype&","&nmoney&","&nticket&",'"&npower&"',"&ntmoney&","&ntticket&")") Dv_suc("添加魔法表情成功！") End Sub Sub EditMagic() Dim ID,FixID,i Dim ntype,nmoney,nticket,ntmoney,ntticket,ntopic,nwealth,nuserep,nusercp,npower,ngif ID = Replace(Request("ID"),"'","") ID = Replace(ID,";","") ID = Replace(ID,"--","") ID = Replace(ID," ","") FixID = Replace(ID,",","") FixID = Left(FixID,30) If ID = "" Or Not IsNumeric(FixID) Then Errmsg=ErrMsg + "
  • 请选中指定的魔法表情进行修改更新或删除操作。" founderr=True End If For I=1 To Request.Form("ID").Count ID = Replace(Request.Form("ID")(I),"'","") ID = CLng(ID) ntype = Request.Form("ntype")(I) If Not IsNumeric(ntype) Then ntype = 0 nmoney = Request.Form("nmoney")(I) If Not IsNumeric(nmoney) Then nmoney = 0 nticket = Request.Form("nticket")(I) If Not IsNumeric(nticket) Then nticket = 0 ntmoney = Request.Form("ntmoney")(I) If Not IsNumeric(ntmoney) Then ntmoney = 0 ntticket = Request.Form("ntticket")(I) If Not IsNumeric(ntticket) Then ntticket = 0 ntopic = Request.Form("ntopic")(I) If Not IsNumeric(ntopic) Then ntopic = 0 nwealth = Request.Form("nwealth")(I) If Not IsNumeric(nwealth) Then nwealth = 0 nuserep = Request.Form("nuserep")(I) If Not IsNumeric(nuserep) Then nuserep = 0 nusercp = Request.Form("nusercp")(I) If Not IsNumeric(nusercp) Then nusercp = 0 npower = Request.Form("npower")(I) If Not IsNumeric(npower) Then npower = 0 npower = ntopic & "|" & nwealth & "|" & nuserep & "|" & nusercp & "|" & npower ngif = Request.Form("ngif")(I) If Not IsNumeric(ngif) Then ngif = 0 If Request("submit")="修改" Then Dvbbs.Plus_Execute("Update Dv_Plus_Tools_MagicFace Set Title='"&Dvbbs.CheckStr(Request.Form("ntitle")(I))&"',MagicFace_s="&ngif&",MagicType="&ntype&",iMoney="&nmoney&",iTicket="&nticket&",tMoney="&ntmoney&",tTicket="&ntticket&",MagicSetting='"&npower&"' Where ID = " & ID) Else Dvbbs.Plus_Execute("Delete From Dv_Plus_Tools_MagicFace Where ID = " & ID) End If Next Dv_suc("批量修改魔法表情成功！") End Sub %>