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") %>">&nbsp;<%= 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
%>