📄 adminweb.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="sub/config.asp"-->
<!--#include file="sub/conn.asp"-->
<!--#include file="sub/inc.asp"-->
<%
call hacker()
if session("admin")<>"axsj" then
response.Write "<script>alert('您还没有登陆！');this.location.href='index.asp';</script>"
Response.End
end if
call adminjj()
adminname=session("adminname")
adminsuper=session("adminsuper")
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=Sitename%>-后台管理系统-设计网址管理</title>
<link href="index.css" rel="stylesheet" type="text/css" />
</head>
<body>
<!--#include file="top.asp"-->
<table width="780" border="0" cellspacing="0" cellpadding="0" align="center">
<tr><td height="4" colspan="2" background="images/index_11.gif"></td>
</tr>
<tr>
<td width="200" align="center" valign="top">
<% '调用左边框架
call adminleft()%>
<p> </p> </td>
<td width="580" align="left" valign="top" bgcolor="#EDFFFF">
<table width="300" border="1" cellspacing="0" cellpadding="0">
<tr>
<td align="center" valign="top" bgcolor="#3B83C5"><a href="adminweb.asp?type=mgclass">分类管理</a><a href="adminweb.asp?action=addtype"></a></td>
<td align="center" valign="top" bgcolor="#3B83C5"><a href="adminweb.asp">网址管理</a></td>
<td align="center" valign="top" bgcolor="#3B83C5"><a href="?type=addweb">网址添加</a></td>
</tr>
</table>
<%if request("type")=""then
action=request("action")
select case action
case "addclass"
call addclass()
case "delclass":
call delclass()
case "cngclass"
call cngclass()
case "add"
call add()
case "del":
call del()
case "cng"
call cng()
end select
sub addclass()
set rs1=server.createobject("adodb.recordset")
sql1="select * from webclass"
rs1.open sql1,cn,3,3
rs1.addnew
rs1("classname")=request.Form("classname")
rs1("class")=request.Form("class")
rs1.update
response.Write"上一步操作:添加"&rs1("classname")&"分类成功!"
rs1.close
set rs1=nothing
end sub
sub delclass()
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from webclass where id="&request("id")
rs1.open sql1,cn,1,3
rs1.delete
response.Write"上一步操作:删除分类成功!"
rs1.close
set rs1=nothing
end sub
sub cngclass()
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from webclass where id="&request("id")
rs1.open sql1,cn,1,3
rs1("classname")=request.Form("classname")
rs1("class")=request.Form("class")
rs1.update
response.Write"上一步操作:修改"&rs1("classname")&"分类成功!"
rs1.close
set rs1=nothing
end sub
sub add()
set rs1=server.createobject("adodb.recordset")
sql1="select * from web"
rs1.open sql1,cn,3,3
rs1.addnew
rs1("webname")=request.Form("webname")
rs1("web")=request.Form("web")
rs1("content")=request.Form("content")
rs1("class")=request.Form("class")
rs1("best")=request.Form("best")
rs1.update
response.Write"上一步操作:添加"&rs1("webname")&"成功!"
rs1.close
set rs1=nothing
end sub
sub del()
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from web where id="&request("id")
rs1.open sql1,cn,1,3
rs1.delete
response.Write"上一步操作:删除成功!"
rs1.close
set rs1=nothing
end sub
sub cng()
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from web where id="&request("id")
rs1.open sql1,cn,1,3
rs1("webname")=request.Form("webname")
rs1("web")=request.Form("web")
rs1("content")=request.Form("content")
rs1("class")=request.Form("class")
rs1("best")=request.Form("best")
rs1.update
response.Write"上一步操作:修改"&rs1("webname")&"成功!"
rs1.close
set rs1=nothing
end sub
%>
<table width="580" border="1" cellspacing="0" cellpadding="0">
<tr>
<td width="190" align="center" bgcolor="#3B83C5">网址</td>
<td align="center" bgcolor="#3B83C5" width="80">操作</td>
<td width="40" ></td>
<td width="190" align="center" bgcolor="#3B83C5">网址</td>
<td align="center" width="80" bgcolor="#3B83C5">操作</td>
</tr>
<% sqlstr ="select * from web order by id desc" '查表
set rs =cn.execute(sqlstr) '利用connection的execute方法运行SQL命令
Do While (Not RS.Eof)
%>
<tr>
<td align="center"><a href="<%=rs("web")%>"><%=rs("webname")%></a><%if rs("best")=true then%>『<font color=red>推荐</font>』<%end if%></td>
<td align="center"><a href="?type=editweb&id=<%=rs("id")%>">编辑</a>
<a href="?action=del&id=<%=rs("id")%>">删除</a></td>
<td width="40" ></td>
<% rs.movenext
if rs.eof then exit do%>
<td align="center"><%=rs("webname")%><%if rs("best")=true then%>『<font color=red>推荐</font>』<%end if%></td>
<td align="center"><a href="?type=editweb&id=<%=rs("id")%>">编辑</a>
<a href="?action=del&id=<%=rs("id")%>">删除</a></td>
</tr>
<%
rs.movenext
loop
set rs =nothing%></table>
<%elseif request("type")="mgclass" then
%><br />
<table width="200" border="1" cellspacing="0" cellpadding="0">
<tr>
<td align="center" bgcolor="#3B83C5">分类名称</td>
<td align="center" bgcolor="#3B83C5">class值</td>
<td align="center" bgcolor="#3B83C5">操作</td>
</tr>
<% sqlstr ="select * from webclass order by id desc" '查表
set rs =cn.execute(sqlstr) '利用connection的execute方法运行SQL命令
Do While (Not RS.Eof)
%>
<tr>
<td align="center"><%=rs("classname")%></td>
<td align="center"><%=rs("class")%></td>
<td align="center"><a href="?type=editclass&id=<%=rs("id")%>">修改</a> <a href="?action=delclass&id=<%=rs("id")%>">删除</a></td>
</tr>
<%
rs.movenext
loop
set rs =nothing%>
</table>
<form id="form1" name="form1" method="post" action="?action=addclass">
<table width="200" border="1" cellspacing="0" cellpadding="0">
<tr>
<td>
<label>
分类名称:<input name="classname" type="text" class="wubian" id="classname" size="20" />
</label>
<label>
分类class值:<input name="class" type="text" class="wubian" id="class" size="4" />
</label>
<label>
<input name="Submit" type="submit" class="wubian" value="添 加" />
</label> </td>
</tr>
</table></form>
<%elseif request("type")="editclass" then
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from webclass where id="&request("id")
rs1.open sql1,cn,1,3%>
<br /><form id="form2" name="form2" method="post" action="?action=cngclass&id=<%=rs1("id")%>">
<table width="200" border="1" cellspacing="0" cellpadding="0">
<tr>
<td>分类名称:
<label>
<input name="classname" type="text" value="<%=rs1("classname")%>" class="wubian" size="12" />
</label>
*</td>
</tr>
<tr>
<td>分类class值:
<input name="class" type="text" value=<%=rs1("class")%> class="wubian" size="8" />
*数字</td>
</tr>
<tr>
<td align="center"><label>
<input name="Submit2" type="submit" class="wubian" value="修 改" />
</label></td>
</tr>
</table></form>
<%rs1.close
set rs1=nothing
elseif request("type")="addweb" then%>
<form id="form3" name="form3" method="post" action="?action=add">
<table width="300" border="1" cellspacing="0" cellpadding="0">
<tr>
<td width="80"> 网址名称:</td>
<td align="left">
<label>
<input name="webname" type="text" class="wubian" id="webname" size="20" />
</label>
</td>
</tr>
<tr>
<td> 网址地址:</td>
<td align="left"><input name="web" type="text" class="wubian" id="web" size="20" /></td>
</tr>
<tr>
<td> 网址介绍:</td>
<td align="left"><input name="content" type="text" class="wubian" id="content" size="30" /></td>
</tr>
<tr>
<td> 网址分类:</td>
<td align="left"><%call newclass("webclass")%></td>
</tr>
<tr>
<td> 是否推荐:</td>
<td align="left"><input name="best" type="radio" value="true" > 推荐 <input name="best" type="radio" value="false" checked> 不推荐</td>
</tr>
<tr>
<td> 更新操作:</td>
<td align="left"><label>
<input name="Submit3" type="submit" class="wubian" value="添 加" />
<input name="Submit4" type="reset" class="wubian" value="重 写" />
</label></td>
</tr>
</table></form>
<%elseif request("type")="editweb" then
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from web where id="&request("id")
rs1.open sql1,cn,1,2
%>
<form id="form4" name="form4" method="post" action="?action=cng&id=<%=rs1("id")%>">
<table width="300" border="1" cellspacing="0" cellpadding="0">
<tr>
<td width="80"> 网址名称:</td>
<td align="left">
<label>
<input name="webname" type="text" value="<%=rs1("webname")%>" class="wubian" id="webname" size="20" />
</label>
</td>
</tr>
<tr>
<td> 网址地址:</td>
<td align="left"><input name="web" type="text" value="<%=rs1("web")%>" class="wubian" id="web" size="20" /></td>
</tr>
<tr>
<td> 网址介绍:</td>
<td align="left"><input name="content" value="<%=rs1("content")%>" type="text" class="wubian" id="content" size="30" /></td>
</tr>
<tr>
<td> 网址分类:</td>
<td align="left"><%call editclass("webclass",rs1("class"))%></td>
</tr>
<tr>
<td> 是否推荐:</td>
<td align="left"><input name="best" type="radio" value="true" <%if rs1("best")=true then response.write "checked" end if%>> 推荐 <input name="best" type="radio" value="false" <%if rs1("best")=false then response.write "checked" end if%>> 不推荐</td>
</tr>
<tr>
<td> 更新操作:</td>
<td align="left"><label>
<input name="Submit4" type="submit" class="wubian" value="修 改" />
<input name="Submit6" type="reset" class="wubian" value="重 写" />
</label></td>
</tr>
</table></form>
<%rs1.close
set rs1=nothing
end if%></td>
</tr>
</table>
<!--#include file="bottom.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -