|
|
|
|
 |
<%
'旧车市场展-大车展厅
Set oldcar = Server.CreateObject("ADODB.Connection")
oldcar.ConnectionTimeout=application("oldcarconn_connectiontimeout")
oldcar.CommandTimeout=application("oldcarconn_commandtimeout")
oldcar.Open Application("oldcarconn_ConnectionString"),Application("oldcarconn_RuntimeUserName"),Application("oldcarconn_RuntimePassword")
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set rs1 = Server.CreateObject("ADODB.Recordset")
qu1 = "select to_char(id) s_id,typ,num,producting,journey,get_time,fuel,placenta,colour,to_char(price) s_price ,enter_date"
qu1 = qu1 + " from s_car where fuel = '3' order by enter_date desc"
cmdTemp.CommandText = qu1
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = oldcar
on error resume next
rs1.Open cmdTemp, , 1, 1
irow = 1
i = 1
Do While not rs1.EOF and i <= 10
select case irow
case 1
td_bgcolor = "#F0F0F0"
case -1
td_bgcolor = ""
end select
%>
| ><%=year(rs1("enter_date"))%>/<%=month(rs1("enter_date"))%>/<%=day(rs1("enter_date"))%> |
> <%=rs1("typ")%> |
<% rs1.MoveNext
irow = - irow
i = i + 1
Loop
rs1.close
set rs1 = nothing
%>
|
服务器调整中.........
|
|
|
|
 |
<%
'旧车市场展-小车展厅
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set rs1 = Server.CreateObject("ADODB.Recordset")
qu2 = "select to_char(id) s_id,typ,num,producting,journey,get_time,fuel,placenta,colour,to_char(price) s_price ,enter_date"
qu2 = qu2 + " from s_car where fuel = '2' order by enter_date desc"
cmdTemp.CommandText = qu2
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = oldcar
rs1.Open cmdTemp, , 1, 1
irow = 1
i = 1
Do While not rs1.EOF and i <= 10
select case irow
case 1
td_bgcolor = "#F0F0F0"
case -1
td_bgcolor = ""
end select
%>
| ><%=year(rs1("enter_date"))%>/<%=month(rs1("enter_date"))%>/<%=day(rs1("enter_date"))%> |
> <%=rs1("typ")%> |
<% rs1.MoveNext
irow = - irow
i = i + 1
Loop
rs1.close
set rs1 = nothing
%>
|
服务器调整中.........
|
|
|
|
 |
<%
'旧车市场展-摩托车展厅
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set rs1 = Server.CreateObject("ADODB.Recordset")
qu3 = "select to_char(id) s_id,typ,num,producting,journey,get_time,fuel,placenta,colour,to_char(price) s_price ,enter_date "
qu3 = qu3 + " from s_car where fuel = '1' order by enter_date desc"
cmdTemp.CommandText = qu3
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = oldcar
rs1.Open cmdTemp, , 1, 1
irow = 1
i = 1
Do While not rs1.EOF and i <= 10
select case irow
case 1
td_bgcolor = "#F0F0F0"
case -1
td_bgcolor = ""
end select
%>
| ><%=year(rs1("enter_date"))%>/<%=month(rs1("enter_date"))%>/<%=day(rs1("enter_date"))%> |
> <%=rs1("typ")%> |
<% rs1.MoveNext
irow = - irow
i = i + 1
Loop
rs1.close
set rs1 = nothing
%>
|
服务器调整中.........
|
|
|
|
|
|
|
|
<%
'NET上车-大车展厅
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set rs1 = Server.CreateObject("ADODB.Recordset")
qu4 = "select to_char(id) s_id,typ,num,producting,to_char(journey) s_journey,get_time,fuel,placenta,colour,to_char(price) s_price ,enter_date "
qu4 = qu4 + " from net_car where fuel = '3' order by enter_date desc"
cmdTemp.CommandText = qu4
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = oldcar
rs1.Open cmdTemp, , 1, 1
irow = 1
i = 1
Do While not rs1.EOF and i<= 10
select case irow
case 1
td_bgcolor = "#F0F0F0"
case -1
td_bgcolor = ""
end select
%>
| ><%=year(rs1("enter_date"))%>/<%=month(rs1("enter_date"))%>/<%=day(rs1("enter_date"))%> |
> <%=rs1("typ")%> |
<% rs1.MoveNext
irow = - irow
i = i + 1
Loop
rs1.close
set rs1 = nothing
%>
|
>服务器调整中.........
|
|
|
|
|
<%
'旧车市场展-小车展厅
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set rs1 = Server.CreateObject("ADODB.Recordset")
qu5 = "select to_char(id) s_id,typ,num,producting,to_char(journey) s_journey,get_time,fuel,placenta,colour,to_char(price) s_price ,enter_date"
qu5 = qu5 + " from net_car where fuel = '2' order by enter_date desc"
cmdTemp.CommandText = qu5
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = oldcar
rs1.Open cmdTemp, , 1, 1
irow = 1
i = 1
Do While not rs1.EOF and i <= 10
select case irow
case 1
td_bgcolor = "#F0F0F0"
case -1
td_bgcolor = ""
end select
%>
| ><%=year(rs1("enter_date"))%>/<%=month(rs1("enter_date"))%>/<%=day(rs1("enter_date"))%> |
> <%=rs1("typ")%> |
<% rs1.MoveNext
irow = - irow
i = i + 1
Loop
rs1.close
set rs1 = nothing
%>
|
服务器调整中.........
|
|
|
|
|
<%
'旧车市场展-摩托车展厅
i = 1
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set rs1 = Server.CreateObject("ADODB.Recordset")
qu6 = "select to_char(id) s_id,typ,num,producting,to_char(journey) s_journey,get_time,fuel,placenta,colour,to_char(price) s_price ,enter_date "
qu6 = qu6 + " from net_car where fuel = '1' order by enter_date desc"
cmdTemp.CommandText = qu6
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = oldcar
rs1.Open cmdTemp, , 1, 1
irow = 1
i = 1
Do While not rs1.EOF and i <= 10
select case irow
case 1
td_bgcolor = "#F0F0F0"
case -1
td_bgcolor = ""
end select
%>
| ><%=year(rs1("enter_date"))%>/<%=month(rs1("enter_date"))%>/<%=day(rs1("enter_date"))%> |
> <%=rs1("typ")%> |
<% rs1.MoveNext
irow = - irow
i = i + 1
Loop
rs1.close
set rs1 = nothing
%>
|
服务器调整中.........
|
|
|
|
|
|
