增加个删除代码，新建一个asp文件，代码如下：

<!--#include file="xgcode.asp"-->
<%
if request("id")<>"" then conn.execute "delete xg_id from xg_ly where xg_id="&request("id")
Set rs=Server.CreateObject("ADODB.Recordset")
rs.open "select * from xg_ly order by xg_id desc",conn,1,1
do while not rs.eof
Response.Write "<a href=?id="&rs("xg_id")&">删除</a> "&rs("xg_body")&"<br><br>"
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>