xuanjuAsp/xafch315/News/Ndatechg.asp


<!--#include file="../bdcommx/connxyz.asp"-->
<%call log_chk()%>
<%dim Keyword,Bid,Sid,Bname,Sname
Keyword=request("Keyword")
npdclaY=request("npdclaY")
Bid=request("Bid")
Sid=request("Sid")
Bname=request("Bname")
Sname=request("Sname")
if npdclaY<>"" then
myA=split(npdclaY,"|")
idgroup=trim(request.form("idgroup"))
if idgroup="" or isnull(idgroup) then
response.write"<SCRIPT language=JavaScript>alert('无匹配！');"
response.write"this.location.href='Nmag.asp?Keyword="&Keyword&"&Bid="&Bid&"&Sid="&Sid&"&Bname="&Bname&"&Sname="&Sname&"';</SCRIPT>" 
response.end
end if
conn.execute("Update bdnews set nb_id="&myA(0)&",ns_id="&myA(1)&" where nws_id in ("&idgroup&")")
conn.close
set conn=nothing
response.write"<SCRIPT language=JavaScript>alert('数据转移成功！');"
response.write"this.location.href='Nmag.asp?Keyword="&Keyword&"&npdcla="&npdcla&"&Bid="&Bid&"&Sid="&Sid&"&Bname="&Bname&"&Sname="&Sname&"';</SCRIPT>" 
response.end
else
response.write"<SCRIPT language=JavaScript>alert('请选择类别！');"
response.write"this.location.href='Nmag.asp?Keyword="&Keyword&"&npdcla="&npdcla&"&Bid="&Bid&"&Sid="&Sid&"&Bname="&Bname&"&Sname="&Sname&"';</SCRIPT>" 
response.end
end if%>