如题,大神快来,在线等,谢谢
<%
Dim conn
Set conn=server.CreateObject("adodb.connection")
'conn.open "txl"
'conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("address.mdb")
conn.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("address.mdb")
sql="delete from xsxx where id='"& request.querystring("id")&"'"
Set rs=conn.execute(sql)
response.write "学生信息已删除!"
%>!!
<%
Dim conn
Set conn=server.CreateObject("adodb.connection")
'conn.open "txl"
'conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("address.mdb")
conn.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("address.mdb")
sql="delete from xsxx where id='"& request.querystring("id")&"'"
Set rs=conn.execute(sql)
response.write "学生信息已删除!"
%>!!