www.gusucode.com > 漂亮的地方旅游景点景观介绍网站源代码 > admin/links/uclass.asp
<!--#include file="../config.asp" --> <% dim lx,tab lx=Trim(Request.QueryString("lx")) if lx="" then lx="gg" end if select case lx case "gg" tab="Jw_noticeclass" case "dh" tab="menu" case "info","" tab="Jw_aboutclass" case "honor" tab="Jw_honorclass" case "links" tab="Jw_linksclass" case "news" tab="Jw_newsclass" case "pic" tab="Jw_picclass" case "flv" tab="flvclass" case "por" tab="porclass" case "soft" tab="downclass" end select dim mc,link fid=getform("fid",2,0) if fid<>"" then mc=getmc(tab,"id",fid,"mc") if tab="Jw_aboutclass" then link=getmc(tab,"id",fid,"path")&"?id="&fid else link=getmc(tab,"id",fid,"path")&"?fid="&fid end if %> <script language="javascript"> opener.GE("mc").value="<%= mc %>"; opener.GE("link").value="<%= link %>"; closewin(); </script> <% end if mytit="链接选择" call head() %> <link href="../inc/mm.css" rel="stylesheet" type="text/css"> <table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF"> <tr> <td width="100%" id="tit"><strong>链接选择</strong></td> </tr> <form action="?lx=<%= lx %>" method="post" name="form1" id="form1"> <tr> <td bgcolor="#F1FBFE"> <select style="width:200px;" name="menu1" class="inp" onChange="MM_jumpMenu('parent',this,0)" onfocus="this.className='focus'" onblur="this.className='inp'"> <option>请选择</option> <option value="uclass.asp?lx=gg">公告</option> <option value="uclass.asp?lx=dh" <% If lx="dh" Then Response.Write("selected") end if%>>导航菜单</option> <option value="uclass.asp?lx=info" <% If lx="info" Then Response.Write("selected") end if%>>网站信息</option> <option value="uclass.asp?lx=honor" <% If lx="honor" Then Response.Write("selected") end if%>>图片展示</option> <option value="uclass.asp?lx=links" <% If lx="links" Then Response.Write("selected") end if%>>友情链接</option> <option value="uclass.asp?lx=news" <% If lx="news" Then Response.Write("selected") end if%>>文章</option> <option value="uclass.asp?lx=pic" <% If lx="pic" Then Response.Write("selected") end if%>>画册</option> <option value="uclass.asp?lx=flv" <% If lx="flv" Then Response.Write("selected") end if%>>视频</option> <option value="uclass.asp?lx=por" <% If lx="por" Then Response.Write("selected") end if%>>产品</option> <option value="uclass.asp?lx=soft" <% If lx="soft" Then Response.Write("selected") end if%>>软件</option> </select></td> </tr> <tr> <td bgcolor="#C5E3F3"><% call menu(0) %> </td> </tr> <tr> <td bgcolor="#C5E3F3"><input name="sel" type="submit" class="button_1" value="确认选择"onmouseover="this.className='button_2'" onmouseout="this.className='button_1'" /></td> </tr> </form> </table> <% call connend() call foot() sub menu(fid) dim rs call record(rs,"select * from "&tab&" where fid="&fid&" order by id asc",1) if rs.eof then '无子类 call recordend(rs) exit sub end if dim i i=1 do while not rs.eof %> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="16" valign="top" <% if fid>0 or (not i=rs.recordcount) then Response.Write("background=""images/line1.gif""") end if%>> <% if fid>0 then if i=rs.recordcount then %> <img src="/images/admin/line2.gif"> <% else %> <img src="/images/admin/line.gif"> <% end if end if %> </td> <td> <input name="fid" type="radio" value="<%= rs("id") %>"> <%= rs("mc") %> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td> <% call menu(rs("id")) %> </td> </tr> </table> </td> </tr> </table> <% i=i+1 rs.movenext if rs.eof then exit do loop rs.close set rs=nothing end sub %>