news_left.asp

实用的拍卖源码。适合个人建站学习使用。仅供学习参考

<style type=text/css>
<!--
img{border: 0}
-->
</style>
 <TABLE class=yellow_bg border=0 cellPadding=0 cellSpacing=1 width="100%"><TBODY>
        <tr>
          <TD bgcolor=<%=bgcolor%>>
            <TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
              <TBODY>
              <TR class=yellow_bg>
                <TD colSpan=3 height=3></TD></TR>
        
                <TD class=huise_bg vAlign=bottom>
                  <DIV align=right 
              style="PADDING-RIGHT: 5px"></DIV></TD></TR></TBODY></TABLE>
           
	<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
              <TBODY>
              <TR class=yellow_bg>
                <TD colSpan=3 height=3></TD></TR>
              <TR class=huise_bg>
                <TD class=yellow_bg width=140>&nbsp;<a href="news.asp"><FONT class=fblack><STRONG>vqqq拍卖物品快迅</STRONG></FONT></a></TD>
                <TD width=20 class=yellow_bg>
                <IMG height=20 src="images/conner.gif" width=20></TD>
                <TD vAlign=bottom>
                  <DIV align=right style="PADDING-RIGHT: 5px"></DIV></TD></TR></TBODY></TABLE>
            <TABLE border=0 cellPadding=1 cellSpacing=1 width="100%">
              <TBODY>
              <TR>
                <TD>
<% 
	set rsnew=server.createobject("adodb.recordset")
	sqlnew="select * from news where newsauthor='管理员' order by updatetime desc"
	rsnew.open sqlnew,conn,1,1
	if rsnew.eof then
	 response.write"&nbsp;&nbsp;还没有新闻"
	else
	newcount=1
	do while not rsnew.eof
		response.write"&nbsp;&nbsp;<IMG height=12 src=images/icon1(1).gif width=13>&nbsp;<a href=news.asp?newsid="&rsnew("newsid")&" target=_blank>"
		content=rsnew("newstitle")
                if len(content)>17 then content=left(content,15)&"…"
                response.write "<font color="&rsnew("newscolor")&">"&content&"</font></a><br>"
	newcount=newcount+1
	if newcount>indexperpage then exit do
  	rsnew.movenext
  	loop
	end if
	rsnew.close
	set rsnew=nothing                    
%>
</TD></TR></TBODY></TABLE>
            <TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
              <TBODY>
              <TR class=yellow_bg>
                <TD colSpan=3 height=3></TD></TR>
              <TR class=huise_bg>
                <TD class=yellow_bg width=140>&nbsp;<a href="cat.asp?action=new"><FONT class=fblack><STRONG>新登商品</STRONG></FONT></a></TD>
                <TD width=20 class=yellow_bg>
                <IMG height=20 
                  src="images/conner.gif" width=20></TD>
                <TD vAlign=bottom>
                  <DIV align=right style="PADDING-RIGHT: 5px"></DIV></TD></TR></TBODY></TABLE>
            <TABLE align=center border=0 cellPadding=0 cellSpacing=1 width="100%">
              <TBODY>
<%
 set rshot=server.createobject("adodb.recordset")
 sql="select aucitemtitle,aucAvailDate,aucid,aucclick from auctions where aucended<>'Y' order by aucAvailDate DESC"
 rshot.open sql,conn,1,1
 if rshot.eof then
 response.write "<tr><td class=td>&nbsp;&nbsp;还没有商品</td></tr>"
 else
 newcount=1
 do while not rshot.eof

		content=rshot("aucitemtitle")
                if len(content)>12 then content=left(content,10)&"…"
%>

              	<TR>
                <TD width="100%">&nbsp;&nbsp;<a href="aucinfo.asp?aucid=<%=rshot("aucid")%>"><img src="images/hot.gif" border="0" width="16"><%=content%> (<%=rshot("aucclick")%>)</a></TD>
               
		</TR>
<%

 newcount=newcount+1
 if newcount>indexperpage then exit do
 rshot.movenext
 loop
 end if
 rshot.close
 set rshot=nothing
%>
              </TBODY></TABLE>

            <TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
              <TBODY>
              <TR class=yellow_bg>
                <TD colSpan=3 height=3></TD></TR>
              <TR class=huise_bg>
                <TD class=yellow_bg width=140>&nbsp;<a href="searchshop.asp"><FONT class=fblack><STRONG>最新店铺</STRONG></FONT></a></TD>
                <TD width=20 class=yellow_bg>
                <IMG height=20 
                  src="images/conner.gif" width=20></TD>
                <TD vAlign=bottom>
                  <DIV align=right style="PADDING-RIGHT: 5px"></DIV></TD></TR></TBODY></TABLE>
            <TABLE align=center border=0 cellPadding=0 cellSpacing=1 width="100%">
              <TBODY>
<%
 set rsnewshop=server.createobject("adodb.recordset")
 sql="select shopname,shopid,shopclick from shops order by shopregtime DESC"
 rsnewshop.open sql,conn,1,1
 if rsnewshop.eof then
 response.write "<tr><td class=td>&nbsp;&nbsp;还没有人申请开店</td></tr>"
 else
 newcount=1
 do while not rsnewshop.eof
		content=rsnewshop("shopname")
                if len(content)>12 then content=left(content,10)&"…"
%>
              	<TR>
                <TD width="100%">&nbsp;&nbsp;<a href="usershop.asp?sid=<%=rsnewshop("shopid")%>"><img src="images/star.gif" border="0"><%=content%> (<%=rsnewshop("shopclick")%>)</a></TD>
		</TR>
<%
 newcount=newcount+1
 if newcount>indexperpage then exit do
 rsnewshop.movenext
 loop
 end if
 rsnewshop.close
 set rsnewshop=nothing
%>
              </TBODY></TABLE>

	<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
              <TBODY>
              <TR class=yellow_bg>
                <TD colSpan=3 height=3></TD></TR>
              <TR class=huise_bg>
                <TD class=yellow_bg width=140>&nbsp;<a href="qiugou.asp"><FONT class=fblack><STRONG>求购信息</STRONG></FONT></a></TD>
                <TD width=20 class=yellow_bg>
                <IMG height=20 src="images/conner.gif" width=20></TD>
                <TD vAlign=bottom>
                  <DIV align=right style="PADDING-RIGHT: 5px"></DIV></TD></TR></TBODY></TABLE>
            <TABLE border=0 cellPadding=1 cellSpacing=1 width="100%">
              <TBODY>
              <TR>
                <TD>
<% 
	set rsnew=server.createobject("adodb.recordset")
	sqlnew="select * from qiugou order by qgupdatetime desc"
	rsnew.open sqlnew,conn,1,1
	if rsnew.eof then
	 response.write"&nbsp;&nbsp;还没有求购信息"
	else
	newcount=1
	do while not rsnew.eof
		response.write"&nbsp;&nbsp;<IMG height=12 src=images/icon1(1).gif width=13>&nbsp;<a href=qiugou.asp?qgid="&rsnew("qgid")&" target=_blank>"
		content=rsnew("qgtitle")
                if len(content)>17 then content=left(content,15)&"…"
                response.write "<font color="&rsnew("qgcolor")&">"&content&"</font></a><br>"
	newcount=newcount+1
	if newcount>indexperpage then exit do
  	rsnew.movenext
  	loop
	end if
	rsnew.close
	set rsnew=nothing                    
%>
</TD></TR></TBODY></TABLE>

            <TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
              <TBODY>
              <TR class=yellow_bg>
                <TD colSpan=3 height=3></TD></TR>
              <TR class=huise_bg>
                <TD class=yellow_bg width=140>&nbsp;<FONT class=fblack><STRONG>友情链接</STRONG></FONT></TD>
                <TD width=20 class=yellow_bg>
                <IMG height=20 
                  src="images/conner.gif" width=20></TD>
                <TD vAlign=bottom>
                  <DIV align=right style="PADDING-RIGHT: 5px"></DIV></TD></TR></TBODY></TABLE>
            <TABLE align=center border=0 cellPadding=4 cellSpacing=2 width="90%">
              <TBODY>
<%
set rslink=server.createobject("adodb.recordset")
rslink.open "select * from userlink where ownerid=0",conn,1,1
if rslink.eof then
	response.write"<tr><td width=50% >[你的位置]</td><td width=50% >[你的位置]</td></tr>"
else
  dim tempid
  tempid=1
  do while not rslink.eof
%>
              <TR>
                <TD align=center width="50%"><b><A 
                  href="<%=rslink("zdurl")%>" 
                  target=_blank>
<%
   if left(rslink("zdlogo"),4)="http" then
      response.write "<img src="&rslink("zdlogo")&" border='0'>"
   else
      response.write ""
   end if
%>

		</A></b></TD>
              
<%
rslink.movenext
if rslink.eof then exit do
%>

                <TD align=center width="50%"><b><A 
                  href="<%=rslink("zdurl")%>" 
                  target=_blank>
<%
   if left(rslink("zdlogo"),4)="http" then
      response.write "<img src="&rslink("zdlogo")&" border='0'>"
   else
      response.write "["&rslink("zdname")&"]"
   end if
%>

		</A></b></TD>
              </TR>
<%
  rslink.movenext
  tempid=tempid+1
  if tempid>8 then exit do
  loop
end if
rslink.close
set rslink=nothing
%>
		</TBODY></TABLE>
	</TD>
        </tr>
	</TBODY></TABLE>