📄 nclass.asp
字号:
</TABLE>
<TABLE height=5 cellSpacing=0 cellPadding=0 width=150 border=0>
<TBODY>
<TR>
<TD></TD>
</TR>
</TBODY>
</TABLE>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><script src="../..images/soft_ads_list_left.js"></script></td>
</tr>
</table></td>
<td width="1" valign="top"></td>
<td width="579" valign="top"> <table width="98%" border="0" cellpadding="0" cellspacing="0" style="word-break:break-all">
<tr>
<td width="55"><img src="images/homedhs.gif" width="55" height="34"></td>
<td width="323" align="center" background="images/homedhbg.gif">软件名称
</td>
<td width="73" align="center" background="images/homedhbg.gif">更新日期
</td>
<td width="60" align="center" background="images/homedhbg.gif">
人气</td>
<td width="64" align="center" background="images/homedhbg.gif">
软件大小</td>
</tr>
</table>
<table width="98%" border=0 cellpadding=4 cellspacing=1 id="TbSoftList">
<%=softcode%>
<tr bgcolor="#F5F5F5">
<td width="100%" height="116" bgcolor="#FFFFFF">
<table border=0 cellpadding=0 cellspacing=2 width="101%" id="table5">
<tbody>
<tr>
<td valign=top width=550>
<%
if request("Nclassid")="" then
sql="select id,showname,bb,note,dayhits,weekhits,lasthits,hits,dateandtime,hot,system,size,orders from download where download.classid="&request("classid")
sql=sql&" order by "&order_name&" "&updown
else
sql="select id,showname,bb,note,dayhits,weekhits,lasthits,hits,dateandtime,hot,system,size,orders from download where download.Nclassid="&request("Nclassid")
sql=sql&" order by "&order_name&" "&updown
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<table border=0 width=100% height=100 cellpadding=0><tr><td width='100%'><p align=center>没有或没有找到任何程序</td></tr></table>"
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"sort.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,"sort.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"sort.asp"
end if
end if
rs.close
end if
sub showContent
dim i
i=0
%>
<td width="100%" >
<table border="0" cellspacing="1" cellpadding="0" width="557" align="center" bgcolor="#C3C3C3" id="table7">
<%if request("updown")="" then%>
<%else%>
<%end if%>
<%do while not rs.eof%>
<tr bgcolor="#FFFFFF" onMouseOver="this.style.backgroundColor='#f8f8f8';" onMouseOut="this.style.backgroundColor='#ffffff';">
<td width="335" height="22" bgcolor="#FFFFFF">
<table border="0" width="100%" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" height="67" id="table8">
<tr>
<td width="100%" colspan="2" height="22">
<p align="left"><a class="date" href="list.asp?id=<%=rs("id")%>" title="点击查看详细介绍"><b><%=rs("showname")%></b></a></p>
</td>
</tr>
<tr>
<td width="100%" colspan="2" height="21"><%if len(rs("note"))>24 then%> <%=left(rs("note"),25)%>....
<%else%>
<%=rs("note")%>
<%end if%> </td>
</tr>
<tr>
<td width="60%" height="24"><b>操作系统：</b><%=rs("system")%></td>
<td width="40%" height="24"><b>授权方式：</b><%=rs("orders")%></td>
</tr>
</table>
</td>
<td width="65" align=center height="22" bgcolor="#FFFFFF"><%=month(rs("dateandtime"))%>月<%=day(rs("dateandtime"))%>日</td>
<td width="63" align=center height="22" bgcolor="#FFFFFF"><%=rs("hits")%></td>
<td width="81" align=center height="22" bgcolor="#FFFFFF"><%=rs("size")%></td>
</tr>
<%
i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
%>
<tr bgcolor="#FFFFFF">
<td colspan="4" width="555">
<p align="center">ad</td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="4" height="25" bgcolor="#F8F4F8" width="555">
<p align="center">
<% end sub
function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
response.write "<form method=Post action="&filename&"?classid="&request("classid")&"&Nclassid="&request("Nclassid")&"&order="&request("order")&"&updown="&request("updown")&">"
response.write ""&Nclassname&""
if CurrentPage<2 then
response.write "<strong><font color=red>"&totalnumber&"</font>/"&n&"</strong>个 首页 上一页 "
else
response.write ""&totalnumber&"个 <a href="&filename&"?page=1&classid="&request("classid")&"&Nclassid="&request("Nclassid")&"&order="&request("order")&"&updown="&request("updown")&">首页</a> "
response.write "<a href="&filename&"?page="&CurrentPage-1&"&classid="&request("classid")&"&Nclassid="&request("Nclassid")&"&order="&request("order")&"&updown="&request("updown")&">上一页</a> "
end if
if n-currentpage<1 then
response.write "下一页 尾页"
else
response.write "<a href="&filename&"?page="&(CurrentPage+1)&"&classid="&request("classid")&"&Nclassid="&request("Nclassid")&"&order="&request("order")&"&updown="&request("updown")&">"
response.write "下一页</a> <a href="&filename&"?page="&n&"&classid="&request("classid")&"&Nclassid="&request("Nclassid")&"&order="&request("order")&"&updown="&request("updown")&">尾页</a>"
end if
response.write " 页次：<strong><font color=red>"&CurrentPage&"</font>/"&n&"</strong>页 "
response.write " <b>"&maxperpage&"</b>个软件/页 "
%>
<%
end function
%>
</p>
</td>
</tr>
</table>
</td>
</TD>
</TR>
</TBODY></TABLE></TD>
</table></td>
</tr>
</table></td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE>
<!-- 页面内容结束 -->
<!-- 页面底部开始 -->
<!--#include file="footer.asp" -->
</CENTER>
</BODY>
</HTML>
<%
function getHTTPPage(url)
on error resume next
dim http
set http=Server.createobject("Microsoft.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytes2BSTR(Http.responseBody)
set http=nothing
if err.number<>0 then err.Clear
end function
Function bytes2BSTR(vIn)
dim strReturn
dim i1,ThisCharCode,NextCharCode
strReturn = ""
For i1 = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i1,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i1+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i1 = i1 + 1
End If
Next
bytes2BSTR = strReturn
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -