xuanjuAsp/xafch315/bdcp/Pdatechg.asp

<!--#include file="../bdcommx/connxyz.asp"-->
<%call log_chk()
%>
<%
dim thex,act,myodr,Keyword,npdcla,Bid,Sid,Bname,Sname
Keyword=request("Keyword")
npdcla=request("npdcla")
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='Pmag.asp?Keyword="&Keyword&"&npdcla="&npdcla&"&Bid="&Bid&"&Sid="&Sid&"&Bname="&Bname&"&Sname="&Sname&"';</SCRIPT>" 
response.end
end if
conn.execute("Update bdcp set cb_id="&myA(0)&",cs_id="&myA(1)&" where cxp_id in ("&idgroup&")")
conn.close
set conn=nothing
response.write"<SCRIPT language=JavaScript>alert('数据转移成功！');"
response.write"this.location.href='Pmag.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='Pmag.asp?Keyword="&Keyword&"&npdcla="&npdcla&"&Bid="&Bid&"&Sid="&Sid&"&Bname="&Bname&"&Sname="&Sname&"';</SCRIPT>" 
response.end
end if
%>