📄 softlist.asp
字号:
%></td>
</tr>
</table>
<br></td>
</tr>
</table><br>
<table width="205" border="0" cellpadding="3" cellspacing="0" class="index">
<tr>
<td height="25" bgcolor="#E6E6E6" class="yellolineCopy"><font color="#333333"> </font><font color="#333333"> ·</font><strong>本类信息排行</strong><font color="#333333">·</font></td>
</tr>
<tr>
<td bgcolor="#F9F9F9" >
<table width="191" height="98" border="0" align="center" cellpadding="0" cellspacing="0">
<%
if request("CateID")<>"" and request("SubCateID")<>"" then
sql="select top 10 SoftID,SoftName,SoftVer,SoftTime from "&CategoryName&"_SoftInfo where "&CateID&" "&SubCateID&" order by WeekHits desc,SoftID desc"
end if
if request("CateID")<>"" and request("SubCateID")="" then
sql="select top 10 SoftID,SoftName,SoftVer,SoftTime from "&CategoryName&"_SoftInfo where "&CateID&" order by WeekHits desc,SoftID desc"
end if
if request("CateID")="" and request("SubCateID")="" then
sql="select top 10 SoftID,SoftName,SoftVer,SoftTime from "&CategoryName&"_SoftInfo order by WeekHits desc,SoftID desc"
end if
rs.open sql,conn,1,1%>
<tr>
<td>
<% if rs.eof and rs.bof then
response.write "<p align='center'>½üÆÚûÓÐÐÂÐÅÏ¢</p>"
else
do while not rs.eof
response.write "<li><a href='SoftView.asp?SoftID="& rs("SoftID")&"' >"& trim(rs("SoftName"))& " </a></li><br><br>"
rs.movenext
loop
end if
rs.close
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
<br> <table width="205" height="85" border="0" align="left" cellpadding="0" cellspacing="0" class="index">
<% 'sql="select top 5 SoftID,SoftName,SoftVer,Content,Images from "&CategoryName&"_SoftInfo where images<>'' order by SoftTime desc,SoftID desc"
if request("CateID")<>"" and request("SubCateID")<>"" then
sql="select top 5 * from "&CategoryName&"_SoftInfo where images<>'' and "& CateID&" "&SubCateID&" order by SoftTime desc,SoftID desc"
end if
if request("CateID")<>"" and request("SubCateID")="" then
sql="select top 5 * from "&CategoryName&"_SoftInfo where images<>'' and "&CateID&" order by SoftTime desc,SoftID desc"
end if
if request("CateID")="" and request("SubCateID")="" then
sql="select top 5 * from "&CategoryName&"_SoftInfo where images<>''order by SoftTime desc,SoftID desc"
end if
rs.open sql,conn,1,1 %>
<tr>
<td width="202" height="25" bgcolor="#EAEAEA" class="yellolineCopy"> <font color="#333333"> ·</font><strong>推荐图文信息</strong><font color="#333333">·</font></td>
</tr>
<%if rs.eof and rs.bof then
response.write "<tr> <td align='center'>没有推荐图片信息</td> </tr> "
else
do while not rs.eof
%>
<tr>
<td><table width="200" align="center" cellpadding="0" cellspacing="4" bordercolor="#FFFFFF" bordercolorlight="#dddddd" bordercolordark="#FFFFFF" class="dixian">
<tr>
<td height="71" colspan="2" rowspan="3" align="center"><a href="SoftView.Asp?SoftID=<%=rs("SoftID")%>" title="<%=trim(rs("SoftName"))&trim(rs("SoftVer"))%>"><IMG src="<%=rs("images")%>" width="75" height="66" border=0 ></a></td>
<td width="87" height="18" colspan="2" align="center" valign="bottom"><div align="left"></div>
<div align="left"><%=rs("softtype")%></div></td>
</tr>
<tr>
<td height="18" colspan="2" align="center" valign="bottom"><div align="left"><%=rs("SoftTime")%></div></td>
</tr>
<tr>
<td height="18" colspan="2" align="center" valign="top"><div align="left"><%=left(rs("softname"),16)%>...</div></td>
</tr>
</table></td>
</tr>
<%
rs.movenext
loop
end if
rs.close
%>
</table>
</td><td height="100" colspan="3" valign="top" bgcolor="#FFFFFF" ><table width="560" height="100" border="0" align="right" cellpadding="0" cellspacing="0" class="index">
<tr>
<td width="543" height="95"><div align="center"><img src="<%=ad%>" width="560" height="100"></div></td>
</tr>
</table></td>
</tr>
<tr>
<td height="34" colspan="3" valign="middle" bgcolor="#FFFFFF" >
<div align="left">
<% dim count1
count=9
if request("CateID")<>"" and request("SubCateID")<>"" then
sql="select SoftID,SoftName,SoftVer,Content,SoftSize,Softtype,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,Softtype,Content,SoftVer,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,Softbype,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'>当前还没有相关信息。</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
%>
当前位置:<%= CategoryName_CHS %>>> <%=CateName%></div>
</td>
</tr>
<tr>
<td colspan="3" valign="middle" bgcolor="#FFFFFF" ><table width="560" border="0" align="right" cellpadding="0" cellspacing="0" class="index">
<tr>
<td width="329" height="24"> </td>
</tr>
</table></td>
</tr>
<tr>
<td height="106" colspan="3" valign="top" bgcolor="#FFFFFF" ><table width="560" border=0 align="right" cellpadding=0 cellspacing=0>
<% do while not rs.eof%>
<tr>
<td colspan="5" valign="top">
<%if count1 mod 2=0 then%>
<table width="560" border="0" cellpadding="0" cellspacing="3" bgcolor="#F7F7F7">
<tr>
<td width=55 height="27" align="center"><img src="images/list.gif" align="absmiddle" border="0"> <font color="#996600"><%=trim(rs("Softtype")) %></font></td>
<td width="505" colspan="4"><a href="SoftView.asp?SoftID=<%=rs("SoftID")%>" ><strong><%=rs("SoftName")%></strong></a>
<% if rs("isCommend") then Response.Write("<font color='#996600'>推荐</font>") %>
<% if rs("SoftTime")=Date() then
response.write "<font color=red>"&rs("SoftTime")&"</font>"
else
response.write rs("SoftTime")
end if %>
<font color="#666666">[<%=trim(rs("licencetype"))%>]</font></td>
</tr>
<tr>
<TD width="55" height="32" align="center"> </td>
<td colspan="5">
<%if len(trim(rs("Content")))>118 then%>
· <%=left(trim(rs("Content")),118)%>...
<%else%><%=trim(rs("Content"))%>
<%end if%>
</td>
</tr>
</table>
<%else%>
<table width="560" border="0" cellspacing="3" cellpadding="0">
<tr>
<td width=55 height="35" align="center"><img src="images/list.gif" align="absmiddle" border="0"> <font color="#996600"><%=trim(rs("Softtype")) %></font></td>
<td width="505" colspan="4" bgcolor="#FFFFFF"><a href="SoftView.asp?SoftID=<%=rs("SoftID")%>" ><strong><%=rs("SoftName")%></strong></a>
<% if rs("isCommend") then Response.Write("<font color='#996600'>推荐</font>") %>
<% if rs("SoftTime")=Date() then
response.write "<font color=red>"&rs("SoftTime")&"</font>"
else
response.write rs("SoftTime")
end if %>
<font color="#666666"> [<%=trim(rs("licencetype"))%>]</td>
</tr>
<tr>
<TD width="55" height="28" align="center"></td>
<td colspan="5" bgcolor="#FFFFFF">
<%if len(trim(rs("Content")))>118 then%>
· <%=left(trim(rs("Content")),118)%>...
<%else%>
· <%=trim(rs("Content"))%>
<%end if%>
</td>
</tr>
</table>
<%end if%>
</td>
</tr>
<tr >
<td height="18" colspan="5" valign="top" bgcolor="#FFFFFF"> </td>
</tr>
<%
i=i+1
if i>=MaxPerPage then exit do
count1=count1+1
rs.movenext
loop
rs.close
%>
</table>
<div align="right"></div></td>
</tr>
<tr>
<td width="1" height="22" align="right" valign="top" bgcolor="#FFFFFF" >
<div align="center"> </div></td>
<td width="518" align="right" valign="top" bgcolor="#F9F9F9" class="index1" ><% 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 width='98%' border='0' align='center'><form method=Post action="&filename&"?CateID="&request("CateID")&"&SubCateID="&request("SubCateID")&"&action="&request("action")&"&keyword="&keyword&"><tr><td align='center'> "
response.write "<font color='red'>"&SubCateName&"</font>"
if CurrentPage<2 then
response.write ""&totalnumber&"个 首页 上一页 "
else
response.write ""&totalnumber&"个 <a href="&filename&"?page=1&CateID="&request("CateID")&"&SubCateID="&request("SubCateID")&"&action="&request("action")&"&keyword="&keyword&">首页</a> "
response.write "<a href="&filename&"?page="&CurrentPage-1&"&CateID="&request("CateID")&"&SubCateID="&request("SubCateID")&"&action="&request("action")&"&keyword="&keyword&">上一页</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")&"&action="&request("action")&"&keyword="&keyword&">"
response.write "下一页</a> <a href="&filename&"?page="&n&"&CateID="&request("CateID")&"&SubCateID="&request("SubCateID")&"&action="&request("action")&"&keyword="&keyword&">尾页</a>"
end if
response.write " 页次：<strong><font color=red>"&CurrentPage&"</font>/"&n&"</strong>页 "
response.write " "&maxperpage&"条信息/页 "
%>
转到：
<select name='page' size='1' onChange='javascript:submit()'>
<%for i = 1 to n%>
<option value='<%=i%>' <%if CurrentPage=cint(i) then%> selected <%end if%>>第<%=i%>页</option>
<%next%>
</select>
<%response.write "</td></tr></form></table>"%>
<%
end function
%></td>
<td width="42" align="right" valign="top" bgcolor="#F9F9F9" class="index2" > </td>
</tr>
<tr>
<td colspan="3" align="right" valign="top" bgcolor="#FFFFFF" ><div align="right"> </div></td>
</tr>
</table>
<br>
<!--#include file="end.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -