📄 cat_config_manage.asp
字号:
<!--#include file="../conn.asp" -->
<!--#include file="admin_lib.asp" -->
<%
'==============================
'checkadmin
Username=Session("username"&dlog_session)
Password=Session("password"&dlog_session)
if username="" or password="" then
Username=replace(request.Cookies(dlog_cookies_name)("Username"),"'","")
Password=replace(request.Cookies(dlog_cookies_name)("Password"),"'","")
end if
sql= "SELECT isad FROM User_MDB where username = '" & Username & "' and password='" & Password & "'"
set rs_inc=conn.Execute(sql)
if not (rs_inc.BOF or rs_inc.eof) then
ulogin="true"
Session("username"&dlog_session) = Username
Session("password"&dlog_session) = Password
Session("isad"&dlog_session)=rs_inc("isad")
isad=Session("isad"&dlog_session)
end if
rs_inc.Close()
set rs_inc=nothing
if isad<>-1 then
Redirect "index.asp","不是真正管理员哦"
end if
'==============================
%>
<html>
<head>
<title>LOG MANAGE</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../styles.css">
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
<table width="728" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td align="center">
<%if not (isad=-1 and Ulogin="true") then
message "对不起，你没有操作权限"
response.end
end if%>
<table width="80%" border="0" cellspacing="1" cellpadding="3" bgcolor="#f0f0f0">
<form name=form1 method="POST" action="cat_config.asp">
<tr>
<td><b>修改分类样式，请选择要修改的分类：</b></td>
</tr>
<tr>
<td bgcolor="#FFFFFF">
<select name=cat_id id=cat_id>
<option value=0>主样式</option>
<!--#include file="../cat_list.asp" -->
</select>
<input type="hidden" name="cat_action" value="edit_config">
</td>
</tr>
<tr>
<td align="right">
<input type="submit" name="Submit22" value="编辑样式">
</td>
</tr>
</form>
</table>
<br>
<table width="80%" border="0" cellspacing="1" cellpadding="3" bgcolor="#f0f0f0">
<tr>
<td><b>已被设置样式的分类：</b></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> <%
sql="SELECT log_cat_id from log_config where log_cat_id<>0"
set tempc=conn.EXECUTE(sql)
do while not tempc.eof
cat_id=tempc("log_cat_id")
sql="select cat_name from log_cat where id="&cat_id
set tempn=conn.EXECUTE(sql)
if tempn.eof or tempn.bof then
cat_name="the cat was deleted"
else
cat_name=tempn("cat_name")
end if
tempn.close
set tempn=nothing
response.write cat_name
response.write " <a href='cat_config.asp?cat_id="&cat_id&"&cat_action=edit_config'>编辑样式</a> | <a href='cat_config.asp?cat_id="&cat_id&"&cat_action=del_config'>删除样式</a><br>"
tempc.movenext
loop
tempc.close
set tempc=nothing
%>
</td>
</tr>
</table>
<p> </p></td>
</tr>
</table>
</body>
</html>
<%
conn.close
set conn=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -