asp中后台删除记录的一点问题！
在处理一个人才网站，企业信息在表：company里，ID自动生成，企业招聘人才的信息在表：zp里，可以发布多条招聘信息，ID自动生成，后台删除企业页面里，只删除了comp...
在处理一个人才网站，企业信息在表：company里，ID自动生成，企业招聘人才的信息在表：zp里，可以发布多条招聘信息，ID自动生成，后台删除企业页面里，只删除了company里信息，zp里的招聘信息未删除，浏览页面，还有记录！程序如下：
<%
IF session("KEY")="2" THEN
response.redirect "../nopass.asp"
response.end
END IF
%>
<!--#include file="../config.asp"-->
<!--#include file="DBconn.asp"-->
<head>
<link rel="stylesheet" type="text/css" href="../style.css">
</head>
<body bgcolor="#4473A5" marginheight=0 marginwidth=0 leftmargin=0>
<SCRIPT>
function view(url){
var url; window.open(url,'_blank','status=no,scrollbars=yes,top=20,left=110,width=600,height=460');
}
</SCRIPT>
<%
DIM totalPut
DIM CurrentPage
DIM TotalPages
DIM i,j
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
if not isempty(request("selAnnounce")) then
idlist=request("selAnnounce")
if instr(idlist,",")>0 then
dim idarr
idArr=split(idlist)
dim id,uname
for i = 0 to ubound(idarr)
id=clng(idarr(i))
call deleteannounce(id)
next
else
call deleteannounce(clng(idlist))
end if
end if
.......
sub deleteannounce(id)
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="delete from [company] where id="&cstr(id)
conn.execute sql
if err.Number<>0 then
err.clear
response.write "删 除 失 败 !<br>"
end if
End sub
%>
若子函数里改为：
sub deleteannounce(id)
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="delete from [company] where id="&cstr(id)
conn.execute sql
sql="delete from [zp] where id="&cstr(id)
conn.execute sql
if err.Number<>0 then
err.clear
response.write "删 除 失 败 !<br>"
end if
End sub
%>
则可以删除ID相同的企业信息和其招聘的一条信息！问题是，如果企业有多条招聘信息，ID值在zp表里不唯一!就仍然无法删除记录，我该怎么改？？求高手不吝赐教！！(注：企业用户名是唯一的！两个表中都有字段uname)
针对我这个数据怎么设置关联？能说的详细些么？谢谢！我应该用上述的哪个子函数？
我设置了表company和表zp的关联，是用两个表中的uname字段，但是当我选择了完全参照性，级联删除的时候不让选啊，提示是先出现你需要一对多关系，然后又出现了主表引用字段中找不唯一的索引，然后就不能设置级联删除了，，怎么办？？急急急 啊。！ 展开
<%
IF session("KEY")="2" THEN
response.redirect "../nopass.asp"
response.end
END IF
%>
<!--#include file="../config.asp"-->
<!--#include file="DBconn.asp"-->
<head>
<link rel="stylesheet" type="text/css" href="../style.css">
</head>
<body bgcolor="#4473A5" marginheight=0 marginwidth=0 leftmargin=0>
<SCRIPT>
function view(url){
var url; window.open(url,'_blank','status=no,scrollbars=yes,top=20,left=110,width=600,height=460');
}
</SCRIPT>
<%
DIM totalPut
DIM CurrentPage
DIM TotalPages
DIM i,j
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
if not isempty(request("selAnnounce")) then
idlist=request("selAnnounce")
if instr(idlist,",")>0 then
dim idarr
idArr=split(idlist)
dim id,uname
for i = 0 to ubound(idarr)
id=clng(idarr(i))
call deleteannounce(id)
next
else
call deleteannounce(clng(idlist))
end if
end if
.......
sub deleteannounce(id)
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="delete from [company] where id="&cstr(id)
conn.execute sql
if err.Number<>0 then
err.clear
response.write "删 除 失 败 !<br>"
end if
End sub
%>
若子函数里改为：
sub deleteannounce(id)
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="delete from [company] where id="&cstr(id)
conn.execute sql
sql="delete from [zp] where id="&cstr(id)
conn.execute sql
if err.Number<>0 then
err.clear
response.write "删 除 失 败 !<br>"
end if
End sub
%>
则可以删除ID相同的企业信息和其招聘的一条信息！问题是，如果企业有多条招聘信息，ID值在zp表里不唯一!就仍然无法删除记录，我该怎么改？？求高手不吝赐教！！(注：企业用户名是唯一的！两个表中都有字段uname)
针对我这个数据怎么设置关联？能说的详细些么？谢谢！我应该用上述的哪个子函数？
我设置了表company和表zp的关联，是用两个表中的uname字段，但是当我选择了完全参照性，级联删除的时候不让选啊，提示是先出现你需要一对多关系，然后又出现了主表引用字段中找不唯一的索引，然后就不能设置级联删除了，，怎么办？？急急急 啊。！ 展开
展开全部
你就直接在数据库里面设置两个表的关联，这样只要删除了企业信息，该企业的招聘信息也会跟着删除的！通俗的说，就是建数据库中各表的关系图！这个应该会吧？不会再找我也没关系！
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
