📄 admin_lanmu.asp
字号:
<%@ LANGUAGE = VBScript.Encode %>
<html>
<head>
<title>栏目管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../STYLE.CSS">
<script language="JavaScript">
<!--
function MM_goToURL() { //v3.0
var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
//-->
</script>
</head>
<body background="../IMAGES/bbsbg.gif">
<!--#include file="link.asp"--> <!--#include file="articleCHAR.INC"--> <br>
<%
if session("jaxe")<>"ok" then 'a
Response.Redirect "admin.asp"
response.end
else 'a
if Request.QueryString("job")="" then 'b
listlanmu
elseif Request.QueryString("job")="new" then 'b
newlanmu
elseif Request.QueryString("job")="edit" and Request.QueryString("classid")<>"" then 'b
editlanmu
elseif Request.QueryString("job")="del" and Request.QueryString("classid")<>"" then 'b
dellanmu
elseif Request.QueryString("job")="upnew" then 'b
upnew
elseif Request.QueryString("job")="upedit" and Request.QueryString("classid")<>"" then 'b
upedit
end if 'b
end if 'a
%>
<%sub listlanmu%>
<!--#include file="conn.asp"-->
<%
SQL="SELECT * FROM lanmu"
Set Rs=conn.Execute(SQL)
If Rs.Eof then%>
<p align="center">没有栏目</p>
<%else %>
<p align="center"><a href="admin_lanmu.asp?job=new">新栏目</a></p>
<%
do while not rs.eof
%>
<div align="center">栏目ID:<%=RS("id")%> ----- <a href="admin_lanmu.asp?job=edit&classid=<%=rs("id")%>"><%=rs("lanmu")%></a></div><br>
<% rs.movenext
loop
rs.close
end if
end sub%>
<%sub editlanmu%>
<form method="post" action="admin_lanmu.asp?job=upedit&classid=<%=Request.QueryString("classid")%>" name="edit">
<!--#include file="conn.asp"-->
<%sql="select * from lanmu where id="&Request.QueryString("classid")
Set Rs=conn.Execute(SQL)
If Rs.Eof then%>
<p align="center">没有栏目ID</p>
<%else %>
<table width="770" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td> </td>
</tr>
<tr>
<td height="42">
<table width="85%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="12%">
<div align="center">栏目ID</div>
</td>
<td width="29%">
<div align="center">栏目名字</div>
</td>
<td width="24%">
<div align="center">栏目相对URL </div>
</td>
<td width="24%">
<div align="center">栏目LOGO图相对URL</div>
</td>
</tr>
<tr>
<td width="12%">
<div align="center"><%=rs("id")%></div>
</td>
<td width="29%">
<div align="center">
<input type="text" name="lanmu" value="<%=rs("lanmu")%>" size="25" maxlength="90">
</div>
</td>
<td width="24%">
<div align="center">
<input type="text" name="lanmuurl" value="<%=rs("lanmuurl")%>" size="25" maxlength="90">
</div>
</td>
<td width="24%">
<div align="center">
<input type="text" name="lanmupic" value="<%=rs("lanmupic")%>" size="25" maxlength="90">
</div>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<div align="center">
<input type="submit" name="Subedit" value=" 修 改 ">
<input type="button" name="subdel" value=" 删 除 " onClick="MM_goToURL('parent','admin_lanmu.asp?job=del&classid=<%=rs("id")%>');return document.MM_returnValue">
</div>
</td>
</tr>
</table>
</form>
<%
end if
rs.close
end sub%>
<%sub newlanmu%>
<form method="post" action="admin_lanmu.asp?job=upnew">
<table width="770" border="0" cellspacing="0" cellpadding="0" align="center">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -