<!--#include virtual="/show/userhead.asp"-->
<!--#include virtual="/inc/connhost.asp"-->
<script>document.getElementById('o_2').setAttribute("class", "ed"); document.getElementById("t_2").style.display="";document.getElementById('s_2_5').setAttribute("class", "ed4");</script>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />

<title><%=webname%>-库存卡密</title>

<%
call chkyanzheng("kucunka")

'call logadd(request.Cookies("aynameid"),"浏览kucunka",9,0)

kakuid=request.Cookies("kamiku")

Const stringmodarr = "0123456789"
dim randarr2,strlength
strlength = Len(stringmodarr)
Randomize timer
For i = 1 To 4 
randarr2 = randarr2&Mid(stringmodarr,Int(Rnd * strlength + 1),1)  
Next 
get_timeh=timer()*100
get_timeh=right("00"&get_timeh,2)
get_timeh=replace(get_timeh,".","0")
randarr = Right((year(Now())),2)&Right(("00"&Month(Now())),2)&Right(("00"&Day(Now())),2)&Right(("00"&hour(Now())),2)&Right(("00"&minute(Now())),2)&Right(("00"&second(Now())),2)&get_timeh&randarr2

if SafeRequest("act")="shou" then response.Cookies("shangid")=""


act=SafeRequest("act")
cact=SafeRequest("cact")
page=SafeRequest("page")
sql2="aykasuoyou="&request.Cookies("aynameid")&""
link="kucunka?cact=cha"

if cact="cha" or SafeRequestform("cact")="cha" then

if SafeRequestform("shangid")<>"" then
shangid=SafeRequestform("shangid")
elseif SafeRequest("shangid")<>"" then
shangid=SafeRequest("shangid")
end if

kahao=trim(SafeRequestform("kahao"))
if kahao<>"" then response.Cookies("kahao")=kahao
if kahao="" then response.Cookies("kahao")=""

if shangid=0 then response.Cookies("shangid")=""

if shangid<>0 then
response.Cookies("shangid")=shangid
sql2="aykasuoyou="&request.Cookies("aynameid")&" and aykagoodid="&shangid&""

'查找是否为代理商品
response.Cookies("sshangid")=""

sql="select aysjgid,aygoodid,aygoodsuoyouid,aygooddlid,aygsumid from aygood where aygoodid="&request.Cookies("shangid")&" and aygoodsuoyouid="&request.Cookies("aynameid")&"" 
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
aygooddlid=rs("aygooddlid")  '上级代理ID 默认0无代理
aysjgid=rs("aysjgid") 		 '上级商品ID
aygoodsuoyouid=request.Cookies("aynameid")

	if clng(aygooddlid)<>0 then '是代理商品 
	
			For dsum=1 To 10 '10层代理关系
			set rsd=server.CreateObject("adodb.recordset")
			
				'验证代理关系                                                                               '代理商 商户ID                        上级代理 商户ID 
				rsd.open "select aydluserid,aydlsjuserid,aydlistongguo from aydailishang where aydluserid='"&aygoodsuoyouid&"' and aydlsjuserid='"&clng(aygooddlid)&"' and aydlistongguo=1",conn,1,1
				if rsd.bof and rsd.eof then 
				call PopErr("代理关系失效")
				response.End()
				end if
				rsd.close
				 
				'获取代理商品ID                                                                                 '上级商品ID                          上级代理 商户ID 
				rsd.open "select aygiska,aygsumid,aygoodsuoyouid,aysjgid,aygooddlid,aygoodid from aygood where aygoodid="&clng(aysjgid)&" and aygoodsuoyouid="&clng(aygooddlid)&"",conn,1,1
				if not(rsd.bof and rsd.eof) then 
					if clng(rsd("aygooddlid"))=0 then '已是顶级代理
						if clng(rsd("aygiska"))=0 then 
						call PopErr("上级代理商禁止查看该商品库存卡密信息") 
						response.End()
						end if
					response.Cookies("sshangid")=aysjgid
					sjgoodid=aygooddlid
					aysjgid=aysjgid
					rsd.close
					exit for
					else
					aysjgid=rsd("aysjgid") 			    '上级商品ID 
					aygoodsuoyouid=rsd("aygoodsuoyouid") '代理商 商户ID  
					aygooddlid=rsd("aygooddlid")		    '上级代理 商户ID 
					end if
				else
				call PopErr("未找到代理商品")								'未找到代理商品
				end if
				rsd.close
				
			next 
			

		
		'总代卡库
		rsd.open "select aynameid,kamiku from ayname where aynameid="&clng(sjgoodid)&"" ,conn,1,1
		kakuid=trim(rsd("kamiku"))
		rsd.close
		
		if shangid<>0 then
		response.Cookies("shangid")=shangid
			if request.Cookies("sshangid")<>"" then
			sql2="aykasuoyou='"&clng(sjgoodid)&"' and aykagoodid='"&request.Cookies("sshangid")&"'"
			end if
		end if
		
	end if

end if
rs.close 

end if

if kahao<>"" then sql2=sql2&" and ayka like '%"&kahao&"%'"
link="kucunka?cact=cha&shangid="&request.Cookies("shangid")&""
end if


if SafeRequestform("act")="move" then
list1=SafeRequestform("list1")
toshangid=SafeRequestform("toshangid")
if toshangid="0" then call PopErr("请选择需要移动到的商品")
if list1="" then call PopErr("未找到选择的卡密")

	sql="select * from aygood where aygoodid="&toshangid&" and aygoodsuoyouid="&request.Cookies("aynameid")&"" 
	rs.open sql,conn,1,1
	if rs.bof and rs.eof then
	call PopErr("转移商品ID无效")
	else
	if clng(rs("aygooddlid"))<>0 then call PopErr("无法移动至代理商品")
	end if
	rs.close

	delid=split(list1,",")
	For dianka=0 To Ubound(delid) 
	sql="select * from "&kakuid&" where aykaid="&trim(delid(dianka))&" and aykasuoyou="&clng(request.Cookies("aynameid"))&"" 
	rs.open sql,conn,1,3
		if not(rs.bof and rs.eof) then
		rs("aykagoodid")=toshangid
		rs.update
		else
		call PopErr("未找到此项目")
		end if
	rs.close
	next

call logadd(request.Cookies("aynameid"),"卡密转移到商品成功",0,0)
call PopErr2("卡密转移操作成功","kucunka")
response.End()
end if


if SafeRequestform("act")="alldown" then
shangid=SafeRequestform("shangid")
if shangid="" or shangid="0" then call PopErr("选择商品错误")
mingcheng=randarr&".txt"

	sql="select aygoodid,aygoodsuoyouid,aygoodname from aygood where aygoodid="&shangid&" and aygoodsuoyouid="&request.Cookies("aynameid")&"" 
	rs.open sql,conn,1,1
	if not(rs.bof and rs.eof) then
	gname=trim(rs("aygoodname"))
	end if
	rs.close
	strOut=gname&CHR(13)&CHR(10)&CHR(13)&CHR(10)

	sql="select * from "&kakuid&" where aykagoodid="&shangid&" and aykasuoyou="&clng(request.Cookies("aynameid"))&" and aykayesno=0" 
	rs.open sql,conn,1,1
	if not(rs.bof and rs.eof) then
	do while not rs.eof
		if trim(rs("aykapass"))="0" then 
		aykapass=" "
		else
		aykapass=trim(rs("aykapass"))
		end if
		strOut=strOut&trim(rs("ayka"))&"  "&aykapass&CHR(13)&CHR(10)
	rs.movenext
	loop
	end if
	rs.close

	strOut=strOut&CHR(13)&CHR(10)&CHR(13)&CHR(10)&webname&CHR(13)&CHR(10)&CHR(13)&CHR(10)&"创建时间 "&now()
	Set fso=Server.CreateObject("Scripting.FileSystemObject")
	set linkw=fso.createtextfile(server.mappath("\updata\kucunka\"&mingcheng),true)
	linkw.writeline strOut
	linkw.close
	response.Redirect hosturl&"index/downkc?url="&mingcheng
	set linkw=Nothing
	set fso=Nothing


end if


if SafeRequestform("act")="down" then
shangid=SafeRequestform("shangid")
mingcheng=randarr&".txt"

if trim(shangid)<>"" then
	sql="select * from aygood where aygoodid="&shangid&" and aygoodsuoyouid="&request.Cookies("aynameid")&"" 
	rs.open sql,conn,1,1
	if not(rs.bof and rs.eof) then
	gname=trim(rs("aygoodname"))
	end if
	rs.close

strOut=gname&CHR(13)&CHR(10)
else
strOut="  "&CHR(13)&CHR(10)
end if



list1=SafeRequestform("list1")
if list1="" then call PopErr("未找到此项目")
	delid=split(list1,",")
	For dianka=0 To Ubound(delid) 
	sql="select * from "&kakuid&" where aykaid="&trim(delid(dianka))&" and aykasuoyou="&clng(request.Cookies("aynameid"))&"" 
	rs.open sql,conn,1,1
	
	if rs.bof and rs.eof then
	call PopErr("未找到此项目")
	else
		if trim(rs("aykapass"))="0" then 
		aykapass=" "
		else
		aykapass=trim(rs("aykapass"))
		end if
		strOut=strOut&trim(rs("ayka"))&"  "&aykapass&CHR(13)&CHR(10)
	end if
	rs.close
	next
	
	strOut=strOut&CHR(13)&CHR(10)&CHR(13)&CHR(10)&webname&CHR(13)&CHR(10)&CHR(13)&CHR(10)&"创建时间 "&now()
	Set fso=Server.CreateObject("Scripting.FileSystemObject")
	set linkw=fso.createtextfile(server.mappath("\updata\kucunka\"&mingcheng),true)
	linkw.writeline strOut
	linkw.close
	response.Redirect hosturl&"index/downkc?url="&mingcheng
	'response.Redirect("feika?page="&page&"")
set linkw=Nothing
set fso=Nothing
end if



if SafeRequest("act")="del" then
id=SafeRequest("id")
goodid=SafeRequest("goodid")
if id="" then call PopErr("获取参数错误")


sql="select * from "&kakuid&" where aykaid="&id&" and aykasuoyou="&request.Cookies("aynameid")&"" 
rs.open sql,conn,1,3
if rs.bof and rs.eof then
call PopErr("未找到卡密信息，或无权限")
else
rs.delete
rs.close
call logadd(request.Cookies("aynameid"),"库存卡删除",0,0)
response.Redirect("kucunka?cact=cha&page="&page&"&shangid="&goodid&"")
end if
end if

if SafeRequestform("act")="alldel" then
shangid=SafeRequestform("shangid")
list1=SafeRequestform("list1")
if list1="" then call PopErr("未找到此项目")
	delid=split(list1,",")
	
	For dianka=0 To Ubound(delid) 
		'response.Write delid(dianka)
		sql="select * from "&kakuid&" where aykaid="&trim(delid(dianka))&" and aykasuoyou="&request.Cookies("aynameid")&"" 
		rs.open sql,conn,1,3
		if rs.bof and rs.eof then
		call PopErr("未找到卡密信息，或无权限")
		else
		rs.delete
		end if
		rs.close
	next
	call logadd(request.Cookies("aynameid"),"库存卡多选删除",0,0)
	response.Redirect("kucunka?cact=cha&page="&page&"&shangid="&shangid&"")

end if



if SafeRequestform("act")="spalldel" then
shangid=SafeRequestform("shangid")
if shangid="" or shangid="0" then call PopErr("选择商品错误")
conn.execute("delete from "&request.Cookies("kamiku")&" where aykagoodid="&clng(shangid)&" and aykasuoyou="&clng(request.Cookies("aynameid"))&" and aykayesno=0")
call logadd(request.Cookies("aynameid"),"商品下库存卡全部删除成功",0,0)
response.Redirect("kucunka?cact=cha&page="&page&"&shangid="&shangid&"")
end if


'if SafeRequestform("act")="youxian" then
'shangid=SafeRequestform("shangid")
'list1=SafeRequestform("list1")
'if list1="" then call PopErr("未找到此项目")
'	delid=split(list1,",")
	
'	For dianka=0 To Ubound(delid) 
'	conn.execute "update "&kakuid&" set ayisy=1 where aykaid="&trim(delid(dianka))&" and aykasuoyou="&request.Cookies("aynameid")&""
'	next
'	call logadd(request.Cookies("aynameid"),"卡密设置优先发卡成功",0,0)
'	response.Redirect("kucunka?cact=cha&page="&page&"&shangid="&shangid&"")

'end if


'if SafeRequestform("act")="qxyouxian" then
'shangid=SafeRequestform("shangid")
'list1=SafeRequestform("list1")
'if list1="" then call PopErr("未找到此项目")
'	delid=split(list1,",")
	
'	For dianka=0 To Ubound(delid) 
'	conn.execute "update "&kakuid&" set ayisy=0 where aykaid="&trim(delid(dianka))&" and aykasuoyou="&request.Cookies("aynameid")&""
'	next
'	call logadd(request.Cookies("aynameid"),"卡密取消优先发卡成功",0,0)
'	response.Redirect("kucunka?cact=cha&page="&page&"&shangid="&shangid&"")

'end if


%>



<SCRIPT LANGUAGE="JavaScript">
var checkflag1 = "false";
function check1(field) {
if (checkflag1 == "false") {
for (i = 0; i < field.length; i++) {
field[i].checked = true;}
checkflag1 = "true";
return "false"; }
else {
for (i = 0; i < field.length; i++) {
field[i].checked = false; }
checkflag1 = "false";
return "true"; }
}

function unselectall1()
{
    if(document.myform.chkAll1.checked){
	document.myform.chkAll1.checked = document.myform.chkAll1.checked&0;
	checkflag1 = "false";
    } 	
}
</script>
<SCRIPT LANGUAGE="JavaScript">
function down(){

	document.getElementById("act").value="down";
	document.getElementById(myform).submit();
    return true;

}

function alldown(){

	document.getElementById("act").value="alldown";
	document.getElementById(myform).submit();
    return true;

}


function spalldel(){
	if(confirm("删除卡密，将无法恢复！你确定删除该商品下所有库存卡密吗？"))
	{
		document.getElementById("act").value="spalldel";
		document.getElementById(myform).submit();
			return true;
	}else{
			return false;
	}
}



function del(){
	if(confirm("删除卡密，将无法恢复！确定要删除吗？"))
	{
		document.getElementById("act").value="alldel";
		document.getElementById(myform).submit();
			return true;
	}else{
			return false;
	}
}


function move(){
	if(confirm("卡密移动到不同商品可能会造成投诉，确定要操作吗？"))
	{
		document.getElementById("act").value="move";
		document.getElementById(myform).submit();
			return true;
	}else{
			return false;
	}
}

function youxian(){

	document.getElementById("act").value="youxian";
	document.getElementById(myform).submit();
    return true;

}
function qxyouxian(){

	document.getElementById("act").value="qxyouxian";
	document.getElementById(myform).submit();
    return true;

}
</script>
<style>
table{font-size:14px; font-weight:normal;line-height:27px;}
.regts{width:440px; height:36px; border:#CCC solid 1px; background:#f1f1f1; color:#666666; line-height:36px; padding-left:10px}
.reginput{width:290px; height:36px; border:#CCC solid 1px; color:#949494; text-indent:10px; line-height:36px}
.gexian20{float:left;width:100%;height:20px;}
.mzsmbox2{width:90%; height:auto; overflow:hidden; background:#fcf8e2; border-left:#edd28a solid 5px; color:#956825; line-height:22px; padding:20px;margin-left:40px; margin-bottom:60px; font-size:13px;padding-top:20px;}
.neitable table{border: 1px solid #E8E8E8;width: 100%;}
.neitable table tr{border-bottom: 1px solid #E8E8E8;}
.neitable table tr td{line-height: 42px;text-align: center;color: #1b1b1b;font-size: 14px;}
.neitable table tr.hd td{line-height: 35px;background-color: #F7F7F7;}
.btnFn1 {cursor:pointer!important;cursor:hand;  height:40px; width:101px; padding:0px 0px 0 0; }
.btnFn2 {cursor:pointer!important;cursor:hand;  height:40px; width:101px; padding:0px 0px 0 0; font-weight:bold; }
.logindlreg2{cursor:pointer;margin-left:5px; padding:7px;font-family:"Microsoft YaHei",Verdana,Arial; font-size:13px; text-align:center; color:#505050; font-weight:bold; background:#F2F2F2; border:#C3C3C3 solid 1px; border-radius:2px; }
.logindlreg2:hover{color:#505050;border:#999999 solid 1px; border-radius:2px; }
.logindlregedit{ margin-top:3px;height:36px;font-family:"Microsoft YaHei",Verdana,Arial; line-height:30px; font-size:13px; text-align:center; color:#505050; font-weight:bold; background:#F2F2F2;  border:#C3C3C3 solid 1px; border-radius:2px; }
.logindlregedit:hover{color:#505050;border:#999999 solid 1px; border-radius:2px; }
.logindlreg2tj{ margin-top:4px;height:36px;font-family:"Microsoft YaHei",Verdana,Arial; line-height:30px; font-size:13px; text-align:center; color:#ffffff; font-weight:bold; background:#F79740; border:0; border-radius:2px; }
.logindlreg2tj:hover{background:#F99C48; }
.reginputd{ width:190px; height:36px; border:#CCC solid 1px; text-indent:10px; line-height:36px}
.reginputdd{ width:110px; height:36px; border:#CCC solid 1px; text-indent:10px; line-height:36px}
.reginputddd{ width:40px; height:36px; border:#CCC solid 1px; text-indent:10px; line-height:36px}
.reginputdddd{ width:50px; height:36px; border:#CCC solid 1px; text-indent:10px; line-height:36px}
.regt3{ width:650px; height:36px; border:#CCC solid 1px; background:#F9F9F9; color:#999999; line-height:36px; padding-left:10px}
</style>
<br>
<DIV id=main2> 

<DIV style="PADDING-LEFT:0px">
<DIV id=main_right_content>

<H2><SPAN>库存卡密</SPAN></H2>
<DIV class=main4>

<form action="?cact=cha" method="post" name="chaxun" id="chaxun">
					<table>
                  		<tr>
                          <td>
            &nbsp;商品名称：
                   <select name="shangid" id="shangid" class="reginput">
                   <option value="0">全部商品</option>
                  <%
				  movestr="<select name=toshangid id=toshangid  class=reginput>"
				  movestr=movestr&"<option value=0>将选定卡密移动至其他商品</option>"
				  
                  nogood="no"
                  set rsf=server.CreateObject("adodb.recordset")
                  sqlf="select * from aykafenlei where aykanamesuoyou="&request.Cookies("aynameid")&" and ayshangjiid=0 order by aykafenleisx asc" 
                  rsf.open sqlf,conn,1,1
                  if not(rsf.bof and rsf.eof) then
                  do while not rsf.eof
            
                                      sql="select * from aygood where aygoodsuoyouid="&request.Cookies("aynameid")&" and aygoodfl="&rsf("aykafenleiid")&" and isptdx=0 order by aygoodsx asc" 
                                      rs.open sql,conn,1,1
                                      if not(rs.bof and rs.eof) then 
                                      nogood="yes"
                                          do while not rs.eof
										  movestr=movestr&"<option value="&rs("aygoodid")&">"&trim(rsf("aykafenleiname"))&">>"&trim(rs("aygoodname"))&"</option>"%>
                                          <option value="<%=rs("aygoodid")%>" 
                                          <%if request.Cookies("shangid")<>"" then
                                            if clng(request.Cookies("shangid"))=clng(rs("aygoodid")) then response.Write("selected")
                                            end if%>><%=trim(rsf("aykafenleiname"))%>>><%=rs("aygoodname")%></option>
                                          <%	
                                          rs.movenext 
                                          loop
                                      else
									  movestr=movestr&"<option value=0>"&trim(rsf("aykafenleiname"))&">>暂无商品</option>"%>
                                      <option value="0"><%=trim(rsf("aykafenleiname"))%>>>暂无商品</option>
                                      <%end if
                                      rs.close
                          set rsf2=server.CreateObject("adodb.recordset")
                          sqlf2="select * from aykafenlei where aykanamesuoyou="&request.Cookies("aynameid")&" and ayshangjiid="&rsf("aykafenleiid")&" order by aykafenleisx asc" 
                          rsf2.open sqlf2,conn,1,1
                          if not(rsf2.bof and rsf2.eof) then
                          do while not rsf2.eof
                                      sql="select * from aygood where aygoodsuoyouid="&request.Cookies("aynameid")&" and aygoodfl="&rsf2("aykafenleiid")&" and isptdx=0 order by aygoodsx asc" 
                                      rs.open sql,conn,1,1
                                      if not(rs.bof and rs.eof) then 
                                      nogood="yes"
                                          do while not rs.eof
										  movestr=movestr&"<option value="&rs("aygoodid")&">"&trim(rsf("aykafenleiname"))&">>"&trim(rsf2("aykafenleiname"))&">>"&trim(rs("aygoodname"))&"</option>"%>
                                          <option value="<%=rs("aygoodid")%>" 
                                          <%if request.Cookies("shangid")<>"" then
                                            if clng(request.Cookies("shangid"))=clng(rs("aygoodid")) then response.Write("selected")
                                            end if%>><%=trim(rsf("aykafenleiname"))%>>><%=trim(rsf2("aykafenleiname"))%>>><%=rs("aygoodname")%></option>
                                          <%	
                                          rs.movenext 
                                          loop
                                      else
									  movestr=movestr&"<option value=0>"&trim(rsf("aykafenleiname"))&">>"&trim(rsf2("aykafenleiname"))&">>暂无商品</option>"%>
                                      <option value="0"><%=trim(rsf("aykafenleiname"))%>>><%=trim(rsf2("aykafenleiname"))%>>>暂无商品</option>
                                      <%end if
                                      rs.close
                          rsf2.movenext 
                          loop	 
                          end if
                          rsf2.close
                  rsf.movenext 
                  loop 
                  end if
                  rsf.close
				  movestr=movestr&"</select>"
                  %>
                  </select> <%if nogood="no" then call PopErr2("请先添加商品","goodadd")%>
            &nbsp;卡号查询：
            &nbsp;<input name="kahao" type="text" id="kahao" value="<%if trim(request.Cookies("kahao"))<>"" then response.Write server.HTMLEncode(trim(request.Cookies("kahao")))%>" class="reginputd" maxlength="35">
			<input type="submit" name="Submit" value=" 查 询 " class="logindlregedit">&nbsp;
            <span style="color: #CCCCCC">[查看代理商品卡密请选择商品进行查询]</span>
           

                         </td>
                        </tr>
                    </table>
            </form>






  <div class="neitable">
                    <form action="?page=<%=page%>" method="post" name="myform" id="myform"> 
					<table>
                        <tr class="hd">
                        	<td width="30">&nbsp;</td>
        					<td>卡密信息</td>
                            <td>商品名称</td>
                            <td>添加时间</td>
                            <td>删除卡密</td>
                      </tr>
						<%
						if trim(shangid)="" and trim(kahao)="" then%>
                        <tr>
                        <td colspan="5" style="text-align:center; color:#F60">请选择商品，或输入卡号查询库存卡密！</td>
                        </tr>
						<%else
                        sql="select * from "&kakuid&" where "&sql2&" and aykayesno=0 order by aykaid desc" 
						
						'response.Write sql
						'response.end
						
                        rs.open sql,conn,1,1
                        rs.pagesize=50
                        pagecount=rs.pagecount 
                        if request("page")="" then 
                        page=1
                        else
                        page=int(request("page")) 
                        end if
                        if page<=0 then page=1 
                        if request("page")="" then page=1
                        if not(rs.bof and rs.eof) then
                        rs.absolutepage=page
                        do while not rs.eof%>
                  		<tr onmouseover=this.bgColor='#FAFAFA' onmouseout=this.bgColor='#ffffff'>
                       	  <td><input name="list1" type="checkbox" id="list1" value="<%=rs("aykaid")%>" onClick="unselectall1()"></td>
                            <td>
							<%
                            response.Write "卡号："&trim(rs("ayka"))
							'if rs("ayisy")=1 then response.Write" <span style=color:#F60>[优先]</span>"
							response.Write "<br>"
                            if trim(rs("aykapass"))<>"0"  then
                            response.Write "密码："&trim(rs("aykapass"))
                            end if
                            %>
                            </td>
                            <td>
							<%
                            set rsgood=server.CreateObject("adodb.recordset")
                            sqlgood="select * from aygood where aygoodid="&clng(rs("aykagoodid"))&"" 
                            rsgood.open sqlgood,conn,1,1
                            if not(rsgood.bof and rsgood.eof) then response.Write rsgood("aygoodname"):else:response.Write "商品或已删除":end if
                            %>
                            </td>
                          	<td><%=rs("aykadata")%></td>
                <td><a href="?act=del&id=<%=rs("aykaid")%>&page=<%=page%>&goodid=<%=rs("aykagoodid")%>"  onclick="javascript:return confirm('删除卡密，将无法恢复！您确定要删除吗？');"><img src="<%=ossurl%>images/ico_del.gif" alt="删除" border="0"></a></td>
                        </tr>
						<%rsgood.close
						n=n+1
						rs.movenext
						if n>=rs.pagesize then exit do  
						loop
						end if
						zongshu=rs.RecordCount
						rs.close%>
                        
                        <tr>
                        <td colspan="5" style="text-align:left">&nbsp;
                        <input name="chkAll1" type="checkbox" id="chkAll1" onClick="this.value=check1(this.form.list1)" value="checkbox">&nbsp;全选&nbsp;
                        <input type="submit" name="Submit" value=" 删除选定 " onClick="return del();" class="logindlregedit"> 
                        <input type="submit" name="Submit2" value=" 下载选定 " onClick="return down();" class="logindlregedit">
                        <!--
                        <input type="submit" name="Submit3" value=" 设置优先发卡 " onClick="return youxian();" class="logindlregedit">
                        <input type="submit" name="Submit4" value=" 取消优先发卡 " onClick="return qxyouxian();" class="logindlregedit">
                        -->
                        <%if request.Cookies("shangid")<>"0" and request.Cookies("shangid")<>"" then%>
                        <input type="submit" name="Submit3" value=" 导出该商品全部卡密 " onClick="return alldown();" class="logindlregedit">
                        <input type="submit" name="Submit4" value=" 删除该商品全部卡密 " onClick="return spalldel();" class="logindlregedit">
                        <%end if%>
                        <%=movestr%>
                        <label><input type="submit" name="Submit4" onClick="return move();" class="logindlregedit" value=" 确 定 移 动 " /></label>
                        <input name="act" type="hidden" id="act" value="" />
                        <input name="shangid" type="hidden" id="shangid" value="<%=request.Cookies("shangid")%>" />
                        </td>
                      </tr>
                        <tr>
                        <td colspan="5" style="text-align:left">&nbsp;
                        <%call pageye()%>
                        </td>
                      </tr>
                    <%end if%>
                      
                    </table>
                    </form>
            		</div>
                    
                    <br>
            <div class="mzsmbox2" style="padding-top:20px;">
            重要提示：删除卡密，将无法恢复！请谨慎操作！
            </div>
            

</DIV>
<% response.Cookies("shangid")=""%>

</DIV></DIV>
<DIV class=clear></DIV></DIV>
</DIV>
<%

	
%>
<br>

	<!--#include virtual="/show/foot.asp"-->


