?? delete.asp
字號:
<!--#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"
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -