www.gusucode.com > 学校共青团组织网站源代码 > 学校共青团组织网站源代码/626/admin/admin_lm_mb.asp
<%
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> 请为《<%=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>