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>