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

📄 qqcf_admin_manage_2.asp

📁 动态自定义报表,真正的中国式报表,可自行编辑
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
<%
'==================================
' 乘风网址 v3.1
' 制　作：乘　风
' 开发网站：http://www.qqcf.com
' 程序演示：http://www.qqcf.com/?action=try
' 最新版本下载：http://www.qqcf.com/?action=down
' 声 明:	
' 本软件系免费程序,提供给个人免费使用,除保留版权外无其它任何限制。
' 我们为付费版用户提供升级服务和技术支持。
' 在程序首页保留乘风原创程序版权和链接的免费用户我们也提供一些的升级服务和技术支持。
' 未经作者许可禁止用于任何商业用途。
' 乘风网址功能：
' 1.同时支持Access和Mssql数据库
' 2.完全生成静态页面，包括每个网址转向页面
' 3.支持修改模板，支持二级栏目
' 4.自带4000多条网址数据，支持系统放在网站子目录
' 乘风其它作品：乘风多用户计数器.net,php,access,MsSql版、乘风电影程序、
'　　　　　　　 乘风网站推广系统、乘风广告管理系统、乘风论坛等。
' 此段版权注释不会影响网页打开速度，请勿删除!
'　　　　　　　　　　　2006年12月25日									
'===================================
%>
<link href="QQCF_Pic/style.css" rel="stylesheet" type="text/css">
<%If Action="classadd" Then%>
<%
UpID=CInt(ChkStr(Request("UpID")))
%>
  <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
    <tr bgcolor="D6DFF5"> 
      <td height="19"><div align="center"><strong>有无下级</strong></div></td>
      <td><div align="center"><strong>类别名称</strong></div></td>
      <td><div align="center"><strong>类别排序</strong></div></td>
      <td><div align="center"><strong>是否有效</strong></div></td>
      <td><div align="center"><strong>描述</strong></div></td>
      <td><div align="center"><strong>操作</strong></div></td>
    </tr>
    <form name="form1" method="post" action="?action=classaddsave">
      <tr bgcolor="#FFFFFF"> 
        <td><div align="center"> 
            <select name="Menu">
              <option value="-1" <%if Menu=-1 then response.write "selected"%>>有</option>
              <option value="0" <%if Menu=0 then response.write "selected"%>>无</option>
            </select>
          </div></td>
        <td><div align="center"> 
            <input name="ClassName" type="text" id="lbpx5" value="" size="20">
          </div></td>
        <td><div align="center"> 
            <input name="ListID" type="text" id="lburl" size="5">(数字)
          </div></td>
        <td><div align="center"> 
            <select name="state">
              <option value="-1" selected>有效</option>
              <option value="0">无效</option>
            </select>
          </div></td>
        <td width="20%"><div align="center"> 
            <input name="Memo" type="text" id="ListID" size="10">
          </div></td>
        <td width="19%"><div align="center"> 
            <input type="submit" name="Submit22" value="增加">
            <input name="UpID" type="hidden" value="<%=UpID%>">
          </div></td>
      </tr>
    </form>
  </table>
<%End If%>

<%If Action = "classmodify" Then%>
<%
ClassID = ChkStr(Request("ClassID"),2)

Set Rs=Server.CreateObject("ADODB.RecordSet")
Sql="Select * From WWW_QQCF_COM_CFWZ_Class Where ClassID="&ClassID
Rs.Open Sql,Conn,1,1
%>
  <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
    <form name="form2" method="post" action="?action=classmodifysave&classid=<%=ClassID%>&UpID=<%=Rs("UpID")%>">
      <tr bgcolor="D6DFF5"> 
        <td height="19"><div align="center"><strong>有无下级</strong></div></td>
        <td> <div align="center"><strong>类别名称</strong></div></td>
        <td><div align="center"><strong>类别排序</strong></div></td>
        <td><div align="center"><strong>是否有效</strong></div></td>
        <td><div align="center"><strong>描述</strong></div></td>
        <td><div align="center"><strong>操作</strong></div></td>
      </tr>
  
      <tr bgcolor="#FFFFFF"> 
        <td><div align="center"> 
            <select name="Menu">
              <option value="-1"<%if Rs("Menu")=-1 then response.write " selected"%>>有</option>
              <option value="0"<%if Rs("Menu")=0 then response.write " selected"%>>无</option>
            </select>
          </div></td>
        <td><div align="center"> 
            <input name="ClassName" type="text" id="ClassName2" value="<%=rs("ClassName")%>" size="20">
          </div></td>
        <td><div align="center"> 
            <input name="ListID" type="text" id="lbpx4" value="<%=rs("ListID")%>" size="5">(数字)
          </div></td>
        <td><div align="center"> 
            <select name="state">
              <option value="-1"<%if rs("State")=-1 then response.write " selected"%>>有效</option>
              <option value="0"<%if rs("State")=0 then response.write " selected"%>>无效</option>
            </select>
          </div></td>
        <td><input name="Memo" type="text" id="Memo" value="<%=rs("Memo")%>" size="10"></td>
        <td><div align="center"> 
            <input type="submit" name="Submit2" value="修改">
          </div></td>
      </tr>
    </form>
  </table>

  <%End If%>
  
<%If Action="classlist" Or Action="classsearch" Then%>
<%
Px=ChkStr(Request("Px"),1)
ClassName=ChkStr(Request("ClassName"),1)
PageSizeNum=ChkStr(Request("PageSizeNum"),2)

IF Px="" Then Px="ClassID"

Call PxFilter(Px,"ClassID,ClassName,ListID,State,Memo")

IF PageSizeNum="" or Not IsNumeric(PageSizeNum) Then PageSizeNum=10

Sql="Select * From WWW_QQCF_COM_CFWZ_Class where UpID=0"

If Action="classsearch" Then
 IF ClassName<>"" Then Sql=Sql&" And ClassName Like '%"&ClassName&"%'"
End If

Set Rs = Server.CreateObject("ADODB.Recordset")
Sql=Sql&" Order By "&Px&" Desc"
Rs.Open Sql,Conn,1,1

If Not rs.eof then
 If ChkStr(Request("Page"),2) = "" Then
  Page = 1
 Else 
  Page = CInt(ChkStr(Request("Page"),2))
 End If
 
 rs.pagesize=PageSizeNum
 totalrs=rs.RecordCount
 totalpage=rs.pageCount
 mypagesize=rs.pagesize
 rs.absolutepage=page
End If
%>
    <a href="?action=classadd&UpID=0"><strong>增加类别</strong></a>
  <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
    <tr bgcolor="D6DFF5"> 
      <td><div align="center"><strong><a href="?Action=<%=Action%>&ClassName=<%=ClassName%>&PageSizeNum=<%=PageSizeNum%>&Px=ClassID">序号</a></strong></div></td>
      <td><div align="center"><a href="?Action=<%=Action%>&ClassName=<%=ClassName%>&PageSizeNum=<%=PageSizeNum%>&Px=ClassID"><strong>类别ID</strong></a></div></td>
      <td><div align="center"><strong><a href="?Action=<%=Action%>&ClassName=<%=ClassName%>&PageSizeNum=<%=PageSizeNum%>&Px=ClassName">类别名称</a></strong></div></td>
      <td><div align="center"><strong><a href="?Action=<%=Action%>&ClassName=<%=ClassName%>&PageSizeNum=<%=PageSizeNum%>&Px=ListID">类别排序</a></strong></div></td>
      <td width="75"><div align="center"><strong><a href="?Action=<%=Action%>&ClassName=<%=ClassName%>&PageSizeNum=<%=PageSizeNum%>&Px=State">是否有效</a></strong></div></td>
      <td><div align="center"><strong><a href="?Action=<%=Action%>&ClassName=<%=ClassName%>&PageSizeNum=<%=PageSizeNum%>&Px=Memo">描述</a></strong></div></td>
      <td width="123"><div align="center"><strong>操作</strong></div></td>
    </tr>
<%
while Not Rs.Eof And MyPageSize>0
%>
    <tr> 
      <td bgcolor="#e8e8e8"><div align="center"><%=Rs.RecordCount-Rs.Pagesize*(Page)+MyPageSize%></div></td>
      <td bgcolor="#e8e8e8"><div align="center"><%=Rs("ClassID")%></div></td>
      <td bgcolor="#e8e8e8"><div align="center"><%=Rs("ClassName")%></div></td>
      <td bgcolor="#e8e8e8"><div align="center"><%=Rs("ListID")%></div></td>
      <td bgcolor="#e8e8e8"><div align="center"> 
          <%If Rs("State")=-1 Then
			   Response.Write "有效"
			  ElseIf rs("state")=0 then
			   Response.Write "<font color=#ff0000>无效</font>"
			  End If%>
        </div></td>
      <td bgcolor="#e8e8e8"><div align="center"><%=Rs("Memo")%></div></td>
      <td bgcolor="#e8e8e8"><div align="center"><%If Rs("Menu")=-1 Then%><a href="?Action=classadd&UpID=<%=Rs("ClassID")%>">增加子类别</a><%End If%> 
          <a href="?Action=classmodify&ClassID=<%=Rs("ClassID")%>">修改</a> 
          <%Sql="Select Count(*) From WWW_QQCF_COM_CFWZ_Class Where UpID="&rs("ClassID")
			  Set RsCount=Conn.ExeCute(Sql)
			  If RsCount(0)=0 Then%>
          <a href="?Action=classdel&ClassID=<%=Rs("ClassID")%>" onclick="{if(confirm('确定要删除么?')){return true;}return false;}">删除</a></div></td>
      <%End If%>
    </tr>
    <%If Rs("Menu")=-1 Then%>
    <%
