<%
if Request.Cookies("admindj")<>"1" then
   Response.Write "<BR><BR><BR><BR><center>权限不足，你没有此功能的管理权限"
   Response.end
end if
%>

<head>
<!--#include file = admin_chk.asp -->
<!--#include file = language.asp -->
<style>
<!--
a:link       { font-size: 9pt; font-family: 宋体; color: #000000;text-decoration: none; }
a:visited    { color: #000000; font-family: 宋体; font-size: 9pt;text-decoration: none; }
a:hover      { font-size: 9pt; font-family: 宋体; color: #000000;TEXT-DECORATION: underline; }
body         { font-family: 宋体; color: #000000; font-size: 9pt }
p            { color: #000000; font-family: 宋体; font-size: 9pt }
td           { font-size: 9pt; font-family: 宋体; color: #000000 }
input        { font-size: 9pt; font-family: 宋体; color: #000000 }

-->
</style>
<script language="JavaScript">
<!--
function FP_jumpMenu(el,frm,sel) {//v1.0
 var href=el.options[el.selectedIndex].value; if(sel) el.selectedIndex=0;
 if('_new'==frm) open(href); else eval(frm+".location='"+href+"'");
}
// -->
</script>
</head>

<!--#include file = admin_conn.asp -->
<body bgcolor="#EFEFDE">

<div align="center">
<table border="0" width="100%" id="table1" cellpadding="5" height="100%" bordercolor="#CCCCCC" style="border-collapse: collapse">
	<tr>
		<td>
		<div align="center">
			<table border="1" width="500" id="table2" style="border-collapse: collapse" bordercolor="#CCCCCC" cellspacing="0" cellpadding="6">
				<tr>
					<td width="400" bgcolor="#CCCCCC">
					<font face="Wingdings">1</font><b>&nbsp;请为《<%=trim(request("lmname"))%>》设置模版</b></td>
					<td width="73" bgcolor="#CCCCCC">
					<p align="right"><a href="admin_MB.asp" title="模版管理">
					<font face="Wingdings 2" size="3">R</font></a>
					<a href="admin_news_lm.asp" title="返回栏目列表">
					<font face="Wingdings 2" size="3">Q</font></a></td>
				</tr>
				<tr>
					<td colspan="2"><p align="center">
		　<p align="center">
		<select size="1" onchange="FP_jumpMenu(this,'window',false)" id="id1" name="D1">
		<option value>请选择模版</option>
<%
sql = "select id,title from newsmb where lx='1' order by id desc"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
while not rs.eof
  response.write "<option value=admin_lm_mb2.asp?id="&request("id")&"&mbid="&rs("id")&"&lm1id="&trim(request("id"))&"&lmname="&trim(request("lmname"))&">"&rs("title")&"</option>"
rs.movenext
wend
%>
		</select><p>　</td>
				</tr>
			</table>
			<p>　</p>
			<p>　</div>
		</td>
	</tr>
</table></div>

