<% Head() dim admin_flag admin_flag=",18," If Not Dvbbs.master or instr(","&session("flag")&",",admin_flag)=0 then Errmsg=ErrMsg + "
  • 本页面为管理员专用，请登录后进入。
  • 您没有管理本页面的权限。" dvbbs_error() Else Main_head() Select Case Request("action") Case "SendMoney" SendMoney Case Else SendForm End Select If ErrMsg<>"" Then Dvbbs_Error If founderr then call dvbbs_error() footer() End If '顶部说明及注意事项 Sub Main_head End Sub '相关设置 Sub SendForm Dim Rs %>
    奖励赠送设置
    赠送金币： 增加 减少 更新 选取
  • 请正确填写相关数值；
  • 选取后该项更新才能生效；
  • 若选取更新，则目标用户相关数据将更新为该设置；
    • 赠送点券： 增加 减少 更新 选取
    赠送经验： 增加 减少 更新 选取
    赠送魅力： 增加 减少 更新 选取
    赠送金钱： 增加 减少 更新 选取
    赠送威望： 增加 减少 更新 选取
    奖励赠送目标
    按指定用户 按指定用户组 按所有用户
    <% End Sub '保存更新设置 Sub SendMoney Dim SelectType,UPString,TempData SelectType = Replace(Request.Form("SelectType"),chr(32),"") If SelectType="" Then ErrMsg = "请选取奖励设置项!" Exit Sub End If SelectType = ","&SelectType&"," UPString = "" '更新金币 If Instr(SelectType,"SendMoney") Then UPString = GetUPString(Request.Form("SendMoney"),UPString,Request.Form("SendMoneyType"),"UserMoney") End If '更新点券 If Instr(SelectType,"SendTicket") Then UPString = GetUPString(Request.Form("SendTicket"),UPString,Request.Form("SendTicketType"),"UserTicket") End If '更新经验 If Instr(SelectType,"SendUserEP") Then UPString = GetUPString(Request.Form("SendUserEP"),UPString,Request.Form("SendUserEPType"),"UserEP") End If '更新魅力 If Instr(SelectType,"SendUserCP") Then UPString = GetUPString(Request.Form("SendUserCP"),UPString,Request.Form("SendUserCPType"),"UserCP") End If '更新金钱 If Instr(SelectType,"SendUserWealth") Then UPString = GetUPString(Request.Form("SendUserWealth"),UPString,Request.Form("SendUserWealthType"),"UserWealth") End If '更新威望 If Instr(SelectType,"SendUserPower") Then UPString = GetUPString(Request.Form("SendUserPower"),UPString,Request.Form("SendUserPowerType"),"UserPower") End If 'Response.Write UPString Select Case Request.Form("Sendtype") Case "0" : Call Sendtype_0(UPString) '按指定用户 Case "1" : Call Sendtype_1(UPString) '按指定用户组 Case "2" : Call Sendtype_2(UPString) '按所有用户 Case Else ErrMsg = "请选取奖励赠送目标!" Exit Sub End Select End Sub '按指定用户 Sub Sendtype_0(Str) Dim ToUserName,Rs,Sql,i,ToUserID ToUserName = Trim(Request.Form("ToUserName")) If ToUserName = "" Then ErrMsg = "请填写目标用户名，注意区分大小写。" : Exit Sub ToUserName = Replace(ToUserName,"'","") ToUserName = Split(ToUserName,",") If Ubound(ToUserName)>10 Then ErrMsg = "限制一次不能超过10位目标用户。" : Exit Sub For i=0 To Ubound(ToUserName) SQL = "Select UserID From [Dv_user] Where UserName = '"&ToUserName(i)&"'" SET Rs = Dvbbs.Execute(SQL) If Not Rs.eof Then If i=0 or ToUserID="" Then ToUserID = ToUserID & Rs(0) Else ToUserID = ToUserID &","& Rs(0) End If Else ErrMsg = "目标用户不存在，注意区分大小写。" : Exit Sub End If Next Rs.Close : Set Rs = Nothing If ToUserID<>"" Then SQL = "Update [Dv_user] Set "&Dvbbs.Checkstr(Str)&" where UserID in ("&ToUserID&") " Dvbbs.Execute(SQL) Dv_suc("共位"&Ubound(ToUserName)+1&"目标会员更新成功!") Else ErrMsg = "目标用户不存在，注意区分大小写。" : Exit Sub End If End Sub '按指定用户组 Sub Sendtype_1(Str) Dim GetGroupID Dim SearchStr,TempValue,DayStr GetGroupID = Replace(Request.Form("GetGroupID"),chr(32),"") If GetGroupID="" or Not Isnumeric(Replace(GetGroupID,",","")) Then ErrMsg = "请正确选取相应的用户组。" : Exit Sub Else GetGroupID = Dvbbs.Checkstr(GetGroupID) End If If IsSqlDataBase=1 Then DayStr = "d" Else DayStr = "'d'" End If If Instr(GetGroupID,"-1") Then SearchStr = "" Else If Instr(GetGroupID,",")=0 Then SearchStr = "UserGroupID = "&GetGroupID Else SearchStr = "UserGroupID in ("&GetGroupID&")" End If End If '登陆次数 TempValue = Request.Form("Logins") If TempValue<>"" and IsNumeric(TempValue) Then SearchStr = GetSearchString(TempValue,SearchStr,Request.Form("LoginsType"),"UserLogins") End If '发表文章 TempValue = Request.Form("UserPost") If TempValue<>"" and IsNumeric(TempValue) Then SearchStr = GetSearchString(TempValue,SearchStr,Request.Form("UserPostType"),"UserPost") End If '主题文章 TempValue = Request.Form("UserTopic") If TempValue<>"" and IsNumeric(TempValue) Then SearchStr = GetSearchString(TempValue,SearchStr,Request.Form("UserTopicType"),"UserTopic") End If '精华文章 TempValue = Request.Form("UserBest") If TempValue<>"" and IsNumeric(TempValue) Then SearchStr = GetSearchString(TempValue,SearchStr,Request.Form("UserBestType"),"UserIsBest") End If '最后登陆时间 TempValue = Request.Form("LoginTime") If TempValue<>"" and IsNumeric(TempValue) Then SearchStr = GetSearchString(TempValue,SearchStr,Request.Form("LoginTimeType"),"Datediff("&DayStr&",Lastlogin,"&SqlNowString&")") End If '注册时间 TempValue = Request.Form("RegTime") If TempValue<>"" and IsNumeric(TempValue) Then SearchStr = GetSearchString(TempValue,SearchStr,Request.Form("RegTimeType"),"Datediff("&DayStr&",JoinDate,"&SqlNowString&")") End If Dim SQL SQL = "Update [Dv_user] Set "&Dvbbs.Checkstr(Str)&" Where "&SearchStr Dvbbs.Execute(SQL) Dv_suc("目标会员更新成功!") End Sub '按所有用户 Sub Sendtype_2(Str) SQL = "Update [Dv_user] Set "& Dvbbs.Checkstr(Str) Dvbbs.Execute(SQL) Dv_suc("所有会员更新成功!") End Sub Function GetSearchString(Get_Value,Get_SearchStr,UpType,UpColumn) Get_Value = Clng(Get_Value) If Get_SearchStr<>"" Then Get_SearchStr = Get_SearchStr & " and " If UpType="1" Then Get_SearchStr = Get_SearchStr & UpColumn &" <= "&Get_Value Else Get_SearchStr = Get_SearchStr & UpColumn &" >= "&Get_Value End If GetSearchString = Get_SearchStr End Function Function GetUPString(TempData,UPString,UpType,UpColumn) If TempData<>"" and IsNumeric(TempData) Then If UPString<>"" Then UPString = UPString & "," Select Case UpType Case "2" : UPString = UPString &" "&UpColumn&" = "&cCur(TempData) Case "1" : UPString = UPString &" "&UpColumn&" = "&UpColumn&"-"&cCur(TempData) Case Else : UPString = UPString &" "&UpColumn&" = "&UpColumn&"+"&cCur(TempData) End Select GetUPString = UPString End If End Function %>