u_delete.asp

wap源码要的速度下wap源码要的速度下

<!--#INCLUDE file="data.asp"-->
<%
  admin=Request("admin")
  id=Request("id")
  
Set conn=Server.CreateObject("ADODB.connection")
conn.Open Provider&DBPath
set rs=Server.CreateObject("ADODB.Recordset")
  sql="select * from admin where admin='"&admin&"'"
  rs.open sql,conn
   Set rt= Server.CreateObject("ADODB.Recordset")
sql="SELECT * From users where id="&id&" Order By id"
rt.Open sql,conn,1,2
 Response.write "<card id='card1' title='数据清空'>"
 Response.write "<p align='left'>"
 if not rs.eof or admin="" then
  if admin="" then
 Response.Redirect "ad_login.asp"
 end if
 Response.write "你真的确认删除该用户吗?<br/>"
 Response.write "<br/><a href='udelete.asp?id=" &rt("id")&"&amp;admin="&admin&"'>确认</a>&nbsp;"
 Response.write "<a href='admin.asp?admin=" & admin & "'>取消</a>"
 Response.write "<br/>---------<br/>"

 Response.write "CopyRight 2006-2007<br/>"
 Response.write url
 Response.write "<br/><a href='admin.asp?admin=" & admin & "'>返回管理页</a>"
 else
 Response.write "非法入侵!"
End if
set rs=nothing
set rt=nothing
conn.close
set conn=nothing
%>
</p></card></wml>