dels.asp

来自「大型人才程序网站程序」· ASP 代码 · 共 56 行

<% Response.Buffer=True %>
<!--#include file="../inc/dbconn1.inc"-->
<%uname=session("puid")%>
<%del2=request("del1")%>
<%
  if del2=1 then
  Set rs = Server.CreateObject("ADODB.Recordset")
  sql="select * from qiuzhi where uname='"&uname&"'"
  rs.open sql,conn,1,1
  if rs.eof then
  response.write"<SCRIPT language=JavaScript>alert('你目前没有求职的信息存在。请按确认返回');"
  response.write"javascript:history.go(-1);</SCRIPT>"
  else
  conn.Execute("delete * from qiuzhi where uname='"&uname&"'")
  response.write"<SCRIPT language=JavaScript>alert('你这次的求职信息已经删除，请按确认返回');"
  response.write"javascript:history.go(-1);</SCRIPT>"
    rs.close
  set rs=nothing
   end if
   end if

  if del2=2 then
  Set rs = Server.CreateObject("ADODB.Recordset")
  sql="select * from jiaoyuan where uname='"&uname&"'"
  rs.open sql,conn,1,1
  if rs.eof and rs.bof then
  response.write"<SCRIPT language=JavaScript>alert('你目前没有做家教的信息存在。请按确认返回');"
  response.write"javascript:history.go(-1);</SCRIPT>"

  else
  conn.Execute("delete * from jiaoyuan where uname='"&uname&"'")
  response.write"<SCRIPT language=JavaScript>alert('你这次的做家教信息已经删除，请按确认返回');"
  response.write"javascript:history.go(-1);</SCRIPT>"
    rs.close
  set rs=nothing
end if
end if

  if del2=3 then
  Set rs = Server.CreateObject("ADODB.Recordset")
  sql="select * from xueyuan where uname='"&uname&"'"
  rs.open sql,conn,1,1
  if rs.eof and rs.bof then
  response.write"<SCRIPT language=JavaScript>alert('你目前没有聘请家教的信息存在。请按确认返回');"
  response.write"javascript:history.go(-1);</SCRIPT>"

  else
  conn.Execute("delete * from xueyuan where uname='"&uname&"'")
  response.write"<SCRIPT language=JavaScript>alert('你这次的聘请家教信息已经删除，请按确认返回');"
  response.write"javascript:history.go(-1);</SCRIPT>"
  rs.close
  set rs=nothing
  end if
end if%>