📄 default.asp
字号:
<%end if%>
<%end if %></a>
</td>
<td height="24"><div align="center"><A href="#"><%=left(trim(rs("SubCateName")),2)%></A></div></td>
<td width="8%"><div align="center"><A href="#"><%=trim(rs("SoftType"))%></A></div></td>
<td width="16%"><div align="center"><A href="#"><%=trim(rs("Softtime"))%></A></div></td>
</tr>
<%end if%>
<%
count=count+1
rs.movenext
loop
end if
rs.close
%>
</table>
</td>
</tr>
</table>
<br></td>
<td width="282" rowspan="2" valign="top"><div align="right">
<table width="288" height="150" border="0" align="center" cellpadding="0" cellspacing="0" background="images/bj.jpg" class="index">
<tr>
<td width="281" height="150"> <!--#include file="login.asp" --></td>
</tr>
</table>
<br>
<table width="288" height="185" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FDFDF7" class="index">
<tr>
<td height="28" colspan="2" valign="top" bgcolor="#FBFFFE"><table width="100%" height="26" border="0" cellpadding="0" cellspacing="0" class="greenline">
<tr bgcolor="#E4E4E4">
<td width="37%" height="24"> <div align="center"><FONT color=#333333>·</font> <strong>最新转让信息</strong><FONT color=#333333>·</font> </div></td>
<td width="63%"> </td>
</tr>
</table> </td>
</tr>
<tr>
<td width="102" height="90" valign="top" bgcolor="#FDFDF7"><div align="center"><img src="images/righttu2.gif" width="90" height="90"></div></td>
<td width="178" valign="top">
<br>
<marquee crollamount=3 scrolldelay=500 behavior='loop' direction='up' border='0' onmouseover='this.stop()' onmouseout='this.start()'
height='60'>
<table width="100%" border="0" align="right" cellpadding="0" cellspacing="3">
<%sql="SELECT top 15 "&CategoryName&"_SoftInfo.SoftID,"&CategoryName&"_SoftInfo.SoftName,"&CategoryName&"_SoftInfo.SoftVer,"&CategoryName&"_SoftInfo.CateID,"&CategoryName&"_SoftInfo.SubCateID,"&CategoryName&"_SoftInfo.AllHits,"&CategoryName&"_SoftInfo.SoftTime,"&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"
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 %>
<tr>
<td height="20">
<FONT color=#333333>·</font><A href='SoftView.Asp?SoftID=<%=rs("SoftID")%>' target="_blank" > <%if len(trim(rs("SoftName")))>11 then%>
<%=left(trim(rs("SoftName")),11)%>...
<%else%>
<%=trim(rs("SoftName"))%>
<%end if %></a>
</td>
</tr>
<% rs.movenext
loop
end if
rs.close
%>
</table>
</marquee> </td>
</tr>
<tr valign="middle">
<td height="64" colspan="2"><table width="96%" border="0" align="center" cellpadding="0" cellspacing="2">
<%sql="SELECT top 3 "&CategoryName&"_SoftInfo.SoftID,"&CategoryName&"_SoftInfo.SoftName,"&CategoryName&"_SoftInfo.SoftVer,"&CategoryName&"_SoftInfo.CateID,"&CategoryName&"_SoftInfo.SubCateID,"&CategoryName&"_SoftInfo.AllHits,"&CategoryName&"_SoftInfo.SoftTime,"&CategoryName&"_SubCate.SubCatename FROM "&CategoryName&"_SoftInfo,"&CategoryName&"_SubCate where "&CategoryName&"_SoftInfo.SubCateID="&CategoryName&"_SubCate.SubCateID and "&CategoryName&"_SoftInfo.SoftType='转让'and "&CategoryName&"_SoftInfo.iscommend=true order by "&CategoryName&"_SoftInfo.SoftTime desc,"&CategoryName&"_SoftInfo.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 %>
<tr>
<td height="18">
<FONT color=#333333>·</font><A href='SoftView.Asp?SoftID=<%=rs("SoftID")%>' target="_blank" >
<%if len(trim(rs("SoftName")))>20 then%>
<FONT color=#663300><%=left(trim(rs("SoftName")),20)%>...</font>
<%else%>
<FONT color=#663300><%=trim(rs("SoftName"))%></font>
<%end if %></a>
</td>
</tr>
<% rs.movenext
loop
end if
rs.close
%>
</table></td>
</tr>
</table>
<br>
<table width="288" height="196" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FAFAFA" class="index">
<tr>
<td height="28" colspan="2" valign="top"><table width="100%" height="26" border="0" cellpadding="0" cellspacing="0" class="greenline">
<tr bgcolor="#E4E4E4">
<td width="37%" height="23"> <div align="center"><FONT color=#333333>·</font> <strong>最新求购信息</strong><FONT color=#333333>·</font> </div></td>
<td width="63%"> </td>
</tr>
</table></td>
</tr>
<tr>
<td width="102" height="72" valign="top"><div align="center"><img src="images/righttu1.gif" width="90"></div></td>
<td width="178" valign="top"> <br>
<marquee crollamount=3 scrolldelay=500 behavior='loop' direction='up' border='0' onmouseover='this.stop()' onmouseout='this.start()'
height='60'>
<table width="100%" border="0" align="right" cellpadding="0" cellspacing="3">
<%sql="SELECT top 15 "&CategoryName&"_SoftInfo.SoftID,"&CategoryName&"_SoftInfo.SoftName,"&CategoryName&"_SoftInfo.SoftVer,"&CategoryName&"_SoftInfo.CateID,"&CategoryName&"_SoftInfo.SubCateID,"&CategoryName&"_SoftInfo.AllHits,"&CategoryName&"_SoftInfo.SoftTime,"&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"
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 %>
<tr>
<td height="20"><FONT color=#333333>·</font><A href='SoftView.Asp?SoftID=<%=rs("SoftID")%>' target="_blank" >
<%if len(trim(rs("SoftName")))>11 then%>
<%=left(trim(rs("SoftName")),11)%>...
<%else%>
<%=trim(rs("SoftName"))%>
<%end if %>
</a> </td>
</tr>
<% rs.movenext
loop
end if
rs.close
%>
</table>
</marquee> </td>
</tr>
<tr valign="middle">
<td height="76" colspan="2"><table width="96%" border="0" align="center" cellpadding="0" cellspacing="2">
<%sql="SELECT top 3 "&CategoryName&"_SoftInfo.SoftID,"&CategoryName&"_SoftInfo.SoftName,"&CategoryName&"_SoftInfo.SoftVer,"&CategoryName&"_SoftInfo.CateID,"&CategoryName&"_SoftInfo.SubCateID,"&CategoryName&"_SoftInfo.AllHits,"&CategoryName&"_SoftInfo.SoftTime,"&CategoryName&"_SubCate.SubCatename FROM "&CategoryName&"_SoftInfo,"&CategoryName&"_SubCate where "&CategoryName&"_SoftInfo.SubCateID="&CategoryName&"_SubCate.SubCateID and "&CategoryName&"_SoftInfo.SoftType='求购'and "&CategoryName&"_SoftInfo.iscommend order by "&CategoryName&"_SoftInfo.SoftTime desc,"&CategoryName&"_SoftInfo.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 %>
<tr>
<td height="18"><FONT color=#333333>·</font><A href='SoftView.Asp?SoftID=<%=rs("SoftID")%>' target="_blank" >
<%if len(trim(rs("SoftName")))>20 then%>
<FONT color=#663300><%=left(trim(rs("SoftName")),20)%>...</font>
<%else%>
<FONT color=#663300><%=trim(rs("SoftName"))%></font>
<%end if %>
</a> </td>
</tr>
<% rs.movenext
loop
end if
rs.close
%>
</table></td>
</tr>
</table>
<br>
<table width="288" height="136" border="0" cellpadding="0" cellspacing="0" class="index">
<tr>
<td height="137" bgcolor="#FAFAFA"><div align="center">something about ad </div></td>
</tr>
</table>
<br>
<table width="288" height="127" border="0" cellpadding="0" cellspacing="0" class="index">
<tr>
<td width="5" height="25" bgcolor="#E4E4E4" class="greenline"> <FONT color=#333333> </font></td>
<td width="275" bgcolor="#E4E4E4" class="greenline"><FONT color=#333333>·</font> <strong>二手攻略</strong> <FONT color=#333333>·</font> </td>
</tr>
<tr bgcolor="#F7F7F7">
<td height="97" colspan="2"><table width="275" height="74" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="128"> · <a href="#">二手商品卖家攻</a></td>
<td width="147">· <a href="#">二手手机如何选购</a> </td>
</tr>
<tr>
<td>· <a href="#">购二手笔记本秘笈</a></td>
<td> · <a href="#">购二手房的两大原则</a></td>
</tr>
<tr>
<td height="28">· <a href="#">买旧车要注意问题</a></td>
<td>· <a href="#">数码相机,二手也可选</a></td>
</tr>
</table></td>
</tr>
</table>
</div></td>
</tr>
<tr>
<td valign="top"><table width="478" height="126" border="0" cellpadding="0" cellspacing="0" class="index">
<tr>
<td width="479" height="124">
<table width="94" border="0" align="center" cellpadding="0" cellspacing="0">
<tr> <% sql="select top 5 SoftID,SoftName,SoftVer,Content,Images from "&CategoryName&"_SoftInfo where images<>'' order by SoftTime 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
%>
<td width="94" height="103">
<table width="91" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" bordercolorlight="#dddddd" bordercolordark="#FFFFFF">
<tr>
<td width="91" height="69" colspan="2" align="center" background="images/bj.gif"><div align="center"><a href="SoftView.Asp?SoftID=<%=rs("SoftID")%>" title="<%=trim(rs("SoftName"))&trim(rs("SoftVer"))%>"><img src="<%=rs("images")%>" width="71" height="60" border=0 ></a></div></td>
</tr>
<tr>
<td colspan="2" align="center"><%=left(rs("softname"),12)%>...</td>
</tr>
</table>
<%
rs.movenext
loop
end if
rs.close
%> </td>
</tr>
</table> </td>
</tr>
</table> </td>
</tr>
</table>
<br>
<table width="780" height="56" border="0" cellpadding="0" cellspacing="0" bgcolor="#FAFAFA" class="index">
<tr>
<td><div align="center">友情链接</div></td>
</tr>
</table><br>
<!--#include file="end.asp" -->
</div>
</BODY></HTML>
<%
set rs=nothing
CloseDatabase
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -