index.asp

请认真阅读您的文件包然后写出其具体功能(至少要20个字)。尽量不要让站长把时间都花费在为您修正说明上。压缩包解压时不能有密码。

<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<%
anysale.chkExpired
'conn.execute("update as_ad set price=8000,[long]=1,views=0")
call anysale.header("home","",anysale.asInfo(3),anysale.asInfo(4))
%>
<%=anysale.ad(2,"class=""header padT5""")%>

<div class="line5"></div>
<div class="bodyer">
<!--1-->
 <div class="indexNews marR5" id="indexNews">
  <!--news-->
   <%
	dim rs,m,n,image,list,logo
	set rs=conn.execute("select top 4 newsID,title,image,intro,addtime from as_news where iselite=1 and isimage=1 and islock=0 order by newsID desc")
	if not rs.eof or not rs.bof then
	n=1
	do while not rs.eof and n<=4
    %>
  <%if n>1 then%><ul class="line"><li>&nbsp;</li></ul><%end if%>
  <ul class="<%if n>1 then response.write"newsN" else response.write"newsH" end if%>" id="indexNews<%=n%>" onMouseOver="showNews(<%=n%>)">
   <li><img src="<%=rs("image")%>" alt="<%=rs("title")%>" />
   <h5><a href="newsdetail.asp?id=<%=rs("newsID")%>" title="<%=rs("title")%>"><%=rs("title")%></a></h5>
   <p><%=anysale.cutStr(rs("intro"),30)%></p></li>
  </ul>
    <%
	rs.movenext
	n=n+1
	loop
	else
		response.write"<ul><li>暂无今日资讯!</li></ul>"
	end if
	rs.close
	set rs=nothing
  %>
  <!--news.end-->
 </div>
 
 <%=anysale.ad(3,"style=""width:400px;"" class=""left marR5""")%>

 <div class="tab" style="width:268px;">
  <!--info-->
  <div class="tabList">
   <div>
    <ul class="linkN" onMouseOver="this.className='linkH'" onMouseOut="this.className='linkN'"><li class="linkL">&nbsp;</li><li class="linkM"><a href="business.asp?channelID=1">更多</a></li><li class="linkR">&nbsp;</li></ul>
    <ul class="linkN" onMouseOver="this.className='linkH'" onMouseOut="this.className='linkN'"><li class="linkL">&nbsp;</li><li class="linkM"><a href="user.asp?addTab=<%=server.urlEncode("发布供求信息")%>&amp;tabL=user/business.asp?action=add">发布</a></li><li class="linkR">&nbsp;</li></ul>
   </div>
   <div id="infoL">
    <ul class="tabH" onMouseOver="showTab(0,'infoL','infoC','business.asp?channelID=1')"><li class="tabL">&nbsp;</li><li class="tabM">供应</li><li class="tabR">&nbsp;</li></ul>
    <ul class="tabN" onMouseOver="showTab(1,'infoL','infoC','business.asp?channelID=2')"><li class="tabL">&nbsp;</li><li class="tabM">求购</li><li class="tabRL">&nbsp;</li></ul>
	<ul class="tabN" onMouseOver="showTab(2,'infoL','infoC','business.asp?channelID=3')"><li class="tabL">&nbsp;</li><li class="tabM">服务</li><li class="tabR">&nbsp;</li></ul>
   </div>
  </div>
  <div id="infoC" style="padding:4px 10px;">
   <ul>
    <%
	set rs=conn.execute("select top 8 businessID,title,addtime from as_business where islock=0 "&anysale.IDList("channel",1)&" order by addtime desc")
	if not rs.eof or not rs.bof then
	n=1
	do while not rs.eof and n<=8
    %><li><span class="right date"><%=anysale.formatDate(rs("addtime"),3)%></span>·<a href="businessdetail.asp?id=<%=rs("businessID")%>" title="<%=rs("title")%>"><%=anysale.cutStr(rs("title"),16)%></a></li>
    <%
	rs.movenext
	n=n+1
	loop
	else
		response.write"<li>暂无最新供应!</li>"
	end if
	rs.close
	set rs=nothing
    %>
   </ul>
   <ul class="hidden">
    <%
	set rs=conn.execute("select top 8 businessID,title,addtime from as_business where islock=0 "&anysale.IDList("channel",2)&" order by addtime desc")
	if not rs.eof or not rs.bof then
	n=1
	do while not rs.eof and n<=8
    %><li><span class="right date"><%=anysale.formatDate(rs("addtime"),3)%></span>·<a href="businessdetail.asp?id=<%=rs("businessID")%>" title="<%=rs("title")%>"><%=anysale.cutStr(rs("title"),16)%></a></li>
    <%
	rs.movenext
	n=n+1
	loop
	else
		response.write"<li>暂无最新求购!</li>"
	end if
	rs.close
	set rs=nothing
    %>
   </ul>
   <ul class="hidden">
    <%
	set rs=conn.execute("select top 8 businessID,title,addtime from as_business where islock=0 "&anysale.IDList("channel",3)&" order by addtime desc")
	if not rs.eof or not rs.bof then
	n=1
	do while not rs.eof and n<=8
    %><li><span class="right date"><%=anysale.formatDate(rs("addtime"),3)%></span>·<a href="businessdetail.asp?id=<%=rs("businessID")%>" title="<%=rs("title")%>"><%=anysale.cutStr(rs("title"),16)%></a></li>
    <%
	rs.movenext
	n=n+1
	loop
	else
		response.write"<li>暂无最新服务!</li>"
	end if
	rs.close
	set rs=nothing
    %>
   </ul>
  </div>
  <!--info.end-->
 </div>
 <!--1.end-->
</div>

<div class="banner clear padT5">
 <!--banner-->
 <%=anysale.ad(4,"style=""float:left;width:270px;""")%>
 <%=anysale.ad(5,"class=""txtAd""")%>
 <!--banner.end-->
</div>
<div class="line5"></div>

<div class="bodyer">
<!--2-->
 <div class="tab" style="width:475px;">
  <!--class-->
  <div class="tabList">
   <div><ul class="linkN" onMouseOver="this.className='linkH'" onMouseOut="this.className='linkN'"><li class="linkL">&nbsp;</li><li class="linkM"><a href="user.asp?addTab=发布供求信息&amp;tabL=user/business.asp?action=add">发布供求</a></li><li class="linkR">&nbsp;</li></ul></div>
   <div id="classL">
    <ul class="tabH"><li class="tabL">&nbsp;</li><li class="tabM">供 应</li><li class="tabR">&nbsp;</li></ul>
    <ul class="tabN"><li class="tabL">&nbsp;</li><li class="tabM"><a href="business.asp?channelID=2">求购</a></li><li class="tabRL">&nbsp;</li></ul>
	<ul class="tabN"><li class="tabL">&nbsp;</li><li class="tabM"><a href="business.asp?channelID=3">服务</a></li><li class="tabRL">&nbsp;</li></ul>
    <ul class="tabN"><li class="tabL">&nbsp;</li><li class="tabM"><a href="products.asp">产品</a></li><li class="tabRL">&nbsp;</li></ul>
    <ul class="tabN"><li class="tabL">&nbsp;</li><li class="tabM"><a href="company.asp">公司</a></li><li class="tabRL">&nbsp;</li></ul>
	<ul class="tabN"><li class="tabL">&nbsp;</li><li class="tabM"><a href="job.asp">招聘</a></li><li class="tabRL">&nbsp;</li></ul>
	<ul class="tabN"><li class="tabL">&nbsp;</li><li class="tabM"><a href="exhibit.asp">展会</a></li><li class="tabR">&nbsp;</li></ul>
   </div>
  </div>
  <div id="classC" class="classC">
   <ul>
    <%call anysale.list("class",0,0,0,"businesslist.asp?channelID=1&amp;")%>
   </ul>
  </div>
  <!--class.end-->
 </div>
 
 <div class="tab marL5" style="width:466px;">
  <!--products-->
  <div class="tabList">
   <div>
    <ul class="linkN" onMouseOver="this.className='linkH'" onMouseOut="this.className='linkN'"><li class="linkL">&nbsp;</li><li class="linkM"><a href="products.asp">更多</a></li><li class="linkR">&nbsp;</li></ul>
    <ul class="linkN" onMouseOver="this.className='linkH'" onMouseOut="this.className='linkN'"><li class="linkL">&nbsp;</li><li class="linkM"><a href="user.asp?addTab=发布产品报价&amp;tabL=user/products.asp?action=add">发布</a></li><li class="linkR">&nbsp;</li></ul>
   </div>
   <div id="productL">
    <ul class="tabH" onClick="showTab(0,'productL','productC','productslist.asp?elite=1&orders=1')"><li class="tabL">&nbsp;</li><li class="tabM">推荐产品</li><li class="tabR">&nbsp;</li></ul>
    <ul class="tabN" onClick="showTab(1,'productL','productC','productslist.asp?orders=1')"><li class="tabL">&nbsp;</li><li class="tabM">最新产品</li><li class="tabRL">&nbsp;</li></ul>
    <ul class="tabN" onClick="showTab(2,'productL','productC','productslist.asp?orders=2')"><li class="tabL">&nbsp;</li><li class="tabM">热门产品</li><li class="tabR">&nbsp;</li></ul>
   </div>
  </div>
  <div id="productC" class="rc">
   <ul>
    <!--1-->
    <%
	n=0:image="":list=""
	set rs=conn.execute("select top 16 productsID,title,preview from as_products where iselite=1 and islock=0 order by addtime desc")
	if not rs.eof or not rs.bof then
	do while not rs.eof
		if n<1 and rs("preview")<>"" then
			n=n+1
			response.write"<li><a href=""productsdetail.asp?id="&rs(0)&"""><img src="""&rs(2)&""" alt="""&rs(1)&""" width=""100"" height=""100"" /></a></li>"
		elseif n<6 and rs("preview")<>"" then
			n=n+1
			image=image+"<li><a href=""productsdetail.asp?id="&rs(0)&"""><img src="""&rs(2)&""" alt="""&rs(1)&""" width=""80"" height=""80"" /></a></li>"
		else
			list=list+"<p><a href=""productsdetail.asp?id="&rs(0)&""">"&rs(1)&"</a></p>"
		end if
	rs.movenext
	loop
	end if
	rs.close
	set rs=nothing
    %>
	<li style="width:340px; height:100px; margin:0 0 10px 0;overflow:hidden;">
	 <%=list%>
	</li>
	<%=image%>
	<!--1.end-->
   </ul>
   <ul class="hidden">
    <!--2-->
    <%
	n=0:image="":list=""
	set rs=conn.execute("select top 16 productsID,title,preview from as_products where islock=0 order by addtime desc")
	if not rs.eof or not rs.bof then
	do while not rs.eof
		if n<1 and rs("preview")<>"" then
			n=n+1
			response.write"<li><a href=""productsdetail.asp?id="&rs(0)&"""><img src="""&rs(2)&""" alt="""&rs(1)&""" width=""100"" height=""100"" /></a></li>"
		elseif n<6 and rs("preview")<>"" then
			n=n+1
			image=image+"<li><a href=""productsdetail.asp?id="&rs(0)&"""><img src="""&rs(2)&""" alt="""&rs(1)&""" width=""80"" height=""80"" /></a></li>"
		else
			list=list+"<p><a href=""productsdetail.asp?id="&rs(0)&""">"&rs(1)&"</a></p>"
		end if
	rs.movenext
	loop
	end if
	rs.close
	set rs=nothing
    %>
	<li style="width:340px; height:100px; margin:0 0 10px 0;overflow:hidden;">
	 <%=list%>
	</li>
	<%=image%>
	<!--2.end-->
   </ul>
   <ul class="hidden">
    <!--3-->
    <%
	n=0:image="":list=""
	set rs=conn.execute("select top 16 productsID,title,preview from as_products where islock=0 order by views desc")
	if not rs.eof or not rs.bof then
	do while not rs.eof
		if n<1 and rs("preview")<>"" then
			n=n+1
			response.write"<li><a href=""productsdetail.asp?id="&rs(0)&"""><img src="""&rs(2)&""" alt="""&rs(1)&""" width=""100"" height=""100"" /></a></li>"
		elseif n<6 and rs("preview")<>"" then
			n=n+1
			image=image+"<li><a href=""productsdetail.asp?id="&rs(0)&"""><img src="""&rs(2)&""" alt="""&rs(1)&""" width=""80"" height=""80"" /></a></li>"
		else
			list=list+"<p><a href=""productsdetail.asp?id="&rs(0)&""">"&rs(1)&"</a></p>"
		end if
	rs.movenext
	loop
	end if
	rs.close
	set rs=nothing
    %>
	<li style="width:340px; height:100px; margin:0 0 10px 0;overflow:hidden;">
	 <%=list%>
	</li>
	<%=image%>
	<!--3.end-->
   </ul>
  </div>
  <!--products.end-->
 </div>
 
 <%=anysale.ad(6,"style=""float:left; margin:5px 0 0 5px;""")%>

 <div class="tab marL5 marT5" style="width:466px;">
  <!--user-->
  <div class="tabList">
   <div>
    <ul class="linkN" onMouseOver="this.className='linkH'" onMouseOut="this.className='linkN'"><li class="linkL">&nbsp;</li><li class="linkM"><a href="company.asp">更多</a></li><li class="linkR">&nbsp;</li></ul>
    <ul class="linkN" onMouseOver="this.className='linkH'" onMouseOut="this.className='linkN'"><li class="linkL">&nbsp;</li><li class="linkM"><a href="register.asp">注册</a></li><li class="linkR">&nbsp;</li></ul>
	<ul class="linkN" onMouseOver="this.className='linkH'" onMouseOut="this.className='linkN'"><li class="linkL">&nbsp;</li><li class="linkM"><a href="trust.asp">加入诚信会员</a></li><li class="linkR">&nbsp;</li></ul>
   </div>
   <div id="userL">
    <ul class="tabH" onClick="showTab(0,'userL','userC','companylist.asp?elite=1&orders=5')"><li class="tabL">&nbsp;</li><li class="tabM">推荐企业</li><li class="tabR">&nbsp;</li></ul>
    <ul class="tabN" onClick="showTab(1,'userL','userC','companylist.asp?orders=1')"><li class="tabL">&nbsp;</li><li class="tabM">最新企业</li><li class="tabRL">&nbsp;</li></ul>
    <ul class="tabN" onClick="showTab(2,'userL','userC','companylist.asp?orders=2')"><li class="tabL">&nbsp;</li><li class="tabM">热门企业</li><li class="tabR">&nbsp;</li></ul>
   </div>
  </div>
  <div id="userC" class="rcw">
   <ul>
    <!--1-->
    <%
	n=0:image="":list=""
	set rs=conn.execute("select top 21 userID,username,title,logo from as_user where iselite=1 and islock=0 order by istrust desc,userID desc")
	if not rs.eof or not rs.bof then
	do while not rs.eof
		logo=split(rs("logo"),"|||")
		if n<6 and logo(0)<>"images/nologo.gif" then
			n=n+1
			image=image+"<li><a target=""_blank"" href=""companydetail.asp?u="&rs("username")&"""><img src="""&logo(0)&""" alt="""&rs("title")&""" width=""80"" height=""40"" class=""border"" /></a></li>"
		else
			list=list+"<p><a target=""_blank"" href=""companydetail.asp?u="&rs("username")&""" title="""&rs("title")&""">"&rs("title")&"</a></p>"
		end if
	rs.movenext
	loop
	end if
	rs.close
	set rs=nothing
    %>
	<li style="width:450px; height:140px; margin:0 0 10px 0;overflow:hidden;">
	 <%=list%>
	</li>
	<%=image%>
	<!--1.end-->
   </ul>
   <ul class="hidden">
    <!--2-->
	<li style="width:450px; height:200px; margin:0 0 10px 0;overflow:hidden;">
    <%
	set rs=conn.execute("select top 30 userID,username,title from as_user where islock=0 order by istrust desc,userID desc")
	if not rs.eof or not rs.bof then
	n=1
	do while not rs.eof and n<=30
    %><p><a target="_blank" href="companydetail.asp?u=<%=rs("username")%>" title="<%=rs("title")%>"><%=rs("title")%></a></p>
    <%
	rs.movenext
	n=n+1
	loop
	end if
	rs.close
	set rs=nothing
    %>
	</li>
	<!--2.end-->
   </ul>
   <ul class="hidden">
    <!--3-->
	<li style="width:450px; height:200px; margin:0 0 10px 0;overflow:hidden;">
    <%
	set rs=conn.execute("select top 30 userID,username,title from as_user where islock=0 order by istrust desc,views desc")
	if not rs.eof or not rs.bof then
	n=1
	do while not rs.eof and n<=30
    %><p><a target="_blank" href="companydetail.asp?u=<%=rs("username")%>" title="<%=rs("title")%>"><%=rs("title")%></a></p>
    <%
	rs.movenext
	n=n+1
	loop
	end if
	rs.close
	set rs=nothing
    %>
	</li>
	<!--3.end-->
   </ul>
  </div>
  <!--user.end-->
 </div>
