📄 viewclass.asp

📁 asp+sql软件系统
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="Include/Client_Module.asp"-->
<!--#include file="Include/UBB.asp"-->
<%
ErrTitle = "浏览分类出错："
SucTitle = "浏览分类成功："
Dim ACid,NCid
ACid=Request.QueryString("ACid")
NCid=Request.QueryString("NCid")
If ACid<>"" Then
If Not(IsNumeric(ACid)) Then
ErrInfo = ErrInfo&"<li>非法ID。</li>"
FoundErr = True
Call ErrorMsg()
Response.End
End If
Else
ErrInfo = ErrInfo&"<li>主类ID不能为空。</li>"
FoundErr = True
Call ErrorMsg()
Response.End
End If
If NCid<>"" Then
If Not(IsNumeric(NCid)) Then
ErrInfo = ErrInfo&"<li>非法ID。</li>"
FoundErr = True
Call ErrorMsg()
Response.End
End If
Else
NCid=0
End If
Call OpenDatabase()
Set Rs=Conn.Execute("NetCom_Class_AClass "&ACid&"")
If Rs.Eof Then
ErrInfo = ErrInfo&"<li>无此分类。</li>"
FoundErr = True
End If
%>
<html><head><title><%=PageTitle%> → <%=Rs(0)%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta NAME="author" CONTENT="软件下载">
<meta NAME="description" CONTENT="软件下载-<%=Rs(0)%>">
<meta NAME="keywords" CONTENT="<%=Rs(0)%>,软件下载">
<SCRIPT language=javascript src="js/menu.js" type="text/javascript"></SCRIPT>
<SCRIPT language=javascript src="js/pop.js" type="text/javascript"></SCRIPT>
<SCRIPT language=javascript src="js/slidemenu.js" type="text/javascript"></SCRIPT>
<SCRIPT language=javascript src="js/menuw.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"><%
If FoundErr Then
Call ErrorMsg()
Else
Call AClass()
Dim x
x=0%></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><table width="760" border="0" cellpadding="0" cellspacing="0" align="center"><tr><td width="200" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" align="center"><TR><TD height="5"></TD></TR></table><%Call Search()%><table width="100%" border="0" cellpadding="0" cellspacing="0" align="center"><TR><TD height="5"></TD></TR></table><table width="200" border="0" cellpadding="4" cellspacing="1" align="center" bgColor="#416194"><tr><td colspan="2"><img src="Images/Home_software.gif" width="100" height="25"></td></tr><%Rs.Close
Set Rs=Nothing
Set Rs=Conn.Execute("EXECUTE NetCom_Class_NClass "&ACid&"")
If Rs.Eof Then%><tr>
  <td bgcolor="#FFFFFF" align="center" colspan="2"><strong>暂无数据</strong></td>
</tr><%Else
While Not Rs.EOF
If x MOD 2 = 0 Then Response.Write ("</tr><tr>")
If Rs(0)=CInt(NCid) Then%><td bgcolor="#F0F0F0" align="center"><font color="red"><%=Rs(1)%></font></td><%Else%><td bgcolor="#FFFFFF" align="center" onMouseOver="javascript:this.bgColor='#F0F0F0';this.style.cursor='default';" onMouseOut="javascript:this.bgColor='#FFFFFF';"><a href="ViewClass.asp?ACid=<%=ACid%>&NCid=<%=Rs(0)%>" class="SoftMeun"><%=Rs(1)%></a></td><%End If
Rs.MoveNext
x=x+1
Wend
End If
Rs.Close
Set Rs=Nothing
If x MOD 2 <> 0 Then%><td bgcolor="#FFFFFF" align="center" onMouseOver="javascript:this.bgColor='#F0F0F0';this.style.cursor='default';" onMouseOut="javascript:this.bgColor='#FFFFFF';">&nbsp;</td><%End If%></table><table width="100%" border="0" cellpadding="0" cellspacing="0" align="center"><TR><TD height="5"></TD></TR></table><%Call DownloadCommend(0,ACid)%><table width="100%" border="0" cellpadding="0" cellspacing="0" align="center"><TR><TD height="5"></TD></TR></table><%Call DownloadArrange(0,ACid)%></td><td width="5"></td><td width="555" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="1" align="center" bgcolor="#ECECEC"><tr><td width="100%" valign="top"><table width="100%" border="0" cellpadding="5" cellspacing="0" align="center"><tr bgcolor="#ECECEC"><td width="55%" align="center">软件名称</td><td width="15%" align="center">整理日期</td><td width="10%" align="center">大小</td><td width="10%" align="center">人气</td><td width="10%" align="center">等级</td></tr><%Dim Page,PageSize,RemarkCount,PageCount
'If NCid<>"" Then
Sql="EXECUTE NetCom_Class_List "&ACid&","&NCid&""
'Else
'Sql="EXECUTE NetCom_Class_List "&ACid&",0"
'End If
Page = Request.QueryString("Page")
PageSize = CInt(10)
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
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="55%"><a href="ViewDownload.asp?Id=<%=Rs(0)%>" class="SoftMeun" target="_blank"><b><%=Rs(1)%></b></a><%If Rs(9)<>0 Then Response.Write ("<img src=Images/Recom.gif width=34 height=10 align=absmiddle>")%></td><td width="15%" align="center"><%=FormatDateTime(Rs(7),2)%></td><td width="10%" align="center"><%=Rs(5)%></td><td width="10%" align="center"><%=Rs(8)%></td><td width="10%" align="center"><img src="Images/<%=Rs(2)%>.gif" border="0"></td></tr><tr bgcolor="#FFFFFF"><td colspan="5">·<%=UBBCode(NetCom.CutStr(Rs(6),100))%>...</td></tr><tr bgcolor="#F0F0F0"><td colspan="5"><img src="Images/Mandate.gif" width="49" height="10" align="absbottom"><%=Rs(3)%>&nbsp;<img src="Images/System.gif" width="42" height="10" align="absbottom"><%=Rs(4)%></td></tr><%
x=x+1
Rs.MoveNext
Wend%><tr><td colspan="5" bgcolor="#FFFFFF"><%=NetCom.ShowPage(PageCount,RemarkCount,Page,PageSize,"?ACid="&ACid&"&NCid="&NCid&"&")%></td></tr><%Else%><tr>
  <td colspan="5" bgcolor="#FFFFFF" align="center"><b>暂无内容</b></td>
</tr><%End If%></table></td></tr></table></td></tr></table><%
End If
Rs.Close
Set Rs=Nothing
Call CloseDatabase()%>

</body></html>
<br><!--#include file="bottom.asp"-->
⌨️ 快捷键说明

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