📄 admin_post.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="../inc/md5.asp"-->
<!--#include file="../inc/UserPs.Asp"-->
<!--#include file="../inc/pwwd.asp"-->
<%
'├========================================┤
'‖ www.fywen.com ‖
'‖ ╔━═━═━═━═━═━╗ ‖
'‖ ┃ 枫叶在线版权所有 ┃ ‖
'‖ ╚━═━═━═━═━═━╝ ‖
'‖ 论坛：www.fywen.com/bbs ‖
'├========================================┤
BotList = "Google,Isaac,SurveyBot,Baiduspider,yahoo,yisou,3721,ia_archiver,P.Arthur,FAST-WebCrawler,Java,Microsoft-ATL-Native,TurnitinBot,WebGather,Sleipnir"
Botlist = Split(Botlist,",")
For i = 0 To Ubound(Botlist)
If InStr(Lcase(Request.ServerVariables("HTTP_USER_AGENT")),Lcase(Botlist(i))) > 0 Then
response.write" - Powered By FYPost - 枫叶贴吧"
response.End()
Exit For
End If
Next
'/*不让搜索引擎收录*/
Call Admin_Admin()
action = ReplaceBadWord(Request.QueryString("action"))
Select Case action
Case ""
Call admin_index()
Case "post"
Call admin_post()
End Select
Sub admin_index()
%>
<HTML>
<HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<TITLE>管理中心—贴吧管理</TITLE>
<link href="css/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
td{
background:#F1F3F5;
}
-->
</style></head>
<body>
<table width="98%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" class="table" >
<tr >
<td align="center" class="imgbg" height="25"><strong class="size">贴吧管理</strong></td>
</tr>
<tr class="table_3">
<td height="15" class="bj"><strong>修改说明：</strong></td>
</tr>
<tr>
<td height="38" class="table_2" valign="top"> 删除贴吧总目录以及分类的同时将会删除该类别下所有帖子！删除类别下的帖子将会同时删除此帖子下的所有回复， 请注意操作。<br>
目录分类添加 - 所属类别内的目录排序按照添加的先后顺序，其他排序为目录下的分类的数量排序<br>
如果进行编辑将与编辑内容相关的数据内容会同时更改
</td>
</tr>
<tr class="table_3">
<td height="15" class="bj"><strong>贴吧操作选项：</strong><a href="admin_board.Asp">贴吧版面管理</a> | <A href="admin_post.Asp" >分类添加管理</A></td>
</tr>
</table>
<br><form action="admin_post.asp?action=post" method="post">
<table width="98%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" class="table" >
<tr >
<td align="center" class="imgbg" colspan="2"><strong class="size">分类添加管理</strong></td>
</tr>
<tr class="table_3">
<td class="bj" colspan="2">目录分类添加</td>
</tr>
<tr>
<td height="25" class="table_3" width="23%">贴吧目录或类别名称：</td>
<td width="76%"><input name="post" class="input" style="width:145px;" ></td>
</tr>
<tr>
<td height="25" class="table_3" width="23%">所属类别：</td>
<td width="76%"><select name="posts" id="skin">
<option value="做为贴吧目录" selected="selected">做为贴吧目录</option>
<%
sql="select * from [post] where [posts]='0' order by [id] desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
%>
<option value="<%=rs("posttitle")%>"><%=rs("posttitle")%> (<%=rs("postid")%>)</option>
<%
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "<option value="""">没有分类</option>"
end if
%>
</select>
（括号内数字表示此目录下分类的个数）</td>
</tr>
<tr>
<td height="25" class="bj" width="23%"> </td>
<td class="bj" height="25" width="76%"><input name="submit" type="submit" value="添加" class="buttion"> <input name="submit" type="reset" value="撤消" class="buttion"></td>
</tr>
</table>
</form>
</body>
</html>
<%
End Sub
'├========================================┤
'‖ www.fywen.com ‖
'‖ ╔━═━═━═━═━═━╗ ‖
'‖ ┃ 枫叶在线版权所有 ┃ ‖
'‖ ╚━═━═━═━═━═━╝ ‖
'‖ 论坛：www.fywen.com/bbs ‖
'├========================================┤
Sub admin_post()
post=request.form("post")
posts=request.form("posts")
if post = "" then
%>
<script language="javascript">
alert("贴吧目录名称不能为空")
document.location="javascript:history.back(-1)"
</script>
<%
response.end
else
If posts="做为贴吧目录" Then
set rs= server.createobject("adodb.recordset")
sql= "insert into [post]([posttitle],[posts],[postid]) values ('"&post&"','0','0')"
rs.Open sql,conn
%>
<script language="javascript">
alert("贴吧目录添加成功！")
document.location="admin_post.asp"
</script>
<%
Else
sql="select * from [post] where [posttitle]='"&posts&"' And [posts]='0'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
postid = rs("postid")+1
sql1= "insert into [post]([posttitle],[posts]) values ('"&posts&"','"&post&"')"
set rs=server.createobject("adodb.recordset")
rs.Open sql1,conn,1,1
set rs=server.createobject("adodb.recordset")
sql = "update [post] set [postid] = '"&postid&"' where [posttitle]='"&posts&"' And [posts]='0'"
rs.open sql,conn,1,1
%>
<script language="javascript">
alert("贴吧分类添加成功！")
document.location="admin_post.asp"
</script>
<%
End If
End If
End Sub
Call Fywencl()
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -