📄 bbs_info_lei.asp
字号:
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
<%
mysteer=request("Root")
if mysteer="" or isnull(mysteer) then mysteer=0
name=request("name")
delid=request("del")
modi=request("modi")
steer=request("steer")
keys=request("keys")
if name<>"" then trim(name=replace(name,"'",""))
if request("M")="add" then
if name="" then
errmsg="\n增加分类时出错,分类名称未填写\n"
else
on error resume next
set rs=conn.execute("select max(steer) as maxsteer from bbs_info_lei where mysteer="&mysteer)
maxsteer=rs("maxsteer")
rs.close
if maxsteer="" or isnull(maxsteer) then maxsteer=0
if clng(maxsteer)=0 then
if clng(mysteer)=0 then
maxsteer=10
else
maxsteer=mysteer&"10"
end if
else
maxsteer=clng(maxsteer)+1
end if
if cint(right(maxsteer,2))>99 or cint(right(maxsteer,2))<10 then
errmsg="程序设置时出错，分类ID设置超出范围(10-99)"
else
set rs=server.createobject("adodb.recordset")
rs.open "select * from bbs_info_lei where name='"&name&"' and mysteer="&mysteer,conn,1,3
if not rs.eof then
errmsg="对不起，在该分类下已存在此名称，增加失败"
else
rs.addnew
rs("name")=name
rs("steer")=maxsteer
rs("mysteer")=mysteer
rs("sx")=0
rs("switch")=1
rs.update
rs.close
if err.number<>0 then
errmsg="写入数据库时出错："&err.description
else
errmsg="类别已经成功增加"
end if
end if
end if
end if
end if
if request("M")="chgsx" then
set rs=conn.execute("select * from bbs_info_lei where mysteer="&mysteer&" order by sx desc")
if not rs.eof then
do while not rs.eof
sxsteer=rs("steer")
sxkey=request.form("sx"&sxsteer)
if sxkey="" or isnull(sxkey) then sxkey=0
sxsql=sxsql&"update bbs_info_lei set sx="&sxkey&" where steer="&sxsteer&chr(13)
rs.movenext
loop
conn.execute(sxsql)
'response.write sxsql
end if
rs.close
end if
if delid<>"" then
set rs=conn.execute("select count(steer) from bbs_info_lei where mysteer="&delid)
delcount=rs(0)
rs.close
if delcount="" or isnull(delcount) then delcount=0
if clng(delcount)>0 then
errmsg="此分类下面还有子分类，删除无效"
else
conn.execute("delete from bbs_info_lei where steer="&delid)
errmsg="你选择的分类已删除"
end if
end if
if modi<>"" then
on error resume next
conn.execute("update bbs_info_lei set name='"&name&"' where steer="&modi)
if err.number<>0 then
errmsg="修改类别名称时出错："&err.description
else
errmsg="你要修改的类别已改为"&name
end if
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>类别管理</title>
<link rel="stylesheet" type="text/css" href="../css/style.css">
<script language=javascript>
<!--
function del(id){
if(confirm("你确定要删除此类别吗\n\n 如果此类别下还有分类，删除将无效")){
location.href="bbs_info_lei.asp?Root=<%=mysteer%>&del="+id;
}
}
function modi(id){
var myname;
myname=eval("document.userform.name"+id+".value")
location.href="?Root=<%=mysteer%>&modi="+id+"&name="+myname;
//window.open("modlei.asp?modid="+id,"newin","width=300,height=120,scrollbars=no")
}
function skey(id,key){
var mywidth=(window.screen.width-300)/2;
var myheight=(window.screen.height-120)/2;
window.open("bbs_info_lei_chgswitch.asp?Root=<%=mysteer%>&steer="+id+"&keys="+key,"newin","width=300,height=120,scrollbars=no,top="+myheight+",left="+mywidth);
}
function CheckAll()
{
for (var i=0;i<document.userform.elements.length;i++)
{
var e=document.userform.elements[i];
if ("checkbox" == e.type)
e.checked=document.userform.selectall.checked;
}
}
function Buttom_Click(keybod){
document.userform.iskey.value=keybod;
if(keybod==0){
if(confirm("你确定要删除此类别及此类别以下所有文章吗?")){
document.userform.submit();
}
}else {
document.userform.submit();
}
}
function chg_sx(){
document.forms("userform").action="bbs_info_lei.asp?M=chgsx&Root=<%=mysteer%>";
document.forms("userform").submit();
}
//-->
</script>
</HEAD>
<body>
<table width="98%" border="0" cellspacing="0" cellpadding="0" align=center class="tableBorder">
<tr>
<th height=25 class="tableHeaderText">商业资讯及论坛分类管理 </th>
</tr>
<tr>
<td class="forumRowHighlight"><p><B>注意</B>：<BR>
①类别直接与发布的信息相关联，删除类别可能会影响到以前发布的信息。<BR> </td>
</tr>
</table>
<br>
<form action="?M=mod&Root=<%=mysteer%>" method="post" name="userform">
<TABLE WIDTH="100%" BORDER="0" CELLSPACING="1" CELLPADDING="2" class="tableBorder" align=center>
<th height=25 class="tableHeaderText" colspan="4"><%
call getleiPath(mysteer)
response.write " ◣ <a href=bbs_info_lei.asp><font color=""#ffffff"">大类管理</font></a> ◣ "
function getleiPath(mysteer)
if clng(mysteer)=0 then exit function
set myrs=conn.execute("select name,steer,mysteer from bbs_info_lei where steer="&mysteer)
if myrs.eof then exit function
response.write " ◣ <a href=bbs_info_lei.asp?Root="&myrs("steer")&"><font color=""#ffffff"">"&myrs("name")&"</font></a>"
call getleiPath(myrs("mysteer"))
end function
%></th>
<TR height=25 class=bodytitle>
<TD width="7%" class=bodytitle ALIGN="CENTER">序号</TD>
<TD width="74%" class=bodytitle ALIGN="CENTER"><B>类别名称
<INPUT TYPE="hidden" NAME="Root" VALUE="<%=mysteer %>">
</B></TD>
<td width="7%" class=bodytitle ALIGN="CENTER"> <B>小类数目 </B></TD>
<TD width="5%" class=bodytitle ALIGN="CENTER"><B>状态</B></TD>
</TR>
<%
mysql="select *,(select count(steer) from bbs_info_lei as lei1 where lei1.mysteer=bbs_info_lei.steer) as nodecount from bbs_info_lei where mysteer="&mysteer&" order by sx asc"
set rs=conn.execute(mysql)
do while not rs.eof %>
<TR class=forumRow>
<TD ALIGN="CENTER" width="7%" class=forumRow> <input type="text" name="sx<%=rs("steer") %>" size="5" maxlength="4" value=<%=rs("sx") %>> </TD>
<TD ALIGN="CENTER" width="74%" class=forumRow> <INPUT TYPE="text" NAME="name<%=rs("steer") %>" SIZE="20" value="<%=rs("name") %>">
<%
response.write "<A HREF='?Root="&rs("steer")&"'>子类管理</A> "
%>
| <A HREF="javascript:del(<%=rs("steer")%>)">删除</A> | <A HREF="javascript:modi(<%=rs("steer")%>)">修改</A> |
<% if rs("switch") then
response.write "<a href=javascript:skey("&rs("steer")&",0)>作为论坛列表</a>"
else
response.write "<a href=javascript:skey("&rs("steer")&",1)><font color=blue>共有列表</b></a> "
end if
%> </TD>
<td width="7%" align="center" class=forumRow> <%=rs("nodecount") %> </TD>
<TD ALIGN="CENTER" width="5%" class=forumRow><B>
<% if not rs("switch") then
response.write "<FONT COLOR='#FF0000'>论坛</FONT>"
else
response.write "<FONT COLOR='#009900'>共有</FONT>"
end if
%>
</B></TD>
</TR>
<% rs.movenext
loop
rs.close %>
<TR>
<TD ALIGN="CENTER" COLSPAN="6" class=forumrowHighLight> <input type="button" name="Submit2" value="更改序号" onclick=chg_sx()> </TD>
</TR>
</TABLE>
</form>
<TABLE WIDTH="100%" BORDER="0" ALIGN="CENTER" CELLSPACING="1" CELLPADDING="2" class="tableBorder">
<th height=25 class="tableHeaderText">新增商业资讯及论坛分类</th>
<form method="post" action="?M=add&Root=<%=mysteer%>">
<TR ALIGN="CENTER">
<TD class=forumRow><B>新增类别：
<INPUT TYPE="text" NAME="name">
<INPUT TYPE="submit" NAME="Submit" VALUE="增加">
</B></TD>
</TR>
</form>
</TABLE>
</td>
</tr>
</table>
<% if errmsg<>"" then response.write "<script language=javascript> alert("&chr(34)&errmsg&chr(34)&");</script>" %>
<br>
<!--#include file="../copy.asp" -->
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -