📄 type.asp
字号:
<%'========================================='' 凡人网络购物系统V4.0免费版' FreeDown.Net info@freedown.net ' www.freedown.net' 版权所有·免费版仅供研究测试只用' 商业使用请购买正版''=========================================%>
<!-- #include file="conn.asp" -->
<%
if session("admin_name")="" then
response.redirect "login.asp"
end if
%>
<%
if request("types")="addtypename" then
response.redirect "ad.asp"
end if
%>
<%
if request("types")="mod" then
response.redirect "ad.asp"
end if
%>
<%
if request("types")="del" then
response.redirect "ad.asp"
end if
%>
<html>
<head>
<link rel="stylesheet" href="../css.css" type="text/css">
</head>
<body>
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFFFFF" height="30" bgcolor="#DBC2B0">
<tr>
<td width="100" align="center"> <b><a href="booktype.asp">全部分类</a></b></td>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from type"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "暂无分类"
else
rs.movefirst
for i=1 to rs.recordcount
%>
<td width="100" align="center"><a href="booktype1.asp?id=<%=rs("id")%>"><b><%=rs("typename")%></b></a> </td>
<%
rs.movenext
next
rs.close
set rs=nothing
end if
%>
</tr>
</table>
</center>
</div>
<center>
<%
set rs4=server.createobject("adodb.recordset")
sql4="select count(*) from type"
rs4.open sql4,conn,1,1
if rs4(0)=0 then
response.write "还没有任何分类"
rs4.close
set rs4=nothing
%> </p>
<p><font color="#000000"><b>新增网站信息分类</b></font></p>
<form method="post" action="type.asp">
<table width="254" border="1" bgcolor="#F5EFE7" bordercolor="#FFFFFF" style="border-collapse: collapse" cellpadding="0" cellspacing="0" height="30">
<tr>
<td width="92">
<p align="center"><span style="font-size: 9pt">分类名称：</span></td>
<td width="146">
<span style="font-size: 9pt">
<input type="text" name="typename" size="20">
</span>
</td>
</tr>
</table>
<p>
<span style="font-size: 9pt">
<input type="submit" name="addtypename" value="提交">
<input type="hidden" name="types" value="addtypename">
</span>
</p>
</form>
<span style="font-size: 9pt">
<%else%>
</span>
<p><b><font color="#000000">新增网站信息分类</font></b></p>
<form method="post" action="type.asp">
<table width="254" border="1" bgcolor="#F5EFE7" bordercolor="#FFFFFF" style="border-collapse: collapse" cellpadding="0" cellspacing="0" height="30">
<tr>
<td width="92">
<p align="center"><span style="font-size: 9pt">分类名称：</span></td>
<td width="146">
<span style="font-size: 9pt">
<input type="text" name="typename" size="20">
</span>
</td>
</tr>
</table>
<p>
<span style="font-size: 9pt">
<input type="submit" name="addtypename" value="提交">
<input type="hidden" name="types" value="addtypename">
</span>
</p>
<p style="line-height: 150%"><font color="#FF0000"><span style="font-size: 9pt">
说明：分类列表将在网站底部显示<br>
警告：当删除一个分类时，将同时删除该分类下的所有内容！</span></font></p>
</form>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from type"
rs.open sql,conn,3,3
rs.movefirst
for i=1 to rs.recordcount
%>
<form name="form1" method="post" action="type.asp">
<table width="300" border="1" bgcolor="#F5EFE7" style="border-collapse: collapse" bordercolor="#FFFFFF" cellpadding="0" cellspacing="0">
<tr>
<td width="150" height="30" align="center">
<input type="text" name="typename" value="<%=trim(rs("typename"))%>" maxlength="10" size="10">
</td>
<form method="post">
<td width="50" align="center">
<input type="submit" name="mod" value="修改">
<input type="hidden" name="id" value="<%=rs("id")%>">
<input type="hidden" name="types" value="mod">
</td>
</form>
<form method="post">
<td width="50" align="center">
<input type="submit" name="del" value="删除">
<input type="hidden" name="id" value="<%=rs("id")%>">
<input type="hidden" name="types" value="del">
</td>
</form>
</tr>
</table></form>
<%rs.movenext
next
rs.close
set rs=nothing
end if
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -