📄 classlist.asp
字号:
<!--#include file=conn.asp-->
<%
if session("adminname")="" then
response.write "<script language='javascript'>" & chr(13)
response.write "window.document.location.href='login.asp';"&Chr(13)
response.write "</script>" & Chr(13)
Response.End
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN""http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="images/style.css" type=text/css rel=stylesheet>
<title>米儿文章管理系统</title>
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
}
-->
</style></head>
<body>
<p> </p>
<p> </p>
<%
Function DeleFile(FilePath)
On Error Resume Next
Set Del=Server.CreateObject("Scripting.FileSystemObject")
if Err <> 0 Then
DelFile="该空间不支持FSO组件，无法删除文件！"
else
if InStr(FilePath, ",") > 0 then
FilePath=Split(FilePath,",")
For i = 0 to ubound(FilePath)
If Del.FileExists(Server.MapPath(FilePath))=True Then Del.DeleteFile Server.MapPath(FilePath(i)),true
Next
Else
If Del.FileExists(Server.MapPath(FilePath))=True Then Del.DeleteFile Server.MapPath(FilePath),true
End if
End if
Set Del=Nothing
End Function
mi222=trim(request("mi222"))
%>
<%
if mi222="" then
%>
<TABLE cellSpacing=1 width=600 bgColor=#1b7bce border=0>
<TBODY>
<TR bgColor=#ffffff>
<TD colspan="2" class=title2>分类管理</TD>
</TR>
<TR bgColor=#ffffff>
<TD height="30" colspan="2"><strong><a href="classlist.asp?mi222=add&bigclass=mi222">添加一级分类</a></strong></TD>
</TR>
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from mi222class order by bigclass,id"
rs.Open sql,conn,1,1
if rs.bof and rs.eof then
%>
<TR bgColor=#ffffff>
<TD height="30" colspan="2">暂无分类信息！</TD>
</TR>
<%
else
for i=1 to rs.recordcount
if rs("smaclass")="mi222" then
%>
<TR bgColor=#cccccc >
<TD width="378"><div align="left"> <img src="images/plus.gif" width="18" height="18"><strong><%=rs("bigclass")%></strong></div></TD>
<TD width="215"><div align="left"> <a href="classlist.asp?mi222=edi&bigclass=<%=rs("bigclass")%>&smaclass=mi222&classkey=<%=rs("classkey")%>&id=<%=rs("id")%>">修改分类</a> <a href="classlist.asp?mi222=del&bigclass=<%=rs("bigclass")%>&smaclass=mi222">删除分类</a> <a href="classlist.asp?mi222=add&bigclass=<%=rs("bigclass")%>">添加二级分类</a></div></TD>
</TR>
<%
else
%>
<TR bgColor=#ffffff>
<TD bgcolor="#ffffff"><div align="left"> <img src="images/nofollow.gif" width="18" height="18">├ - - - - <%=rs("smaclass")%></div></TD>
<TD bgcolor="#ffffff"><div align="left"> <a href="classlist.asp?mi222=edi&bigclass=<%=rs("bigclass")%>&smaclass=<%=rs("smaclass")%>&classkey=<%=rs("classkey")%>&id=<%=rs("id")%>">修改分类</a> <a href="classlist.asp?mi222=del&bigclass=<%=rs("bigclass")%>&smaclass=<%=rs("smaclass")%>">删除分类</a></div></TD>
</TR>
<%
end if
rs.movenext
if rs.eof then exit for
next
end if
rs.close
%>
</TBODY>
</TABLE>
<%
elseif mi222="add" then
%>
<%
bigclass=trim(request("bigclass"))
%>
<TABLE cellSpacing=1 width=600 bgColor=#1b7bce border=0>
<TBODY>
<TR bgColor=#ffffff>
<TD class=title2 >添加分类</TD>
</TR>
<form name="form1" method="post" action="classlist.asp?mi222=addok">
<TR bgColor=#ffffff>
<TD height="30"><div align="left"> 上 级 分 类：
<select name="classlist" id="classlist">
<%
if bigclass<>"mi222" then
%>
<option value="mi222" selected>├ 一级分类</option>
<option value="<%=bigclass%>" selected> ├ <%=bigclass%></option>
<%
else
%>
<option value="mi222" selected>├ 一级分类</option>
<%
end if
%>
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from mi222class order by bigclass,id"
rs.Open sql,conn,1,1
if not rs.bof and not rs.eof then
%>
<%
for i=1 to rs.recordcount
if rs("smaclass")="mi222" and bigclass<>rs("bigclass") then
%>
<option value=<%=rs("bigclass")%>> ├ <%=rs("bigclass")%></option>
<%
end if
rs.movenext
if rs.eof then exit for
next
end if
rs.close
%>
</select>
</div></TD>
</TR>
<TR bgColor=#ffffff>
<TD height="30"><div align="left"> 分 类 名 称：
<input name="classname" type="text" id="classname" size="12">
</div></TD>
</TR>
<TR bgColor=#ffffff>
<TD height="30"><div align="left"> 分类 关键字：
<input name="classkey" type="text" id="classkey" size="50" maxlength="255">
</div></TD>
</TR>
<TR bgColor=#ffffff>
<TD height="30"><input name="Submit" type="submit" value="添加新分类"></TD>
</TR>
</form>
</TBODY>
</TABLE>
<%
elseif mi222="edi" then
%>
<%
bigclass=trim(request("bigclass"))
smaclass=trim(request("smaclass"))
classkey=trim(request("classkey"))
id=trim(request("id"))
%>
<TABLE cellSpacing=1 width=600 bgColor=#1b7bce border=0>
<TBODY>
<TR bgColor=#ffffff>
<TD class=title2 >修改分类</TD>
</TR>
<form name="form1" method="post" action="classlist.asp?mi222=ediok">
<TR bgColor=#ffffff>
<TD height="30"><div align="left"> 上 级 分 类：
<select name="classlist" id="classlist">
<%
if smaclass="mi222" then
%>
<option value="mi222" selected>├ 一级分类</option>
<%
else
%>
<option value="mi222" selected>├ 一级分类</option>
<option value="<%=bigclass%>" selected> ├ <%=bigclass%></option>
<%
end if
%>
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from mi222class order by bigclass,id"
rs.Open sql,conn,1,1
if not rs.bof and not rs.eof then
%>
<%
for i=1 to rs.recordcount
if rs("smaclass")="mi222" and rs("bigclass")<>bigclass then
%>
<option value=<%=rs("bigclass")%>> ├ <%=rs("bigclass")%></option>
<%
end if
rs.movenext
if rs.eof then exit for
next
end if
rs.close
%>
</select>
</div></TD>
</TR>
<TR bgColor=#ffffff>
<TD height="30"><div align="left"> 分 类 名 称：
<%
if smaclass<>"mi222" then
classname=smaclass
else
classname=bigclass
end if
%>
<input name="classname" type="text" id="classname" value="<%=classname%>" size="12">
<input name="id" type="hidden" id="id" value="<%=id%>" size="12">
</div></TD>
</TR>
<TR bgColor=#ffffff>
<TD height="30"><div align="left"> 分类 关键字：
<input name="classkey" type="text" id="classkey" value="<%=classkey%>" size="50" maxlength="255">
</div></TD>
</TR>
<TR bgColor=#ffffff>
<TD height="30"><input name="Submit" type="submit" value="修改分类"></TD>
</TR>
</form>
</TABLE>
<%
elseif mi222="addok" then
classlist=trim(request.Form("classlist"))
classname=trim(request.Form("classname"))
classkey=trim(request.Form("classkey"))
if classlist="mi222" then
bigclass=classname
smaclass=classlist
else
bigclass=classlist
smaclass=classname
end if
if classname="" then
Response.Write("<script>alert('请填写分类名称!');history.go(-1)</script>")
Response.End
elseif classkey="" then
Response.Write("<script>alert('请填写分类关键字!');history.go(-1)</script>")
Response.End
else
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from mi222class where bigclass='"& bigclass &"' and smaclass='"& smaclass &"'"
rs.Open sql,conn,1,3
if rs.bof or rs.eof then
rs.addnew
rs("bigclass")=bigclass
rs("smaclass")=smaclass
rs("classkey")=classkey
rs.update
rs.close
response.write "<script language='javascript'>" & chr(13)
response.write "alert('分类添加成功！');" & Chr(13)
response.write "window.document.location.href='classlist.asp';"&Chr(13)
response.write "</script>" & Chr(13)
Response.End
else
rs.close
Response.Write("<script>alert('该文章类已经存在!');history.go(-1)</script>")
Response.End
end if
end if
%>
<%
elseif mi222="ediok" then
classlist=trim(request.Form("classlist"))
classname=trim(request.Form("classname"))
classkey=trim(request.Form("classkey"))
id=trim(request.Form("id"))
if classlist="mi222" then
bigclass=classname
smaclass=classlist
else
bigclass=classlist
smaclass=classname
end if
if classname="" then
Response.Write("<script>alert('请填写分类名称!');history.go(-1)</script>")
Response.End
elseif classkey="" then
Response.Write("<script>alert('请填写分类关键字!');history.go(-1)</script>")
Response.End
else
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from mi222class where bigclass='"& bigclass &"' and smaclass='"& smaclass &"' and cstr(id)<>'"& id &"'"
rs.Open sql,conn,1,1
if rs.bof or rs.eof then
rs.close
sql="select * from mi222class where cstr(id)='"& id &"'"
rs.Open sql,conn,1,3
if rs.bof or rs.eof then
rs.close
Response.Write("<script>alert('分类ID错误!');history.go(-1)</script>")
Response.End
else
rs("bigclass")=bigclass
rs("smaclass")=smaclass
rs("classkey")=classkey
rs.update
rs.close
response.write "<script language='javascript'>" & chr(13)
response.write "alert('分类修改成功！');" & Chr(13)
response.write "window.document.location.href='classlist.asp';"&Chr(13)
response.write "</script>" & Chr(13)
Response.End
end if
else
rs.close
Response.Write("<script>alert('此分类已存在!');history.go(-1)</script>")
Response.End
end if
end if
%>
<%
elseif mi222="del" then
bigclass=trim(request("bigclass"))
smaclass=trim(request("smaclass"))
if smaclass="mi222" then
sql="delete from mi222class where bigclass='"& bigclass &"'"
else
sql="delete from mi222class where smaclass='"& smaclass &"'"
end if
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,3
response.write "<script language='javascript'>" & chr(13)
response.write "alert('分类删除成功！');" & Chr(13)
response.write "window.document.location.href='classlist.asp';"&Chr(13)
response.write "</script>" & Chr(13)
Response.End
%>
<%
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -