gusucode.com > 学校共青团组织网站源代码 > 学校共青团组织网站源代码/626/admin/admin_lm_edit.asp
<%
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">
<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">
<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">
<input type="submit" value="修改" name="B1"></p>
<p> </td>
</tr></form>
</table>
</div>
</body>
</html>
<%
conn.close
set conn=nothing
%>