📄 editsell.asp
字号:
}
}
</script>
<script language=JavaScript>
<%dim i_1,j_1
set rs_s=server.createobject("adodb.recordset")
sql="select * from province order by shengorder"
rs_s.open sql,conn,1,1
%>
var selects=[];
selects['xxx']=new Array(new Option('--不限城市--','xxx'));
<%
for i=1 to rs_s.recordcount
%>
selects['<%=rs_s("ShengNo")%>']=new Array(
new Option('--不限城市--','xx'),
<%
set rs_s1=server.createobject("adodb.recordset")
sql="select * from city where shengid="&rs_s("id")&" order by shiorder"
rs_s1.open sql,conn,1,1
if rs_s1.recordcount>0 then
%>
<% for j=1 to rs_s1.recordcount
if j=rs_s1.recordcount then
%>
new Option('<%=trim(rs_s1("shiname"))%>','<%=trim(rs_s1("shiNo"))%>'));
<% else
%>
new Option('<%=trim(rs_s1("shiname"))%>','<%=trim(rs_s1("shiNo"))%>'),
<%
end if
rs_s1.movenext
next
else
%>
new Option('','0'));
<%
end if
rs_s1.close
set rs_s1=nothing
rs_s.movenext
next
rs_s.close
set rs_s=nothing
%>
function chsel(){
with (document.formpub){
if(province.value) {
city.options.length=0;
for(var i=0;i<selects[province.value].length;i++){
city.add(selects[province.value][i]);
}
}
}
}
</script>
<body>
<table cellpadding="3" cellspacing="1" border="0" width="100%" class="tableBorder" align=center>
<tr height=25>
<th class="tableHeaderText" colspan=6 height=25>修改出售汽车</th>
</tr>
<tr>
<td class="forumRowHighlight" >
<div align="center">
<table width="652" border="1" bordercolor="#FFFFFF" style="border-collapse: collapse">
<form name="formpub" method="post" onsubmit="return checkform()" action="savesell2.asp?id=<%=id%>">
<tr>
<td width="143" colspan="2"></td>
<td width="251">
</td>
<td width="251">
<p align="right">审核：<select name="shenhe" >
<option value="1" <%if rs1("by_tongguo")=1 then %>selected <%end if%> >通过</option>
<option value="0" <%if rs1("by_tongguo")=0 then %>selected <%end if%> >待审核</option>
<option value="-1" <%if rs1("by_tongguo")=-1 then %>selected <%end if%> >未通过</option>
</select><font color="#ff6600">*</font></td>
</tr>
<tr>
<td width="143" colspan="2"><span lang="zh-cn">出售信息</span></td>
<td width="502" colspan="2"><input type=hidden name=by_hd value=1>
</td>
</tr>
<tr>
<td width="64"> </td>
<td width="77">
是否固顶</td>
<td width="502" colspan="2"><%if rs1("guding")=1 then response.write "固顶" else response.write "没有" end if%></td>
</tr>
<tr>
<td width="64"> </td>
<td width="77">
添加时间</td>
<td width="502" colspan="2"><%if rs1("guding")=1 then
response.write rs1("gddate")
else
response.write rs1("adddate")
end if%></td>
</tr>
<tr>
<td width="64"> </td>
<td width="77">
发布类型</td>
<td width="502" colspan="2"><% if rs1("usercheck")=1 then
response.write "加盟商家发布"&"-"
set rs2=server.CreateObject ("adodb.recordset")
sql2="select * from dealer where user='"&rs1("user")&"'"
rs2.open sql2,conn,1,1
if rs2.eof then
response.write "该商家已被删除"
else
response.write rs2("company")
end if
end if%><% if rs1("usercheck")=2 then response.write "个人发布" end if%><% if rs1("usercheck")=3 then response.write "本站发布" end if%>
</td>
</tr>
<tr>
<td width="64"> </td>
<td width="77">
浏览次数</td>
<td width="502" colspan="2">
<%=rs1("count")%></td>
</tr>
<tr>
<td width="64"> </td>
<td width="77">
发布者IP</td>
<td width="502" colspan="2"><%
IP=rs1("ip")
response.write ip&"-"
Function cacuIp(ip)
On Error Resume Next
Dim srIp, aIp
srIp=0
aIp = Split(ip,".")
If UBound(aIP)<>3 Then
cacuIP=0
Exit Function
End If
For i=0 To 3
srIp=srIp+(CInt(aIP(i))*(256^(3-i)))
Next
cacuIp=srIp-1
If Err Then cacuIp=0
End Function
Set CONN2=Server.CreateObject("ADODB.Connection")
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("byshop.cn.IP.asp")
conn2.open connstr
iip=cacuIp(IP)
SQL = "SELECT bz,ct FROM byshop WHERE jiu1<=" & iip & " AND hu2>=" & iip
Set rs2 = CONN2.Execute ( SQL )
If rs2.Eof Then
sPlace="查询错误！"
Else
sPlace=rs2(0)&""&rs2(1)
End If
Set rs2=Nothing
Response.Write "[<font color=red>"&sPlace&"</font>]"
%> </td>
</tr>
<tr>
<td width="643" colspan="4"> </td>
</tr>
<tr>
<td width="64"> </td>
<td width="77">
信息标题</td>
<td width="502" colspan="2">
<input name="titlename" type="text" maxLength="40" value=<%=rs1("titlename")%>><font color="#ff6600">*</font></td>
</tr>
<tr>
<td width="64"> </td>
<td width="77">
汽车分类</td>
<td width="502" colspan="2">
<select size="1" name="cartype" class="wenbenkuang">
<option value="" selected>--选择分类--</option>
<option value="1" <%if rs1("cartype")=1 then%> selected <%end if%>>轿车</option>
<option value="2" <%if rs1("cartype")=2 then%> selected <%end if%>>跑车</option>
<option value="3" <%if rs1("cartype")=3 then%> selected <%end if%>>SUV及越野车</option>
<option value="4" <%if rs1("cartype")=4 then%> selected <%end if%>>面包车</option>
<option value="5" <%if rs1("cartype")=5 then%> selected <%end if%>>箱形车</option>
<option value="6" <%if rs1("cartype")=6 then%> selected <%end if%>>概念车</option>
<option value="7" <%if rs1("cartype")=7 then%> selected <%end if%>>客车</option>
<option value="8" <%if rs1("cartype")=8 then%> selected <%end if%>>货车</option>
<option value="9" <%if rs1("cartype")=9 then%> selected <%end if%>>摩托车</option>
<option value="10" <%if rs1("cartype")=10 then%> selected <%end if%>>电动自行车</option>
<option value="11" <%if rs1("cartype")=11 then%> selected <%end if%>>其它车型</option>
</select><font color="#ff6600">*</font></td>
</tr>
<tr>
<td width="64"> </td>
<td width="77">汽车品牌</td>
<td width="502" colspan="2"><select size="1" name="anclass" onChange=chsel1() class="wenbenkuang">
<option value="xxx" selected>--请选择名牌--</option>
<%dim tmppingpaiid
tmppingpaiid=0
set rs1_s=server.createobject("adodb.recordset")
sql="select * from anclass order by anclassidorder"
rs1_s.open sql,conn,1,1
while not rs1_s.eof%>
<%
if rs1("anclass")=rs1_s("anclassid") then
tmppingpaiid=rs1_s("anclassid")
%>
<option value="<%=rs1_s("anclassid")%>" selected ><%=trim(rs1_s("anclass"))%></option>
<%
else
%>
<option value="<%=rs1_s("anclassid")%>" ><%=trim(rs1_s("anclass"))%></option>
<%
end if
rs1_s.movenext
wend
rs1_s.close
set rs1_s=nothing
%>
</select><select size="1" size="18" name="nclass" class="wenbenkuang">
<option value="" >--请选择型号--</option>
<%
set rs1_s=server.createobject("adodb.recordset")
sql="select * from nclass where anclassid="&tmppingpaiid&" order by nclassidorder"
rs1_s.open sql,conn,1,1
while not rs1_s.eof
%>
<option value="<%=rs1_s("nclassid")%>" <%if rs1("nclass")=rs1_s("nclassid") then%> selected<%end if%>><%=trim(rs1_s("nclass"))%></option>
<%
rs1_s.movenext
wend
rs1_s.close
set rs1_s=nothing
%></select><font color="#ff6600">*</font></td>
</tr>
<tr>
<td width="60"> </td>
<td width="77">汽车型号</td>
<td width="502" colspan="2">
<input class="wenbenkuang" maxLength="20" name="type" value="<%=rs1("type")%>"></td>
</tr>
<tr>
<td width="60"> </td>
<td width="77">原车购价</td>
<td width="502" colspan="2">
<input class="wenbenkuang" maxLength="15" name="yuanmoney" value="<%=rs1("yuanmoney")%>"><font color="#FF6600">万</font><font color="#ff6600">元*</font></td>
</tr>
<tr>
<td width="60"> </td>
<td width="77">出售车价</td>
<td width="502" colspan="2">
<input class="wenbenkuang" maxLength="15" name="sellmoney" value="<%=rs1("sellmoney")%>"><font color="#ff6600">万元("0"和不填
都表示面议)</font></td>
</tr>
<tr>
<td width="60"> </td>
<td width="77">汽车颜色</td>
<td width="502" colspan="2">
<input class="wenbenkuang" maxLength="15" name="color" value="<%=rs1("color")%>"></td>
</tr>
<tr>
<td width="60"> </td>
<td width="77">原车用途</td>
<td width="502" colspan="2">
<input class="wenbenkuang" maxLength="15" name="purpose" value="<%=rs1("purpose")%>"></td>
</tr>
<tr>
<td width="60"> </td>
<td width="77">上牌日期</td>
<td width="502" colspan="2">
<input class="wenbenkuang" maxLength="20" name="shangpai" value="<%=rs1("shangpai")%>">格式(2006-1-1)</td>
</tr>
<tr>
<td width="60"> </td>
<td width="77">座 位 数</td>
<td width="502" colspan="2">
<input class="wenbenkuang" maxLength="20" name="seat" value="<%=rs1("seat")%>"></td>
</tr>
<tr>
<td width="60"> </td>
<td width="77">行驶路程</td>
<td width="502" colspan="2">
<input class="wenbenkuang" maxLength="15" name="journey" value="<%=rs1("journey")%>">(公里)</td>
</tr>
<tr>
<td width="60"> </td>
<td width="77">百里油耗</td>
<td width="502" colspan="2">
<input class="wenbenkuang" maxLength="20" name="youhao" value="<%=rs1("youhao")%>" >(升/100公里)</td>
</tr>
<tr>
<td width="60"> </td>
<td width="77">发动机型</td>
<td width="502" colspan="2">
<input class="wenbenkuang" maxLength="20" name="motor" value=<%=rs1("motor")%>></td>
</tr>
<tr>
<td width="60"> </td>
<td width="77">汽车排量</td>
<td width="502" colspan="2">
<input class="wenbenkuang" maxLength="20" name="pailiang" title="请输入排量" value=<%=rs1("pailiang")%>>(升)</td>
</tr>
<tr>
<td width="60"> </td>
<td width="77"><span lang="zh-cn">交易地址</span></td>
<td width="502" colspan="2"><select size="1" name="province" onChange=chsel() class="wenbenkuang">
<option value="xxx" selected>--不限省份--</option>
<%dim tmpShengid
tmpShengid=0
set rs1_s=server.createobject("adodb.recordset")
sql="select * from province order by shengorder"
rs1_s.open sql,conn,1,1
while not rs1_s.eof%>
<%
if rs1("province")=rs1_s("ShengNo") then
tmpShengid=rs1_s("id")
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -