📄 viewarrorder.asp

📁 asp+sql软件系统
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="Include/Client_Module.asp"-->
<%
Dim Title
Select Case Action
Case "Download"
Sql="SELECT Download.Did,Download.Dname,Download.Daclass,Download.Dnclass,Download.Adddate,Download.Download,Class.Classname FROM [Download] INNER JOIN [Class] ON Download.Dnclass=Class.Classid WHERE Download.Dpurview=0 AND Download.Flag=1 ORDER BY Download.Download DESC"
Title="下载排行"
Case "Commend"
Sql="SELECT Download.Did,Download.Dname,Download.Daclass,Download.Dnclass,Download.Adddate,Download.Download,Class.Classname FROM [Download] INNER JOIN [Class] ON Download.Dnclass=Class.Classid WHERE Download.Commend<>4 AND Download.Commend<>0 AND Download.Dpurview=0 AND Download.Flag=1 ORDER BY Download.Adddate DESC"
Title="下载推荐"
Case "Images"
Sql="SELECT Download.Did,Download.Dname,Download.Daclass,Download.Dnclass,Download.Adddate,Download.Download,Class.Classname FROM [Download] INNER JOIN [Class] ON Download.Dnclass=Class.Classid WHERE Download.Commend=4 AND Download.Dpurview=0 AND Download.Flag=1 ORDER BY Download.Adddate DESC"
Title="图片推荐"
Case Else
Sql="SELECT Download.Did,Download.Dname,Download.Daclass,Download.Dnclass,Download.Adddate,Download.Download,Class.Classname FROM [Download] INNER JOIN [Class] ON Download.Dnclass=Class.Classid WHERE Download.Dpurview=0 AND Download.Flag=1 ORDER BY Download.Adddate DESC"
Title="最新更新"
End Select
%><!----------头部标记开始---------->
<html><head><title><%=PageTitle%> → <%=Title%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta NAME="author" CONTENT="软件下载">
<meta NAME="description" CONTENT="软件下载">
<meta NAME="keywords" CONTENT="软件下载">
<SCRIPT language=javascript src="js/menu.js" type="text/javascript"></SCRIPT>
<SCRIPT language=javascript src="js/pop.js" type="text/javascript"></SCRIPT>
<link href="Css/Style.css" rel="stylesheet" type="text/css"></head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><table width="758" border="0" cellpadding="0" cellspacing="0" align="center"><tr><td width="200" align="center"><img src="Images/Logo.gif" width="200" height="70"></td>
    <td valign="top" align="right">&nbsp;</td>
</tr></table><table width="760" border="0" cellpadding="0" cellspacing="0" align="center"><TR><TD height="1"></TD></TR></table><table width="760" border="0" cellpadding="0" cellspacing="0" align="center"><tr><TD height="40" bgcolor="#416194"><%
Call OpenDatabase()
Call AClass()
%></TD>
</TR></table><table width="760" border="0" cellpadding="0" cellspacing="0" align="center"><TR><TD height="1"></TD></TR></table><table width="760" border="0" cellpadding="0" cellspacing="1" align="center" bgColor="#416194"></table><table width="760" border="0" cellpadding="0" cellspacing="0" align="center"><TR><TD height="1"></TD></TR></table><%Call OpenDatabase()
Dim Page,PageSize,RemarkCount,PageCount,x
Page = Request.QueryString("Page")
PageSize = CInt(30)
Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.CursorLocation = 3
Rs.Open Sql,Conn,1,1
RemarkCount = Rs.RecordCount
If IsNumeric(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
%><table width="760" border="0" cellpadding="4" cellspacing="1" align="center" bgColor="#416194"><tr bgcolor="#F0F0F0"><td width="20%" align="center">更新时间</td><td width="40%" align="center">程序名称</td><td width="20%" align="center">类别</td><td width="20%" align="center">下载次数</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 bgcolor="#FFFFFF"><td width="20%" align="center"><%=FormatDateTime(Rs(4),2)
%></td><td width="40%" onMouseOver="javascript:this.bgColor='#F7F7F7';this.style.cursor='default';" onMouseOut="javascript:this.bgColor='#FFFFFF';"><a href="ViewDownload.asp?Id=<%=Rs(0)%>" class="SoftMeun"><%=Rs(1)%></a></td><td width="20%" align="center" onMouseOver="javascript:this.bgColor='#F7F7F7';this.style.cursor='default';" onMouseOut="javascript:this.bgColor='#FFFFFF';"><a href="ViewClass.asp?ACid=<%=Rs(2)%>&NCid=<%=Rs(3)%>" class="SoftMeun"><%=Rs(6)%></a></td><td width="20%" align="center"><%=Rs(5)%></td></tr><%
x=x+1
Rs.MoveNext
Wend%><tr><td colspan="4" bgcolor="#F0F0F0"><%=NetCom.ShowPage(PageCount,RemarkCount,Page,PageSize,"?Action="&Action&"&")%></td></tr><%Else%><tr align="center">
  <td bgcolor="#FFFFFF" colspan="4"><b>暂无内容</b></td>
</tr><%End If%></table><%
Rs.Close
Set Rs=Nothing
Call CloseDatabase()%>

</body></html>
⌨️ 快捷键说明

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