📄 softlist.asp
字号:
<IMG
src="tp/realone.gif" border=0> </P></TD>
</TR>
<TR>
<TD style="FONT-SIZE: 12px" width=200>
<P align=center><SPAN class=style3><A
href="http://windowsmedia.com/download/"
target=_blank>
<MARQUEE scrollDelay=100
width=86>
</MARQUEE>
</A></SPAN><A
href="http://windowsmedia.com/download/"
target=_blank>
<MARQUEE scrollDelay=100 width=86>
</MARQUEE>
<MARQUEE scrollDelay=100
width=178> 如不能正常播放请下载此Media player 9播放器与RealOnE播放器！</MARQUEE>
</A><SPAN
class=style3><A
href="http://windowsmedia.com/download/"
target=_blank>
<MARQUEE scrollDelay=100
width=86>
</MARQUEE>
</MARQUEE>
</MARQUEE>
</MARQUEE>
</MARQUEE>
</MARQUEE>
</MARQUEE>
</MARQUEE>
</MARQUEE>
</MARQUEE>
</MARQUEE>
</MARQUEE>
</A></SPAN></P></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TABLE></TD>
</TR>
</TBODY>
</TABLE></TD>
<TD vAlign=top width=567 height=170>
<TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111
height=1 cellSpacing=0 cellPadding=6 width=546 border=0>
<TBODY>
<TR>
<TD height=1>
<DIV align=right>
<DIV align=right>
<%
sql="select * from "&CategoryName&"_DayUpdate where id=1"
rs.open sql,conn,1,1
if not(rs.eof and rs.bof) then
%>
<TABLE width="200%" border=0>
<TBODY>
<TR>
<TD width="86%"> <!-- 顶部歌曲统计 -->
<div align="left">目前共收录：共有节目：<strong><%= rs("AllSoft") %></strong> 个,·今日更新全部节目：<strong><%= rs("DayUpdateAll") %></strong> 个,总共下载次数：<strong><%= rs("AllDownNum") %> </strong>次</div></TD>
<TD
width="14%"> </TD>
</TR>
</TBODY>
</TABLE>
<% end if
rs.close
%>
</DIV>
</DIV></TD>
</TR>
</TBODY>
</TABLE>
<table width="546" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="5" valign="top" bgcolor="#FFFFFF" ></td>
<td width="478" valign="top" bgcolor="#FFFFFF" >
<%
if request("CateID")<>"" and request("SubCateID")<>"" then
sql="select SoftID,SoftName,SoftVer,Content,SoftSize,SoftTime,System,LicenceType,Rank,AllHits,isCommend,UserName from "&CategoryName&"_SoftInfo where "&CateID&" "&SubCateID&" "
sql=sql&" order by "&order_name&" "&updown
end if
if request("CateID")<>"" and request("SubCateID")="" then
sql="select SoftID,SoftName,SoftVer,Content,SoftSize,SoftTime,System,LicenceType,Rank,AllHits,isCommend,UserName from "&CategoryName&"_SoftInfo where "&CateID&" "
sql=sql&" order by "&order_name&" "&updown
end if
if request("CateID")="" and request("SubCateID")="" then
sql="select top 200 SoftID,SoftName,SoftVer,Content,SoftSize,SoftTime,System,LicenceType,Rank,AllHits,isCommend,UserName from "&CategoryName&"_SoftInfo "
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><tr><td border='0' width='100%' height='100%' cellspacing='1' cellpadding='0' bgcolor='#FFFFFF'><p align='center'>没有或没有找到任何软件</p></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,"SoftList.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,"SoftList.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"SoftList.asp"
end if
end if
set rs=nothing
end if
sub showContent
dim i
i=0
%>
<table width="536" border=0 align="center" cellpadding=2 cellspacing=1 bgcolor="#F7F7F7">
<%if request("updown")="" then%>
<tr height=22 >
<td background="images/index-t.gif" width=155 > <a href="SoftList.asp?CateID=<%=request("CateID")%>&SubCateID=<%=request("SubCateID")%>&order=SoftName&updown=desc" title="点击按升序排列" class="title0"><%=SoftDownName%></A></td>
<td width="135" align="center" nowrap background="images/index-t.gif"><a href="SoftList.asp?CateID=<%=request("CateID")%>&SubCateID=<%=request("SubCateID")%>&order=SoftTime&updown=desc" title="点击按升序排列" class="title0"> 整理日期</A></td>
<td align="center" nowrap background="images/index-t.gif"><a href="SoftList.asp?CateID=<%=request("CateID")%>&SubCateID=<%=request("SubCateID")%>&order=AllHits&updown=desc" title="点击按升序排列" class="title0"> 人气</A></td>
<td width="123" align="center" nowrap background="images/index-t.gif"><a href="SoftList.asp?CateID=<%=request("CateID")%>&SubCateID=<%=request("SubCateID")%>&order=Rank&updown=desc" title="点击按升序排列" class="title0"> 软件等级</A></td>
</tr>
<%else %>
<tr height=22>
<td background="images/index-t.gif" width=155> <a href="SoftList.asp?CateID=<%=request("CateID")%>&SubCateID=<%=request("SubCateID")%>&order=SoftName" title="点击按降序排列" class="title0"><%=SoftDownName%></a></td>
<td background="images/index-t.gif" align="center" nowrap width="135" ><a href="SoftList.asp?CateID=<%=request("CateID")%>&SubCateID=<%=request("SubCateID")%>&order=SoftTime" title="点击按降序排列" class="title0"> 整理日期</a></td>
<td align="center" nowrap background="images/index-t.gif"><a href="SoftList.asp?CateID=<%=request("CateID")%>&SubCateID=<%=request("SubCateID")%>&order=AllHits" title="点击按降序排列" class="title0"> 人气</a></td>
<td background="images/index-t.gif" align="center" nowrap width="123" ><a href="SoftList.asp?CateID=<%=request("CateID")%>&SubCateID=<%=request("SubCateID")%>&order=Rank" title="点击按降序排列" class="title0"> 软件等级</a></td>
</tr>
<% end if
do while not rs.eof%>
<tr>
<td width=155 bgcolor="#FFFFFF">
<img src="images/hxicon.gif"> <a href="SoftView.asp?SoftID=<%=rs("SoftID")%>" class="ArticleList"><%=rs("SoftName")&" "&rs("SoftVer")%></a>
<% if rs("isCommend") then Response.Write("<font color=red>推荐</font>") %> </td>
<td align=center nowrap bgcolor="#FFFFFF" width="135">
<% if rs("SoftTime")=Date() then
response.write "<font color=red>"&rs("SoftTime")&"</font>"
else
response.write rs("SoftTime")
end if %>
</td>
<td align="center" nowrap bgcolor="#FFFFFF"><%=rs("AllHits")%></td>
<td align=center nowrap bgcolor="#FFFFFF" width="123">
<%for img=1 to trim(rs("Rank"))
response.write "<img src=""images/star_green.gif"">"
next %>
</td>
</tr>
<tr>
<td colspan="4" bgcolor="#FFFFFF">
<span class="style3">
<%if len(trim(rs("Content")))>118 then%><font color="#000000">
</font><font color="#000000"><span lang="zh-cn">
</span>
<img src="images/icon_last.gif"> <%=left(trim(rs("Content")),118)%>...
<%else%>
<img src="images/icon_last.gif"><%=trim(rs("Content"))%>
<%end if%> </font>
</span></td>
</tr>
<tr>
<td height="20" colspan="4" nowrap bgcolor="#FFFFFF"><span class="style3">
<font color="#000000">运行平台：<%=trim(rs("System"))%> 授权类型：<%=trim(rs("LicenceType"))%> 用户：<%=rs("UserName")%></font></span></td>
</tr>
<tr >
<td height="1" colspan="4" background="images/bgline.gif" bgcolor="#FFFFFF"></td>
</tr>
<%
i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
rs.close
%>
</table>
<%
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 "<table cellspacing=1 width='100%' border=0 colspan='4' ><form method=Post action="&filename&"?CateID="&request("CateID")&"&SubCateID="&request("SubCateID")&"&order="&request("order")&"&updown="&request("updown")&"><tr><td align=center> "
response.write "<p><font color='red'>"&SoftDownName&"</font> "
if CurrentPage<2 then
response.write ""&totalnumber&"个 首页 上一页 "
else
response.write ""&totalnumber&"个 <a href="&filename&"?page=1&CateID="&request("CateID")&"&SubCateID="&request("SubCateID")&"&order="&request("order")&"&updown="&request("updown")&">首页</a> "
response.write "<a href="&filename&"?page="&CurrentPage-1&"&CateID="&request("CateID")&"&SubCateID="&request("SubCateID")&"&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)&"&CateID="&request("CateID")&"&SubCateID="&request("SubCateID")&"&order="&request("order")&"&updown="&request("updown")&">"
response.write "下一页</a> <a href="&filename&"?page="&n&"&CateID="&request("CateID")&"&SubCateID="&request("SubCateID")&"&order="&request("order")&"&updown="&request("updown")&">尾页</a>"
end if
response.write " 页次：<strong><font color=red>"&CurrentPage&"</font>/"&n&"</strong>页 "
response.write " <b>"&maxperpage&"</b>个软件/页 "
%>
<p>转到： <font color="#808080">
<select name='page' size='1' style="font-size: 9pt" onChange='javascript:submit()'>
<%for i = 1 to n%>
<option value='<%=i%>' <%if CurrentPage=cint(i) then%> selected <%end if%>> 第<%=i%>页</option>
<%next%>
</select></font>
<%
response.write "</td></tr></FORM></table>"
end function
%>
</td>
</tr>
</table>
<P><BR>
</P></TD>
</TR>
<TR>
<TD vAlign=top height=1 width="567"> </TD>
</TR>
</TBODY>
</TABLE>
</DIV>
<STYLE type=text/css>.style1 {
COLOR: #39599c
}
.style2 {
COLOR: #ffffff
}
</STYLE>
<DIV align=center>
</div>
<!--#include file="foot.asp" -->
</BODY></HTML>
<%
CloseDatabase
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -