default.asp

信息类网站的不错选择

			<IMG height=38 
            src="images/b1.gif" width=205 border=0></TD>
          <TD width="33%" height=9>
			<IMG height=37 
            src="images/c11.gif" width=194 border=0></TD>
          <TD width="33%" height=9>
			<IMG 
            height=40 src="images/c2.gif" width=196 border=0></TD></TR>
        <TR>
          <TD vAlign=top width="33%" height=127>
            <TABLE height=92 cellSpacing=0 cellPadding=0 width=220 align=center 
            border=0 id="table96">
              <TBODY>
              <TR>
                <TD><IMG height=7 src="images/a4.gif" width=229></TD></TR>
              <TR>
                <TD class=未命名1 vAlign=top background=images/a5.gif 
                height=109>
                  <div align="center">
                  <TABLE height=135 cellSpacing=0 cellPadding=0 width=219 border=0 id="table97">
                    <TBODY>
                    <TR>
                      <TD vAlign=top height=90>
                       <%
set rs01=server.createobject("ADODB.recordset")
sql01 = "select top 6 * from xinxi where yz=1  and    vip=1   and class1=18 order by id desc"
rs01.open sql01,conn,1,1
if rs01.eof then
response.write "还没有此类信息！"
else
do while not rs01.eof



response.write "<FONT color=#cc9966>●</FONT>"

response.write "<a target=""_blank""  href=xinximemo02.asp?cnmai="&rs01("id")&">"
response.write ""&mid(rs01("biaoti"),1,15)&""
response.write "</a>"
response.write "<br>"
rs01.movenext
loop
end if
%></TD>
                    <TR>
                      <TD height=15>
                        <DIV class=未命名1 align=right>
							<a style="font-size: 9pt; color: #000000; text-decoration: none" href="class1info.asp?class1=18"><FONT 
                        color=blue>▼更多...</FONT></a> 
                </DIV></TD></TR></TBODY></TABLE></div>
				</TD></TR>
              <TR>
                <TD><IMG height=7 src="images/a6.gif" 
              width=229></TD></TR></TBODY></TABLE></TD>
          <TD vAlign=top width="33%" height=127>
            <TABLE height=92 cellSpacing=0 cellPadding=0 width=220 align=center 
            border=0 id="table98">
              <TBODY>
              <TR>
                <TD><IMG height=7 src="images/a4.gif" width=229></TD></TR>
              <TR>
                <TD vAlign=top background=images/a5.gif height=108>
                  <div align="center">
                  <TABLE height=135 cellSpacing=0 cellPadding=0 width=219 border=0 id="table99">
                    <TBODY>
                    <TR>
                      <TD vAlign=top height=90>
                        <%
set rs01=server.createobject("ADODB.recordset")
sql01 = "select top 6 * from xinxi where yz=1  and    vip=1   and class1=26 order by id desc"
rs01.open sql01,conn,1,1
if rs01.eof then
response.write "还没有此类信息！"
else
do while not rs01.eof



response.write "<FONT color=#cc9966>●</FONT>"

response.write "<a target=""_blank""  href=xinximemo07.asp?cnmai="&rs01("id")&">"
response.write ""&mid(rs01("biaoti"),1,15)&""
response.write "</a>"
response.write "<br>"
rs01.movenext
loop
end if
%></TD>
                    <TR>
                      <TD height=15>
                        <DIV class=未命名1 align=right>
							<a style="font-size: 9pt; color: #000000; text-decoration: none" href="class1info.asp?class1=26"><FONT 
                        color=blue>▼更多...</FONT></a> 
                </DIV></TD></TR></TBODY></TABLE></div>
				</TD></TR>
              <TR>
                <TD><IMG height=7 src="images/a6.gif" 
              width=229></TD></TR></TBODY></TABLE></TD>
          <TD width="33%" height=127>
            <TABLE height=92 cellSpacing=0 cellPadding=0 width=220 align=center 
            border=0 id="table100">
              <TBODY>
              <TR>
                <TD><IMG height=7 src="images/a4.gif" width=229></TD></TR>
              <TR>
                <TD vAlign=top background=images/a5.gif height=104>
                  <div align="center">
                  <TABLE height=135 cellSpacing=0 cellPadding=0 width=219 border=0 id="table101">
                    <TBODY>
                    <TR>
                      <TD vAlign=top height=90>
<%
set rs01=server.createobject("ADODB.recordset")
sql01 = "select top 6 * from xinxi where yz=1  and    vip=1   and class1=1 order by id desc"
rs01.open sql01,conn,1,1
if rs01.eof then
response.write "还没有此类信息！"
else
do while not rs01.eof



response.write "<FONT color=#cc9966>●</FONT>"

response.write "<a target=""_blank""  href=xinximemo06.asp?cnmai="&rs01("id")&">"
response.write ""&mid(rs01("biaoti"),1,15)&""
response.write "</a>"
response.write "<br>"
rs01.movenext
loop
end if
%></TD>
                    <TR>
                      <TD height=15>
                        <DIV class=未命名1 align=right>
							<a style="font-size: 9pt; color: #000000; text-decoration: none" href="class1info.asp?class1=1"><FONT 
                        color=blue>▼更多...</FONT></a> 
                </DIV></TD></TR></TBODY></TABLE></div>
				</TD></TR>
              <TR>
                <TD><IMG height=7 src="images/a6.gif" 
              width=229></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
      </div>
      <TABLE height=15 cellSpacing=0 cellPadding=0 width=691 align=center 
      border=0 id="table102">
        <TBODY>
        <TR>
          <TD background=images/c4.gif 
      height=5>　</TD></TR></TBODY></TABLE>
      <div align="center">
      <TABLE height=124 cellSpacing=0 cellPadding=0 width=720 
      border=0 id="table103">
        <TBODY>
        <TR>
          <TD vAlign=top width=229 height=9>
			<IMG 
            height=35 src="images/a3.gif" width=194 border=0></TD>
          <TD width=229 height=9>
			<IMG 
            height=37 src="images/a2.gif" width=194 border=0></TD>
          <TD width=233 height=9>
			<IMG height=38 
            src="images/c3.gif" width=196 border=0></TD></TR>
        <tr>
          <TD vAlign=top width="33%" height=127>
            <TABLE height=92 cellSpacing=0 cellPadding=0 width=220 align=center 
            border=0 id="table110">
              <TBODY>
              <TR>
                <TD><IMG height=7 src="images/a4.gif" width=229></TD></TR>
              <TR>
                <TD class=未命名1 vAlign=top background=images/a5.gif 
                height=109>
                  <div align="center">
                  <TABLE height=135 cellSpacing=0 cellPadding=0 width=219 border=0 id="table111">
                    <TBODY>
                    <TR>
                      <TD vAlign=top height=90>
<%
set rs01=server.createobject("ADODB.recordset")
sql01 = "select top 6 * from xinxi where yz=1  and    vip=1   and class1=20 order by id desc"
rs01.open sql01,conn,1,1
if rs01.eof then
response.write "还没有此类信息！"
else
do while not rs01.eof



response.write "<FONT color=#cc9966>●</FONT>"

response.write "<a target=""_blank""  href=xinximemo09.asp?cnmai="&rs01("id")&">"
response.write ""&mid(rs01("biaoti"),1,15)&""
response.write "</a>"
response.write "<br>"
rs01.movenext
loop
end if
%></TD>
                    <TR>
                      <TD height=15>
                        <DIV class=未命名1 align=right>
							<a style="font-size: 9pt; color: #000000; text-decoration: none" href="class1info.asp?class1=20"><FONT 
                        color=blue>▼更多...</FONT></a> 
                </DIV></TD></TR></TBODY></TABLE></div>
				</TD></TR>
              <TR>
                <TD><IMG height=7 src="images/a6.gif" 
              width=229></TD></TR></TBODY></TABLE></TD>
          <TD vAlign=top width="33%" height=127>
            <TABLE height=92 cellSpacing=0 cellPadding=0 width=220 align=center 
            border=0 id="table112">
              <TBODY>
              <TR>
                <TD><IMG height=7 src="images/a4.gif" width=229></TD></TR>
              <TR>
                <TD vAlign=top background=images/a5.gif height=108>
                  <div align="center">
                  <TABLE height=135 cellSpacing=0 cellPadding=0 width=219 border=0 id="table113">
                    <TBODY>
                    <TR>
                      <TD vAlign=top height=90>
<%
set rs01=server.createobject("ADODB.recordset")
sql01 = "select top 6 * from xinxi where yz=1  and    vip=1   and class1=15 order by id desc"
rs01.open sql01,conn,1,1
if rs01.eof then
response.write "还没有此类信息！"
else
do while not rs01.eof



response.write "<FONT color=#cc9966>●</FONT>"

response.write "<a target=""_blank""  href=xinximemo04.asp?cnmai="&rs01("id")&">"
response.write ""&mid(rs01("biaoti"),1,15)&""
response.write "</a>"
response.write "<br>"
rs01.movenext
loop
end if
%></TD>
                    <TR>
                      <TD height=15>
                        <DIV class=未命名1 align=right>
							<a style="font-size: 9pt; color: #000000; text-decoration: none" href="class1info.asp?class1=15"><FONT 
                        color=blue>▼更多...</FONT></a> 
                </DIV></TD></TR></TBODY></TABLE></div>
				</TD></TR>
              <TR>
                <TD><IMG height=7 src="images/a6.gif" 
              width=229></TD></TR></TBODY></TABLE></TD>
          <TD width="33%" height=127>
            <TABLE height=92 cellSpacing=0 cellPadding=0 width=220 align=center 
            border=0 id="table114">
              <TBODY>
              <TR>
                <TD><IMG height=7 src="images/a4.gif" width=229></TD></TR>
              <TR>
                <TD vAlign=top background=images/a5.gif height=104>
                  <div align="center">
                  <TABLE height=135 cellSpacing=0 cellPadding=0 width=219 border=0 id="table115">
                    <TBODY>
                    <TR>
                      <TD vAlign=top height=90>
<%
set rs01=server.createobject("ADODB.recordset")
sql01 = "select top 6 * from xinxi where yz=1  and    vip=1   and class1=10 order by id desc"
rs01.open sql01,conn,1,1
if rs01.eof then
response.write "还没有此类信息！"
else
do while not rs01.eof