Sql="Select * From WWW_QQCF_COM_CFWZ_Class where UpID="&Rs("ClassID")
Set Rs1=Conn.ExeCute(Sql)
While Not Rs1.Eof
%>
    <tr bgcolor='#FFFFFF'> 
      <td><div align="center">[子类别]</div></td>
      <td><div align="center"><%=Rs1("ClassID")%></div></td>
      <td><div align="center"><%=Rs1("ClassName")%></div></td>
      <td><div align="center"><%=Rs1("ListID")%></div></td>
      <td><div align="center"> 
          <%If Rs1("state")=-1 Then
			  response.Write "有效"
			  ElseIf Rs1("state")=0 then
			  response.Write "<font color=#ff0000>无效</font>"
			  End If%>
        </div></td>
      <td><div align="center"><%=Rs1("Memo")%></div></td>
      <td><div align="center"><a href="?action=classmodify&classid=<%=Rs1("classid")%>">修改</a> 
          <a href="?action=classdel&classid=<%=Rs1("classid")%>" onclick="{if(confirm('确定要删除么?')){return true;}return false;}">删除</a></div></td>
    </tr>
    <%
Rs1.Movenext
Wend%>
    <%End IF%>
<%
MyPageSize=MyPageSize-1
Rs.MoveNext
Wend
%>
    <tr> 
      <td colspan="7" bgcolor="#FFFFFF">
<table border="0" align="center" cellpadding="2" cellspacing="1">
          <tr> 
            <td valign="top"><div align="right"><a href="?Action=<%=Action%>&ClassName=<%=ClassName%>&PageSizeNum=<%=PageSizeNum%>&Px=<%=Px%>&Page=1">第一页</a> 
                <%
If Page>1 Then%>
                <a href='?Action=<%=Action%>&ClassName=<%=ClassName%>&PageSizeNum=<%=PageSizeNum%>&Px=<%=Px%>&Page=<%=Page-1%>'>上一页</a> 
                <%
End If
%>
                <%
If Page<Rs.PageCount Then%>
                <a href='?Action=<%=Action%>&ClassName=<%=ClassName%>&PageSizeNum=<%=PageSizeNum%>&Px=<%=Px%>&Page=<%=Page+1%>'>下一页</a> 
                <%
End If
%>
                <a href="?Action=<%=Action%>&ClassName=<%=ClassName%>&PageSizeNum=<%=PageSizeNum%>&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" onChange="window.location=form.page.options[form.page.selectedIndex].value">
                  <%For I=1 To TotalPage    
   Response.Write "<option value="&filename&"?Action="&Action&"&ClassName="&ClassName&"&PageSizeNum="&PageSizeNum&"&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="2" cellspacing="0">
          <form name="form2" method="post" action="?Action=classsearch">
            <tr> 
              <td><div align="center"><strong>搜 索</strong></div></td>
              <td><div align="center">类别名称:</div></td>
              <td><div align="center"> 
                  <input name="ClassName" type="text" id="ClassName" size="15">
                </div></td>
              <td><div align="center">每页显示:</div></td>
              <td><div align="center"> 
                  <input name="PageSizeNum" type="text" id="PageSizeNum2" size="5">
                  条</div></td>
              <td><div align="center"> 
                  <input type="submit" name="Submit332" value="搜索">
                </div></td>
          </form>
          <tr> 
            <td colspan="6"> </tr>
        </table></td>
    </tr>
  </table>
<%End If%>


<%if Action="wzlist" or Action="wzsearch" then%>


<%
Call GetCurrWeb()

Px=ChkStr(Request("Px"),1)
ClassID=ChkStr(Request("ClassID"),2)
Title=ChkStr(Request("Title"),1)
State=ChkStr(Request("State"),2)
PageSizeNum=ChkStr(Request("PageSizeNum"),2)

IF Px="" Then Px="ID"
Call PxFilter(Px,"ID,ClassID,Title,State,Lastvisittime,Total,ListID")

IF PageSizeNum="" or Not IsNumeric(PageSizeNum) Then PageSizeNum=10
Sql="Select * From WWW_QQCF_COM_CFWZ_WebSite where 1=1"

If Action="wzsearch" Then
 IF ClassID<>"" and ClassID<>"null" Then Sql=Sql&" And ClassID="&ClassID
 IF Title<>"" Then Sql=Sql&" And Title Like '%"&Title&"%'"
 IF State<>"" and State<>"null" Then Sql=Sql&" And State="&State
End If

Set Rs = Server.CreateObject("ADODB.Recordset")
Sql=Sql&" Order By "&Px&" Desc"
Rs.Open Sql,Conn,1,1

If Not rs.eof then
 If ChkStr(Request("Page"),2) = "" Then
  Page = 1
 Else 
  Page = CInt(ChkStr(Request("Page"),2))
 End If
 
 rs.pagesize=PageSizeNum
 totalrs=rs.RecordCount
 totalpage=rs.pageCount
 mypagesize=rs.pagesize
 rs.absolutepage=page
End If
%>
    <a href="?action=wzadd"><strong>增加网址</strong></a> </div>
  <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
    <tr bgcolor="D6DFF5"> 
      <td><div align="center"><strong><a href="?Action=<%=Action%>&ClassID=<%=ClassID%>&Title=<%=Title%>&State=<%=State%>&PageSizeNum=<%=PageSizeNum%>&Px=ID">ID</a></strong></div></td>
      <td><div align="center"><a href="?Action=<%=Action%>&ClassID=<%=ClassID%>&Title=<%=Title%>&State=<%=State%>&PageSizeNum=<%=PageSizeNum%>&Px=ClassID"><strong>类别</strong></a></div></td>
      <td><div align="center"><strong><a href="?Action=<%=Action%>&ClassID=<%=ClassID%>&Title=<%=Title%>&State=<%=State%>&PageSizeNum=<%=PageSizeNum%>&Px=Title">网址名称</a></strong></div></td>
      <td><div align="center"><strong><a href="?Action=<%=Action%>&ClassID=<%=ClassID%>&Title=<%=Title%>&State=<%=State%>&PageSizeNum=<%=PageSizeNum%>&Px=State">是否有效</a></strong></div></td>
      <td><div align="center"><strong><a href="?Action=<%=Action%>&ClassID=<%=ClassID%>&Title=<%=Title%>&State=<%=State%>&PageSizeNum=<%=PageSizeNum%>&Px=Lastvisittime">最后访问时间</a></strong></div></td>
      <td><div align="center"><strong><a href="?Action=<%=Action%>&ClassID=<%=ClassID%>&Title=<%=Title%>&State=<%=State%>&PageSizeNum=<%=PageSizeNum%>&Px=Total">点击总数</a></strong></div></td>
      <td><div align="center"><strong><a href="?Action=<%=Action%>&ClassID=<%=ClassID%>&Title=<%=Title%>&State=<%=State%>&PageSizeNum=<%=PageSizeNum%>&Px=ListID">排序</a></strong></div></td>
      <td><div align="center"><strong>操作</strong></div></td>
    </tr>
    <%
While not rs.eof and mypagesize>0
%>
    <tr
  <%if mypagesize mod 2=0 then
  response.write " bgcolor='#ffffff'"
 else
  response.write " bgcolor='#e8e8e8'"
 end if
 %>> 
      <td><div align="center"><%=rs("ID")%> </div></td>
      <td><div align="center"><%=GetFieldValues("WWW_QQCF_COM_CFWZ_Class","ClassID",Rs("ClassID"),1,"classname")%> [<%=Rs("ClassID")%>]</div></td>
      <td><div align="center"><a href="<%=rs("url")%>" target="_blank"><%=Rs("Title")%></a></div></td>
      <td><div align="center"> 
          <%if rs("state")=-1 then
			  response.Write "有效"
			  elseif rs("state")=0 then
			  response.Write "<font color=#ff0000>无效</font>"
			  end if%>
        </div></td>
      <td><div align="center"><%=Rs("Lastvisittime")%></div></td>
      <td><div align="center"><%=Rs("Total")%></div></td>
      <td><div align="center"><%=Rs("ListID")%></div></td>
      <td><div align="center"><a href="?action=wzmodify&id=<%=rs("id")%>">修改</a>　<a href="?action=wzdel&id=<%=rs("id")%>" onclick="{if(confirm('确定要删除么?')){return true;}return false;}">删除</a></div></td>
    </tr>
<%
mypagesize=mypagesize-1
123

⌨️ 快捷键说明

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