<%
if session("dj")<>"1" then
   Response.Write "<BR><BR><BR><BR><center>权限不足，你没有此功能的管理权限"
   Response.end
end if
%>
<%
if session("admin__user")="" then
  Response.Redirect "login.asp?id=8"
end if
%>
<!--#include file = admin_conn.asp -->
<html>

<head>
<!--#include file = language.asp -->
<title>新建网页 1</title>
<STYLE type="text/css">
<!--
a:link       {text-decoration: none; font-family: AdobeSm; color: #000000 }
a:visited    {text-decoration: none; color: #000000 }
A:hover      {COLOR: green; FONT-FAMILY: "宋体,MingLiU"; TEXT-DECORATION: underline}
body         {font-size: 9pt; font-family: 宋体,MingLiU, Arial;color: #000000}
TD           {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000;table-layout:fixed;word-break:break-all}
p            {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000}
input        {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000}
body         {margin-top: 0; margin-bottom: 0;margin-left:0;margin-right:0; color: #000000}
select       {FONT-SIZE: 9PT;}
option       {FONT-SIZE: 9pt;}
textarea     {FONT-SIZE: 9pt;}
-->
</STYLE>
</head>

<body bgcolor="#EFEFDE">
<%
  id=request("id")
  sql = "select * from lm where id="&id
  Set rs = Server.CreateObject("ADODB.RecordSet")
  rs.Open sql,conn,1,1
  if trim(rs("lm3"))<>"" then 
  	lm=rs("lm3")
  elseif trim(rs("lm2"))<>"" then
    lm=rs("lm2")
  elseif trim(rs("lm"))<>"" then 
    lm=rs("lm")
  end if
  fontcolor=rs("fontcolor")
  titlecolor=fontcolor
  pic=rs("pic")
  rs.close
  set rs=nothing
%>
<div align="center">
	<table border="0" width="400" id="table1">
		<form method="POST" action="admin_lm_edit_save.asp?id=<%=id%>" onsubmit="return FrontPage_Form1_Validator(this)" language="JavaScript" name="FrontPage_Form1">
		<tr>
			<td>
			　</td>
		</tr>
		<tr>
			<td>
			　</td>
		</tr>
		<tr>
			<td>
			<p align="center"><span style="font-size: 10.5pt">修改新闻信息栏目</span></td>
		</tr>
		<tr>
			<td>
			　</td>
		</tr>
		<tr>
			<td>
			<p align="center"><span style="font-size: 9pt">(<%=lm%>)的新闻数量是<%=request("xwsl")%></span></td>
		</tr>
		<tr>
			<td>
			<div align="center">
				<table border="0" cellpadding="3" cellspacing="0" width="394" id="table2">
					<tr>
						<td width="102" align="center">栏目默认颜色</td>
						<td width="280">
						&nbsp;<select size="1" name="fontcolor">
							<option>请选择</option>
					<%
					ii=255
					for i=16 to 255
						Randomize
						an=""
						an= int((255-16+1) * RND +16)
						a=hex(i)
						b=hex(ii)
						c=hex(i)
						'i=i+99
						ccc=a+b+c
						'Response.Write i&":<font color="&ccc&">"&CCC&"</font><br>"
						%>
						<OPTION <% if titlecolor="#"&ccc&"" then response.write " selected "%>  value="#<%=ccc%>" style="background-color:#<%=ccc%>"></OPTION>
						
						<%
						ii=ii-1
					next
					ii=255
					for i=16 to 255
						Randomize
						an=""
						an= int((255-16+1) * RND +16)
						a=hex(i)
						b=hex(ii)
						c=hex(ii)
						'i=i+99
						ccc=a+b+c
						'Response.Write i&":<font color="&ccc&">"&CCC&"</font><br>"
						%>
						<OPTION <% if titlecolor="#"&ccc&"" then response.write " selected "%>  value="#<%=ccc%>" style="background-color:#<%=ccc%>"></OPTION>
						
						<%
						ii=ii-1
					next
					ii=255
					for i=16 to 255
						Randomize
						an=""
						an= int((255-16+1) * RND +16)
						a=hex(i)
						b=hex(i)
						c=hex(i)
						'i=i+99
						ccc=a+b+c
						'Response.Write i&":<font color="&ccc&">"&CCC&"</font><br>"
						%>
						<OPTION <% if titlecolor="#"&ccc&"" then response.write " selected "%>  value="#<%=ccc%>" style="background-color:#<%=ccc%>"></OPTION>
						
						<%
						ii=ii-1
					next
					%>							
	            <OPTION <%if fontcolor="#000000" then response.write "selected"%> value="#000000" style="background-color:#000000"></OPTION>
                <OPTION <%if fontcolor="#FFFFFF" then response.write "selected"%> value="#FFFFFF" style="background-color:#FFFFFF"></OPTION>
                <OPTION <%if fontcolor="#008000" then response.write "selected"%> value="#008000" style="background-color:#008000"></OPTION>
                <OPTION <%if fontcolor="#800000" then response.write "selected"%> value="#800000" style="background-color:#800000"></OPTION>
                <OPTION <%if fontcolor="#808000" then response.write "selected"%> value="#808000" style="background-color:#808000"></OPTION>
                <OPTION <%if fontcolor="#000080" then response.write "selected"%> value="#000080" style="background-color:#000080"></OPTION>
                <OPTION <%if fontcolor="#800080" then response.write "selected"%> value="#800080" style="background-color:#800080"></OPTION>
                <OPTION <%if fontcolor="#808080" then response.write "selected"%> value="#808080" style="background-color:#808080"></OPTION>
                <OPTION <%if fontcolor="#FFFF00" then response.write "selected"%> value="#FFFF00" style="background-color:#FFFF00"></OPTION>
                <OPTION <%if fontcolor="#00FF00" then response.write "selected"%> value="#00FF00" style="background-color:#00FF00"></OPTION>
                <OPTION <%if fontcolor="#00FFFF" then response.write "selected"%> value="#00FFFF" style="background-color:#00FFFF"></OPTION>
                <OPTION <%if fontcolor="#FF00FF" then response.write "selected"%> value="#FF00FF" style="background-color:#FF00FF"></OPTION>
                <OPTION <%if fontcolor="#FF0000" then response.write "selected"%> value="#FF0000" style="background-color:#FF0000"></OPTION>
                <OPTION <%if fontcolor="#0000FF" then response.write "selected"%> value="#0000FF" style="background-color:#0000FF"></OPTION>
                <OPTION <%if fontcolor="#008080" then response.write "selected"%> value="#008080" style="background-color:#008080"></OPTION>
					</select></td>
					</tr>
					<tr>
						<td width="102" align="center">栏目名称</td>
						<td width="280">
				<input type="text" name="lm" size="20" value="<%=lm%>"></td>
					</tr>
					<tr>
						<td width="102" align="center">图片新闻</td>
						<td width="280">
				&nbsp;<select size="1" name="pic">
							<option <%if pic="0" then Response.Write " selected "%> value="0">不显示</option>
							<option <%if pic="1" then Response.Write " selected "%> value="1">显示</option>

					</select> 当有图片时，在标题后显示[图]。</td>
					</tr>
				</table>
			</div>
			</td>
		</tr>
		<tr>
			<td>
			
				<p align="center">
				&nbsp;<input type="submit" value="修改" name="B1"></p>
			
			<p>　</td>
		</tr></form>
	</table>
</div>
</body>

</html>
<%
  conn.close
  set conn=nothing
%>