📄 admin_add_class.asp
字号:
<!--#include file=admin_login_check.asp-->
<%
IF Request.QueryString("Action")="add" Then
call BBSSET
elseIF Request.QueryString("Action")="edit" Then
call edit
elseIF Request.QueryString("Action")="del" Then
call del
else
call main
end if
Function BBSSET
%>
<form name="pollform3sdx" method="post" action="admin_add_class.asp?Action=add">
<p style="margin-left:15px;">
<b>添加文件栏目</b></p>
<input type="hidden" name="SubmitFlag" value=yes>
<table width="100%" border="0" align="center" cellpadding="8" cellspacing="0">
<tr>
<td align="center">
<%
If Request("SubmitFlag") <> "" Then
Addbbsboards
Exit Function
Else
DisplayBBSSet
End If
%>
</td></tr>
<tr>
<td align="center">
<input type=submit name=提交 value=提 交 class=fmbtn>
<input type=reset name=取消 value=清 除 class=fmbtn>
</td>
</tr>
</table>
</form>
<%
End Function
Function DisplayBBSSet
%>
<table width="100%" border=0 align="center" cellpadding=5 cellspacing=1 bgcolor="#FF0000" class=TBone>
<tr bgcolor=#f7f7f7 class=TBBG9>
<td class="tar">栏目名称:</td>
<td><input name="name" type="text" class=fminpt id="boardName" size="30" maxlength="50">
<font color=gray>(栏目名称，50字，必填)</font></td>
</tr>
<tr bgcolor=#f7f7f7 class=TBBG9>
<td class="tar">栏目类型:</td>
<td><select name="classID">
<option value="1">图像类</option>
<option value="2">音像类</option>
<option value="3">软件类</option>
</select>
<font color=gray>(栏目类型，选择要新建的栏目类型)</font></td>
</tr>
<tr bgcolor=#f7f7f7 class=TBBG9>
<td class="tar">栏目换行:</td>
<td><select name="wh">
<option value="true">栏目后自动换行</option>
<option value="false">栏目后不换行</option>
</select>
<font color=gray>(栏目换行，栏目后是否换行)</font></td>
</tr>
<tr bgcolor=#f7f7f7 class=TBBG9>
<td valign="top">栏目说明:<br/>支持UBB</td>
<td><textarea rows="15" name="title" cols="63" > </textarea></td>
</tr>
</table>
<%
End Function
Function Addbbsboards
dim flag,errmsg,id,name,classID,pid,wh
flag=1
errmsg="<ul><font color=red>"
name=TRim(Request.Form("name"))
cat=Request.Form("title")
wh=TRim(Request.Form("wh"))
classID=TRim(Request.Form("classID"))
if wh="" then errmsg=errmsg&"<li>栏目换行不能为空</li>":flag=0
if name="" then errmsg=errmsg&"<li>栏目名称不能为空</li>":flag=0
if cat="" then errmsg=errmsg&"<li>栏目说明不能为空</li>":flag=0
if classID="" then errmsg=errmsg&"<li>栏目类型不能为空</li>":flag=0
if flag<>0 then
Dim sql,rs
set rs=server.CreateObject("adodb.recordset")
sql="select * from uclass"
rs.open sql,conn,1,3
rs.addnew()
rs("cat")=cat
rs("class")=name
rs("classID")=classID
rs.update()
rs.MoveLast
id=rs("cid")
Rs.close
set rs=nothing
set rs=server.CreateObject("adodb.recordset")
sql="select * from main order by pid asc"
rs.open sql,conn,1,3
if not (rs.bof and rs.eof) then
rs.MoveLast
pid=rs("pid")
else
pid=0
end if
rs.addnew()
rs("br")=wh
rs("title")=name
rs("url")="upfile.asp?id="&id
rs("pid")=pid+1
rs("class")="true"
rs.update()
Rs.close
set rs=nothing
Response.Write("成功添加名为<font color='red'>"&name&"</font>的栏目！")
Response.Write("<br/><a href='admin_add_class.asp'>返回文件栏目</a>")
errmsg=errmsg&"</font></ul>"
else
Response.Write("由于以下原因，设置没有成功，请<a href='javascript:history.back()'>返回</a>修改：<br>"&errmsg&"<br><button onclick='javascript:history.back()'>返回修改</button>")
end if
End Function
Function main%>
<form name="pollform3sdx" method="post" action="admin_add_class.asp">
<p style="margin-left:15px;">
<b>文件栏目</b><br/>
<% if session("flag")="1" or session("flag")="2" then%>
<a href='admin_add_class.asp?Action=add'>添加文件栏目</a>
<%end if%>
</p>
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#FF0000" >
<tr bgcolor="#799ae1">
<td class="blu">ID</td>
<td class="blu">文件栏目名称</td>
<td class="blu">操作</td>
</tr>
<%
dim sql,h,i
Set Rs = Server.CreateObject("Adodb.Recordset")
Sql = "SELECT * FROM uclass order by cid desc"
Rs.Open Sql,conn,1,1
if not (rs.bof and rs.eof) then
For i=1 to rs.RecordCount
If Rs.Eof Then
exit For
End If
%>
<tr bgcolor="#eeeeee" class=TBBG9>
<td width="10%"><%=rs("cid")%></td>
<td width="35%"><a href="admin_class.asp?cid=<%=rs("cid")%>"><%=rs("class")%></a></td>
<td width="15%"><a href="admin_add_class.asp?Action=edit&cid=<%=rs("cid")%>">修改</a>
<% if session("flag")="1" or session("flag")="2" then%>
<a href="admin_add_class.asp?Action=del&cid=<%=rs("cid")%>">删除栏目</a>
<%end if%>
</td>
</tr>
<%
Rs.MoveNext
Next
%>
</table>
</form>
<%
else
%>
<tr bgcolor="#eeeeee" class=TBBG9>
<td colspan="4" > <div align="center">
暂无栏目,请添加!<br/><a href='admin_add_class.asp?Action=add'>添加栏目</a>
</div></td>
</tr>
<%
end if
Rs.close
set rs=nothing
%>
</table>
<%
End Function
Function edit
dim cid
cid=TRim(Request("cid"))
if not isnumeric(cid) then id=""
if cid<>"" then
Dim sql,rs
set rs=server.CreateObject("adodb.recordset")
sql="select * from uclass where cid="&cid
Rs.Open Sql,conn,1,1
if not (rs.bof and rs.eof) then
%>
<form name="pollform3sdx" method="post" action="admin_add_class.asp?Action=edit&cid=<%=cid%>">
<p style="margin-left:15px;">
<b>修改栏目</b></p>
<input type="hidden" name="SubmitFlag" value=yes>
<table width="100%" border="0" align="center" cellpadding="8" cellspacing="0">
<tr>
<td align="center">
<%
If Request("SubmitFlag") <> "" Then
dim flag,errmsg,name,classID
flag=1
errmsg="<ul><font color=red>"
cat=Request.Form("title")
name=TRim(Request.Form("name"))
classID=TRim(Request.Form("classID"))
if cat="" then errmsg=errmsg&"<li>栏目说明不能为空</li>":flag=0
if name="" then errmsg=errmsg&"<li>栏目名称不能为空</li>":flag=0
if classID="" then errmsg=errmsg&"<li>栏目类型不能为空</li>":flag=0
if flag<>0 then
set rs=server.CreateObject("adodb.recordset")
sql="select * from uclass where cid="&cid
rs.open sql,conn,1,3
rs("cat")=cat
rs("class")=name
rs("classID")=classID
rs.update()
Response.Write("成功修改名为<font color='red'>"&name&"</font>的栏目！")
Response.Write("<br/><a href='admin_add_class.asp'>返回文件栏目</a>")
errmsg=errmsg&"</font></ul>"
else
Response.Write("由于以下原因，设置没有成功，请<a href='javascript:history.back()'>返回</a>修改：<br>"&errmsg&"<br><button onclick='javascript:history.back()'>返回修改</button>")
end if
Else%>
<table width="100%" border=0 align="center" cellpadding=5 cellspacing=1 bgcolor="#FF0000" class=TBone>
<tr bgcolor=#f7f7f7 class=TBBG9>
<td class="tar">栏目名称:</td>
<td><input name="name" type="text" class=fminpt value="<%=rs("class")%>" id="boardName" size="30" maxlength="50">
<font color=gray>(栏目名称，50字，必填)</font></td>
</tr>
<tr bgcolor=#f7f7f7 class=TBBG9>
<td class="tar">栏目类型:</td>
<td><select name="classID" value="<%=rs("classID")%>" >
<option value="1"
<%if rs("classID")="1" then%>
selected
<%end if%>
>图像类</option>
<option value="2"
<%if rs("classID")="2" then%>
selected
<%end if%>
>音像类</option>
<option value="3"
<%if rs("classID")="3" then%>
selected
<%end if%>
>软件类</option>
</select>
<font color=gray>(栏目类型，选择要新建的栏目类型)</font></td>
</tr>
<tr bgcolor=#f7f7f7 class=TBBG9>
<td valign="top">栏目说明:<br/>支持UBB</td>
<td><textarea rows="15" name="title" cols="63" ><%
test=replace(rs("cat"),"<BR>",chr(13))
test=replace(test," "," ")
response.write test
%></textarea></td>
</tr>
<tr bgcolor="#eeeeee">
<td colspan="4" > <div align="center">
<input type=submit name=保存 value="保 存" class=fmbtn>
<input type=button name=取消 value=取 消 onclick="javascript:history.go(-1);">
</td>
</tr>
</table>
<%End If%>
</form>
<%
else%>
<table width="100%" border=0 align="center" cellpadding=5 cellspacing=1 bgcolor=#cccccc class=TBone>
<tr bgcolor=#f7f7f7 class=TBBG9>
<td colspan="2">没有该栏目！</td>
</tr>
</table>
<%end if
end if
End Function
Function del
dim cid
cid=Request.QueryString("cid")
%>
<p style="margin-left:15px;">
<b>删除栏目</b></p>
<%
If Request("SubmitFlag") <> "" Then
dim i,sql,rs
Set Rs = Server.CreateObject("Adodb.Recordset")
Sql = "select * FROM uclass WHERE cid=" & cid
Rs.Open Sql,conn,1,3
if not (rs.bof and rs.eof) then
rs.Delete
end if
rs.Close
Set rs = Nothing
Set Rs = Server.CreateObject("Adodb.Recordset")
Sql = "select * FROM ufile WHERE cid='" & cid&"'"
Rs.Open Sql,conn,1,3
if not (rs.bof and rs.eof) then
For i=1 to rs.RecordCount
If Rs.Eof Then
exit For
End If
rs.Delete
Rs.MoveNext
Next
end if
rs.Close
Set rs = Nothing
Set Rs = Server.CreateObject("Adodb.Recordset")
Sql = "select * FROM ulist WHERE cid='" & cid&"'"
Rs.Open Sql,conn,1,3
if not (rs.bof and rs.eof) then
For i=1 to rs.RecordCount
If Rs.Eof Then
exit For
End If
rs.Delete
Rs.MoveNext
Next
end if
rs.Close
Set rs = Nothing%>
<table width="100%" border=0 align="center" cellpadding=5 cellspacing=1 bgcolor=#cccccc class=TBone>
<tr bgcolor=#f7f7f7 class=TBBG9>
<td colspan="2">删除栏目成功！<br/><a href='admin_add_class.asp'>返回文件栏目</a></td>
</tr>
</table>
<% else%>
<form name="pollform3sdx" method="post" action="admin_add_class.asp?Action=del&cid=<%=cid%>">
<input type="hidden" name="SubmitFlag" value=yes>
<table width="100%" border=0 align="center" cellpadding=5 cellspacing=1 bgcolor=#cccccc class=TBone>
<tr bgcolor=#f7f7f7 class=TBBG9>
<td colspan="2">注意：删除栏目将删除一切分类和其它信息！<br>
在删除前务必确认此栏目分类已经转移。<br><br><b><font color=ff0000 class=RedFont>
<strong><font color="#FF0000">确认信息： 真的要删除编号为<%=cid%>栏目吗？</font></strong><br><br>
<input type=button value="不能删啊" onclick="javascript:history.go(-1);">
<input type=submit name=删除 value="当然删除" class=fmbtn></td>
</tr>
</table>
</form>
<%
end if
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -