dictionarydelete.asp

电子词典在线版

<% if Session("dictionery_status") <> "login" then response.redirect "login.asp" 
%>
<%
Response.expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader "pragma", "no-cache"
Response.addHeader "cache-control", "private"
Response.CacheControl = "no-cache"
%>
<!--#include file="db.asp"-->

<%
response.buffer = true

'get key
key = request.querystring("key")
if key="" or isnull(key) then
	key=request.form("key")
end if
if key="" or isnull(key) then response.redirect "dictionarylist.asp"

'get action
a=request.form("a")
if a="" or isnull(a) then
	a="I"	'display with input box
end if

' Open Connection to the database
set conn = Server.CreateObject("ADODB.Connection")
conn.Open xDb_Conn_Str

Select Case a
	Case "I": ' Get a record to display

		tkey = key
		strsql = "SELECT * FROM [dictionary] WHERE [ID]=" & tkey

		set rs = Server.CreateObject("ADODB.Recordset")
		rs.Open strsql, conn
		If rs.EOF Then
			Response.Clear
			Response.Redirect "dictionarylist.asp"
		Else
			rs.MoveFirst
		End If

		' Get the field contents

		rs.Close
		Set rs = Nothing

	Case "D": ' Delete

		' Open record
		tkey = key
		strsql = "SELECT * FROM [dictionary] WHERE [ID]=" & tkey

		set rs = Server.CreateObject("ADODB.Recordset")
		rs.Open strsql, conn, 1, 2

		If rs.EOF Then
			Response.Clear
			Response.Redirect "dictionarylist.asp"
		Else
			rs.delete
			rs.close
		End If

		conn.Close
		Set conn = Nothing

		Response.Clear
		Response.Redirect "dictionarylist.asp"

End Select
%>

<!--#include file="header.asp"-->

<p><font size="-1">删除单词<br><br><a href="dictionarylist.asp">回到列表</a></font></p>

<form action="dictionarydelete.asp" method="post">
<p>
<input type="hidden" name="a" value="D">
<input type="hidden" name="key" value="<%= key %>">

<table border="0" cellspacing="1" cellpadding="5" bgcolor="#CCCCCC">
</table>
<p>
<input type="submit" name="Action" value="确认删除">
</form>

<!--#include file="footer.asp"-->