<!--2.end-->
</div>

<%=anysale.ad(7,"class=""banner clear padT5""")%>

<div class="line5"></div>
<div class="bodyer">
<!--3-->
 <div style="width:270px;float:left;">
 <!--left-->
 <div class="tab" style="width:268px;">
  <!--job-->
  <div class="tabList">
   <div>
    <ul class="linkN" onMouseOver="this.className='linkH'" onMouseOut="this.className='linkN'"><li class="linkL">&nbsp;</li><li class="linkM"><a href="job.asp">更多</a></li><li class="linkR">&nbsp;</li></ul>
    <ul class="linkN" onMouseOver="this.className='linkH'" onMouseOut="this.className='linkN'"><li class="linkL">&nbsp;</li><li class="linkM"><a href="user.asp?addTab=发布招聘信息&amp;tabL=user/job.asp?action=add">发布</a></li><li class="linkR">&nbsp;</li></ul>
   </div>
   <div id="jobL">
    <ul class="tabH" onClick="showTab(0,'jobL','jobC','joblist.asp?orders=1')"><li class="tabL">&nbsp;</li><li class="tabM">最新招聘</li><li class="tabR">&nbsp;</li></ul>
    <ul class="tabN" onClick="showTab(1,'jobL','jobC','joblist.asp?elite=1&orders=1')"><li class="tabL">&nbsp;</li><li class="tabM">推荐招聘</li><li class="tabR">&nbsp;</li></ul>
   </div>
  </div>
  <div id="jobC" style="padding:8px;">
   <ul>
    <%
	set rs=conn.execute("select top 10 jobID,title,areaID from as_job where islock=0 order by addtime desc")
	if not rs.eof or not rs.bof then
	n=1
	do while not rs.eof and n<=10
    %><li>[<%=anysale.nav("area",rs("areaID"),3,"")%>] <a href="jobdetail.asp?id=<%=rs("jobID")%>" title="<%=rs("title")%>"><%=rs("title")%></a></li>
    <%
	rs.movenext
	n=n+1
	loop
	else
		response.write"<li>暂无招聘!</li>"
	end if
	rs.close
	set rs=nothing
    %>
   </ul>
   <ul class="hidden">
    <%
	set rs=conn.execute("select top 10 jobID,title,areaID from as_job where iselite=1 and islock=0 order by addtime desc")
	if not rs.eof or not rs.bof then
	n=1