www26.brinkster.com/vernon18/default.asp

for new ASP programer

加個下載源代碼的鏈接吧.

SORRY 沒有留意.

delete-1.asp刪除沒有成功.提示沒有找到文件.

提示500錯誤.估計是服務器的事.

在你的服务器空间无法删除,但我按你的方法做了网页在LOCALHOST却可以删除.

又不行了,是不是因为我用了分页的缘故?
<%@codepage=936%>
<%option explicit%>
<%
if Request.cookies("adname")="" then
    Response.Redirect "index.htm"
end if
Dim conn,rs,myself,page,i,ipage
%>
<%
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 "GoodFriend",conn,1,3
If rs is Nothing Then
Response.write "Á¬½Óʧ°Ü"
Response.end
End If
Myself=Request.ServerVariables("Path_Info")
%>













<%
rs.pagesize=10
page=Clng(Request("page"))
If page<1 Then page=1
If page>rs.pagecount Then page=rs.Pagecount
showpage rs,page
%>

<%sub showpage(rs,page)
Response.write "" & "ÎÒµÄÅóÓÑÃÇ"
Response.write ""
Response.write ""
For i=0 to rs.fields.count-1
    Response.write ""
Next
Response.write ""
rs.Absolutepage=page
For ipage=1 to rs.pagesize
Response.write ""
For i=0 to rs.fields.count-1
    Response.write ""
Next
Response.write ""
rs.movenext
If rs.eof Then Exit For
Next
Response.write "

" & rs(i).name & "

" & rs(i) & "

"
end sub
%>

Ìí¼ÓÊý¾Ý

<%
name=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 rs=Server.createobject("Adodb.Recordset")
    rs.filter="ÐÕÃû='" & name & "'"
    if rs.eof then
        response.write "ûÓÐÕÒµ½ÕâÌõ¼Ç¼:" & name
        rs.filter=""
    else
        rs.delete
        response.write "¼º¾­É¾³ý"
        rs.filter=""
    end if
end if
%>

真是碰到鬼了.这个问题困扰了我很久,明明是很简单,却总是实现不了.