📄 edforum.asp
字号:
<!--#include file="conn.asp"-->
<%
if session("username")<>"Desner" then
response.redirect("index.asp")
end if
act=request("act")
fm=request("fm")
ID=request("ID")
if act="del" then
conn.execute "delete from("&fm&") where ID="&ID
response.write("edforum.asp")
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>{崭}设计 [picicn.com] (论坛版面调整)</title>
</head>
<body>
<table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#FFFFFF">
<td colspan="6"><table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#FF0000">
<tr>
<td bgcolor="#FFFF00"><strong>顶 级 目 录</strong></td>
</tr>
</table></td>
</tr>
<tr align="center">
<td bgcolor="#F5F5F5"><p>ID</p> </td>
<td bgcolor="#F5F5F5">版块名</td>
<td bgcolor="#F5F5F5">合并版块</td>
<td bgcolor="#F5F5F5">删除版块</td>
</tr>
<%
sql="select * from topforum"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
do while not rs.eof
%>
<tr align="center" bgcolor="#FFFFFF">
<td><form name="form3" method="post" action="">
<input name="topID" type="text" id="topID" size="3" value="<%=rs("ID")%>">
<input type="submit" name="Submit3" value="修改">
</form></td>
<td><form name="form2" method="post" action="">
<input name="Topname" type="text" id="Topname" size="10" value="<%=rs("Title")%>">
<input type="submit" name="Submit2" value="修改">
</form></td>
<td><form name="form4" method="post" action="">
<select name="TopID" id="TopID">
<option selected>合并到……</option>
<% %>
</select>
<input type="submit" name="Submit4" value="合并">
</form></td>
<td><a href="edforum.asp?act=del&fm=topfrom&id=<%=rs("ID")%>">X删除</a></td>
</tr><%
rs.movenext
loop
rs.close
%>
<tr bgcolor="#F5F5F5">
<td colspan="6">+添加版块</td>
</tr>
<form name="form5" method="post" action=""><tr bgcolor="#FFFFFF">
<td bgcolor="#00CCFF">
ID:
<input name="textfield4" type="text" size="3">
</td>
<td bgcolor="#00CCFF">版块名：
<input name="textfield5" type="text" size="10"> </td>
<td colspan="4" bgcolor="#00FFCC"><input type="submit" name="Submit5" value="添加版块！"></td>
</tr> </form>
</table>
<hr>
<table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#FFFFFF">
<td colspan="7"><table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#FF0000">
<tr>
<td bgcolor="#FFFF00"><strong>次 级 目 录</strong></td>
</tr>
</table></td>
</tr>
<tr align="center">
<td bgcolor="#F5F5F5"><p>板块ID（修改ID改变排序）</p></td>
<td bgcolor="#F5F5F5">版块名称</td>
<td bgcolor="#F5F5F5">版块简介</td>
<td bgcolor="#F5F5F5">斑竹添加</td>
<td bgcolor="#F5F5F5">斑竹删除</td>
<td bgcolor="#F5F5F5">合并版块</td>
<td bgcolor="#F5F5F5">删除版块</td>
</tr>
<%
sql="select * from forum"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
do while not rs.eof
%>
<tr bgcolor="#FFFFFF">
<td><%=rs("ID")%></td>
<td><%=rs("Title")%></td>
<td><%=rs("Explanation")%></td>
<td> </td>
<td> </td>
<td> </td>
<td><a href="edforum.asp?act=del&fm=forum&ID=<%=rs("ID")%>">删除版块</a></td>
</tr>
<%
rs.movenext
loop
rs.close
%>
<tr bgcolor="#F5F5F5">
<td colspan="7">+添加版快</td>
</tr>
<tr bgcolor="#FFFFFF">
<td bgcolor="#00CCFF"> </td>
<td bgcolor="#00CCFF"> </td>
<td bgcolor="#00CCFF"> </td>
<td colspan="4" bgcolor="#00FFCC"> </td>
</tr>
</table>
<hr>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -