📄 admincolumn.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="inc/sessionadmin.asp"-->
<%
NewColumn=Request.Form("NewColumn")
ColumnURL=Request.Form("ColumnURL")
ColumnName1=Request.Form("ColumnName1")
ColumnName2=Request.Form("ColumnName2")
ColumnName3=Request.Form("ColumnName3")
ColumnName4=Request.Form("ColumnName4")
ColumnName5=Request.Form("ColumnName5")
IF NewColumn<>"" And ColumnURL<>"" Then
SQL="Select * From 网站栏目"
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open SQL,Connstr,3,2
RS.Addnew
RS("名称")=NewColumn
RS("地址")=ColumnURL
RS.UPdate
End IF
IF ColumnName3<>"" ANd ColumnName5<>"" Then
SQL="Select * From 网站栏目 WHere ID=" & Int(ColumnName3)
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open SQL,Connstr,3,2
IF Not RS.Eof Then
RS("ID1")=ColumnName5
RS.Update
End IF
End IF
IF ColumnName1<>"" ANd ColumnName2<>"" Then
SQL="Select * From 网站栏目 WHere ID=" & Int(ColumnName1)
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open SQL,Connstr,3,2
IF Not RS.Eof Then
RS("名称")=ColumnName2
RS.Update
End IF
End IF
IF ColumnName4<>"" Then
SQL="Delete * From 网站栏目 Where ID=" & int(ColumnName4)
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open SQL,Connstr,3,2
End IF
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<!--#include file="inc/css.asp"-->
<title><%=WebSiteName%></title>
</head>
<body topmargin="0" background="images/bg.gif">
<!--#include file="admintop.asp"-->
<div align="center">
<center>
<table border="0" width="755" cellspacing="0" cellpadding="0">
<tr>
<td width="189" style="background-color: #FFFFFF; border-left: 1 solid #000000; border-top: 1 solid #000000; border-bottom: 1 solid #000000" valign="top">
<!--#include file="aleft.asp"-->
</td>
<td width="562" style="background-color: #FFFFFF; border: 1 solid #000000" valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" height="25" bgcolor="#EDEDED" style="border-bottom: 1 solid #000000;">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%">
<p align="center">网站栏目添加与管理</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" valign="top">
<div align="center">
<table border="0" width="90%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" height="8" colspan="6"></td>
</tr>
<center>
<tr>
<td width="100%" valign="bottom" style="background-color: #EDEDED; border-top: 1 solid #000000; border-bottom: 1 solid #000000;" height="20" colspan="6">网站栏目添加与管理-->>栏目添加</td>
</tr>
</center>
<form action="" method="post">
<tr>
<td width="100%" valign="middle" align="right" colspan="6">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="18%" valign="bottom" align="right">
<p align="right" style="margin-top: 5">增加新的栏目：</td>
<td width="82%">
<p style="margin-top: 5"><input type=text name="NewColumn" size=12 maxlength=6 style="background-attachment: scroll; background-repeat: repeat; font-size: 9pt; height: 18; width: 96; background-color: #FFFFFF; border: 1 solid #000000; background-position: none 0%"></td>
</tr>
<tr>
<td width="18%" valign="bottom" align="right">
<p align="right">栏目连接地址：</td>
<td width="82%">
<input type=text name="ColumnURL" size=12 maxlength=70 style="background-attachment: scroll; background-repeat: repeat; font-size: 9pt; height: 18; width: 165; background-color: #FFFFFF; border: 1 solid #000000; background-position: none 0%"></td>
</tr>
<tr>
<td width="100%" valign="middle" colspan="2">
<p style="margin-top: 5; margin-bottom: 5" align="center"><INPUT type=submit value=' 添 加 ' name=Submit style="background-color: #DDDDDD; background-repeat: repeat; background-attachment: scroll; font-size: 9pt; height: 18; width: 85; border: 1px groove #000000; background-position: 0% 50%">
<INPUT type=reset value=' 取 消 ' name=Submit style="background-color: #DDDDDD; background-repeat: repeat; background-attachment: scroll; font-size: 9pt; height: 18; width: 85; border: 1px groove #000000; background-position: 0% 50%">
</td>
</tr>
</table>
</td>
</tr>
</form>
<center>
<center>
<tr>
<td width="100%" valign="bottom" style="background-color: #EDEDED; border-top: 1 solid #000000; border-bottom: 1 solid #000000;" height="20" colspan="6">网站栏目添加与管理-->>栏目改名</td>
</tr>
</center>
</center>
<tr>
<td width="100%" colspan="6">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<form action="" method="post">
<tr>
<td width="6%">
<p style="margin-top: 10; margin-bottom: 10" align="right">将：</td>
<center>
<td width="22%">
<p style="margin-top: 5; margin-bottom: 5"><select size="1" name="ColumnName1" style="background-attachment: scroll; background-repeat: repeat; font-size: 9pt; height: 19; width: 108; background-color: #FFFFFF; border: 1 solid #000000; background-position: none 0%">
<%
SQL="Select * From 网站栏目 ORder By ID1"
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open SQL,Connstr,1,1
Do While NOt RS.EOF
%>
<option value="<%=RS("ID")%>"><%=RS("名称")%></option>
<%
RS.MoveNext
LOOP
%>
</select></td>
<td width="10%">
<p style="margin-top: 10; margin-bottom: 10">改名为：</td>
<td width="30%">
<p style="margin-top: 10; margin-bottom: 10"><input type=text name="ColumnName2" size=12 maxlength=12 style="background-attachment: scroll; background-repeat: repeat; font-size: 9pt; height: 18; width: 96; background-color: #FFFFFF; border: 1 solid #000000; background-position: none 0%"></td>
<td width="32%">
<p style="margin-top: 10; margin-bottom: 10"><INPUT type=submit value=' 修 改 ' name=Submit style="background-color: #DDDDDD; background-repeat: repeat; background-attachment: scroll; font-size: 9pt; height: 18; width: 85; border: 1px groove #000000; background-position: 0% 50%">
</td>
</tr>
</form>
</table>
</center>
</td>
</tr>
<center>
<tr>
<td width="100%" valign="bottom" style="background-color: #EDEDED; border-top: 1 solid #000000; border-bottom: 1 solid #000000;" height="20" colspan="6">网站栏目添加与管理-->>栏目移动</td>
</tr>
</center>
<form action="" method="post">
<tr>
<td width="6%">
<p style="margin-top: 10; margin-bottom: 10" align="right">将：</td>
<td width="22%">
<p style="margin-top: 10; margin-bottom: 10"><select size="1" name="ColumnName3" style="background-attachment: scroll; background-repeat: repeat; font-size: 9pt; height: 19; width: 108; background-color: #FFFFFF; border: 1 solid #000000; background-position: none 0%">
<%
SQL="Select * From 网站栏目 ORder By ID1"
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open SQL,Connstr,1,1
Do While NOt RS.EOF
%>
<option value="<%=RS("ID")%>"><%=RS("名称")%></option>
<%
RS.MoveNext
LOOP
%>
</select></td>
<td width="10%">
<p style="margin-top: 10; margin-bottom: 10">的ID改为</td>
<td width="22%">
<p style="margin-top: 10; margin-bottom: 10"><input type=text name="ColumnName5" size=12 maxlength=12 style="background-attachment: scroll; background-repeat: repeat; font-size: 9pt; height: 18; width: 96; background-color: #FFFFFF; border: 1 solid #000000; background-position: none 0%"></td>
<td width="8%">
<p style="margin-top: 10; margin-bottom: 10"></td>
<td width="32%">
<p style="margin-top: 10; margin-bottom: 10"><INPUT type=submit value=' 移 动 ' name=Submit style="background-color: #DDDDDD; background-repeat: repeat; background-attachment: scroll; font-size: 9pt; height: 18; width: 85; border: 1px groove #000000; background-position: 0% 50%">
</td>
</tr>
</form>
<center>
<tr>
<td width="100%" valign="bottom" style="background-color: #EDEDED; border-top: 1 solid #000000; border-bottom: 1 solid #000000;" height="20" colspan="6">网站栏目添加与管理-->>栏目添加</td>
</tr>
</center>
<tr>
<td width="100%" height="8" colspan="6">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<form action="" method="post">
<tr>
<td width="6%">
<p style="margin-top: 10; margin-bottom: 10" align="right">将：</td>
<td width="22%">
<p style="margin-top: 10; margin-bottom: 10"><select size="1" name="ColumnName4" style="background-attachment: scroll; background-repeat: repeat; font-size: 9pt; height: 19; width: 108; background-color: #FFFFFF; border: 1 solid #000000; background-position: none 0%">
<%
SQL="Select * From 网站栏目 ORder By ID1"
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open SQL,Connstr,1,1
Do While NOt RS.EOF
%>
<option value="<%=RS("ID")%>"><%=RS("名称")%></option>
<%
RS.MoveNext
LOOP
%>
</select></td>
<td width="40%">
<p style="margin-top: 10; margin-bottom: 10">从栏目中割除。</td>
<td width="32%">
<p style="margin-top: 10; margin-bottom: 10"><INPUT type=submit value=' 割 除 ' name=Submit style="background-color: #DDDDDD; background-repeat: repeat; background-attachment: scroll; font-size: 9pt; height: 18; width: 85; border: 1px groove #000000; background-position: 0% 50%">
</td>
</tr>
</form>
</table>
</td>
</tr>
<tr>
<td width="100%" height="8" colspan="6">
<p>
</td>
</tr>
<center>
<tr>
<td width="100%" height="8" colspan="6"><font color="#FF0000">注：网站栏目将显示在每一页的最上方，请保持在八个栏目之内，每个栏目用四个字概括。</font></td>
</tr>
</table>
</center>
</div>
</td>
</tr>
<tr>
<td width="100%" valign="top" height="8">
<p>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
<!--#include file="bottom.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -