www.gusucode.com > 漂亮的地方旅游景点景观介绍网站源代码 > admin/selfid1.asp
<!--#include file="config.asp" -->
<%
sub menu(fid)
dim rs
set rs=conn.execute("select * from "&tab&" where fid="&fid&" order by id asc")
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" <% if fid=0 or (not i=rs.recordcount) then Response.Write("background=""images/line1.gif""") end if%>>
<% if i=rs.recordcount then %>
<img src="/images/admin/line2.gif">
<% else %>
<img src="/images/admin/line.gif">
<% end if %>
</td>
<td>
<input name="fid" type="radio" value="<%= rs("id") %>" <% If int(Trim(Request.QueryString("fid")))=rs("id") Then Response.Write("checked") end if%>> <%= 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
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>导航菜单</title>
<link href="inc/mm.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
background-color: #F8FCFE;
}
-->
</style>
<script language="javascript" src="inc/main.js"></script>
<%
dim tab
tab=Trim(Request.QueryString("tab"))
if Trim(Request.Form("fid"))<>"" then
%>
<script language="javascript">
opener.form1.fid.value="<%= Trim(Request.Form("fid")) %>";
opener.form1.fidstr.value="<%=getlmdh(tab,Trim(Request.Form("fid")))%>";
closewin();
</script>
<%
end if
%>
<link href="inc/mm.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
mytit="分类选择"
%>
<table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td id="tit"><strong>分类选择</strong></td>
</tr>
<form action="" method="post" name="form1" id="form1">
<tr>
<td bgcolor="#F1FBFE" valign="top">
<div style="height:25;">
<input name="fid" type="radio" value="0" <% If fid=0 Then Response.Write("checked") end if%>> <strong>根目录</strong></div>
<% call menu(0) %></td>
</tr>
<tr>
<td bgcolor="#C5E3F3"><input name="sel" type="submit" class="btn2" value="确认选择"/></td>
</tr>
</form>
</table>
<%
call connend()
call foot()
%>