📄 admindelupd.asp

📁 使用asp+sql编写的的各种程序案例

💻 ASP

字号:

<%@ Language=VBScript %>
<% 
'wrong login ...?
if session("login") <> "yes" then
	Response.Redirect ("adminlog.asp")
end if
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" href="stili.css" type="text/css">
<title>Set active poll - update</title>
<% 
on error resume next
	'获得需要删除的投票主题...
	a = Request.Form("delete")
	
	'创建connection...
	set conn = server.CreateObject ("ADODB.Connection")
	conn.Open "Provider=SQLOLEDB;data source=(local);initial catalog=vote;user id=sa;password=;"
	'获得主题信息...
	sql = "SELECT * FROM title where title = '" & a & "'"
	set rs = server.CreateObject ("ADODB.Recordset")
	rs.Open sql, conn, 3, 3
	
	'获得投票主题编号...
	b = rs.Fields ("id")	
	
	'删除投票主题..
	rs.Delete
	
	'关闭数据库...
	rs.Close
	set rs = nothing
%>
<%
	set conn = server.CreateObject ("ADODB.Connection")
	conn.Open "Provider=SQLOLEDB;data source=(local);initial catalog=vote;user id=sa;password=;"
	'查询出被删掉主题的所有选项..
	sql = "SELECT * FROM vote where id = " & b
	set rs = server.CreateObject ("ADODB.Recordset")
	rs.Open sql, conn, 3, 3
	do while not rs.eof
	    rs.Delete '删除
	    rs.movenext
        loop
	rs.Close
	set rs = nothing
	conn.Close
	set conn = nothing
%>

</HEAD>
<BODY>
<table width="200" border="1" cellspacing="0" align="center" style="border-collapse: collapse" cellpadding="10" bordercolor="#000000">
	<tr> 
	<td bgcolor="#ADD8E6" align="center"><span class="nortxtv10">
	<font color="red"><b>主题被删除!</b>
	</font><p></p>
	谢谢.<p></p><a href="admintit.asp">返回</a></span></td>
	</tr>
</table>
</BODY>

</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -