📄 admin_title.asp
字号:
<!--#include file=admin_login_check.asp-->
<%
const PageSize=15 '一页15条记录
dim lid
lid=TRim(Request("lid"))
dim bid
bid=TRim(Request("bid"))
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_title.asp?Action=add&lid=<%=lid%>&bid=<%=bid%>">
<p style="margin-left:15px;">
<b>文章管理</b><br/><a href='admin_title.asp?lid=<%=lid%>&bid=<%=bid%>'>返回文章管理</a></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="20" maxlength="50">
<font color=gray>(文章名称，50字，必填)</font></td>
</tr>
<tr bgcolor=#f7f7f7 class=TBBG9>
<td valign="top">文章内容:<br/>支持UBB</td>
<td><textarea rows="15" name="title" cols="63" class="smallarea"></textarea></td>
</tr>
</table>
<%
End Function
Function Addbbsboards
dim flag,errmsg,name,title
flag=1
errmsg="<ul><font color=red>"
name=Request.Form("name")
title=Request.Form("title")
if name="" then errmsg=errmsg&"<li>文章标题不能为空</li>":flag=0
if title="" then errmsg=errmsg&"<li>文章内容不能为空</li>":flag=0
if flag<>0 then
Dim sql,rs
set rs=server.CreateObject("adodb.recordset")
sql="select * from btitle where bid='"&bid&"' and lid='"&lid&"' 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("lid")=lid
rs("bid")=bid
rs("name")=name
rs("title")=title
Rs("pid")=pid+1
rs.update()
Rs.close
set rs=nothing
Response.Write("成功添加名为<font color='red'>"&name&"</font>的文章！")
Response.Write("<br/><a href='admin_title.asp?lid="&lid&"&bid="&bid&"'>返回文章管理</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_title.asp?lid=<%=lid%>&bid=<%=bid%>">
<p style="margin-left:15px;">
<b>文章管理</b><br/><a href='admin_title.asp?Action=add&lid=<%=lid%>&bid=<%=bid%>'>添加文章</a>-<a href='admin_btitle.asp?bid=<%=bid%>'>返回文章分类</a></p>
<input type="hidden" name="SubmitFlag" value=yes>
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#FF0000" >
<%
If Request("SubmitFlag") <> "" Then
Addbbs
Exit Function
Else
mainBBSSet
End If
%>
</table>
</form>
<%
End Function
Function Addbbs
dim flag,errmsg,id,name,classID,sql,rs
flag=1
set rs=server.CreateObject("adodb.recordset")
sql="select * from btitle WHERE lid='" & lid&"' order by pid asc"
rs.open sql,conn,1,1
errmsg="<ul><font color=red>"
Page = Request("Page")
Rs.PageSize = PageSize
if not (rs.bof and rs.eof) then
IF Not IsEmpty(Page) Then
IF Not IsNumeric(Page) Then '判断Page是否为数字
Page=1
Else
Page=Cint(Page) '转换成短整形Integer
End IF
IF Page > Rs.PageCount Then
Rs.AbsolutePage = Rs.PageCount '设置当前显示页等于最后一页
ElseIF Page <= 0 Then
Rs.AbsolutePage = 1 '设置当前页等于第一页
Else
Rs.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数
End IF
Else
Rs.AbsolutePage = 1
End IF
Page = Rs.AbsolutePage
For i=1 to Rs.PageSize
If Rs.Eof Then
exit For
End If
classID=TRim(Request.Form("classID"&i))
if classID="" then errmsg=errmsg&"<li>排序编号不能为空</li>":flag=0
if not isnumeric(classID) then errmsg=errmsg&"<li>排序编号必须为数字</li>":flag=0
Rs.MoveNext
Next
Rs.close
set rs=nothing
if flag<>0 then
set rs=server.CreateObject("adodb.recordset")
sql="select * from btitle WHERE lid='" & lid&"' order by pid asc"
rs.open sql,conn,1,3
Page = Request("Page")
Rs.PageSize = PageSize
if not (rs.bof and rs.eof) then
IF Not IsEmpty(Page) Then
IF Not IsNumeric(Page) Then '判断Page是否为数字
Page=1
Else
Page=Cint(Page) '转换成短整形Integer
End IF
IF Page > Rs.PageCount Then
Rs.AbsolutePage = Rs.PageCount '设置当前显示页等于最后一页
ElseIF Page <= 0 Then
Rs.AbsolutePage = 1 '设置当前页等于第一页
Else
Rs.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数
End IF
Else
Rs.AbsolutePage = 1
End IF
Page = Rs.AbsolutePage
For i=1 to Rs.PageSize
If Rs.Eof Then
exit For
End If
rs("pid")=TRim(Request.Form("classID"&i))
rs.update()
Rs.MoveNext
Next
end if
Rs.close
set rs=nothing
Response.Write("成功排序文章！")
Response.Write("<br/><a href='admin_title.asp?lid="&lid&"&bid="&bid&"'>返回文章管理</a>")
errmsg=errmsg&"</font></ul>"
end if
else
Response.Write("由于以下原因，设置没有成功，请<a href='javascript:history.back()'>返回</a>修改：<br>"&errmsg&"<br><button onclick='javascript:history.back()'>返回修改</button>")
end if
End Function
Function mainBBSSet
%>
<tr bgcolor="#799ae1">
<td class="blu">ID</td>
<td class="blu">文章标题</td>
<td class="blu">操作</td>
<td class="blu">排序</td>
</tr>
<%
dim sql,h,i
Set Rs = Server.CreateObject("Adodb.Recordset")
Sql = "SELECT * FROM btitle WHERE lid='" & lid&"' order by pid asc"
Rs.Open Sql,conn,1,1
Page = Request("Page")
Rs.PageSize = PageSize
if not (rs.bof and rs.eof) then
IF Not IsEmpty(Page) Then
IF Not IsNumeric(Page) Then '判断Page是否为数字
Page=1
Else
Page=Cint(Page) '转换成短整形Integer
End IF
IF Page > Rs.PageCount Then
Rs.AbsolutePage = Rs.PageCount '设置当前显示页等于最后一页
ElseIF Page <= 0 Then
Rs.AbsolutePage = 1 '设置当前页等于第一页
Else
Rs.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数
End IF
Else
Rs.AbsolutePage = 1
End IF
Page = Rs.AbsolutePage
For i=1 to Rs.PageSize
If Rs.Eof Then
exit For
End If
%>
<tr bgcolor="#eeeeee" class=TBBG9>
<td width="10%"><%=rs("id")%></td>
<td width="35%"><%=rs("name")%></td>
<td width="15%"><a href="admin_title.asp?Action=edit&id=<%=rs("id")%>&lid=<%=lid%>&bid=<%=bid%>">修改</a>
<% if session("flag")="1" or session("flag")="2" then%>
<a href="admin_title.asp?Action=del&id=<%=rs("id")%>&lid=<%=lid%>&bid=<%=bid%>">删除文章</a>
<%end if%>
</td>
<td width="10%"><input type="text" class=fminpt name="classID<%=i%>" size="4" value="<%=rs("pid")%>" maxlength="12" onkeyup='this.value=this.value.replace(/\D/gi,"")'>
</td>
</tr>
<%
Rs.MoveNext
Next
%>
<tr bgcolor="#eeeeee">
<td colspan="4" > <div align="center">
<%
if page<=1 then
Response.Write ("[首页][上一页]")
else
Response.Write("[<a href=admin_title.asp?bid="&bid&"&lid="&lid&"&Page=1>首页</a>]")
Response.Write("[<a href=admin_title.asp?bid="&bid&"&lid="&lid&"&Page=" & (Page-1) & ">上一页</a>]")
end if
if page>=Rs.PageCount then
Response.Write ("[下一页][尾页]")
else
Response.Write("[<a href=admin_title.asp?bid="&bid&"&lid="&lid&"&Page=" & (Page+1) & ">下一页</a>]")
Response.Write("[<a href=admin_title.asp?bid="&bid&"&lid="&lid&"&Page=" & Rs.PageCount & ">尾页</a>]")
end if
Response.Write("[页次:<font color=red>" & page & "</font>/" & Rs.PageCount)
Response.Write("][共" & Rs.RecordCount & "条 <font color=red>"& Rs.PageSize & "</font>条/页]")
%>
</div></td>
</tr>
<tr bgcolor="#eeeeee">
<td colspan="4" > <div align="center">栏目排序,序号越小越排前!<br/>
<input type="hidden" name="page" value="<%=page%>">
<input type=submit name=提交 value=修改排序 class=fmbtn>
<input type=reset name=取消 value=清 除 class=fmbtn>
</div></td>
</tr>
</table>
</form>
<%
else
%>
<tr bgcolor="#eeeeee" class=TBBG9>
<td colspan="4" > <div align="center">
暂无文章,请添加!<br/><a href='admin_title.asp?Action=add&lid=<%=lid%>&bid=<%=bid%>'>添加文章</a>
</div></td>
</tr>
<%
end if
Rs.close
set rs=nothing
End Function
Function edit
dim id
id=TRim(Request("id"))
if not isnumeric(id) then id=""
if id<>"" then
Dim sql,rs
set rs=server.CreateObject("adodb.recordset")
sql="select * from btitle where id="&id
Rs.Open Sql,conn,1,1
if not (rs.bof and rs.eof) then
%>
<form name="pollform3sdx" method="post" action="admin_title.asp?Action=edit&id=<%=id%>&lid=<%=lid%>&bid=<%=bid%>">
<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,title
flag=1
errmsg="<ul><font color=red>"
title=Request.Form("title")
name=Request.Form("name")
if title="" then errmsg=errmsg&"<li>文章内容不能为空</li>":flag=0
if name="" then errmsg=errmsg&"<li>文章标题不能为空</li>":flag=0
if flag<>0 then
set rs=server.CreateObject("adodb.recordset")
sql="select * from btitle WHERE id="&id
rs.open sql,conn,1,3
if not (rs.bof and rs.eof) then
rs("title")=title
rs("name")=name
rs.update()
end if
Response.Write("成功修改名为<font color='red'>"&name&"</font>的文章！")
Response.Write("<br/><a href='admin_title.asp?lid="&lid&"&bid="&bid&"'>返回文章管理</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 id="boardName" value="<%=rs("name")%>" size="20" maxlength="50">
<font color=gray>(文章名称，50字，必填)</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("title"),"<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=reset name=取消 value=清 除 class=fmbtn>
</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 id
id=Request.QueryString("id")
%>
<p style="margin-left:15px;">
<b>删除文章</b></p>
<%
If Request("SubmitFlag") <> "" Then
dim sql,rs
Set Rs = Server.CreateObject("Adodb.Recordset")
Sql = "select * FROM btitle WHERE id="&id
Rs.Open Sql,conn,1,3
if not (rs.bof and rs.eof) then
rs.Delete
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_title.asp?lid=<%=lid%>&bid=<%=bid%>'>返回文章管理</a></td>
</tr>
</table>
<% else%>
<form name="pollform3sdx" method="post" action="admin_title.asp?Action=del&id=<%=id%>&lid=<%=lid%>&bid=<%=bid%>">
<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">
<strong><font color="#FF0000">确认信息： 真的要删除编号为<%=id%>文章吗？</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 + -