www.gusucode.com > 艺帆全站DIV+CSS体育用品公司网站源码 1.7.5源码程序 > i5808/class_i5808.asp
<!--#include file="../Conn.asp" -->
<!--#include file="seeion.asp"-->
<!--#include file="inc.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link rel="stylesheet" type="text/css" id="css" href="images/style.css">
<title>修改后台显示栏目</title>
</head>
<body>
<form method="POST" action="class_i5808.asp?del=ok" id="form" name="form">
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="1" >
<tr>
<td height="30" background="images/bg_list.gif"><div style="padding-left:10px; font-weight:bold; color:#0075a9">修改后台显示栏目</div></td>
</tr>
<tr>
<td valign="top" bgcolor="#FFFFFF"><%if session("qx")=2 then%><table width="400" border="0" align="center" cellpadding="5" cellspacing="0" >
<tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='#F1F5F8'" bgcolor="#F1F5F8" >
<td height="28" width="16%" class="td">单页管理</td>
<td width="31%" class="td"><input name="shezhi" type="hidden" id="shezhi" value="1" />
<input name="left1" type="checkbox" id="left" value="1" <%
if left1="" then
else
response.Write("checked")
end if
%>/></td>
<td width="19%" class="td">文章管理</td>
<td width="34%" class="td"><input name="left2" type="checkbox" id="left2" value="1" <%
if left2="" then
else
response.Write("checked")
end if
%>/></td>
</tr>
<tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='#FFFFFF'" bgcolor="#FFFFFF">
<td height="25" width="16%" class="td">产品管理</td>
<td class="td"><input name="left3" type="checkbox" id="left3" value="1" <%
if left3="" then
else
response.Write("checked")
end if
%>/></td>
<td class="td">下载管理</td>
<td class="td"><input name="left4" type="checkbox" id="left4" value="1" <%
if left4="" then
else
response.Write("checked")
end if
%>/></td>
</tr>
<tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='#F1F5F8'" bgcolor="#F1F5F8">
<td height="25" width="16%" class="td">招聘管理</td>
<td class="td"><input name="left5" type="checkbox" id="left5" value="1" <%
if left5="" then
else
response.Write("checked")
end if
%>/></td>
<td class="td">会员管理</td>
<td class="td"><input name="left6" type="checkbox" id="left6" value="1" <%
if left6="" then
else
response.Write("checked")
end if
%>/></td>
</tr>
<tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='#FFFFFF'" bgcolor="#FFFFFF">
<td height="25" class="td">友情链接</td>
<td class="td"><input name="left7" type="checkbox" id="left7" value="1" <%
if left7="" then
else
response.Write("checked")
end if
%>/></td>
<td class="td">幻灯管理</td>
<td class="td"><input name="left8" type="checkbox" id="left8" value="1" <%
if left8="" then
else
response.Write("checked")
end if
%>/></td>
</tr>
<tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='#F1F5F8'" bgcolor="#F1F5F8">
<td height="25" class="td">留言管理</td>
<td class="td"><input name="left9" type="checkbox" id="left9" value="1" <%
if left9="" then
else
response.Write("checked")
end if
%>/></td>
<td colspan="2" class="td">不想显示的功能取消打钩即可</td>
</tr>
<tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='#F1F5F8'" bgcolor="#F1F5F8">
<td height="25" class="td"> </td>
<td colspan="3" class="td"><input name="cmdSave" type="submit" id="cmdSave" value=" 保存设置 " ></td>
</tr>
</table>
<%else%>
<div style=" padding:20px;font-size:14px; color:#990000; font-weight:bold; text-align:center">您没有权限操作！</div>
<%response.end
end if%></td>
</tr>
</table></form>
<%
if request("del")="ok" then
dim fso,hf
set fso=Server.CreateObject("Scripting.FileSystemObject")
set hf=fso.CreateTextFile(Server.mappath("inc.asp"),true)
hf.write "<" & "%" & vbcrlf
hf.write "Const left1=" & chr(34) & trim(request("left1")) & chr(34) & " " & vbcrlf
hf.write "Const left2=" & chr(34) & trim(request("left2")) & chr(34) & " " & vbcrlf
hf.write "Const left3=" & chr(34) & trim(request("left3")) & chr(34) & " " & vbcrlf
hf.write "Const left4=" & chr(34) & trim(request("left4")) & chr(34) & " " & vbcrlf
hf.write "Const left5=" & chr(34) & trim(request("left5")) & chr(34) & " " & vbcrlf
hf.write "Const left6=" & chr(34) & trim(request("left6")) & chr(34) & " " & vbcrlf
hf.write "Const left7=" & chr(34) & trim(request("left7")) & chr(34) & " " & vbcrlf
hf.write "Const left8=" & chr(34) & trim(request("left8")) & chr(34) & " " & vbcrlf
hf.write "Const left9=" & chr(34) & trim(request("left9")) & chr(34) & " " & vbcrlf
hf.write "Const shezhi=" & chr(34) & trim(request("shezhi")) & chr(34) & " " & vbcrlf
hf.write "%" & ">"
hf.close
set hf=nothing
set fso=nothing
Response.Write "<script>alert('恭喜!操作成功!');window.location.href='class_i5808.asp';</script>"
end if
%>
</body>
</html>