請看看我的代碼:
testing.asp
<%
Set conn=Server.createobject("Adodb.connection")
conn.open "Provider=Microsoft.jet.oledb.4.0;Data Source=" & Server.MapPath("db/Myfriend.mdb")
Set rs=Server.createobject("Adodb.Recordset")
rs.open "Select * from goodfriend",conn,1,3
if rs is nothing then
    Response.write "connection error"
    Response.end
end if
%>














<%
For i=0 to rs.fields.count-1
    Response.write ""
Next
%>

<%
rs.movefirst
do while not rs.eof
    row=""
    For i=0 to rs.fields.count-1
        row=row & ""
    Next
    Response.write row & ""
    rs.movenext
loop
%>

" & rs(i).name & "

" & rs(i) & "

pagedel.asp
<%
Set conn=Server.createobject("Adodb.connection")
conn.open "Provider=Microsoft.jet.oledb.4.0;Data Source=" & Server.MapPath("db/Myfriend.mdb")
Set rs=Server.createobject("Adodb.Recordset")
rs.open "Select * from goodfriend",conn,1,3
%>











<%
name=trim(Request("deluser"))
if name<>"" then
    Set conn=Server.createobject("Adodb.connection")
    conn.open "Provider=Microsoft.jet.oledb.4.0;Data Source=" & Server.MapPath("db/myfriend.mdb")
    Set rs1=Server.createobject("Adodb.Recordset")
    sql="delete from goodfriend where 姓名="
    sql=sql & "'" & Replace(name,"'","'") & "'"
    rs1.open sql,conn,3,2
    rs1.delete
    rs1.update
end if
%>


<%
For i=0 to rs.fields.count-1
    Response.write ""
Next
%>

<%
rs.movefirst
do while not rs.eof
    row=""
    For i=0 to rs.fields.count-1
        row=row & ""
    Next
    Response.write row & ""
    rs.movenext
loop
%>

" & rs(i).name & "

" & rs(i) & "

%>


我的思路是通過在PAGEDEL.ASP中request testing.asp中表單delid的參數,然後將其刪除,但沒有成功.這樣的做法有什麼不對?

通过ID删除吧