⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 user_pointdetail.asp

📁 SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件.
💻 ASP
字号:
🔍 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Option Explicit%>
<!--#include file="../../Conn.asp"-->
<!--#include file="../../SysCls/KS_CommonCls.asp"-->
<!--#include file="../Inc/Session.asp"-->
<%
'===================================================================================================================
'软件名称：科汛网站管理系统
'当前版本：科汛网站管理系统 V2.1企业SQL版
'Copyright (C) 2006-2008 Kesion.Com  All rights reserved.
'产品咨询QQ：9537636,41904294
'技术支持QQ：111394,54004407 
'程序版权：科汛网络
'程序开发：科汛网络开发组（总策划：林文仲）
'E-Mail  :kesioncms@hotmail.com webmaster@kesion.com
'官方网站：http://www.kesion.com  
'演示站点：http://test.kesion.com 
'郑重声明:
'    ①、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
'    ②、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
'    ③、科汛网络保留此软件的法律追究权利
'===================================================================================================================
Dim KSCls
Set KSCls = New Admin_User
KSCls.Execute()
Set KSCls = Nothing

Class Admin_User
        Private KSCMS
		Private MaxPerPage,RS,TotalPut,TotalPages,I,CurrentPage,SQL,ComeUrl
		Private Sub Class_Initialize()
		  MaxPerPage=20
		  Set KSCMS=New CommonCls
		End Sub
        Private Sub Class_Terminate()
		 Call KSCMS.CloseConn()
		 Set KSCMS=Nothing
		End Sub
       Sub Execute()
	    If Not KSCMS.ReturnPowerResult(0, "KMUA10005") Then
			  Write ("<script>parent.frames['BottomFrame'].location.href='javascript:history.back();';</script>")
			  Call KSCMS.ReturnErr(1, "")
			End If
          Response.Write "<html>"
			Response.Write"<head>"
			Response.Write"<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
			Response.Write"<link href=""../Inc/Admin_Style.CSS"" rel=""stylesheet"" type=""text/css"">"
			Response.Write"</head>"
			Response.Write"<body leftmargin=""0"" topmargin=""0"" marginwidth=""0"" marginheight=""0"">"
			Response.Write"<table width=""100%""  height=""25"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
			Response.Write " <tr>"
			Response.Write"	<td height=""25"" align=""center"" class=""sort""> "
			Response.Write " <strong>会员点券明细</strong>"
			Response.Write	" </td>"
			Response.Write " </tr>"
			Response.Write"</TABLE>"
		ComeUrl=Cstr(Request.ServerVariables("HTTP_REFERER"))
		if KSCMS.G("Action")="del" then
		  Dim Param
		  Select Case KSCMS.ChkClng(KSCMS.G("DelType"))
		   Case 1
		    if Application("DataBaseType")=1 then
		    Param="datediff(d,adddate," & Application("SqlNowString") & ")>11"
			else
			Param="datediff('d',adddate," & Application("SqlNowString") & ")>11"
			end if
		   Case 2
		    if Application("DataBaseType")=1 then
		    Param="datediff(d,adddate," & Application("SqlNowString") & ")>31"
			else
			Param="datediff('d',adddate," & Application("SqlNowString") & ")>31"
			end if
		   Case 3
		    if Application("DataBaseType")=1 then
		     Param="datediff(d,adddate," & Application("SqlNowString") & ")>61"
			else
			 Param="datediff('d',adddate," & Application("SqlNowString") & ")>61"
			end if
		   Case 4
		    if Application("DataBaseType")=1 then
		    Param="datediff(d,adddate," & Application("SqlNowString") & ")>91"
			else
			Param="datediff('d',adddate," & Application("SqlNowString") & ")>91"
			end if
		   Case 5
		    if Application("DataBaseType")=1 then
		    Param="datediff(d,adddate," & Application("SqlNowString") & ")>181"
			else
			Param="datediff('d',adddate," & Application("SqlNowString") & ")>181"
			end if
		   Case 6
		    if Application("DataBaseType")=1 then
		    Param="datediff(d,adddate," & Application("SqlNowString") & ")>366"
			else
			Param="datediff('d',adddate," & Application("SqlNowString") & ")>366"
			end if
		  End Select
		  If Param<>"" Then Conn.Execute("Delete From KS_LogPoint Where 1=1 and " & Param)
		  Call KSCMS.Alert("已按所给的条件，删除了点券明细的相关记录！",ComeUrl)
		end if
		%>
