📄 editbuy.asp
字号:
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>修改<span lang="zh-cn">求购信息</span></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="savebuy2.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">
</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
response.write rs2("company")
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 class="wenbenkuang" maxLength="40" name="titlename" 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="" >--选择分类--</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"><span lang="zh-cn">求</span>购车价</td>
<td width="502" colspan="2">
<select class="select" name="money" >
<option value="" selected>--请选择车价--</option>
<option value="0.1-0.5万元" <%if rs1("money")="0.1-0.5万元" then%> selected <%end if%> >0.1-0.5万元</option>
<option value="0.5-1万元" <%if rs1("money")="0.2-1万元" then%> selected <%end if%>>0.5-1万元</option>
<option value="1-5万" <%if rs1("money")="1-5万元" then%> selected <%end if%>>1-5万</option>
<option value="5-10万" <%if rs1("money")="5-10万元" then%> selected <%end if%>>5-10万</option>
<option value="10-15万" <%if rs1("money")="10-15万元" then%> selected <%end if%>>10-15万</option>
<option value="15-20万" <%if rs1("money")="15-20万元" then%> selected <%end if%>>15-20万</option>
<option value="20万以上" <%if rs1("money")="20万以上" then%> selected <%end if%>>20万以上</option>
</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="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="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="pailiang" 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")
%>
<option value="<%=rs1_s("ShengNo")%>" selected ><%=trim(rs1_s("ShengName"))%></option>
<%
else
%>
<option value="<%=rs1_s("ShengNo")%>" ><%=trim(rs1_s("ShengName"))%></option>
<%
end if
rs1_s.movenext
wend
rs1_s.close
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -