📄 delitem.asp

📁 影视点播系统代码

💻 ASP

字号:

<!--#include file="conn.asp"-->
<%
if session("admin")="" then
response.redirect "index.asp"
end if

filmtype=request.form("filmtype")
del=request.Form("del")
if del<>"" then
sql="delete from item where name='" & filmtype & "'"
conn.execute(sql)
issuccess=true
end if
%>
<html>
<head>
<title>删除影片类型</title>
<style type="text/css">
<!--
body,td,th {font-family: 宋体, Arial;font-size: 12px;}
a {font-size: 12px;}
a:link {text-decoration: none;}
a:visited {text-decoration: none;}
a:hover {text-decoration: none;}
a:active {text-decoration: none;}
-->
</style>
</head>
<body  link="#000033" vlink="#000033" alink="#000033" leftmargin="0" topmargin="0">
<!--#include file="item.asp"-->
<%
if issuccess=true then
response.write("<h2 align=center>影片类型删除成功</h2>")
end if
%>
<form action="" method="post">
<table border="1" width="40%" align="center" bordercolorlight="#FF6699" bordercolordark="#FFCCFF">
<tr>
<td  align="right">已有影片类型</td>
<td><select size="1" name="filmtype">      
	<%                                                
	set rs= server.createobject("adodb.recordset")                                                
	sql = "select * from item"                                                
	rs.open sql,conn,1,1                                                
	do while not rs.eof                                                
	%>                                                
	<option><%=rs("name")%></option>                                                
	<%        
	rs.movenext                                                
	loop         
	rs.close                                                                                       
	%>          
	</select> 
</td>
</tr>
<tr>
<td colspan="2" align="center">
<input type="submit" name="del" value="删除"  style="border-style:groove">        
</td>            
</tr>            
</table>  
</form>                             
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -