delete.asp

来自「电脑技术精华大全-共77册-507M.zip」· ASP 代码 · 共 29 行

<!--#include file="inc/dbconn.asp"-->
<%

Set rs1 = Server.CreateObject("ADODB.Recordset") 
rs1.Open "Select * From admin ", conn, 3 


pass = Request("word")
If pass <>rs1("pass")Then
   Response.Redirect "index.asp"
   Response.End 
End If
set rs1=nothing  
conn.close
set conn=nothing  
%>

<%
Dim dbc
Dim strConn
Set dbc = Server.CreateObject("ADODB.Connection")
strconn="DBQ="+server.mappath("db_base.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" 
dbc.open strConn 
	id=Request.QueryString("ID")
	sql = "delete from 留言本 where ID = "+CStr(id)
	set rs=dbc.Execute(sql)
	Response.Redirect "index.asp"
%>