📄 oldsc.asp
字号:
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/getPartStrAndBytesLen.asp" -->
<!--#include file="../inc/onlinecount.asp"-->
<!--#include file="../top.asp"-->
<%
Dim Rs,Sql
OpenDataConn
Set Rs=Server.CreateObject("ADODB.Recordset")
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>二手市场:<%=homepage_title%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<script language="JavaScript" src="../inc/index.js"></script>
<LINK
href="../img/css.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.3790.2706" name=GENERATOR></HEAD>
<BODY class=bg1 text=#000000 bgColor=#ffffff leftMargin=0 topMargin=1>
<TABLE height=28 cellSpacing=0 cellPadding=0 width=980 align=center
background=../img/headbg4.gif border=0>
<TBODY>
<TR>
<TD align=right width=35>
<IMG height=13 src="../img/headarrow.gif"
width=17></TD>
<TD align=middle width=10></TD>
<TD class=TD_Place width=935>您现在的位置：<a href="../index.aspx"><FONT color=#ffffff><%=homepage_title%></FONT></a>
<FONT color=#ffffff>>></FONT> 二手市场</TD></TR></TBODY></TABLE>
<TABLE height=7 cellSpacing=0 cellPadding=0 width=980 align=center
background=img/headbg5.gif border=0>
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE>
<TABLE height=100 cellSpacing=0 cellPadding=0 width=970 align=center border=0>
<TBODY>
<TR>
<TD vAlign=top width=260 height=100>
<TABLE class=out3s_green height="100%" cellSpacing=0 cellPadding=0
width=255 bgColor=#7cb721 border=0>
<TBODY>
<TR>
<TD vAlign=top>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center
border=0>
<TBODY>
<tr>
<td style="border-style: none; border-width: medium" height="39" width="255">
<img border="0" src="../img/old.gif" width="255" height="40"></td>
</tr>
<tr>
<td style="border-style: none; border-width: medium">
<table width="98%" border="0" cellpadding="0" cellspacing="1">
<script language="javascript">
<!--
function openwin(url)
{
window.open(url,"_blank","height=320,width=500,resizable=no,scrollbars=yes,statue=no,toolbar=no,menubar=no,location=no,left=150,top=80");
}
//-->
</script>
<%
opendataconn
Set Rs=Server.CreateObject("ADODB.Recordset")
sql5="select * from oldtype1 order by dateandtime "
rs.open sql5,conn,1,1
kk=1
do while not rs.eof
thistype=rs("btype")
list=""
%>
<tr bgcolor="#6AAED7">
<td height="27" align="center" bgcolor="#7CB721" class="black" onClick="javascript:view_xiangmu('hidden<%=kk%>','viewimg<%=kk%>');">
<img border="0" src="../img/arr_w1.gif" width="9" height="9"><font color="#FFFFFF"> <%=rs("btype")%></font> <font color="#FFFFFF">
<SCRIPT language=JavaScript>
function view_xiangmu(obj,obj2)
{
if ( document.all[obj].style.display == "" ){
document.all[obj].style.display = "none";
}
else{
document.all[obj].style.display = "";
}
}
</SCRIPT>
</font><font color="#FFFFFF"> </font> </td>
</tr>
<tr id=hidden<%=kk%> style="DISPLAY: none">
<td height="22" valign="top"> <table width="100%" height="28" cellspacing="1">
<%
set ps=server.createobject("adodb.recordset")
sql="select * from oldtype2 where btype='"&thistype&"' order by dateandtime"
ps.open sql,conn,1,1
if not ps.eof then
do while not ps.eof
list=list & ps("stype") & " "
%>
<tr height="20">
<td width="40%" height="20"> <div align="center" class="black"><a href="old_view.asp?stype=<%=trim(ps("stype"))%>">
<font color="#ffffff"><%=ps("stype")%></font></a></div></td>
</tr>
<tr height="1">
<td height="1" background="../ima/back.gif"></td>
</tr>
<%
ps.movenext
loop
ps.close
set ps=nothing
end if
%>
</table></tr>
<%
rs.movenext
kk=kk+1
loop
rs.close
%>
</table>
</td>
</tr>
<tr>
<td style="border-style: none; border-width: medium">
<table width="99%" height="71" border="0" align="center" cellpadding="0" cellspacing="0">
<form name="form1" method="post" action="old_search.asp">
<tr>
<td width="59%" height="36"> <div align="center">
<SELECT
name=sort2 id="btype" style="FONT-SIZE: 9pt">
<OPTION selected
value="">全部分类</OPTION>
<%Set Rs=Server.CreateObject("ADODB.Recordset")
sql5="select * from oldtype1 order by dateandtime "
rs.open sql5,conn,1,1
kk=1
do while not rs.eof
strbtype=rs("btype")%>
<OPTION value="<%=strbtype%>"><%=strbtype%></OPTION>
<%rs.movenext
loop
rs.close%>
</SELECT></div></td>
<td width="41%"><SELECT
name=sort1 id="sort1" style="FONT-SIZE: 9pt">
<OPTION selected
value="">类型</OPTION><OPTION value="">全部</OPTION>
<OPTION
value="出售">出售</OPTION>
<OPTION value="求购">求购</OPTION>
<OPTION value="合作">合作</OPTION>
</SELECT></td>
</tr><tr>
<td width="100%" height="36" colspan="2"> <div align="center">
<input name="key" type="text" id="key" size="23">
</div></td>
</tr>
<tr>
<td colspan="2"><div align="center">
<input type="submit" name="Submit2" value=" 搜 索 ">
<input type="submit" name="Submit3" value=" 帮 助 " onClick="window.location='oldhelp.asp'">
</div></td>
</tr>
</form>
</table>
</td>
</tr>
<tr>
<td align="center" width="96%" style="border-style: none; border-width: medium">
</td>
</tr>
<tr>
<form name="form1" method="get" action="house/hs.asp">
</form></TR>
</TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
<TD vAlign=top>
<table width="500" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<%
tbsql3 = "select top 1 * from Banner where bz=22 order by linkid desc"
set tbrs3 = conn.execute(tbsql3)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -