www.gusucode.com > 漂亮的地方旅游景点景观介绍网站源代码 > admin/road/cityclass.asp
<!--#include file="../config.asp" --> <!--#include file="../../inc/page.asp" --> <% call zwtj() sub tssx(sx1,sx2) if sx1=1 then Response.Write("<span class=""fontr"">[置顶]<span>") end if if sx2=1 then Response.Write("<span class=""fontr"">[禁用]<span>") end if end sub function ymdh() if fid=0 then ymdh="" end if dim fpath,path,i fpath=getmc("Jw_cityclass","id",fid,"fpath") path=split(fpath,",") for i=1 to (ubound(path)-1) ymdh=ymdh&"<a href=""?fid="&path(i)&""">"&getmc("Jw_cityclass","id",path(i),"mc")&"</a> > " next end function mytit=mytit&"<a href=""?fid=0"">城市管理</a> > " select case action case "add" mytit=mytit&ymdh()&"添加城市" call add() case "del" call del() case "show","" mytit=mytit&ymdh()&"城市列表" call show() case "ups" mytit=mytit&ymdh()&"编辑城市" call ups() case "px" mytit=mytit&ymdh()&"城市排序" call cdpx() case "zd" call zd() case "qxzd" call qxzd() case "jy" call jy() case "qy" call qy() case "aadd" call aadd() case "doup" call doup() case "qqzz" call qqzz() end select '显示 sub show() sql="select * from Jw_cityclass where fid="&fid&" order by zd desc,qz asc" call record(rs,sql,1) call head() %> <link href="../inc/mm.css" rel="stylesheet" type="text/css" /> <table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#116BAE"> <tr> <td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF"> <tr> <td id="tit"><%= mytit %> || <a href="?action=add&fid=<%= fid %>">添加城市 </a>|| <a href="?action=px&fid=<%= fid %>">城市排序</a></td> </tr> <tr> <td> <table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF"> <form name="form1" id="form1" method="post" action=""> <tr> <td width="5%" align="center" bgcolor="#C5E0F3"><strong>ID</strong></td> <td width="34%" bgcolor="#C5E0F3"><strong>城市名称</strong></td> <td width="14%" align="center" bgcolor="#C5E0F3"><strong>所属分类</strong></td> <td width="13%" align="center" bgcolor="#C5E0F3"><strong>权重</strong></td> <td width="14%" align="center" bgcolor="#C5E0F3"><strong>属性</strong></td> <td width="17%" align="center" bgcolor="#C5E0F3"><strong>操作</strong></td> <td width="3%" align="center" bgcolor="#C5E0F3"><input type="checkbox" name="selectall" onClick="selectit()"/></td> </tr> <% dim i,sz sz=20 i=sz dim bgc %> <div style="display:none"><% call fenpage(sz,rs,10) %></div> <% do while not rs.eof and i>0 if i mod 2=0 then bgc="#D2E9FF" else bgc="#D2E1EE" end if %> <tr id="r<%=rs("id")%>" bgcolor=<%= bgc %> onMouseOver="museing(r<%=rs("id")%>,0,'<%= bgc %>')" onMouseOut="museing(r<%=rs("id")%>,1,'<%= bgc %>')"> <td align="center"><%= rs("id") %></td> <td> <%= rs("mc") %> <% call tssx(rs("zd"),rs("show")) %></td> <td align="center"> <% If fid=0 Then Response.Write("根目录") else Response.Write(getmc("Jw_cityclass","id",fid,"mc")) end if %></td> <td align="center"><%= rs("qz") %></td> <td align="center"> <% If fid=0 Then Response.Write("1级") else Response.Write(getjs("Jw_cityclass")&"级") end if %></td> <td align="center"><table width="80" border="0" cellpadding="2" cellspacing="0"> <tr> <td width="34" valign="bottom"><a href="?fid=<%= rs("id") %>"><img src="../../images/admin/20060713191005984.gif" alt="子栏目管理" width="16" height="16" border="0" align="absbottom"/></a></td> <td width="14" valign="bottom"><a href="?action=ups&fid=<%= fid %>&id=<%= rs("id") %>"><img src="../../images/admin/20050703091537508.gif" alt="编辑城市" width="14" height="15" border="0" align="absbottom" /></a></td> <td width="17" valign="bottom"> <% If rs("show")=0 Then %> <a href="?action=jy&fid=<%= fid %>&id=<%= rs("id") %>"><img src="../../images/admin/20050703091539318.gif" alt="锁定" width="13" height="13" border="0" align="absbottom" /></a> <% Else %> <a href="?action=qy&fid=<%= fid %>&id=<%= rs("id") %>"><img src="../../images/admin/20050703091613193.gif" alt="解锁" width="12" height="13" border="0" align="absbottom" /></a> <% End If %></td> <td width="37" valign="bottom"><% If rs("zd")=0 Then %> <a href="?action=zd&fid=<%= fid %>&id=<%= rs("id") %>"><img src="../../images/admin/qxzd.gif" alt="置顶" width="16" height="16" border="0" align="absbottom" /></a> <% Else %> <a href="?action=qxzd&fid=<%= fid %>&id=<%= rs("id") %>"><img src="../../images/admin/zd.gif" alt="取消置顶" width="16" height="16" border="0" align="absbottom" /></a> <% End If %></td> </tr> </table><a href="?fid=<%= rs("id") %>"></a><a href="?action=ups&fid=<%= fid %>&id=<%= rs("id") %>"></a></td> <td align="center"><input name="idstr" type="checkbox" value="<%= rs("id") %>" onclick="td_bgcolor(r<%=rs("id")%>,1);"></td> </tr> <% i=i-1 rs.movenext loop %> <tr> <td colspan="7" bgcolor="#C5E0F3"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF"> <tr> <td width="6%" bgcolor="#C5E0F3"><input name="del" type="button" class="button_1" id="del" value="删除所选" onmouseup="tjqr('您确定要删除?此操作无法逆转!','?action=del')" onmouseover="this.className='button_2'" onmouseout="this.className='button_1'"/></td> <td width="94%" align="right" bgcolor="#C5E0F3"><% call fenpage(sz,rs,10) %></td> </tr> </table></td> </tr> </form> </table></td> </tr> </table></td> </tr> </table> <% call recordend(rs) call connend() call foot() end sub ' sub add() call head() %> <table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#116BAE"> <tr> <td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF"> <tr> <td id="tit"><%= mytit %> || <a href="?action=px&fid=<%= fid %>">城市排序</a></td> </tr> <tr> <td> <table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#FFFFFF"> <form action="" name="form1" id="form1" method="post"> <tr> <td width="11%" bgcolor="#D9ECF7">所属分类:</td> <td width="89%" bgcolor="#D9ECF7"><table border="0" cellspacing="0" cellpadding="0"> <tr> <td><input name="fidstr" readonly type="text" class="inp" id="fidstr" size="50" value="<%= getlmdh("Jw_cityclass",fid) %>" onfocus="this.className='focus'" onblur="this.className='inp'" onclick="MM_openBrWindow('../selfid.asp?tab=Jw_cityclass&fid=<%= fid %>','','scrollbars=yes,resizable=yes,width=400,height=300')" style="cursor:hand;"/> <input name="fid" type="hidden" id="fid" value="<%= fid %>" /></td> <td width="40" align="center"><img src="../../images/admin/20061205172113303.gif" alt="浏览" width="27" height="20" onclick="MM_openBrWindow('../selfid.asp?tab=Jw_cityclass&fid=<%= fid %>','','scrollbars=yes,resizable=yes,width=400,height=300')" style="cursor:hand;"/></td> </tr> </table></td> </tr> <tr> <td bgcolor="#D9ECF7">城市名称:</td> <td bgcolor="#D9ECF7"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="45%"><input name="mc" type="text" class="inp" id="mc" size="50" onfocus="this.className='focus'" onblur="out_mc();this.className='inp'"/></td> <td width="55%"><div id="cmc"></div></td> </tr> </table></td> </tr> <tr> <td bgcolor="#D9ECF7">属 性:</td> <td bgcolor="#D9ECF7">置顶 <input type="checkbox" name="zd" value="1" id="zd" /> 审核 <input name="show" type="checkbox" id="show" value="0" checked="checked" /></td> </tr> <tr> <td colspan="2" bgcolor="#D9ECF7"><div id="msg"></div></td> </tr> <tr> <td colspan="2" bgcolor="#D9ECF7"><input onclick="goo('?action=aadd&fid=<%= fid %>')" name="go" type="button" class="button_1" id="go" value="提交" onmouseover="this.className='button_2'" onmouseout="this.className='button_1'"> <input name="reset" type="reset" class="button_1" id="reset" value="重置" onmouseover="this.className='button_2'" onmouseout="this.className='button_1'"/></td> </tr> </form> </table> </td> </tr> </table> </td> </tr> </table> <SCRIPT language="javascript" event="onkeydown" for="document"> if(event.keyCode==13&&event.srcElement.type!='button'&&event.srcElement.type!='submit'&&event.srcElement.type!='reset'&&event.srcElement.type!='textarea'&&event.srcElement.type!='') goo('?action=aadd&fid=<%= fid %>'); </SCRIPT> <% call connend() call foot() end sub '执行//////////////////////////////////////////////////////////////////////////////// sub aadd() call chkqx(6,1) '取值--------------------------------------------------------------------------- dim mc,qz,fid1,fpath,fpath1,show,zd,xid mc=getform("mc",1,1) fid1=getform("fid",2,1) qz=scpx("Jw_cityclass",fid1) show=getform("show",2,1) zd=getform("zd",2,1) if mc="" then call errs("名称不能留空") end if if fid1="" then fid1=0 end if if show="" then show=0 end if if zd="" then zd=0 end if if fid1=0 then fpath1="0," else fpath1=getmc("Jw_cityclass","id",fid1,"fpath") end if '更新数据----------------------------------------------------------------------- call record(rs,"select top 1 * from Jw_cityclass where 1=1",3) rs.addnew() rs("fid")=int(fid1) rs("fpath")=fpath1 rs("mc")=mc rs("qz")=qz rs("zd")=zd rs("show")=show rs.update() xid=rs("id") call recordend(rs) fpath=fpath1&xid&"," conn.execute("update Jw_cityclass set fpath='"&fpath&"' where id="&xid) if err.number>0 then call errs("有错误发生") end if call errs(0) end sub 'END///////////////////////////////////////////////////////////////////////// '修改 sub ups() call chkqx(6,2) set rs=conn.execute("select * from Jw_cityclass where id="&id) if rs.eof then call cc("记录不存在!") end if call head() %> <table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#116BAE"> <tr> <td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF"> <tr> <td id="tit"> <%= mytit %> || <a href="?action=add&fid=<%= fid %>">添加城市 </a>|| <a href="?action=px&fid=<%= fid %>">城市排序</a></td> </tr> <tr> <td> <table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#FFFFFF"> <form action="" name="form1" id="form1" method="post"> <tr> <td width="14%" bgcolor="#D9ECF7">所属分类:</td> <td width="86%" bgcolor="#D9ECF7"><table border="0" cellspacing="0" cellpadding="0"> <tr> <td><input name="fidstr" readonly type="text" class="inp" id="fidstr" size="50" value="<%= getlmdh("Jw_cityclass",rs("fid")) %>" onfocus="this.className='focus'" onblur="this.className='inp'" onclick="MM_openBrWindow('../selfid.asp?tab=Jw_cityclass&fid=<%= fid %>','','scrollbars=yes,resizable=yes,width=400,height=300')" style="cursor:hand;"/> <input name="fid" type="hidden" id="fid" value="<%= rs("fid") %>" /></td> <td width="40" align="center"><img src="../../images/admin/20061205172113303.gif" alt="浏览" width="27" height="20" onclick="MM_openBrWindow('../selfid.asp?tab=Jw_cityclass&fid=<%= fid %>','','scrollbars=yes,resizable=yes,width=400,height=300')" style="cursor:hand;"/></td> </tr> </table></td> </tr> <tr> <td bgcolor="#D9ECF7">名 称:</td> <td bgcolor="#D9ECF7"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="47%"><input name="mc" type="text" class="inp" id="mc" size="50" value="<%= rs("mc") %>" onfocus="this.className='focus'" onblur="out_mc();this.className='inp'"/></td> <td width="53%"><div id="cmc"></div></td> </tr> </table></td> </tr> <tr> <td bgcolor="#D9ECF7">属 性:</td> <td bgcolor="#D9ECF7">置顶 <input type="checkbox" name="zd" value="1" id="zd" <% If rs("zd")=1 Then Response.Write("checked") end if%>/> 审核 <input type="checkbox" name="show" value="0" id="show" <% If rs("show")=0 Then Response.Write("checked") end if%> /></td> </tr> <tr> <td colspan="2" bgcolor="#D9ECF7"><div id="msg"></div></td> </tr> <tr> <td colspan="2" bgcolor="#D9ECF7"><input onclick="goo('?action=doup&id=<%= rs("id") %>&fid=<%= fid %>')" name="go" type="button" class="button_1" id="go" value="提交" onmouseover="this.className='button_2'" onmouseout="this.className='button_1'"> <input name="reset" type="reset" class="button_1" id="reset" value="重置" onmouseover="this.className='button_2'" onmouseout="this.className='button_1'" /></td> </tr> </form> </table> </td> </tr> </table> </td> </tr> </table> <SCRIPT language="javascript" event="onkeydown" for="document"> if(event.keyCode==13&&event.srcElement.type!='button'&&event.srcElement.type!='submit'&&event.srcElement.type!='reset'&&event.srcElement.type!='textarea'&&event.srcElement.type!='') goo('?action=doup&id=<%= rs("id") %>&fid=<%= fid %>'); </SCRIPT> <% call connend() call foot() end sub '执行修改 sub doup() call chkqx(6,2) dim mc,fid1,fpath,fpath1,show,zd mc=getform("mc",1,1) fid1=getform("fid",2,0) show=getform("show",2,0) zd=getform("zd",2,0) if mc="" then call errs("名称不能留空") end if if fid1="" then fid1=0 end if if show="" then show=0 end if if zd="" then zd=0 end if if fid1=0 then fpath1="0,"&id&"," else fpath1=getmc("Jw_cityclass","id",fid1,"fpath")&id&"," end if dim fidy,fpathy fidy=getmc("Jw_cityclass","id",id,"fid") fpathy=getmc("Jw_cityclass","id",id,"fpath") '判断所属分类是否改变 if int(fidy)<>int(fid1) then if fidy=0 then call errs("一级栏目不能移动!") end if if instr(fpathy,fpath1)>0 then call errs("不能将城市转移到该栏目的子栏目下!") end if end if '更新记录 call record(rs,"select * from Jw_cityclass where id="&id,3) rs("fid")=fid1 rs("fpath")=fpath1 rs("mc")=mc rs("show")=show rs("zd")=zd rs.update call recordend(rs) '更新子目录 if fidy<>fid1 then '更新子目录 call record(rs,"select * from Jw_cityclass where instr(fpath,'"&fpathy&"')>0",3) if not rs.eof then rs("fpath")=replace(rs("fpath"),fpathy,fpath1) rs.update end if call recordend(rs) end if '结束///////////////////////////////////////////////////////////////////////////////////// if err.number>0 then call errs("有错误发生") end if call errs(0) end sub '删除 sub del() call chkqx(6,3) dim idstr,iid,i,fpath idstr=replace(Trim(Request.Form("idstr"))," ","") iid=split(idstr,",") for i=0 to ubound(iid) fpath=getmc("jw_cityclass","id",iid(i),"fpath") '删除子城市 conn.execute("delete * from Jw_cityclass where instr(fpath,'"&fpath&"')>0") '删除记录 conn.execute("delete * from Jw_cityclass where id="&iid(i)) next call connend() response.Redirect(request.ServerVariables("HTTP_REFERER")) end sub '城市排序 sub cdpx() call chkqx(6,2) sql="select * from Jw_cityclass where fid="&fid&" order by zd desc,qz asc" set rs=conn.execute(sql) call head() %> <table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#116BAE"> <tr> <td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF"> <tr> <td id="tit"><%= mytit %> || <a href="?action=add&fid=<%= fid %>">添加城市</a></td> </tr> <tr> <td> <table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF"> <tr> <td width="3%" align="center" bgcolor="#D9ECF7"><strong>ID</strong></td> <td width="60%" bgcolor="#D9ECF7"><strong>名称</strong></td> <td width="37%" align="center" bgcolor="#D9ECF7"><strong>权重</strong></td> </tr> <% dim i i=0 dim bgc do while not rs.eof if i mod 2=0 then bgc="#D2E9FF" else bgc="#D2E1EE" end if %> <form action="?action=qqzz&fid=<%= fid %>&id=<%= rs("id") %>" name="form" id="form" method="post"> <tr id="r<%=rs("id")%>" bgcolor=<%= bgc %> onMouseOver="museing(r<%=rs("id")%>,0,'<%= bgc %>')" onMouseOut="museing(r<%=rs("id")%>,1,'<%= bgc %>')"> <td align="center"><%= rs("id") %></td> <td><%= rs("mc") %> <% call tssx(rs("zd"),rs("show")) %></td> <td align="center"><input name="qz" type="text" class="btn" id="qz" size="8" value="<%= rs("qz") %>"> <input name="Submit" type="submit" class="btn2" value="更新"></td> </tr> </form> <% i=i+1 rs.movenext loop %> <tr> <td colspan="3" bgcolor="#EAF4FB"> </td> </tr> </table></td> </tr> </table></td> </tr> </table> <% call recordend(rs) call connend() call foot() end sub sub qqzz() if fid="" then fid=getmc("Jw_cityclass","id",id,"fid") end if call dopx("Jw_cityclass",fid,id,Trim(Request.Form("qz"))) call connend() response.Redirect(request.ServerVariables("HTTP_REFERER")) end sub '置顶////////////////////////////////////////////////////////////////////////////////////// sub zd() dim val val=1 if id<>"" then call uptab("Jw_cityclass","zd",val,"id",id) end if call connend() response.Redirect(request.ServerVariables("HTTP_REFERER")) end sub '取消置顶////////////////////////////////////////////////////////////////////////////////////// sub qxzd() dim val val=0 if id<>"" then call uptab("Jw_cityclass","zd",val,"id",id) end if call connend() response.Redirect(request.ServerVariables("HTTP_REFERER")) end sub '停用////////////////////////////////////////////////////////////////////////////////////// sub jy() dim val val=1 if id<>"" then call uptab("Jw_cityclass","show",val,"id",id) end if call connend() response.Redirect(request.ServerVariables("HTTP_REFERER")) end sub '起用////////////////////////////////////////////////////////////////////////////////////// sub qy() dim val val=0 if id<>"" then call uptab("Jw_cityclass","show",val,"id",id) end if call connend() response.Redirect(request.ServerVariables("HTTP_REFERER")) end sub %> <script language="javascript" src="/<%= hturl %>/inc/chk.js"></script> <script language="javascript"> function goo(act) { var chk=true; if (!out_mc()){chk=false;} if (chk==true){ GE("go").disabled="disabled"; GE("reset").disabled="disabled"; var fid=escape(GE("fid").value); var mc=escape(GE("mc").value); var zd; var show; if (GE("zd").checked) {zd=1;} else {zd=0;} if (GE("show").checked) {show=0;} else {show=1;} var Ajax = new oAjax(act,backs); var arrKey = new Array("fid","mc","show","zd"); var arrValue =new Array(fid,mc,show,zd); Ajax.Post(arrKey,arrValue); GE("msg").innerHTML=loading; function backs(str) { if(str=="0") { GE("msg").innerHTML=ok+" 操作成功"; window.location.href="?fid=<%= fid %>" } else {GE("msg").className="d_err"; GE("msg").innerHTML=err+" "+unescape(str); GE("go").disabled=""; GE("reset").disabled=""; }}}} </script>