📄 admin_download.asp

📁 asp+sql软件系统
💻 ASP
字号:
<!--#include file="../conn.asp"-->
<!--#include file="CheckAdmin.asp"-->
<%
ErrTitle = "管理下载出错："
SucTitle = "管理下载成功："

Dim opt,ACid
opt=Request.QueryString("opt")
ACid=Request.QueryString("ACid")
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>管理下载</title>
</head>

<body>
<%
Select Case Action
	Case "Del"
		Call Del()
	Case "SearchMain"
		Call SearchMain()
	Case Else
		Call Main()
End Select

Sub DownloadMenu()
%>
<br>
<%
End Sub

Sub AClass()
Dim ACRs
Set ACRs=Conn.Execute("SELECT Classid,Classname FROM [Class] WHERE Flag=0")
%>
<table width="95%" border="1" align="center" cellpadding="2" cellspacing="0">
  <tr>
    <td align="center"><a href="?ACid=&opt=<%=opt%>">全部分类</a></td>
    <%While Not ACRs.EOF%>
    <td align="center"><a href="?ACid=<%=ACRs(0)%>&opt=<%=opt%>"><%=ACRs(1)%></a></td>
    <%ACRs.MoveNext
    Wend%>
  </tr>
</table>
<br>
<%
ACRs.Close
Set ACRs=Nothing
End Sub


Sub Main()
If opt<>"" AND ACid<>"" Then
	Sql="SELECT Did,Dname,Adddate,Author,Flag FROM [Download] WHERE Daclass="&CInt(ACid)&" AND Dpurview="&CInt(opt)&" ORDER BY Did DESC"
ElseIf ACid<>"" Then
	Sql="SELECT Did,Dname,Adddate,Author,Flag FROM [Download] WHERE Daclass="&CInt(ACid)&" ORDER BY Did DESC"
ElseIf opt<>"" Then
	Sql="SELECT Did,Dname,Adddate,Author,Flag FROM [Download] WHERE Dpurview="&CInt(opt)&" ORDER BY Did DESC"
Else
	Sql="SELECT Did,Dname,Adddate,Author,Flag FROM [Download] ORDER BY Did DESC"
End If
Call OpenDatabase()
Dim Page,PageSize,RemarkCount,PageCount,x
	Page = Request.QueryString("Page")
	PageSize = CInt(20)
Set Rs = Server.CreateObject("ADODB.RecordSet")
	Rs.CursorLocation = 3
	Rs.Open Sql,Conn,1,1
	RemarkCount = Rs.RecordCount
    If NetCom.isInt(Page)=False Then
        Page = 1
    Else
        Page = CInt(Page)
    End If 
	If RemarkCount Mod CInt(PageSize)=0 Then
	    PageCount = RemarkCount \ CInt(PageSize)
	Else
	    PageCount = RemarkCount \ CInt(PageSize)+1
  	End If
	Call SearchMenu()
	Call DownloadMenu()
	CAll AClass()
%>
<table width="95%" border="1" align="center" cellpadding="1" cellspacing="0">
  <tr>
    <td colspan="7">管理下载</td>
  </tr>
  <tr>
    <td>ID</td>
    <td>名称</td>
    <td>添加时间</td>
    <td>操作者</td>
    <td>标识</td>
    <td>地址</td>
    <td>管理</td>
  </tr>
<%
  	If Not (Rs.Bof And Rs.Eof) Then
		Rs.MoveFirst
		If Page > PageCount Then Page = PageCount
		If Page<1 Then Page=1
		Rs.Move (Page-1) * CInt(PageSize)
		x=1
	While Not Rs.EOF AND x<=PageSize
%>
  <tr>
    <td><%=Rs(0)%></td>
    <td><%=Rs(1)%></td>
    <td><%=Rs(2)%></td>
    <td><%=Rs(3)%></td>
    <td>
    <%Select Case Rs(4)
	Case 0
		Response.Write ("停")
	Case 1
		Response.Write ("正")
	Case 2
		Response.Write ("无")
    End Select%></td>
     <td><a href="Admin_Download_Url.asp?Did=<%=Rs(0)%>">查看</a></td>
    <td align="center"><a href="Admin_Edit_Download.asp?Action=Edit&Did=<%=Rs(0)%>">修改</a> | <a href="Admin_Download.asp?Action=Del&Did=<%=Rs(0)%>">删除</a></td>
  </tr>
<%
x=x+1
Rs.MoveNext
Wend
%>
  <tr>
    <td colspan="7"><%=NetCom.ShowPage(PageCount,RemarkCount,Page,PageSize,"?opt="&opt&"&ACid="&ACid&"&")%></td>
  </tr>
<%Else%>
  <tr align="center">
    <td colspan="7">暂无任何数据</td>
  </tr>
<%
End If
%>
</table>
<%
Rs.Close
Set Rs = Nothing
Call CloseDatabase()
End Sub

Sub Del()
Dim Did
Did=CInt(Request.QueryString("Did"))

Call OpenDatabase()
	Conn.Execute("DELETE FROM [Download] WHERE Did="&Did&"")
	Conn.Execute("DELETE FROM [DownloadUrl] WHERE Did="&Did&"")
	Call SucMsg("<li>删除下载成功！</li>","Admin_Download.asp")
Call CloseDatabase()
End Sub

Sub SearchMenu()
%>
<form name="form1" method="post" action="?Action=SearchMain">
<table width="95%" border="1" align="center" cellpadding="2" cellspacing="0">
  <tr>
    <td width="17%" align="center"><strong>搜索下载</strong></td>
    <td width="83%"><select name="elect" id="elect">
    <option value="1">软件ID</option>
    <option value="2" selected>软件名</option>
    <option value="3">操作者</option>
    </select>
      <input name="keyword" type="text" id="keyword">
      <input type="submit" name="Submit" value="搜索"></td>
    </tr>
</table>
</form>
<%
End Sub

Sub SearchMain()
Call OpenDatabase()
Dim Page,PageSize,RemarkCount,PageCount,x
Dim keyword,elect
keyword=Trim(Request("keyword"))
elect=CInt(Request("elect"))
If elect=1 Then
	Sql="SELECT Did,Dname,Adddate,Author,Flag FROM [Download] WHERE Did="&keyword&" ORDER BY Did DESC"
ElseIf elect=3 Then
	Sql="SELECT Did,Dname,Adddate,Author,Flag FROM [Download] WHERE Author='"&keyword&"' ORDER BY Did DESC"
Else
	Sql="SELECT Did,Dname,Adddate,Author,Flag FROM [Download] WHERE Dname LIKE '%"&keyword&"%' ORDER BY Did DESC"
End If
	Page = Request.QueryString("Page")
	PageSize = CInt(20)
Set Rs = Server.CreateObject("ADODB.RecordSet")
	Rs.CursorLocation = 3
	Rs.Open Sql,Conn,1,1
	RemarkCount = Rs.RecordCount
    If NetCom.isInt(Page)=False Then
        Page = 1
    Else
        Page = CInt(Page)
    End If 
	If RemarkCount Mod CInt(PageSize)=0 Then
	    PageCount = RemarkCount \ CInt(PageSize)
	Else
	    PageCount = RemarkCount \ CInt(PageSize)+1
  	End If
	Call SearchMenu()
%>
<table width="95%" border="1" align="center" cellpadding="1" cellspacing="0">
  <tr>
    <td colspan="7">管理下载</td>
  </tr>
  <tr>
    <td>ID</td>
    <td>名称</td>
    <td>添加时间</td>
    <td>操作者</td>
    <td>标识</td>
    <td>地址</td>
    <td>管理</td>
  </tr>
<%
  	If Not (Rs.Bof And Rs.Eof) Then
		Rs.MoveFirst
		If Page > PageCount Then Page = PageCount
		If Page<1 Then Page=1
		Rs.Move (Page-1) * CInt(PageSize)
		x=1
	While Not Rs.EOF AND x<=PageSize
%>
  <tr>
    <td><%=Rs(0)%></td>
    <td><%=Rs(1)%></td>
    <td><%=Rs(2)%></td>
    <td><%=Rs(3)%></td>
    <td>
    <%Select Case Rs(4)
	Case 0
		Response.Write ("停")
	Case 1
		Response.Write ("正")
	Case 2
		Response.Write ("无")
    End Select%></td>
     <td><a href="Admin_Download_Url.asp?Did=<%=Rs(0)%>">查看</a></td>
    <td align="center"><a href="Admin_Edit_Download.asp?Action=Edit&Did=<%=Rs(0)%>">修改</a> | <a href="Admin_Download.asp?Action=Del&Did=<%=Rs(0)%>">删除</a></td>
  </tr>
<%
x=x+1
Rs.MoveNext
Wend
%>
  <tr>
    <td colspan="7"><%=NetCom.ShowPage(PageCount,RemarkCount,Page,PageSize,"?Action=SearchMain&elect="&elect&"&keyword="&keyword&"&")%></td>
  </tr>
<%Else%>
  <tr align="center">
    <td colspan="7">暂无任何数据</td>
  </tr>
<%
End If
%>
</table>
<%
Rs.Close
Set Rs = Nothing
Call CloseDatabase()
End Sub
%>
</body>
</html>
⌨️ 快捷键说明

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