📄 default.asp
字号:
<SCRIPT language=JavaScript>
function start_marquee(div,spd,step){
obj_marquee = document.getElementById(div);
marquee_high = parseInt(obj_marquee.style.height);
marquee_step = marquee_high/step;
obj_marquee.appendChild(obj_marquee.firstChild.cloneNode(true));
setInterval ("step_c=1;setTimeout('marquee_show("+step+")',0)", spd*1000);
}
function marquee_show(step){
obj_marquee.scrollTop += marquee_step;
if(obj_marquee.scrollTop >= obj_marquee.children[1].offsetTop) {
obj_marquee.scrollTop = 0;
}
if(step_c++ < step) setTimeout("marquee_show("+step+")", 0);
return;
}
</SCRIPT>
<!--#include file="Config.asp" -->
<%dim Rs
set Rs=server.createobject("adodb.recordset")
%>
<% dim AllSoft,DayUpdateAll,DayUpdateCHS,DayUpdateENG,DayUpdateHy,AllCHS,AllENG,AllHy,AllDownNum
set rss=server.createobject("adodb.recordset")
'全部信息数量
sqll1="Select count(SoftID) from "&CategoryName&"_SoftInfo"
rss.open sqll1,conn,1,1
AllSoft=rss(0)
if isnull(AllSoft) then AllSoft=0
rss.close
'今日推出信息
sqll2="Select count(SoftID) from "&CategoryName&"_SoftInfo Where SoftTime=Date()"
rss.open sqll2,conn,1,1
DayUpdateAll=rss(0)
if isnull(DayUpdateAll) then DayUpdateAll=0
rss.close
'今日要转让的信息
sqll3="Select count(SoftID) from "&CategoryName&"_SoftInfo Where SoftTime=Date() and SoftType='转让'"
rss.open sqll3,conn,1,1
DayUpdateCHS=rss(0)
if isnull(DayUpdateCHS) then DayUpdateCHS=0
rss.close
'今日要购进的信息
sqll4="Select count(SoftID) from "&CategoryName&"_SoftInfo Where SoftTime=Date() and SoftType='求购'"
rss.open sqll4,conn,1,1
DayUpdateENG=rss(0)
if isnull(DayUpdateENG) then DayUpdateENG=0
rss.close
'今日出租信息
sqll5="Select count(SoftID) from "&CategoryName&"_SoftInfo Where SoftTime=Date() and SoftType='出租'"
rss.open sqll5,conn,1,1
DayUpdateHy=rss(0)
if isnull(DayUpdateHy) then DayUpdateHy=0
rss.close
'今日其它信息
sqll5="Select count(SoftID) from "&CategoryName&"_SoftInfo Where SoftTime=Date() and SoftType='其它'"
rss.open sqll5,conn,1,1
DayUpdateKeyGen=rss(0)
if isnull(DayUpdateKeyGen) then DayUpdateKeyGen=0
rss.close
'要转让的信息总数
sqll6="Select count(SoftID) from "&CategoryName&"_SoftInfo Where SoftType='转让'"
rss.open sqll6,conn,1,1
AllCHS=rss(0)
if isnull(AllCHS) then AllCHS=0
rss.close
'要求购的信息总数
sqll7="Select count(SoftID) from "&CategoryName&"_SoftInfo Where SoftType='求购'"
rss.open sqll7,conn,1,1
AllENG=rss(0)
if isnull(AllENG) then AllENG=0
rss.close
'要出租的信息总数
sqll8="Select count(SoftID) from "&CategoryName&"_SoftInfo Where SoftType='出租'"
rss.open sqll8,conn,1,1
AllHy=rss(0)
if isnull(AllHy) then AllHy=0
rss.close
'其它的信息总数
sqll9="Select count(SoftID) from "&CategoryName&"_SoftInfo Where SoftType='其它'"
rss.open sqll9,conn,1,1
AllKeyGen=rss(0)
if isnull(AllKeyGen) then AllKeyGen=0
rss.close
'信息总浏览量
sqll8="Select sum(AllHits) from "&CategoryName&"_SoftInfo"
rss.open sqll8,conn,1,1
AllDownNum=rss(0)
if isnull(AllDownNum) then AllDownNum=0
rss.close
conn.execute("update "&CategoryName&"_DayUpdate set AllSoft="&AllSoft&",DayUpdateAll="&DayUpdateAll&",DayUpdateCHS="&DayUpdateCHS&",DayUpdateENG="&DayUpdateENG&",DayUpdateHy="&DayUpdateHy&",AllCHS="&AllCHS&",AllENG="&AllENG&",AllHy="&AllHy&",AllDownNum="&AllDownNum&" where ID=1")
set rss=nothing
msgtitle="更新公告"
msginfo="操作成功，今日更新公告的数据已经更新！"
sub Sysmsg(msgtitle,msginfo)
end sub
%>
<HTML><HEAD><TITLE>安徽二手网</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<meta name=keywords content="安徽二手市场">
<link href="css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style5 {color: #976600; font-weight: bold; }
.style7 {color: #885B00; font-weight: bold; }
-->
</style>
</HEAD>
<BODY leftMargin=0 topMargin=5 >
<!--#include file="top.asp" -->
<!--#include file="navbar.asp" -->
<div align="center">
<br>
<table width="780" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="488" valign="top"><table width="478" height="152" border="0" cellpadding="0" class="index" cellspacing="0">
<tr>
<td width="473"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="478" height="152">
<param name="movie" value="images/ershou.swf">
<param name="quality" value="high">
<embed src="images/ershou.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="478" height="152"></embed>
</object></td>
</tr>
</table>
<br>
<table width="478" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="474" valign="middle"><%
sql="select * from "&CategoryName&"_DayUpdate where id=1"
rs.open sql,conn,1,1
if not(rs.eof and rs.bof) then
%>
<TABLE width="478" border=0 align=center cellPadding=2 cellSpacing=0 bgcolor="#F0F0F0" class="index">
<TR>
<TD height="27" colspan="3"><div align="center"></div>
<div align="center">网站共有<font color="#996600"><%= rs("AllSoft") %></font> 条信息， 其中有<font color="#996600"><%= rs("AllCHS") %></font>条转让信息，有<font color="#996600"><%= rs("AllENG") %> </font>条求购信息，有<font color="#996600"><%= rs("AllHy") %> </font>条出租信息 </div></TD>
</TR>
<TR bgcolor="#F0F0F0">
<TD width="149"><div align="center">还有其它的信息<font color="#996600"><%= rs("AllKeyGen") %></font>条 </div></TD>
<TD width="65"><div align="right"><span class="style7">今日更新:</span></div></TD>
<TD width="246">
<TABLE cellSpacing=0 cellPadding=0 width="239" align=center
border=0>
<TBODY>
<TR>
<TD width="239">
<DIV id=scroll_image
style="Z-INDEX: 2; LEFT: 1px; OVERFLOW: hidden; WIDTH: 240px; POSITION: relative; TOP: 0px; HEIGHT: 20px">
<DIV>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD height=20><FONT color=#996600>总共更新</FONT><FONT color=#FF0000><%= rs("DayUpdateAll") %></FONT><FONT color=#996600>条信息；</FONT></TD>
</TR>
<TR>
<TD height=20><FONT color=#996600>其中有<font color="FF0000"><%= rs("DayUpdateCHS") %></font>条转让信息，有<font color="#FF0000"><%= rs("DayUpdateENG") %> </font>条求购信息，</FONT>
<TR>
<TD height=20><FONT color=#996600><FONT color=#996600>其中有</FONT><font color="#FF0000"><%= rs("DayUpdateHy") %> </font>条出租信息，有其它信息<font color="#FF0000"><%= rs("DayUpdateKeyGen") %></font> 条。</FONT> </TD>
</TR></TBODY></TABLE>
</DIV>
</DIV></TD>
</TR></TBODY></TABLE>
<div align="left">
<SCRIPT language=JavaScript>
start_marquee("scroll_image",3,10);
</SCRIPT>
</div></TD>
</TR>
</TABLE>
<% end if
rs.close
%></td>
</tr>
</table>
<table width="478" height="101" border="0" cellpadding="0" cellspacing="0" class="index">
<tr>
<td height="99" valign="top"><br>
<%
dim count
count=0
sql="SELECT top 20 "&CategoryName&"_SoftInfo.SoftType,"&CategoryName&"_SubCate.SubCateName,"&CategoryName&"_SoftInfo.isCommend,"&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 order by "&CategoryName&"_SoftInfo.SoftTime desc,"&CategoryName&"_SoftInfo.SoftID desc"
rs.open sql,conn,1,1 %>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<%if rs.eof and rs.bof then
response.write "<p align=center>还没有信息个更新</p>"
else
do while not rs.eof %>
<%if count mod 2=0 then%>
<tr bgcolor="#FAFAFA">
<td width="67%" height="24">
<FONT color=#333333>·</font><A href='SoftView.Asp?SoftID=<%=rs("SoftID")%>' target="_blank" > <%if len(trim(rs("SoftName")))>23 then%>
<% if rs("isCommend") then %> <FONT color=#B75B00> <%=left(trim(rs("SoftName")),23)%>...</font> <%else %>
<%=left(trim(rs("SoftName")),23)%>...
<%end if%>
<%else%>
<% if rs("isCommend") then %> <FONT color=#B75B00> <%=trim(rs("SoftName"))%> </font><%else %>
<%=trim(rs("SoftName"))%>
<%end if%>
<%end if %></a>
</td>
<td width="9%">
<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>
<%else%>
<tr>
<td height="24">
<FONT color=#333333>·</font><A href='SoftView.Asp?SoftID=<%=rs("SoftID")%>' target="_blank" > <%if len(trim(rs("SoftName")))>23 then%>
<% if rs("isCommend") then %><FONT color=#B75B00><%=left(trim(rs("SoftName")),23)%>...</font>
<%else %>
<%=left(trim(rs("SoftName")),23)%>...
<%end if%>
<%else%>
<% if rs("isCommend") then %> <FONT color=#B75B00> <%=trim(rs("SoftName"))%> </font> <%else %>
<%=trim(rs("SoftName"))%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -