开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 数据库编程 > 查看源码
History.asp
资源名称：eat.rar　[点击查看]
上传用户：jisenq
上传日期：2014-06-29
资源大小：7216k
文件大小：9k
源码类别：

数据库编程

开发平台：

ASP/ASPX

History.asp：源码内容
  1. <% Option Explicit %>
  2. <!--#include file="../FS_Inc/Const.asp" -->
  3. <!--#include file="../FS_InterFace/MF_Function.asp" -->
  4. <!--#include file="../FS_Inc/Function.asp" -->
  5. <!--#include file="lib/strlib.asp" -->
  6. <!--#include file="lib/UserCheck.asp" -->
  7. <html xmlns="http://www.w3.org/1999/xhtml">
  8. <title>日志-网站内容管理系统</title>
  9. <meta name="keywords" content="风讯cms,cms,FoosunCMS,FoosunOA,FoosunVif,vif,风讯网站内容管理系统">
  10. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  11. <meta content="MSHTML 6.00.3790.2491" name="GENERATOR" />
  12. <meta name="Keywords" content="Foosun,FoosunCMS,Foosun Inc.,风讯,风讯网站内容管理系统,风讯系统,风讯新闻系统,风讯商城,风讯b2c,新闻系统,CMS,域名空间,asp,jsp,asp.net,SQL,SQL SERVER" />
  13. <link href="images/skin/Css_<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>/<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  14. <head>
  15. <body>
  16. <table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
  17.   <tr>
  18.     <td>
  19.       <!--#include file="top.asp" -->
  20.     </td>
  21.   </tr>
  22. </table>
  23. <table width="98%" height="135" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
  24.   
  25.     <tr class="back"> 
  26.       <td   colspan="2" class="xingmu" height="26"> <!--#include file="Top_navi.asp" --> </td>
  27.     </tr>
  28.     <tr class="back"> 
  29.       <td width="18%" valign="top" class="hback"> <div align="left"> 
  30.           <!--#include file="menu.asp" -->
  31.         </div></td>
  32.       <td width="82%" valign="top" class="hback"><table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  33.           <tr class="hback"> 
  34.             
  35.           <td class="hback"><strong>位置：</strong><a href="../">网站首页</a> &gt;&gt; 
  36.             <a href="main.asp">会员首页</a> &gt;&gt;日志</td>
  37.           </tr>
  38.         </table>
  39.         
  40.       <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  41.         <tr class="hback"> 
  42.           <td colspan="6" class="hback"><table width="100%" border="0" cellspacing="0" cellpadding="0">
  43.               <tr> 
  44.                 <td width="44%"> <strong>
  45. <%
  46.   dim strTmp,strLogType,strTmp1
  47.   strLogType = NoSqlHack(Trim(Request.QueryString("LogTye")))
  48.      if Request.QueryString("LogTye")<>"" then
  49.    strTmp =  " and LogType='"& strLogType &"'"
  50.      Else
  51.    strTmp =  " "
  52.     End if
  53. if Request("date1") <>"" and  Request("date2")<>"" then
  54. if isdate(Request("date1"))=false or isdate(Request("date2"))=false then
  55. strShowErr = "<li>您输入的日期格式不正确</li>"
  56. Call ReturnError(strShowErr,"")
  57. else
  58. if G_IS_SQL_User_DB =0 then
  59. strTmp1 = " and datevalue(Logtime)>=#"&datevalue(Request("date1"))&"#  and datevalue(Logtime)<=#"&datevalue(Request("date2"))&"#"
  60. Else
  61. strTmp1 = " and datevalue(Logtime)>='"&datevalue(Request("date1"))&"'  and datevalue(Logtime)<='"&datevalue(Request("date2"))&"'"
  62. End if
  63. End if
  64. Else
  65. strTmp1 = ""
  66. End if
  67. Dim RsUserListObj,RsUserSQL
  68. Dim strpage,strSQLs,StrOrders
  69. strpage=request("page")
  70. if len(strpage)=0 Or strpage<1 or trim(strpage)=""  Then strpage="1"
  71. Set RsUserListObj = Server.CreateObject(G_FS_RS)
  72. RsUserSQL = "Select LogType,UserNumber,points,moneys,LogTime,LogContent,Logstyle From Fs_ME_Log  where UserNumber='"& Fs_User.UserNumber &"' "& strTmp & strTmp1 &" order by  LogID desc"
  73. RsUserListObj.Open RsUserSQL,User_Conn,1,3
  74. Response.Write "<Font color=red>" & RsUserListObj.RecordCount&"</font>"
  75. %>
  76.                   </strong> 个日志　类型：<a href="history.asp?LogTye=注册">注册</a>｜<a href="history.asp?LogTye=%B5%C7%C2%BD">登陆</a>｜<a href="history.asp?LogTye=购买">购买</a>｜<a href="history.asp?LogTye=冲值">冲值</a>｜<a href="history.asp?LogTye=兑换">兑换</a>｜<a href="history.asp?LogTye=其他">其他</a></td>
  77.                 <form action="History.asp"  method="post" name="myform" id="myform">
  78.                   <td width="56%"><div align="left">
  79.                       <table width="100%" border="0" cellspacing="0" cellpadding="0">
  80.                         <tr> 
  81.                           <td width="63%" valign="top">从 <input name="date1" type="text" id="date1" value="<%=datevalue(date())-1%>" size="10">
  82.                             到 <input name="date2" type="text" id="date2" value="<%=datevalue(date())%>" size="10">
  83.                             的记录 
  84.                             <input type="submit" name="Submit" value="搜索">
  85.                             日期格式请用1977-6-7格式</td>
  86.                         </tr>
  87.                       </table>
  88.                     </div></td>
  89.                 </form>
  90.               </tr>
  91.             </table></td>
  92.         </tr class="hback">
  93.         <tr class="hback"> 
  94.           <td width="17%" class="xingmu"><div align="left"><strong> 类型</strong></div></td>
  95.           <td width="15%" class="xingmu"><div align="left"><strong>点数</strong></div></td>
  96.           <td width="11%" class="xingmu"><div align="left"><strong>金币</strong></div></td>
  97.           <td width="20%" class="xingmu"><div align="center"><strong>日期</strong></div></td>
  98.           <td width="25%" class="xingmu"><div align="center"><strong>说明</strong></div></td>
  99.           <td width="12%" class="xingmu"><div align="center"><strong>增加/减少</strong></div></td>
  100.         </tr>
  101.         <%
  102. Dim select_count,select_pagecount,i
  103. if RsUserListObj.eof then
  104.    RsUserListObj.close
  105.    set RsUserListObj=nothing
  106.    Response.Write"<TR><TD colspan=""6""  class=""hback"">没有记录。</TD></TR>"
  107. else
  108. if Request("CountPage")="" or len(Request("CountPage"))<1 then
  109. RsUserListObj.pagesize = 20
  110. Else
  111. RsUserListObj.pagesize = Request("CountPage")
  112. End if
  113. RsUserListObj.absolutepage=cint(strpage)
  114. select_count=RsUserListObj.recordcount
  115. select_pagecount=RsUserListObj.pagecount
  116. for i=1 to RsUserListObj.pagesize
  117. if RsUserListObj.eof Then exit For 
  118. %>
  119.         <tr class="hback"> 
  120.           <td class="hback"><div align="left"><a href=history.asp?LogTye=<% = RsUserListObj("LogType")%>><% = RsUserListObj("LogType")%></a></div></td>
  121.           <td class="hback"><div align="left"> 
  122.               <% = RsUserListObj("points")%>
  123.             </div></td>
  124.           <td class="hback"><div align="left"> 
  125.               <% = FormatNumber(RsUserListObj("moneys"),2,-1)%>
  126.             </div></td>
  127.           <td class="hback"><div align="center">
  128.               <% = RsUserListObj("LogTime")%>
  129.             </div></td>
  130.           <td class="hback"><div align="center">
  131.               <% = RsUserListObj("LogContent")%>
  132.             </div></td>
  133.           <td class="hback"><div align="center"> 
  134.               <%
  135.   if RsUserListObj("Logstyle") = 0 then
  136.   Response.Write("<font color=red>增加</font>")
  137.   Else
  138.   Response.Write("减少")
  139.   End if
  140.   %>
  141.             </div></td>
  142.         </tr>
  143.         <%
  144.   RsUserListObj.MoveNext
  145.   Next
  146.   %>
  147.         <tr class="hback"> 
  148.           <td colspan="6" class="xingmu"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
  149.               <tr> 
  150.                 <td width="80%"> <span class="top_navi">
  151.                   <%  Response.Write("每页:"& RsUserListObj.pagesize &"个,")
  152. Response.write"&nbsp;共<b>"& select_pagecount &"</b>页<b>&nbsp;" & select_count &"</b>条记录，本页是第<b>"& strpage &"</b>页。"
  153. if int(strpage)>1 then
  154. Response.Write"&nbsp;<a href=?page=1&LogType="&Request("LogTye")&" class=""top_navi"">第一页</a>&nbsp;&nbsp;"
  155. Response.Write"&nbsp;<a href=?page="&cstr(cint(strpage)-1)&"&LogType="&Request("LogTye")&" class=""top_navi"">上一页</a>&nbsp;&nbsp;"
  156. End if
  157. If int(strpage)<select_pagecount then
  158. Response.Write"&nbsp;<a href=?page="&cstr(cint(strpage)+1)&"&LogType="&Request("LogTye")&" class=""top_navi"">下一页</a>&nbsp;"
  159. Response.Write"&nbsp;<a href=?page="& select_pagecount &"&LogType="&Request("LogTye")&" class=""top_navi"">最后一页</a>&nbsp;&nbsp;"
  160. End if
  161. Response.Write"<br>"
  162. RsUserListObj.close
  163. Set RsUserListObj=nothing
  164. End if
  165. %>
  166.                   </SPAN></td>
  167.                 <form name="form1" method="post" action="UserList.asp">
  168.                 </form>
  169.               </tr>
  170.             </table></td>
  171.         </tr>
  172.       </table></td>
  173.     </tr>
  174.     <tr class="back"> 
  175.       <td height="20"  colspan="2" class="xingmu"> <div align="left"> 
  176.           <!--#include file="Copyright.asp" -->
  177.         </div></td>
  178.     </tr>
  179.  
  180. </table>
  181. </body>
  182. </html>
  183. <%
  184. Set Fs_User = Nothing
  185. %>
  186. <!--Powsered by Foosun Inc.,Product:FoosunCMS V4.0系列-->