editad.asp

一个综合类整站

    <option value="" selected>选择城市</option>
	<%
set rsi=conn.execute("select * from china_city where id="&rs("city_oneid")&" and twoid>0 and threeid=0")
if rsi.eof and rsi.bof then
response.write "<option value=''>没有分类</option>"
else
do until rsi.eof%>
  <option value="<%=rsi("twoid")%>" <%if rsi("twoid")=rs("city_twoid") then%>selected<%end if%>><%=rsi("city")%></option>
 <%rsi.movenext
    loop
	%>
	<%end if
rsi.close
set rsi = nothing

%>
	
	</select>
	     <select name="city_three" id="city_three">
		 <option value="" selected>选择城市</option>
		     <%set rsi=conn.execute("select * from china_city where id="&rs("city_oneid")&" and twoid="&rs("city_twoid")&" and threeid<>0")
if rsi.eof and rsi.bof then
response.write "<option value=''>没有分类</option>"
else
do until rsi.eof%>
<option value="<%=rsi("threeid")%>" <%if rsi("threeid")=rs("city_threeid") then%>selected<%end if%>><%=rsi("city")%></option>
   <% rsi.movenext
    loop
	%>
<%end if
rsi.close
set rsi = nothing

%>
    </select>
                <font color="#FF0000">*</font>
            <tr bgcolor="#FFFFFF"> 
              <td height="26" align="right">信息类别：</td>
              <td height="26" colspan="2"> 
                <%
set rsi=conn.execute("select * from china_type where id>0 and twoid>0 and threeid=0")
%>
      <script language = "JavaScript">
var onecount2;
onecount2=0;
subcat2 = new Array();
        <%
		dim count2:count2 = 0
        do while not rsi.eof 
        %>
subcat2[<%=count2%>] = new Array("<%=rsi("name")%>","<%=rsi("id")%>","<%=rsi("twoid")%>");
        <%
        count2 = count2 + 1
        rsi.movenext
        loop
        rsi.close
		set rsi = nothing
        %>
onecount2=<%=count2%>;
</script>

<%
set rsi=conn.execute("select * from china_type where id>0 and twoid>0 and threeid>0")
%>
 <script language = "JavaScript">
var onecount3;
onecount3=0;
subcat3 = new Array();
        <%
		dim count3:count3 = 0
        do while not rsi.eof 
        %>
subcat3[<%=count3%>] = new Array("<%=rsi("name")%>","<%=rsi("id")%>","<%=rsi("twoid")%>","<%=rsi("threeid")%>");
        <%
        count3 = count3 + 1
        rsi.movenext
        loop
        rsi.close
		set rsi = nothing
        %>
onecount3=<%=count3%>;



function changelocation2(locationid)
    {
    document.postart.type_two.length = 0; 
    document.postart.type_two.options[0] = new Option('选择信息','');
	document.postart.type_three.length = 0; 
    document.postart.type_three.options[0] = new Option('选择信息','');
    var locationid=locationid;
	var i;
    for (i=0;i < onecount2; i++)
        {
            if (subcat2[i][1] == locationid)
            { 
                document.postart.type_two.options[document.postart.type_two.length] = new Option(subcat2[i][0], subcat2[i][2]);
            }        
        }
       
    }    
     function changelocation3(locationid,locationid1)
    {
    document.postart.type_three.length = 0; 
    document.postart.type_three.options[0] = new Option('选择信息','');
    var locationid=locationid;
	 var locationid1=locationid1;
    var i;
    for (i=0;i < onecount3; i++)
        {
            if (subcat3[i][2] == locationid)
            { 
			if (subcat3[i][1] == locationid1)
			{
                document.postart.type_three.options[document.postart.type_three.length] = new Option(subcat3[i][0], subcat3[i][3]);
            }        
        }
       } 
    }            
	 </script>
      <select name="type_one" size="1" id="select3" onChange="changelocation2(document.postart.type_one.options[document.postart.type_one.selectedIndex].value)">
           <option value="" selected>选择信息</option>
  <%  set rsi=conn.execute("select * from china_type where id>0 and twoid=0 and threeid=0")
if rsi.eof and rsi.bof then
response.write "<option value=''>没有分类</option>"
else
do until rsi.eof%>
  <option value="<%=rsi("id")%>" <%if rsi("id")=rs("type_oneid") then%>selected<%end if%>><%=rsi("name")%></option>
 <%rsi.movenext
    loop
	%>
	<%end if
rsi.close
set rsi = nothing
%>
   </select>
      <select name="type_two" id="select4" onChange="changelocation3(document.postart.type_two.options[document.postart.type_two.selectedIndex].value,document.postart.type_one.options[document.postart.type_one.selectedIndex].value)">
        <option value="" selected>选择信息</option>
	<%
set rsi=conn.execute("select * from china_type where id="&rs("type_oneid")&" and twoid>0 and threeid=0")
if rsi.eof and rsi.bof then
response.write "<option value=''>没有分类</option>"
else
do until rsi.eof%>
  <option value="<%=rsi("twoid")%>" <%if rsi("twoid")=rs("type_twoid") then%>selected<%end if%>><%=rsi("name")%></option>
 <%rsi.movenext
    loop
	%>
	<%end if
rsi.close
set rsi = nothing

%>
	
    </select>
	<select name="type_three" id="select5">
	<option value="" selected>选择信息</option>
		     <%set rsi=conn.execute("select * from china_type where id="&rs("type_oneid")&" and twoid="&rs("type_twoid")&" and threeid<>0")
if rsi.eof and rsi.bof then
response.write "<option value=''>没有分类</option>"
else
do until rsi.eof%>
<option value="<%=rsi("threeid")%>" <%if rsi("threeid")=rs("type_threeid") then%>selected<%end if%>><%=rsi("name")%></option>
   <% rsi.movenext
    loop
	%>
<%end if
rsi.close
set rsi = nothing

%>
    </select>
              </td>
            </tr>
            <tr bgcolor="#FFFFFF"> 
              <td height="26" align="right">信息形式：</td>
              <td height="26" colspan="2"> 
                <input type="radio" value="no" name="dispic" <%If rs("ispic")="no" Then%>checked<%End If%>>
                文字信息&nbsp; 
                <input type="radio" value="yes" name="dispic" <%If rs("ispic")="yes" Then%>checked<%End If%>>
                图片信息 <font color="#FF0000">（注：设置为</font><font color="#008080">图片信息</font><font color="#FF0000">将会在</font><font color="#008080">全部分类</font><font color="#FF0000">栏目以图片方式显示）</font></td>
            </tr>
            <tr bgcolor="#FFFFFF"> 
              <td height="26" align="right">图片路径：</td>
              <td height="26" colspan="2"> 
                <input type="text" name="dpic" size="30" value="<%=pic%>">
<iframe style="top:2px" ID="UploadFiles" src="../upload_Photo.asp?PhotoUrlID=0" frameborder=0 scrolling=no width="320" height="25"></iframe><br>
                <%if pic<>"" then%>
                <a href="<%if lcase(left(pic,7))<>"http://" then%>../adpic/<%end if%><%=pic%>" target="_blank"><img src="<%if lcase(left(pic,7))<>"http://" then%>../adpic/<%end if%><%=pic%>" border="0" width="180" height="123"></a> 
                <%else%>
                暂无图片 
                <%end if%>
              </td>
            </tr>
            <tr bgcolor="#FFFFFF"> 
              <td height="26" align="right" valign="top">信息内容：</td>
              <td colspan="2"> 
                <textarea rows="14" name="dtext" cols="60" onKeyDown="checkMaxInput(this.form)" onKeyUp="checkMaxInput(this.form)"><%if text<>"" then%><%=replace(text,"<br>",vbcrlf)%><%end if%>
      </textarea>
                <font color="#FF0000">*&nbsp;</font> <font color="#FF0000"><br>
                目前还可写 
                <input readonly type=text name=remLen size=4 maxlength=4 style="border: 1 solid #888888">
                个字！</font> </td>
            </tr>
            <tr bgcolor="#FFFFFF"> 
              <td height="26" align="right">联系人：</td>
              <td height="26" colspan="2"> 
                <input name="dusername" type="text" id="dusername" value="<%=username%>" size="20" maxlength="20">
                <font color="#FF0000">* </font></td>
            </tr>
            <tr bgcolor="#FFFFFF" <%if webcardid="0" then%>style="display:none"<%end if%>> 
              <td height="26" align="right">身份证号：</td>
              <td height="26" colspan="2"> 
                <input name="dcardid" type="text" id="dcardid" value="<%=cardid%>" size="20" maxlength="18">
                <font color="#FF0000">* </font></td>
            </tr>
            <tr bgcolor="#FFFFFF"> 
              <td height="26" align="right">联系电话：</td>
              <td height="26" colspan="2"> 
                <input name="dtel" type="text" id="dtel" value="<%=tel%>" size="20" maxlength="20">
                <font color="#FF0000">* </font></td>
            </tr>
            <tr bgcolor="#FFFFFF"> 
              <td height="26" align="right">生效日期：</td>
              <td height="26" colspan="2"> 
                <input name="time" size="15" maxlength="50" value="<%=time1%>">
                <font color="#FF0000">（格式如：2004-10-1）</font></td>
            </tr>
            <tr bgcolor="#FFFFFF"> 
              <td height="26" align="right">有效期至：</td>
              <td height="26" colspan="2"> 
                <input name="dstop" size="15" maxlength="50" value="<%=stop1%>">
                <font color="#FF0000">（格式如：2004-10-1）</font></td>
            </tr>
            <tr bgcolor="#FFFFFF"> 
              <td height="26" align="right">是否固顶：</td>
              <td height="26" colspan="2"> 
                <input type="radio" value="0" name="dtop" <%if top1="0" then%>checked<%end if%>>
                否&nbsp; 
                <input type="radio" value="1" name="dtop" <%if top1="1" then%>checked<%end if%>>
                是 <font color="#ff0000">（注：设置为此属性将在排列在同栏目的首位显示）</font></td>
            </tr>
            <tr bgcolor="#FFFFFF"> 
              <td height="26" align="right">是否首页滚动显示：</td>
              <td height="26" colspan="2"> 
                <input type="radio" value="0" name="shouye" <%if shouye1="0" then%>checked<%end if%>>
                否&nbsp; 
                <input type="radio" value="1" name="shouye" <%if shouye1="1" then%>checked<%end if%>>
                是 <font color="#ff0000">（注：设置为此属性将在首页“滚动栏”处显示）</font></td>
            </tr>
            <tr bgcolor="#FFFFFF">
              <td height="26" align="right">是否图片推荐信息：</td>
              <td height="26" colspan="2">
                <input type="radio" value="0" name="hotpoto" <%if hotpoto1="0" then%>checked<%end if%>>
                否&nbsp; 
                <input type="radio" value="1" name="hotpoto" <%if hotpoto1="1" then%>checked<%end if%>>
                是 <font color="#ff0000">（注：显示到首页＂图片推荐信息＂处，一共三副图片位）</font></td>
            </tr>
            <tr bgcolor="#FFFFFF"> 
              <td height="26" align="right">是否图文信息：</td>
              <td height="26" colspan="2"> 
                <input type="radio" value="0" name="lift" <%if lift1="0" then%>checked<%end if%>>
                否&nbsp; 
                <input type="radio" value="1" name="lift" <%if lift1="1" then%>checked<%end if%>>
                是 <font color="#FF0000">（注：是否在首页右侧显示为图片及文字混合显示，如：旅游出行/餐饮美食/装修装饰）</font></td>
            </tr>
            <tr bgcolor="#FFFFFF"> 
              <td height="26" align="right">热点分类信息：</td>
              <td height="26" colspan="2"> 
                <input type="radio" value="0" name="hot" <%if hot1="0" then%>checked<%end if%>>
                否&nbsp; 
                <input type="radio" value="1" name="hot" <%if hot1="1" then%>checked<%end if%>>
                是 <font color="#ff0000">（注：设置为此属性将在首页“热点分类信息”处显示）</font></td>
            </tr>
            <tr bgcolor="#FFFFFF"> 
              <td height="26" align="right">竟价费用：</td>
              <td height="26" colspan="2"> 
                <input name="dmoney" size="15" maxlength="50" value="<%=money%>">
                元 <font color="#ff0000">（注：金额越大，排列位置越靠前）</font></td>
            </tr>
            <tr bgcolor="#FFFFFF"> 
              <td height="26" align="right">审核：</td>
              <td height="26" colspan="2"> 
                <input name="mark" type="radio" value="no" <%If mark1="no" Then%>checked<%End If%>>
                未审核 
                <input type="radio" name="mark" value="yes" <%If mark1="yes" Then%>checked<%End If%>>
                已审核</td>
            </tr>
            <tr bgcolor="#FFFFFF"> 
              <td height="30" align="right"> </td>
              <td height="30" colspan="2" align="right"> 
                <p align="left"> 
                  <input type="submit" value="修改" name="submit">
                  &nbsp; 
                  <input type="reset" value="取消" name="reset">
                  &nbsp; 
                  <input type="button" value="返回" name="back" onclick="javascript:history.back()">
              </td>
            </tr>
          </table>
      </form>
      <br>    </td>
  </tr>
</table>
</div>
 <br>                                                                                                                       
</body>
</html>                    
<%rs.close                      
set rs=nothing                                                                                                         
conn.close                       
set conn=nothing%>