📄 index.asp
字号:
<!--#include file="top.htm"-->
<!--#include file="conn.asp" -->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<DIV align=center>
<TABLE height=35 cellSpacing=0 cellPadding=0 width=770 border=0>
<TBODY>
<TR>
<TD background=files/hc165_jpg_2.gif>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width="31%"> </TD>
<TD width="69%">
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width="7%">
<DIV align=center></DIV></TD>
<TD
width="93%"> </TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=770 border=0>
<TBODY>
<TR>
<TD><IMG height=35 alt="" src="files/hc165_jpg_3.gif"
width=770></TD>
</TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=770 border=0>
<TBODY>
<TR>
<TD vAlign=center align=middle width=290
background=files/hc165_jpg_4.gif height=116><table width="75%" border="0" align="right" cellpadding="0" cellspacing="0">
<tr>
<td><a href="addmesg.asp"><img src="guanggao.gif" width="250" height="150" border="0"></a></td>
</tr>
</table></TD>
<TD vAlign=center width=480 background=files/hc165_jpg_5.gif>
<TABLE borderColor=#009900 height=103 cellSpacing=0 cellPadding=0
width="95%" align=center border=0>
<TBODY>
<TR>
<TD height=97 valign="top"><table width="100%" border="0" cellpadding="2" cellspacing="0" bgcolor="#FFFFCC">
<tr>
<td width="100%" class=f14> <strong><font color="#FFFFFF"><img src="in4_08.gif" width="11" height="11"> <font color="#FF3300">推荐信息</font></font></strong>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber3" cellpadding="0" height="1" bgcolor="#FF9900">
<tr>
<td width="100%"></td>
</tr>
</table></td>
</tr>
<tr>
<td width="100%" align="center" height="5" class=f14></td>
</tr>
<%set com=server.createobject("adodb.connection")
com.open "DBQ="& Server.MapPath("xinhs.mdb") &";Driver={Microsoft Access Driver (*.mdb)}"
set rs=com.execute("select*from link where ok=0 ORDER BY id DESC")
do while not rs.eof n=n+1%>
<tr>
<td width="100%" align="center" class=f14><div align="left"><img src="DOT.gif" width="5" height="5"> <a href="<%response.write rs(2)%>" target="_blank">
<%response.write rs(1)%>
</a></div></td>
</tr>
<% if n=6 then exit do
rs.movenext
loop %>
</table> <p></p>
</TD>
</TR>
</TBODY>
</TABLE></TD></TR></TBODY></TABLE>
<TABLE height=514 cellSpacing=0 cellPadding=0 width=770 border=0>
<TBODY>
<TR>
<TD vAlign=top width=526 bgColor=#ffe16a>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width="15%" background=files/l_12.gif>
<div align="center"><a href="addmesg.asp" target="_blank"><font color="#FF6633" size="2"><strong>发布信息</strong></font></a></div></TD>
<TD width="82%" background=files/l_11.gif><a href="addmesg.asp" target="_blank"><font color="#FF6633"></font></a>
</TD>
<TD width="3%" background=files/l_13.gif
height=33> </TD>
</TR></TBODY></TABLE>
<table width="520" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><table width="520" height="23" border="0" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
<tr bgcolor="#FF9900">
<td height="18" colspan="2" class=f14><strong><font color="#FFFFFF">最新信息主题</font></strong></td>
<td width="127" class=f14><strong><font color="#FFFFFF">发布时间</font></strong></td>
<td width="39" class=f14><div align="center"><strong><font color="#FFFFFF">浏览</font></strong></div></td>
</tr>
</table>
<table width="520" height="22" border="0" cellpadding="0" cellspacing="0">
<%dim w(25)
w(1)="招商投资"
w(2)="生活服务"
w(3)="家电产品"
w(4)="旅游出行"
w(5)="招聘求职"
w(6)="房产家居"
w(7)="电脑网络"
w(8)="美容美发"
w(9)="美食天地"
w(10)="医疗保健"
w(11)="招生培训"
w(12)="出国留学"
w(13)="交友征婚"
w(14)="农业信息"
w(15)="商务服务"
w(16)="其他分类"%>
<%
set rs=com.execute("select*from msg where edt>=#" & date & "# ORDER BY id DESC")
do while not rs.eof
i=i+1%>
<tr>
<td height="23" valign="top"> <table width="520" height="22" border="0" cellpadding="4" cellspacing="1" bgcolor="#FFFBEE">
<tr>
<td width="5" valign="middle"> <div align="center"><img src="images/DOT.gif" width="5" height="5"></div></td>
<td width="319" class=f14> <font color="#FF6600">
<%response.write "[" & (rs(10)) & "]"%>
</font><a href="show.asp?n=<%response.write rs(0)%>" target="_blank">
<%response.write rs(1)%>
</a> </td>
<td width="124" >
<%response.write rs(4)%>
</td>
<td width="35"> <div align="center">
<%response.write rs(9)%>
</div></td>
</tr>
</table>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="520" id="AutoNumber3" cellpadding="0" height="1" bgcolor="#FF9900">
<tr>
<td width="100%"></td>
</tr>
</table></td>
<%if i=20 then exit do
rs.movenext
loop%>
</tr>
</table></td>
</tr>
<tr>
<td height="23" valign="bottom" class=f14> <div align="right"><a href="info.asp">更多...</a></div></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
<p> </p></TD>
<TD vAlign=top width=244 background=files/hc165_jpg_10.gif>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD vAlign=top background=files/hc165_jpg_10.gif>
<TABLE cellSpacing=0 cellPadding=0 width="99%" align=center
border=0>
<TBODY>
<TR>
<TD vAlign=bottom width=524 background=files/11.gif
height=25>
<TABLE cellSpacing=0 cellPadding=0 width="80%" align=center
border=0>
<TBODY>
<TR>
<TD><SPAN class=style3></SPAN></TD>
</TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<DIV align=center>
<TABLE cellSpacing=0 cellPadding=0 width="60%" border=0>
<TBODY>
<TR>
<TD height=10><IMG height=2 src=""
width=2></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<tr bgcolor="#FFFFFF">
<td valign="top" bgcolor="#FEEFBC"> <table width="96%" border="0" align="center" cellspacing="0">
<tr>
<td width="100%"></td>
</tr>
<tr>
<td height="20"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="8%"><img src="images/in4_08.gif" width="11" height="11"></td>
<td width="92%" class=f14 ><font color="#FF3300"><strong>信息搜索</strong></font></td>
</tr>
</table></td>
</tr>
<tr>
<td width="100%" height="44"> <form method="POST" action="search.asp">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -