📄 news.asp
字号:
<!--#include file="config.asp"-->
<% dim Rs,TypeSQL,ActionName
set Rs=server.createobject("adodb.recordset")
select case Trim(Request("action"))
case "转让"
TypeSQL="SELECT top 45 "&CategoryName&"_SoftInfo.SoftID,"&CategoryName&"_SoftInfo.SoftName,"&CategoryName&"_SoftInfo.SoftVer,"&CategoryName&"_SoftInfo.CateID,"&CategoryName&"_SoftInfo.SubCateID,"&CategoryName&"_SoftInfo.SoftSize,"&CategoryName&"_SoftInfo.SoftTime,"&CategoryName&"_SoftInfo.Softtype,"&CategoryName&"_SoftInfo.AllHits,"&CategoryName&"_SubCate.SubCateName FROM "&CategoryName&"_SoftInfo,"&CategoryName&"_SubCate where "&CategoryName&"_SoftInfo.SubCateID="&CategoryName&"_SubCate.SubCateID and "&CategoryName&"_SoftInfo.SoftType='转让' order by "&CategoryName&"_SoftInfo.SoftTime desc,"&CategoryName&"_SoftInfo.SoftID desc"
ActionName="转让"
case "求购"
TypeSQL="SELECT top 45 "&CategoryName&"_SoftInfo.SoftID,"&CategoryName&"_SoftInfo.SoftName,"&CategoryName&"_SoftInfo.SoftVer,"&CategoryName&"_SoftInfo.CateID,"&CategoryName&"_SoftInfo.SubCateID,"&CategoryName&"_SoftInfo.SoftSize,"&CategoryName&"_SoftInfo.SoftTime,"&CategoryName&"_SoftInfo.Softtype,"&CategoryName&"_SoftInfo.AllHits,"&CategoryName&"_SubCate.SubCateName FROM "&CategoryName&"_SoftInfo,"&CategoryName&"_SubCate where "&CategoryName&"_SoftInfo.SubCateID="&CategoryName&"_SubCate.SubCateID and "&CategoryName&"_SoftInfo.SoftType='求购' order by "&CategoryName&"_SoftInfo.SoftTime desc,"&CategoryName&"_SoftInfo.SoftID desc"
ActionName="求购"
case "出租"
TypeSQL="SELECT top 45 "&CategoryName&"_SoftInfo.SoftID,"&CategoryName&"_SoftInfo.SoftName,"&CategoryName&"_SoftInfo.SoftVer,"&CategoryName&"_SoftInfo.CateID,"&CategoryName&"_SoftInfo.SubCateID,"&CategoryName&"_SoftInfo.SoftSize,"&CategoryName&"_SoftInfo.SoftTime,"&CategoryName&"_SoftInfo.Softtype,"&CategoryName&"_SoftInfo.AllHits,"&CategoryName&"_SubCate.SubCateName FROM "&CategoryName&"_SoftInfo,"&CategoryName&"_SubCate where "&CategoryName&"_SoftInfo.SubCateID="&CategoryName&"_SubCate.SubCateID and "&CategoryName&"_SoftInfo.SoftType='出租' order by "&CategoryName&"_SoftInfo.SoftTime desc,"&CategoryName&"_SoftInfo.SoftID desc"
ActionName="出租"
case "求租"
TypeSQL="SELECT top 45 "&CategoryName&"_SoftInfo.SoftID,"&CategoryName&"_SoftInfo.SoftName,"&CategoryName&"_SoftInfo.SoftVer,"&CategoryName&"_SoftInfo.CateID,"&CategoryName&"_SoftInfo.SubCateID,"&CategoryName&"_SoftInfo.SoftSize,"&CategoryName&"_SoftInfo.SoftTime,"&CategoryName&"_SoftInfo.Softtype,"&CategoryName&"_SoftInfo.AllHits,"&CategoryName&"_SubCate.SubCateName FROM "&CategoryName&"_SoftInfo,"&CategoryName&"_SubCate where "&CategoryName&"_SoftInfo.SubCateID="&CategoryName&"_SubCate.SubCateID and "&CategoryName&"_SoftInfo.SoftType='出租' order by "&CategoryName&"_SoftInfo.SoftTime desc,"&CategoryName&"_SoftInfo.SoftID desc"
ActionName="求租"
case "其它"
TypeSQL="SELECT top 45 "&CategoryName&"_SoftInfo.SoftID,"&CategoryName&"_SoftInfo.SoftName,"&CategoryName&"_SoftInfo.SoftVer,"&CategoryName&"_SoftInfo.CateID,"&CategoryName&"_SoftInfo.SubCateID,"&CategoryName&"_SoftInfo.SoftSize,"&CategoryName&"_SoftInfo.SoftTime,"&CategoryName&"_SoftInfo.Softtype,"&CategoryName&"_SoftInfo.AllHits,"&CategoryName&"_SubCate.SubCateName FROM "&CategoryName&"_SoftInfo,"&CategoryName&"_SubCate where "&CategoryName&"_SoftInfo.SubCateID="&CategoryName&"_SubCate.SubCateID and "&CategoryName&"_SoftInfo.SoftType='其它' order by "&CategoryName&"_SoftInfo.SoftTime desc,"&CategoryName&"_SoftInfo.SoftID desc"
ActionName="其它"
case else
TypeSQL="SELECT top 45 "&CategoryName&"_SoftInfo.SoftID,"&CategoryName&"_SoftInfo.SoftName,"&CategoryName&"_SoftInfo.SoftVer,"&CategoryName&"_SoftInfo.CateID,"&CategoryName&"_SoftInfo.SubCateID,"&CategoryName&"_SoftInfo.SoftSize,"&CategoryName&"_SoftInfo.SoftTime,"&CategoryName&"_SoftInfo.softtype,"&CategoryName&"_SoftInfo.AllHits,"&CategoryName&"_SubCate.SubCateName FROM "&CategoryName&"_SoftInfo,"&CategoryName&"_SubCate where "&CategoryName&"_SoftInfo.SubCateID="&CategoryName&"_SubCate.SubCateID order by "&CategoryName&"_SoftInfo.SoftTime desc,"&CategoryName&"_SoftInfo.SoftID desc"
ActionName="全部信息"
end select
%>
<HTML>
<HEAD>
<TITLE><%= Title_Name %> =>> <%= CategoryName_CHS %> =>> 最近更新</TITLE>
<META http-equiv=Content-Type content='text/html; charset=gb2312'>
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<BODY text=#003300 vLink=#002200 bgColor=#cccccc leftMargin=0 topMargin=0>
<!--#include file="top.asp"-->
<!--#include file="NavBar.asp"-->
<table width="770" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="22"> <img src="images/dotdb.gif" width="10" height="10" align="absmiddle">
当前位置：首页 >> <a class=white_bg href="./"><%= CategoryName_CHS %></a> >> <font color="#FF0000"><strong><%= ActionName %></strong></font> 最近更新</td>
<form method=Post action="News.Asp">
<td>转到：
<select name="action" size="1" style="font-size: 9pt" onChange="javascript:submit()">
<option value="">≡请选择≡</option>
<option value="">全部信息</option>
<option value="转让">转让</option>
<option value="求购">求购</option>
<option value="出租">出租</option>
<option value="求租">求租</option>
<option value="其它">其它</option>
</select> </td></FORM>
</tr>
</table>
<table cellspacing=0 cellpadding=0 width=770 align=center border=0>
<tbody>
<tr>
<td valign=top width=139 height="200"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="20">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber9" background="images/ers08.gif" height="37">
<tr>
<td width="16%" height="27" valign="bottom">
<IMG src="images/ers09.gif"></td>
<td valign="bottom"><b>今天最受欢迎信息</b></td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgcolor="#DAF3FF">
<%
sql="select top 10 SoftID,SoftName,SoftVer,SoftTime,AllHits from "&CategoryName&"_SoftInfo order by DayHits desc,SoftID desc"
rs.open sql,conn,1,1
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")&"' class=""ArticleList"">"& trim(rs("SoftName")) & trim(rs("SoftVer")) & " </a></li><br>"
rs.movenext
loop
end if
rs.close
%>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber9" background="images/ers08.gif" height="37">
<tr>
<td width="16%" height="27" valign="bottom">
<IMG src="images/ers09.gif"></td>
<td valign="bottom"><b>本周最受欢迎信息</b></td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgcolor="#DAF3FF">
<%
sql="select top 10 SoftID,SoftName,SoftVer,SoftTime,AllHits from "&CategoryName&"_SoftInfo order by WeekHits desc,SoftID desc"
rs.open sql,conn,1,1
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")&"' class=""ArticleList"">"& trim(rs("softname")) & trim(rs("SoftVer")) & " </a></li><br>"
rs.movenext
loop
end if
rs.close
%>
</td>
</tr>
</table>
</td>
<td width="5" valign="top" bgcolor="#FFFFFF"> </td>
<td valign="top" bgcolor="#FFFFFF" width="627"><table width="626" border="0" cellpadding="3" cellspacing="1" bgcolor="#E3E3E3">
<tr align="center" bgcolor="#F5F5F5">
<td height="22" width="248">物品名称</td>
<td height="22" width="145">发布时间</td>
<td height="22" width="121">物品价格</td>
<td height="22" width="83">浏览次数</td>
</tr>
<%
rs.open TypeSQL,conn,1,1
if not(rs.eof and rs.bof) then
do while not rs.eof
Title=trim(rs("SoftName"))
%>
<tr>
<td bgcolor="#FFFFFF" width="248">
<% response.write "[<A href=""news.asp?action="&rs("softtype")&""" class=""ArticleList"">"&trim(rs("softtype"))&"</a>] <A href=""SoftView.Asp?SoftID="&rs("SoftID")&""" title=""" & title & """ target=_blank class=""ArticleList"">" & title & "</a> " %></td>
<td align="center" nowrap bgcolor="#FFFFFF" width="145"><%=rs("SoftTime")%></td>
<td align="center" nowrap bgcolor="#FFFFFF" width="121"><% if rs("softsize")="0" then
Response.Write"价格面议"
else
Response.Write(round(rs("SoftSize"))) &"元(RMB)"
end if
%></td>
<td align="center" nowrap bgcolor="#FFFFFF" width="83"><%=rs("AllHits")%></td>
</tr>
<%
rs.movenext
loop
end if
rs.close
%>
</table> </td>
</tr>
</tbody>
</table>
<!--#include file="end.asp"-->
</body>
</html>
<%
set rs=nothing
CloseDatabase
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -