用这样判断是否有权利删除资料可以不？？？
我怎么老是不能控制呢？？
帅哥们帮我看看哪里出了错！
<%
id=request("id")
’判断文章是否是作者所发表
sql2="select 作者 from teacharticle where id="∫(id)
set rs2=server.CreateObject("adodb.recordset")
rs2.open sql2,conn,1,1
if not rs2.eof then
truename=rs2("作者")
if truename<>session("username") then
suc1=0
else
suc1=1
end if
rs2.close
set rs2=nothing
end if
’判断结束
if id="" then
suc=0
Response.Write("<script language=javascript>alert(’请选择要删除的资料！’);history.back();</script>")
elseif suc1=0 then
suc=0
response.Write("<script language=javacsript>alert(’你无权修改不是自己发表的文章！’);window.close();</script>")
else
suc=1
end if
if suc=1 then
sql="delete * from teacharticle where id="∫(request("ID"))
Conn.Execute sql
conn.close
set conn=nothing
Response.Write("<script language=javascript>alert(’已成功删除’);history.back();</script>")
else
Response.Write("<script language=javascript>alert(’找不到要删除的资料，请返回后刷新页面查看是否还存在该资料！’);history.back();</script>")
end if
%> |
