<% '************************************************************************************************** ' 程序名称: 七禧舞曲管理系统 ' 程序作者: 花心萝卜 ' 官方网站: http://www.cmsdj.com http://www.7xiwl.com ' 编写日期: 2009年8月27日 ' 版权所有: 本程序由七禧网络开发，未经同意请勿用于商业用途 '************************************************************************************************** %> 宣传管理
  rb2<%Else%>rb1<%end if%>" onClick="location='Admin_AdList.asp';" value='管理首页' /> rb2<%Else%>rb1<%end if%>" onClick="location='?action=config';" value='规则设置' />
<% Dim Action,page Dim arr1,arr2 Dim CmsDjAdData:Set CmsDjAdData = New CmsDj_Com_AdData action=Request.QueryString("action") page=int(request.QueryString ("page")) Select Case Lcase(action) Case "批量删除" : Call DelAll() Case "del" : Call Del() Case "config" : Call Config() Case "configsave" : Call ConfigSave() Case Else : Call Main() End Select Call Admin_FooterB %> <%Sub Config()%>
 宣传规则设置
是否开放宣传系统： > 开放 > 关闭
数据统计方式： > 一天后开始计算 > 12小时后开始计算 > 24小时后开始计算
每次奖励点数：  点 *
每日奖励点数上限：  点 * 可以防止作弊
<% End Sub Sub Main()%>
 宣传记录管理
<% Dim Rs if page<=0 or page="" then page=1'初始化分页参数 i=0 Set Rs=CmsDjAdData.GetRs("",0,"order by ID desc") If Not(rs.bof And rs.EOF) Then rs.pagesize=20 '每页数据 rs.AbsolutePage=page m=rs.recordcount '总记录 n=rs.PageCount '总页数 z=rs.pagesize '每页数量 do while not rs.eof and i <% rs.movenext loop Else %> <% End If rs.Close Set rs=nothing %>
 编号 用户ID 来访IP 来访时间 浏览器 操作系统 操作
" class="checkbox"/><%=rs("ID")%>、 <%=Rs("UserID")%> <%=Rs("UserIP")%> <%If Cstr(FormatDatetime(Rs("JoinTime"),2))=Cstr(Date()) Then Response.Write""&FormatDateTime(Rs("JoinTime"),2)&"" Else Response.Write""&FormatDatetime(Rs("JoinTime"),2)%> <%=Rs("Browser")%> <%=Rs("System")%> " onClick="return confirm('确定删除吗？不可恢复！');">删除


没有记录
  
<%=List_Page(m,z,page,"?action="&action&"&",15,7)%>
<% End Sub Sub DelAll() CD_ID = SafeRequest("ID","get") IF CD_ID="" Then Call AdminAlert("出错了，参数传输错误！",Request.ServerVariables("HTTP_REFERER"),0) Response.End End IF CD_ID = Split(CD_ID,", ") For Each ID In CD_ID Call CmsDjAdData.del("ID="&ID) Next Call AdminAlert("恭喜您，批量删除记录成功！",Request.ServerVariables("HTTP_REFERER"),0) Response.End End Sub Sub Del() CD_ID = SafeRequest("ID","get") IF CD_ID="" Then Call AdminAlert("出错了，参数传输错误！",Request.ServerVariables("HTTP_REFERER"),0) Response.End End IF Call CmsDjAdData.del("ID="&CD_ID) Call AdminAlert("恭喜您，删除记录成功！",Request.ServerVariables("HTTP_REFERER"),0) Response.End End Sub Sub ConfigSave() CD_AdData = SafeRequest("CD_AdData","post") CD_AdDataType = SafeRequest("CD_AdDataType","post") CD_UserPointsA = SafeRequest("CD_UserPointsA","post") CD_UserPointsB = SafeRequest("CD_UserPointsB","post") Dim n,TempStr TempStr = "" TempStr = TempStr & chr(60) & "%" & VbCrLf TempStr = TempStr & "Dim CD_AdData,CD_AdDataType,CD_UserPointsA,CD_UserPointsB" & VbCrLf TempStr = TempStr & "CD_AdData="& Chr(34) & CD_AdData & Chr(34) & VbCrLf TempStr = TempStr & "CD_AdDataType="& Chr(34) & CD_AdDataType & Chr(34) & VbCrLf TempStr = TempStr & "CD_UserPointsA="& Chr(34) & CD_UserPointsA & Chr(34) & VbCrLf TempStr = TempStr & "CD_UserPointsB="& Chr(34) & CD_UserPointsB & Chr(34) & VbCrLf TempStr = TempStr & "%" & chr(62) & VbCrLf ADODB_SaveToFile TempStr,"../../Data/Cache/CmsDj.AdData.asp" Call AdminAlert("更新宣传规则信息成功，正在返回...","Admin_AdList.asp?action=config",0) Response.End End Sub %>