delete.asp

来自「大一下学期」· ASP 代码 · 共 15 行

<%  Option Explicit   %>
<% 
Response.Buffer=True
'以下连上数据库，建立一个Connection对象实例db
Dim db 
Set db=Server.CreateObject("ADODB.Connection") 
db.Open "Dbq="&Server.Mappath("tongxunlu.mdb")&";Driver={Microsoft Access Driver (*.mdb)};"    
'以下删除记录，注意这里是由index.asp传过来的要删除的记录的网站编号
Dim varid,strSql
varid=Request.QueryString("id")                 '获取要删除的记录网站编号
strSql="Delete From tongxunlu Where id=" & varid 
db.Execute(strSql)                
Response.Redirect "admintongxunlu.asp"                            '删除完毕，重定向回首页
%>