delg.asp

来自「网站源代码」· ASP 代码 · 共 24 行

<!--#include file="conn.asp"-->
<!--#include file="chkuser.asp"-->
<%
dim id
if request("id")<>"" then
id=request("id")
else
response.write "id错误"
end if
response.Write(id)
set rs=server.createobject("adodb.recordset")
sql="select * from ggw where id="&request("id")

rs.open sql,conn,1,3
if not rs.eof then
rs.delete
else
%>
没有这条记录
<%
end if

response.redirect("guanggao.asp")%>