delete.asp

来自「大家好」· ASP 代码 · 共 25 行

<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="ADOVBS.INC"-->

<%
  id=cdbl(request("id"))
   Set conn = Server.CreateObject("ADODB.Connection")
   conn.open application("dbcon_connectionstring")
   set rs=server.createobject("adodb.recordset")
   sqltext="select * from forumadm where adm='"&request("adm")&"' and pw='"&request("pw")&"' "
    rs.open sqltext,conn,adOpenkeyset,adlockoptimistic,adcmdtext 
if rs.eof and  rs.bof  then
    response.write"您非管理员"
    rs.close
    conn.close
else
    sql="select * from forum where id="&clng(request("id"))
	set rs=conn.execute(sql)
	sqldel="delete forum where xl like '%"&trim(rs("xl"))&"%'"
	conn.execute sqldel
    rs.close
    conn.close
    response.redirect "default.asp"
end if
%>