<table width="95%" style="MARGIN-TOP: 3px" border="0" align="center" cellspacing="1" cellpadding="0" bgcolor="#CCCCCC" class="Border">
  <tr bgcolor="F4F4EA">
    <td width="80" height="25" align="center"><strong> 用户名</strong></td>
    <td width="138" height="25" align="center"><strong>消费时间</strong></td>
    <td width="111" align="center"><strong>IP地址</strong></td>
    <td width="71" height="25" align="center" bgcolor="F4F4EA"><strong>收入点券</strong></td>
    <td width="74" align="center"><strong>支出点券</strong></td>
    <td width="59" height="25" align="center"><strong>摘要</strong></td>
    <td width="69" height="25" align="center"><strong>重复次数</strong></td>
    <td width="75" height="25" align="center"><strong> 操作员</strong></td>
    <td width="239" align="center"><strong>备注</strong></td>
  </tr>
  <%
  CurrentPage	= KSCMS.ChkClng(request("page"))
  Set RS=Server.CreateObject("ADODB.RecordSet")
    RS.Open "Select ID,UserName,AddDate,IP,Point,InOrOutFlag,Times,User,Descript From KS_LogPoint order by ID desc",conn,1,1
	If RS.Eof And RS.Bof Then
	 Response.Write "<tr><td colspan=9 align=center height=25 bgcolor=#ffffff>还没有消费记录！</td></tr>"
	Else
       TotalPut=rs.recordcount
					if (TotalPut mod MaxPerPage)=0 then
						TotalPages = TotalPut \ MaxPerPage
					else
						TotalPages = TotalPut \ MaxPerPage + 1
					end if
					if CurrentPage > TotalPages then CurrentPage=TotalPages
					if CurrentPage < 1 then CurrentPage=1
					rs.move (CurrentPage-1)*MaxPerPage
					SQL = rs.GetRows(MaxPerPage)
					rs.Close:set rs=Nothing
					ShowContent
   End If
%>		
</table>
<table border="0" style="margin-top:20px" width="90%" align=center>
<tr><td><strong>特别提醒：</strong>
如果点券明细记录太多，影响了系统性能，可以删除一定时间段前的记录以加快速度。但可能会带来会员在查看以前收过费的信息时重复收费（这样会引发众多消费纠纷问题），无法通过点券明细记录来真实分析会员的消费习惯等问题。
</td></tr>
<form action="?action=del" method=post onsubmit="return(confirm('确实要删除有关记录吗？一旦删除这些记录，会出现会员查看原来已经付过费的收费信息时重复收费等问题。请慎重!'))">
<tr><td>删除范围：<input name="deltype" type="radio" value=1>
10天前 
    <input name="deltype" type="radio" value="2" />
    1个月前
    <input name="deltype" type="radio" value="3" />
    2个月前
    <input name="deltype" type="radio" value="4" />
    3个月前
    <input name="deltype" type="radio" value="5" />
    6个月前
    <input name="deltype" type="radio" value="6" checked="checked" />
    1年前
    <input type="submit" value="执行删除"></td></tr>
	</form>
</table>
<%End Sub
Sub ShowContent
For i=0 To Ubound(SQL,2)
	%>
  <tr height="25" bgcolor="#ffffff" onmouseover="this.style.background='#EEF8FE'" onmouseout="this.style.background='#FFFFFF'">
    <td width="80" align="center"><%=SQL(1,i)%></td>
    <td align="center"><%=SQL(2,i)%></td>
    <td align="center"><%=SQL(3,i)%></td>
    <td align="center"><%if SQL(5,I)=1 Then Response.Write SQL(4,I) ELSE Response.Write "-"%>点</td>
    <td align="center"><%if SQL(5,I)=2 Then Response.Write SQL(4,I) ELSE Response.Write "-"%>点</td>
    <td width="59" align="center"><%if SQL(5,I)=1 Then Response.Write "<font color=red>收入</font>" Else Response.Write "支出"%></td>
    <td width="69" align="center"><%=SQL(6,i)%></td>
    <td align="center"><%=SQL(7,i)%></td>
	<td><%=SQL(8,i)%></td>
  </tr>
  <%Next
  Response.Write "<tr><td colspan=9 align=right bgcolor=""#ffffff"">"
  Call KSCMS.ShowPageParamter(totalPut, MaxPerPage, "", True, "条记录", CurrentPage, "")
  Response.Write "</td></tr>"
End Sub
				
End Class
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -