📄 edit_info.asp
字号:
sql = "select * from fysmallmxdq order by sj desc"
rs.open sql,conn,1,1
%>
<SCRIPT language = "JavaScript">
var onenumdq;
onenumdq=0;
subcat1dq = new Array();
<%
numdq = 0
do while not rs.eof
%>
subcat1dq[<%=numdq%>] = new Array("<%= trim(rs("SmallClassName"))%>","<%= trim(rs("dl"))%>","<%= trim(rs("SmallClassName"))%>");
<%
numdq = numdq + 1
rs.movenext
loop
rs.close
%>
onenumdq=<%=numdq%>;
function changelocation1dq(shengid)
{
document.editinfo.shi.length = 0;
var shengid=shengid;
var n;
for (n=0;n < onenumdq; n++)
{
if (subcat1dq[n][1] == shengid)
{
document.editinfo.shi.options[document.editinfo.shi.length] = new Option(subcat1dq[n][0], subcat1dq[n][2]);
}
}
}
</SCRIPT>
<%
dim num
sql = "select * from mxdq order by sj desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "请先添加栏目。"
response.end
else
%>
<SELECT name="sheng" onChange="changelocation1dq(document.editinfo.sheng.options[document.editinfo.sheng.selectedIndex].value)" size="1">
<OPTION selected value="0">==省份==</OPTION>
<%do while not rs.eof
%>
<OPTION value="<%=trim(rs("Name"))%>" <%if rsd("InfoAdd") =""&rs("Name")&"" then Response.Write "selected" end if%>><%=trim(rs("Name"))%></OPTION>
<%
rs.movenext
loop
end if
rs.close
%>
</SELECT>
<SELECT name="shi">
<OPTION selected value="0">==市地==</OPTION>
<%
set rsss=server.createobject("adodb.recordset")
sqlss="select * from fysmallmxdq where dl='"&rsd("InfoAdd")&"' order by sj desc"
rsss.open sqlss,conn,1,1
if not(rsss.eof and rsss.bof) then
do while not rsss.eof
%>
<option <%if rsd("smalldq") =""&rsss("SmallClassName")&"" then Response.Write "selected" end if%> value="<%=rsss("id")%>"><%=rsss("SmallClassName")%></option>
<%
rsss.movenext
loop
end if
rsss.close
%>
</SELECT></td>
</tr>
<tr>
<td width="80" height="25" align="right">
选择供求：</td>
<td width="273" height="25" align="left">
<select size="1" name="InfoClass">
<%call gqlx(1,rsd("InfoClass"))%>
</select></td>
</tr>
<tr>
<td width="80" height="25" align="right">
主 题：</td>
<td width="273" height="25" align="left">
<input type="text" name="Topic" size="50" maxlength="200" value="<% = rsd("Topic")%>"></td>
</tr>
<tr>
<td width="80" height="25" align="right" valign="middle">
相关价格：</td>
<td height="25" align="left">
<input type="text" name="jg" size="15" value="<% = rsd("jg")%>">元</td>
</tr>
<tr>
<td width="80" height="25" align="right" valign="middle">
产品图片：</td>
<td height="25" align="left">
<input type="text" name="pic" size="33" value="<% = rsd("pic")%>"><input name="button22" type="button" onClick="OpenResourceExplore(2,600,350,180,'选择图片','bbimg')" value="选择图片" class="button"></td>
</tr>
<tr>
<td width="80" height="25" align="right" valign="top">
内 容：</td>
<td width="273" height="25" align="left">
<textarea rows="7" name="Content" cols="55"><%=bbHTMLDecode(rsd("Content"))%></textarea></td>
</tr><%if rsd("ContactMan")<>"" then%>
<tr>
<td width="80" height="25" align="right">
联 系 人：</td>
<td width="273" height="25" align="left">
<input name="ContactMan" type="text" size="20" maxlength="20" value="<% = rsd("ContactMan")%>"></td>
</tr><%else%>
<tr>
<td width="80" height="25" align="right">
企业名称：</td>
<td width="273" height="25" align="left">
<input name="CompanyName" type="text" size="40" maxlength="200" value="<% = rsd("CompanyName")%>"></td>
</tr><%end if%>
<tr>
<td width="80" height="25" align="right">
联系地址：</td>
<td width="273" height="25" align="left">
<input type="text" name="Add" size="40" maxlength="200" value="<% = rsd("Add")%>"></td>
</tr>
<tr>
<td width="80" height="25" align="right">
邮 编：</td>
<td width="273" height="25" align="left">
<input type="text" name="Postalcode" size="20" maxlength="6" value="<% = rsd("Postalcode")%>"></td>
</tr>
<tr>
<td width="80" height="25" align="right">
腾讯QQ：</td>
<td width="273" height="25" align="left">
<input type="text" name="qq" size="20" value="<% = rsd("qq")%>"></td>
</tr>
<tr>
<td width="80" height="25" align="right">
电 话：</td>
<td width="273" height="25" align="left">
<input type="text" name="Tel" size="20" maxlength="20" value="<% = rsd("Tel")%>"></td>
</tr>
<tr>
<td width="80" height="25" align="right">
传 真：</td>
<td width="273" height="25" align="left">
<input type="text" name="Fax" size="20" maxlength="20" value="<% = rsd("Fax")%>"></td>
</tr>
<tr>
<td width="80" height="25" align="right">
网站网址：</td>
<td width="273" height="25" align="left">
<input type="text" name="Homepage" size="20" maxlength="50" value="<% = rsd("Homepage")%>"></td>
</tr>
<tr>
<td width="80" height="25" align="right">
电子信箱：</td>
<td width="273" height="25" align="left">
<input type="text" name="Email" size="20" maxlength="50" value="<% = rsd("Email")%>"></td>
</tr>
<tr>
<td width="80" height="25" align="right">
有 效 期：</td>
<td width="273" height="25" align="left">
<%
dim t
if rsd("InfoDate") = "1" then
t=" 一天"
elseif rsd("InfoDate") = "3" then
t=" 三天"
elseif rsd("InfoDate") = "7" then
t=" 一星期"
elseif rsd("InfoDate") = "15" then
t=" 半个月"
elseif rsd("InfoDate") = "30" then
t=" 一个月"
elseif rsd("InfoDate") = "60" then
t=" 两个月"
elseif rsd("InfoDate") = "90" then
t=" 一个季度"
elseif rsd("InfoDate") = "182" then
t=" 半年"
else
t=" 一年"
end if
%>
<input type="text" name="InfoDate" size="20" maxlength="50" value="<% =t%>" readonly="ture"></td>
</tr>
<tr>
<td width="80" height="25" valign="middle" align="right">
是否推荐：</td>
<td width="273" height="25" align="left"> <%if rsd("tj")=true then%>是<%else%>否<%end if%>
</td>
</tr>
<tr>
<td width="353" height="35" colspan="2">
<p align="center"><input type="submit" value="提交修改" name="Submit" class="button"> <input type="reset" value="重新填写" name="Reset" class="Button"> </td>
</tr>
</form>
</table>
</center>
</div>
<%
end if
end if
rsd.Close
set rsd = nothing%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -