📄 qqcf_admin_manage.asp

📁 1.40种记数器图片样式自由选择
💻 ASP
📖 第 1 页 / 共 4 页
字号:
12 3 4 下一页
<%
'==================================
' 乘风多用户计数器v3.4
' 制　作：乘　风
' 网　站：http://www.qqcf.com
' 系统演示：http://www.qqcf.com/?action=try
' 最新版本下载：http://www.qqcf.com/?action=down
' 声 明:	
' 本软件系免费程序,提供给个人免费使用,但不提供服务和升级。
' 付费版提供升级服务和技术支持。
' 未经作者许可禁止用于任何商业用途。
' 乘风其它作品：乘风多用户计数器MsSql版、乘风多用户记数器php版、乘风免费电影程序、
'　　　　　　　 乘风网站推广系统、乘风网址程序，乘风广告管理、系统乘风论坛等。
' 此段版权注释不会影响网页打开速度，请勿删除!
'　　　　　　　　　　　2005年11月27日									
'===================================
%>
<%Response.Expires= -1
Response.Addheader "pragma","no-cache"
Response.AddHeader "cache-control","no-store"
%>
<!--#Include File="QQCF_Conn.Asp"-->
<!--#Include File="QQCF_ChkStr.Asp"-->
<!--#Include File="QQCF_MyFunCtion.Asp"-->
<!--#Include File="QQCF_Md5.Asp"-->
<%
If Session("CfCountAdmin")="" Then
  If Request.Cookies("CfCountAdminCooKie")<>"" then
   CfCountAdminCooKie=Chkstr(Request.Cookies("CfCountAdminCooKie"))
   If RsSet("Admin_Cookies")=CfCountAdminCooKie Then Session("CfCountAdmin")="ok"
  End If
End If
%>
<%If Session("CfCountAdmin")="" Then  Call AlertUrl("请重新登陆!","QQCf_Admin.Asp")%>
<!--#Include File="QQCF_Admin_Manage_Do.Asp"-->

<HTML><HEAD><TITLE><%=RsSet("Title")%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="QQCF_Pic/ok3.css" type=text/css rel=stylesheet>

<%
If RsSet("eamilsendtype")=1 Then
 show="show_1()"
ElseIf RsSet("eamilsendtype")=2 Then
 show="show_2()"
End If
%>
</HEAD>
<BODY leftMargin=0 topMargin=0 marginheight="0" marginwidth="0"<%If Request("Action")="sysset" Then Response.Write " onload="&show%>>
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center border=0>
  <TBODY>
  <TR>
    <TD bgColor=#000000 colSpan=3><IMG height=1 
      src="QQCF_Pic/spacer.gif" width=1></TD></TR>
  <TR>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD bgColor=#ce3300 height=10><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center bgColor=#ffffff 
border=0>
  <TBODY>
  <TR>
    <TD width=1 bgColor=#000000 height=12><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD width=40><IMG height=12 src="QQCF_Pic/ok3-3_r2_c15.gif" 
      width=40></TD>
    <TD width=200 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center bgColor=#ffffff 
border=0>
  <TBODY>
    <TR> 
      <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
      <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
      <TD width=14><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
      <TD><a href="http://www.qqcf.com" target="_blank"><IMG src="<%=RsSet("LogoUrl")%>" width="480" height="60" border="0"></a></TD>
      <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
      <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    </TR>
  </TBODY>
</TABLE>
<TABLE height=6 cellSpacing=0 cellPadding=0 width=760 align=center 
bgColor=#ffffff border=0>
  <TBODY>
  <TR>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD></TR></TBODY></TABLE>
<TABLE height=28 cellSpacing=0 cellPadding=0 width=760 align=center border=0>
  <TBODY>
  <TR>
    <TD width=1 bgColor=#000000 height=12><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
      <TD valign="top" background=QQCF_Pic/ok3-1_r7_c2.jpg><table width="730" border="0" align="center" cellpadding="3" cellspacing="1" bordercolor="#6681D9" bgcolor="#6681D9">
          <tr bgcolor="#e8e8e8"> 
            <td><div align="center"><strong><a href="?">注册用户</a></strong></div></td>
            <td><div align="center"><strong><a href="?Action=lylist">页面来源</a></strong></div></td>
            <td><div align="center"><strong><a href="?Action=onlinelist">在线人数</a></strong></div></td>
            <td><div align="center"><strong><a href="?Action=mdbdo">数据库操作</a></strong></div></td>
            <td><div align="center"><a href="?Action=sysset"><strong>系统设置</strong></a></div></td>
            <td><div align="center"><strong><a href="?Action=searchset">搜索引擎设置</a></strong></div></td>
            <td><div align="center"><strong><a href="?Action=modifypwd">修改管理密码</a></strong></div></td>
            <td><div align="center"><a href="?Action=usesys"><strong>程序说明</strong></a></div></td>
            <td><div align="center"><a href="?Action=adminlogout"><strong>退出超级管理</strong></a></div></td>
          </tr>
        </table></TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD></TR></TBODY></TABLE>
<TABLE height=12 cellSpacing=0 cellPadding=0 width=760 align=center 
bgColor=#ffffff border=0>
  <TBODY>
  <TR>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD><div align="center"><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1> 
          <%If Request("Action")="" Or Request("Action")="userlist" Or Request("Action")="searchuser" Then%>
          点击标题可以选择其相应的排序方式 
          <%
Action=Request("Action")
User_Name=Request("User_Name")
Px=Request("Px")

If Px="" Then Px="ID"

Sql="Select * From WWW_QQCF_COM_CfCount_RegUser Where 1=1" 

If Action="searchuser" Then
  If User_Name<>"" Then Sql=Sql&" And User_Name like '%"&User_Name&"%'"
End If

Sql=Sql&" Order By "&px&" Desc"

Set Rs=Server.CreateObject("Adodb.RecordSet")
Rs.open Sql,Conn,1,1

If Not Rs.Eof Then

IF Not IsNumeric(Request("Page")) Or IsEmpty(Request("Page")) Then
 Page=1
Else
 Page=Int(Abs(Request("Page")))
End if

Rs.pagesize=10
TotalRs=Rs.RecordCount
TotalPage=Rs.PageCount
MyPageSize=Rs.PageSize
Rs.AbsolutePage=Page
End If
%></div>
          
        <table width="730" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
          <tr> 
            <td><div align="center"><strong><a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&Px=ID">序号</a></strong></div></td>
            <td><div align="center"><strong><a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&Px=User_Name">用户名</a></strong></div></td>
            <td><div align="center"><strong><a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&Px=LoginTotal">登陆次数</a></strong></div></td>
            <td><div align="center"><strong><a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&Px=RealIpTotal">实际计数</a></strong></div></td>
            <td><div align="center"><strong><a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&Px=PageName">主页</a></strong></div></td>
            <td><div align="center"><strong><a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&Px=AddTime">注册时间</a></strong></div></td>
            <td><div align="center"><strong>操作</strong></div></td>
          </tr>
          <%While Not Rs.Eof And MyPageSize>0%>
          <tr> 
            <td bgcolor="#FFFFFF"><div align="center"><%=Rs.RecordCount-Rs.Pagesize*(page)+mypagesize%></div></td>
            <td bgcolor="#FFFFFF"><div align="center"><%=Rs("User_Name")%></div></td>
            <td bgcolor="#FFFFFF"><div align="center"><%=Rs("LoginTotal")%></div></td>
            <td bgcolor="#FFFFFF"><div align="center"><%=Rs("RealIpTotal")%></div></td>
            <td bgcolor="#FFFFFF"><div align="center"><a href="<%=Rs("PageUrl")%>" target="_blank"><%=Rs("PageName")%></a></div></td>
            <td bgcolor="#FFFFFF"><div align="center"><%=month(Rs("AddTime"))&"-"&day(Rs("AddTime"))%></div></td>
            <td bgcolor="#FFFFFF"><div align="center"><a href="?Action=goto&User_Name=<%=Rs("User_Name")%>" target="_blank">查看</a> 
                <a href="?Action=modifyuser&ID=<%=Rs("ID")%>">修改</a> 
                <a href="?Action=deluser&User_Name=<%=Rs("User_Name")%>" onClick="{if(confirm('确定要删除么?')){return true;}return false;}">删除</a></div></td>
          </tr>
          <%rs.movenext
mypagesize=mypagesize-1
wend%>
        </table>
<div align="center"> <br>
  <table border="0" align="center" cellpadding="0" cellspacing="1">
    <tr> 
      <td valign="top"><div align="right"><a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&Px=<%=Px%>&Page=1">第一页</a> 
          <%
if page>1 then%>
          <a href='?Action=<%=Action%>&User_Name=<%=User_Name%>&Px=<%=Px%>&Page=<%=Page-1%>'>上一页</a> 
          <%
end if
%>
          <%
if page<rs.pagecount   then%>
          <a href='?Action=<%=Action%>&User_Name=<%=User_Name%>&Px=<%=Px%>&Page=<%=Page+1%>'>下一页</a> 
          <%
end if
%>
          <a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&Px=<%=Px%>&Page=<%=TotalPage%>">最后一页</a> 
          页次：<font color="#ff0000"><%=page%></font>/<%=totalpage%>页&nbsp;&nbsp;共<%=totalrs%>条记录&nbsp;&nbsp;每页显示<%=rs.pagesize%>条</div></td>
      <form name="form1" method="post" action="jczx.asp">
        <td> <Select  name="page" size="1" id="page" onChange="window.location=form.page.options[form.page.selectedIndex].value">
<%For I=1 To TotalPage    
   Response.Write "<option value="&filename&"?Action="&Action&"&User_Name="&User_Name&"&Px="&Px&"&Page="&I    
   If Page=I Then     
     Response.Write " Selected"    
   End If    
   Response.write ">转到第"& i &"页</option>"    
Next    
%>
          </select> </td>
      </form>
    </tr>
  </table>
  <table border="0" align="center" cellpadding="3" cellspacing="0">
      <tr> 
        <td><div align="center"><strong>搜索</strong><br>
          </div></td>
      </tr>
	      <form name="form2" method="post" action="?action=searchuser">
      <tr>
        <td><div align="center">用户名
<input name="User_Name" type="text" id="User_Name" size="10">
            <input type="submit" name="Submit" value="查找">
          </div></td>
      </tr>
    </form>
  </table>
<%End If%>

<%If Request("Action")="modifyuser" Then%>
<%
ID=Request("ID")
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From WWW_QQCF_COM_CfCount_RegUser Where ID="&ID
Rs.Open Sql,Conn,1,1%>
12 3 4 下一页
💿 文件大小 412 K
👤 上传用户 woainijiajia123
📂 所属分类其他数据库
🏷️ 相关标签

#1.40 #记数 #自由选择
⌨️ 快捷键说明

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