📄 default.asp
字号:
<!--#include file="conn1.asp"-->
<!--#include file="config.asp"-->
<%dim rs01,sql01,rs,sql,b,bb,i,tj,class1,class2,cnmai,biaoti
set rs01=server.createobject("ADODB.recordset")
%>
<html>
<head>
<title><%=title%>-首页</title>
<SCRIPT language=JavaScript>
<!-- Begin
function dateinbar()
{
var d=new Date();
var mon=d.getMonth()+1;
var year=d.getFullYear();
var date=d.getDate();
var h=d.getHours();
var m=d.getMinutes();
var s=d.getSeconds();
var AorP=" ";
if (h>=12)
AorP="P.M.";
else
AorP="A.M.";
if (h>=13)
h=h-12;
if (s<10)
s="0"+s;
if (m<10)
m="0"+m;
defaultStatus = "感谢来到跳蚤市场，请注册会员享受更多功能！ "+year+"/"+mon+"/"+date+" "+" " + h+":"+m+":"+s+" "+AorP ;
setTimeout("dateinbar()",1000);
}
dateinbar();
// End -->
</SCRIPT>
<link href="inc_style.css" rel="stylesheet" type="text/css">
<style>
<!--
.未命名1 {
FONT-SIZE: 9pt; COLOR: #999966; LINE-HEIGHT: 20px
}
-->
</style>
</head>
<body topmargin="0" style="background-image: url('')">
<!--#include file=top.asp-->
<div align="center">
<table width="760" cellspacing="0" cellpadding="0" style="border-collapse: collapse" height="34" border="1" bordercolor="#006699">
<tr>
<td width="80" bgcolor="#CBDCB6" align="center">
<span lang="zh-cn">最新公告</span></td>
<td width="593" bgcolor="#F7F7F7">
<%=adhot%></td>
<td width="83" bgcolor="#CBDCB6" style="font-size: 12pt">
<a target="_blank" href="gbook.asp"><font color="#FF6600">客户留言</font></a></td>
</tr>
</table>
</table></div>
<div align="center">
<div align="center">
<TABLE cellSpacing=0 cellPadding=0 width=760 border=0 id="table85">
<TBODY>
<TR>
<TD height=40>
<TABLE width="100%" height="40" border=0 cellPadding=0 cellSpacing=0 id="table86">
<TBODY>
<TR>
<TD width=139 height="40">
<IMG height=40 src="images/1a.gif"
width=139></TD>
<TD style="FONT-SIZE: 9pt" vAlign=center align=left
background=images/1b.gif width="443">
<%
dim rs_bar,sqlwto
Set rs_bar = Server.CreateObject("ADODB.Recordset")
sqlwto="select * from class1 order by paixu desc "
rs_bar.open sqlwto,conn,1,1
while not rs_bar.eof
%>
<a class=bar target="_blank" href="class1info.asp?class1=<% =rs_bar("id")%>" target="_blank"><font color="#0000ff"><%=rs_bar("class1")%></font></a>
<%rs_bar.movenext
wend
rs_bar.close
%>
</TD>
<TD style="FONT-SIZE: 9pt" vAlign=center align=left
background=images/1b.gif>
<FONT color=red><B>发布请拉菜单:</B></FONT> <SELECT onchange="location=this.options[this.selectedIndex].value" name=post_sel>
<OPTION selected>▼发表信息</OPTION>
<%dim rs9999,sql9999
set rs9999=Server.CreateObject("ADODB.Recordset")
sql9999="select * from class1 order by paixu desc"
rs9999.open sql9999,conn,1,1
do while not rs9999.eof
%>
<OPTION value="<%=rs9999("addpage")%>" ><%=rs9999("class1")%></OPTION>
<%rs9999.movenext
loop
rs9999.close
set rs9999=nothing
%>
</SELECT> </TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD vAlign=top background=images/2.gif height=530>
<div align="center">
<TABLE height=124 cellSpacing=0 cellPadding=0 width=720
border=0 id="table87">
<TBODY>
<TR>
<TD vAlign=top width="33%" height=9>
<IMG height=37
src="images/a1.gif" width=194 border=0> </TD>
<TD width="33%" height=9> <IMG
height=40 src="images/c12.gif" width=205 border=0></TD>
<TD width="33%" height=9> <IMG
height=40 src="images/b2.gif" width=205 border=0></TD></TR>
<TR>
<TD vAlign=top width="33%" height=126>
<TABLE height=92 cellSpacing=0 cellPadding=0 width=220 align=center
border=0 id="table88">
<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=95>
<div align="center">
<TABLE height=135 cellSpacing=0 cellPadding=0 width=219 border=0 id="table116">
<TBODY>
<TR>
<TD vAlign=top height=100>
<%
set rs01=server.createobject("ADODB.recordset")
sql01 = "select top 6 * from xinxi where yz=1 and vip=1 and class1=8 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=xinximemo01.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=8"><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=126>
<TABLE height=92 cellSpacing=0 cellPadding=0 width=220 align=center
border=0 id="table90">
<TBODY>
<TR>
<TD><IMG height=7 src="images/a4.gif" width=229></TD></TR>
<TR>
<TD vAlign=top background=images/a5.gif height=95>
<div align="center">
<TABLE height=135 cellSpacing=0 cellPadding=0 width=219 border=0 id="table117">
<TBODY>
<TR>
<TD vAlign=top height=100>
<%
set rs01=server.createobject("ADODB.recordset")
sql01 = "select top 6 * from xinxi where yz=1 and vip=1 and class1=14 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=xinximemo03.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=14"><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=126>
<TABLE height=92 cellSpacing=0 cellPadding=0 width=220 align=center
border=0 id="table92">
<TBODY>
<TR>
<TD><IMG height=7 src="images/a4.gif" width=229></TD></TR>
<TR>
<TD vAlign=top background=images/a5.gif height=89>
<div align="center">
<TABLE height=135 cellSpacing=0 cellPadding=0 width=219 border=0 id="table93">
<TBODY>
<TR>
<TD vAlign=top height=100>
<%
set rs01=server.createobject("ADODB.recordset")
sql01 = "select top 6 * from xinxi where yz=1 and vip=1 and class1=9 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=xinximemo05.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=9"><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="table94">
<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="table95">
<TBODY>
<TR>
<TD vAlign=top width="33%" height=9>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -