📄 admin.asp
字号:
<!--#include File ="data/include.inc"-->
<html>
<head>
<title>SkyBoard v1.2</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="data/grape.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#000000" vlink="#000000" alink="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="600" border="1" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" height="62" bordercolor="#000000">
<tr>
<td>
<p align="center"><font size="6" face="华文彩云">
BBS论坛系统</font></td>
</tr>
</table>
<br>
<%If Request.Querystring("Action") = "editforum" then
If Session("Admin") <> 0 OR FALSE then
%>
<%
flag = request.querystring("flag")
if flag = 1 then
If IsEmpty(request.form("ID")) then
response.write "<br><br><br><br><br><br><p align=center>"
response.write "<table border=1 cellpadding=3 cellspacing=0 width=423 bordercolor=#000000><tr><td width=415> <p align=center><font face=Times New Roman size=2>Fehler</font></p></td></tr>"
response.write "<tr><td width=415 bgcolor=#003366><p align=center><font face=Times new roman size=2>Wenn du einen Eintrag loeschen willst"
response.write " , kreuze den Eintrag an.<br></font></p></td></tr></table>"
response.end
End If
set rs = nothing
ID = request.form("ID")
'set Con = server.createobject("adodb.connection")
'Con="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=board"
'Con.Open Con
For each record in request("ID")
sqlstmt = "DELETE * from ForumDB WHERE ID=" & record
Set RS = Con.execute(sqlstmt)
Next
end if
%>
<form method="POST" action="admin.asp?flag=1">
<br>
<table border="1" cellpadding="1" cellspacing="0" width="600" bordercolor="#000000" bgcolor="#CCCCCC">
<tr>
<td width="415" bgcolor="#999999">
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">编辑讨论区 </font></td>
</tr>
<%
set rs = nothing
'Con="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=board"
sqlstmt = "SELECT * FROM ForumDB ORDER BY id DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sqlstmt, Con, 3, 3
TotalRecs = rs.recordcount
x = 0
For x = 1 to 9999
If rs.eof then
Exit For
Else
id = rs("ID")
name = rs("name")
moderators = rs("moderators")
description = rs("description")
%>
<tr>
<td width="600" bgcolor="#CCCCCC" height="26">
<input type="checkbox" name="ID" value="<% =id %>"><b><font face="Verdana" size="1">名称</font></b><font face="Verdana" size="1">:<% Response.Write name %>
<b>说明:</b><% =description%><b> 创建者：</b><% =moderators %>
</font></td>
</tr>
<%
rs.MoveNext
End If
Next
Session("ID") = "Delete"
%>
</table>
<input type="submit" value="删除讨论区" name="B1">
<br>
<br>
</form>
<%
End If
End If
If Session("ID") = "Delete" then
flag = request.querystring("flag")
if flag = 1 then
%>
<%
set rs = nothing
ID = request.form("ID")
'set Con = server.createobject("adodb.connection")
'Con="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=board"
'Con.Open Con
For each record in request("ID")
sqlstmt = "DELETE from ForumDB WHERE ID=" & record
Set RS = Con.execute(sqlstmt)
Next
%>
<table border=1 cellpadding=1 cellspacing=0 width=600 bordercolor=#000000><tr>
<td width=600 bgcolor=#999999>
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">删除讨论区</font></td>
</tr>
<tr>
<td width=600 bgcolor=#CCCCCC align="center">
<font face="Verdana, Arial, Helvetica, sans-serif" new="new" roman="roman" size="1">
讨论区删除成功.</font></td>
</tr></table>
<%
end if
End If
%>
<%
If Request.Querystring("action") = "new" then
%>
<br>
<table width="600" border="1" cellspacing="0" cellpadding="1" bordercolor="#000000" bgcolor="#999999">
<tr>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="1">新建讨论区</font></td>
</tr>
<tr>
<td bgcolor="#CCCCCC">
<form name="form1" method="post" action="admin.asp?action=gonew">
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">名称:</font>
<input type="text" name="name">
<br>
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">说明:</font>
<input type="text" name="description">
<br>
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">创建者:</font><input type="text" name="moderator">
<br>
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">图标:
<input type="text" name="icon" value="grafx/new.gif">
<br>
</font>
<input type="submit" name="Submit2" value="Create">
</form>
</td>
</tr>
</table>
<% End IF%><% If Request.Form("Submit2") <> "" then %><br>
<%
'set Con = server.createobject("adodb.connection")
'Con="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=board"
'Con.Open Con
SQLstmt = "INSERT INTO ForumDB (name,description,moderators,icon)"
SQLstmt = SQLstmt & " VALUES ("
SQLstmt = SQLstmt & "'" & Request.Form("name") & "',"
SQLstmt = SQLstmt & "'" & Request.Form("description") & "',"
SQLstmt = SQLstmt & "'" & Request.Form("moderator") & "',"
SQLstmt = SQLstmt & "'" & Request.ForM("icon") & "'"
SQLstmt = SQLstmt & ")"
Set RS = Con.execute(SQLstmt)
%>
<table width="600" border="1" cellspacing="0" cellpadding="1" bordercolor="#000000" bgcolor="#999999">
<tr>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="1">新建讨论区</font></td>
</tr>
<tr>
<td bgcolor="#CCCCCC" align="center">
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">讨论区创建成功. </font></td>
</tr>
</table>
<% End IF %>
<% If Request.Querystring("action") = "edit" then %>
<form method="POST" action="admin.asp?action=edit&flag=2">
<%
flag = request.querystring("flag")
if flag = 2 then
If IsEmpty(request.form("ID2")) then
End If
set rs = nothing
ID = request.form("ID2")
'set Con = server.createobject("adodb.connection")
'Con="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=board"
'Con.Open Con
For each record in request("ID2")
sqlstmt = "DELETE from UserDB WHERE ID=" & record
Set RS = Con.execute(sqlstmt)
Next
end if
IF flag = 2 then
%>
<table border=1 cellpadding=1 cellspacing=0 width=600 bordercolor=#000000><tr>
<td width=600 bgcolor=#999999>
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">删除用户 </font></td>
</tr>
<tr>
<td width=600 bgcolor=#CCCCCC align="center">
<font face="Verdana, Arial, Helvetica, sans-serif" new="new" roman="roman" size="1">
用户帐号删除成功.</font></td>
</tr></table>
<% End IF %>
<% If flag <> 2 then %>
<br>
<table border="1" cellpadding="3" cellspacing="0" width="600" bordercolor="#000000">
<tr>
<td width="598" bgcolor="#999999"><font face="Verdana" size="1">编辑用户</font></td>
</tr>
<%
end if
If flag <> 2 then
set rs = nothing
'Con="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=board"
sqlstmt = "SELECT * FROM UserDB ORDER BY id DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sqlstmt, Con, 3, 3
TotalRecs = rs.recordcount
x = 0
For x = 1 to 9999
If rs.eof then
Exit For
Else
'date1 = rs("date")
id = rs("ID")
name = rs("Username")
' link = id & date1
description = name
%>
<tr>
<td width="583" bgcolor="#CCCCCC">
<input type="checkbox" name="ID2" value="<% =id %>">
<font face="Verdana" size="1">用户名: <% =name%>
姓名:
<% REsponse.Write rs("Name") & " Password:" & rs("Password") & " Email:" & rs("Email") %>
</font></td>
</tr>
<%
rs.MoveNext
End If
Next%>
</table>
<input type="submit" value="删除用户" name="B1">
<br>
<br>
</form>
<% end IF %>
<% End IF%>
<% If Request.Querystring("action") = "permission" then %>
<% If Request.Form("ADmin") = "" then %>
<table width="600" border="1" cellspacing="0" cellpadding="1" bordercolor="#000000">
<tr>
<td bgcolor="#999999"><font face="Verdana" size="1">权限授权</font></td>
</tr>
<tr>
<td bgcolor="#CCCCCC"><font face="Verdana" size="1">请输入需要授权的用户名.<br>
</font>
<form name="form2" method="post" action="">
<font face="Verdana" size="1">用户名:</font>
<input type="text" name="user">
<input type="submit" name="Admin" value="确定">
</form>
<font face="Verdana" size="1"> </font></td>
</tr>
</table>
<% End IF %>
<% End If %>
<% If Request.Form("Admin") <> "" then %>
<%
Con.Execute "UPDATE UserDB SET [Admin]=" & "-1" & " WHERE username ='" & Request.Form("user") & "'"
%>
<table border=1 cellpadding=1 cellspacing=0 width=600 bordercolor=#000000>
<tr>
<td width=600 bgcolor=#999999>
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">权限授权</font></td>
</tr>
<tr>
<td width=600 bgcolor=#CCCCCC align="center">
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">授权成功！</font></td>
</tr>
</table>
<% End IF %>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -