⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 fen.asp

📁 一个人用ASP+SQL制作的个人博客
💻 ASP
字号:
<!--#include file="security.asp"-->
<!--#include file="articleconn.asp"-->
<link rel="stylesheet" type="text/css" href="css/style.css">
<body bgcolor="#666666">
<center>
<p>&nbsp;</p>
<form name="form1" method="post" action="fensave.asp">
<table border="0" cellspacing="0" width="600" cellpadding="0" height="20" class="sx">
<tr bgcolor="#333333">
<td width="100%" height="20">
<p align="center"><font
color="#FFFFFF">添 加 分 类</font>
</td>
</tr>
</table>
<table width="600" border="0" cellspacing="0" cellpadding="0" bordercolor="#000000">
<tr>
<td bordercolor="#FFFFFF">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="150">
<div align="right"><br>
<br>
请输入电影类名:</div>
</td>
<td> <br>
<input type="text" name="type" class="smallinput" size="30" maxlength="50">
</td>
</tr>
<tr>
<td width="150">&nbsp;</td>
<td>
<input type="submit" name="Submit" value=" 添  加 " class="buttonface">
<input type="reset" name="Submit2" value=" 重  填 " class="buttonface">
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>

<p><a href="mimi.asp"><font face="Webdings" size="4">7</font>返回管理页面</a> </p>
<p>&nbsp;</p>
<table border="0" cellspacing="0" width="600" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellpadding="0" bgcolor="#333333" class="sx">
<tr bgcolor="#333333">
<td width="100%" height="20">
<p align="center"><font
color="#FFFFFF"> 分 类 列 表</font>
</td>
</tr>
</table>
<table width="600" border="0" cellspacing="0" cellpadding="0" bordercolor="#000000">
<tr>
<td bordercolor="#FFFFFF"> <br>
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td><b><font color="#FFFFFF">分类名称</font></b></td>
<td width="100">
<div align="center"><font color="#FF0000"><b><font color="#FFFFFF">修改</font></b></font></div>
</td>
<td width="100">
<div align="center"><font color="#FF0000"><b><font color="#FFFFFF">删除</font></b></font></div>
</td>
</tr>
</table>
<%
dim bentop,strSQL
strSQL ="SELECT * FROM type ORDER BY typeid DESC"
Set bentop = Server.CreateObject("ADODB.Recordset")
bentop.open strSQL,Conn,0,1
if bentop.eof then
response.write "<font color='#0080C0'>还没有任何分类</font>"
else
do while not bentop.eof
if not bentop.eof then
%>
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td><a href="typeadd.asp?typeid=<%=bentop("typeid")%>&typename=<%=bentop("type")%>"><%=bentop("type")%></a></td>
<td width="100">
<div align="center"><a href="typeedit.asp?typeid=<%=bentop("typeid")%>">修改</a></div>
</td>
<td width="100">
<div align="center"><a href="typedel.asp?typeid=<%=bentop("typeid")%>">删除</a></div>
</td>
</tr>
</table>
<%bentop.movenext
end if
loop
bentop.close
set bentop=nothing
end if%>
</td>
</tr>
</table>
<font color="#FFFFFF">注:如删除类别,其的电影将一同删除,请确认清楚后才进行操作!! </font>
</center>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -