<%
const x_ppy=8
const x_ppm=1000
const x_ppck="eespp"
const x_ppgx="@@"
const x_ppga="##"
const x_ppgb="||"
const x_ppzf=100
dim x_pptj:x_pptj=i_dir&"?deal/asai.html"
dim x_ppur:x_ppur=i_dir&"?shop.html"
dim ppaus,ppajg,ppatm,ppaxy,ppakk
ppakk=0
ppajg=0
'-----------------------------------
'order main sub (start)
'ppsai(ppfty=1del|9do ppapp+cook|11del all|10write str,ppfstr,ppfsn,ppfoy,ppfjg,ppfbt,ppfus,ppfoz,ppfjs)
'-----------------------------------
function ppsai(ppfty,ppfstr,ppfsn,ppfoy,ppfjg,ppfbt,ppfus,ppfoz,ppfjs)
if ppfty=11 then
response.Cookies(x_ppck)=""
ppsai="<script language=javascript>alert('提示：清空完成。');</script>"
elseif ppfty=10 or ppfty=0 then
response.Cookies(x_ppck)=ppfstr
elseif ppfty=9 or ppfty=1 then
ppfstr=Request.Cookies(x_ppck)
Call ppapp(1,ppfsn,"")
if ppakk="0" then
ppsai="<script language=javascript>alert('提示："&ppfsn&"["&ppfbt&"]此次竞拍操作无效，请刷新重试。');window.parent['EESaidd'].location.reload();</script>"
else
if not isNumeric(ppfoy) then ppfoy=0
if not isNumeric(ppfjg) then ppfjg=0
if ppfbt="" then ppfbt=ppfsn
if ppfus="" then ppfus=ew_kz
dim ppxdrr,ppxdi,ppxdls,ppxdud,ppadrr,ppadi,ppadls,ppadud,ppbdrr,ppbdsn,ppbdoy,ppbdjg,ppbdbt,ppadus,ppzdcl,ppzdck,ppzdckl,ppzdty
ppzdty=0
ppzdck=""
ppzdckl=""
ppzdcl=x_ppgx&ppfus&x_ppga&ppfsn&x_ppgb&ppfoy&x_ppgb&ppfjg&x_ppgb&ppfbt
if ppfstr="" then'001
response.Cookies(x_ppck)=ppzdcl
if ppfty=1 then'xxxDEL
ppsai="<script language=javascript>alert('注意：已经删除了！。');window.parent['EESaidd'].location.reload();</script>"
elseif ppfty=9 then'xxxDO
if aiint(ppfjg)>=int(aiint(ppajg)+x_ppzf) then
Call ppapp(2,ppfsn,e_uer&x_ppgx&ppfjg&x_ppgx&now()&x_ppgx&"2")
ppsai="<script language=javascript>alert('提示：成功参加竞拍["&ppfbt&"]出价"&ppfjg&"元。');window.parent['EESaidd'].location.reload();</script>"
else
ppsai="<script language=javascript>alert('注意：出价已被淘汰，请返回刷新后重新出价(您最近出价"&ppfjg&"元，最新出价"&ppajg&"元，您至少需要出价"&int(aiint(ppajg)+x_ppzf)&"元)。');window.parent['EESaidd'].location.reload();</script>"
end if
end if'xxx
else'001
if instr(ppfstr,x_ppgx&ppfus)=0 then'0011
if ppfty=1 then'DEL
ppsai="<script language=javascript>alert('提示："&ppfsn&"["&ppfbt&"]已经删除，请刷新。');</script>"
elseif ppfty=9 then'DO
response.Cookies(x_ppck)=ppzdcl&ppfstr
Call ppapp(2,ppfsn,e_uer&x_ppgx&ppfjg&x_ppgx&now()&x_ppgx&"2")
end if
else'0011
ppxdrr=split(ppfstr,x_ppgx)
ppxdud=ubound(ppxdrr)
if ppxdud>0 then'002
for ppxdi=1 to ppxdud'@@-@@-@@
ppxdls=ppxdrr(ppxdi)
if ppxdls<>"" then'0021
ppadrr=split(ppxdls,x_ppga)
ppadud=ubound(ppadrr)
ppadus=ppadrr(0)
if ppadud>0 then'003
if lcase(ppadus)<>lcase(ppfus) then'0031
ppzdck=ppzdck&ppxdls
else'0031
ppzdck=ppzdck&x_ppgx&ppadus
for ppadi=1 to ppadud'##-##-##
ppadls=ppadrr(ppadi)
ppbdrr=split(ppadls,x_ppgb)'||
if ubound(ppbdrr)=3 then'004|_z-_z-|
ppbdsn=ppbdrr(0)
ppbdoy=ppbdrr(1)
ppbdjg=ppbdrr(2)
ppbdbt=ppbdrr(3)
if not isNumeric(ppbdoy) then ppbdoy=0
if not isNumeric(ppbdjg) then ppbdjg=0
if lcase(ppbdsn)<>lcase(ppfsn) then'0041
ppzdckl=ppzdckl&x_ppga&ppadls
elseif ppzdty=0 then'0041
ppzdty=ppzdty+1
if ppfty=1 then'xxxDEL
if lcase(ppaus)=lcase(e_uer) then
ppzdckl=ppzdckl&x_ppga&ppadls
ppsai="<script language=javascript>alert('注意：当前竞拍，您正领先，无法删除！。');window.parent['EESaidd'].location.reload();</script>"
else
Call usergx("jq",aiint(aiint(e_ujq)+aiint(ppbdoy)))
ppsai="<script language=javascript>alert('提示：您已经成功删除"&ppfsn&"["&ppfbt&"]的竞拍信息！。');window.parent['EESaidd'].location.reload();</script>"
end if
elseif ppfty=9 then'xxxDO
if aiint(ppfjg)>=int(aiint(ppajg)+x_ppzf) then
Call ppapp(2,ppfsn,e_uer&x_ppgx&ppfjg&x_ppgx&now()&x_ppgx&"2")
ppzdckl=ppzdckl&x_ppga&ppbdsn&x_ppgb&ppbdoy&x_ppgb&ppfjg&x_ppgb&ppbdbt
ppsai="<script language=javascript>alert('提示：再次参加竞拍["&ppbdbt&"]，原出价"&ppbdjg&"元，当前出价"&ppfjg&"元。');window.parent['EESaidd'].location.reload();</script>"
else
ppzdckl=ppzdckl&x_ppga&ppfsn&x_ppgb&ppfoy&x_ppgb&ppfjg&x_ppgb&ppfbt
ppsai="<script language=javascript>alert('注意：出价已被淘汰，请返回刷新后重新出价(您最近出价"&ppfjg&"元，最新出价"&ppajg&"元，您至少需要出价"&int(aiint(ppajg)+x_ppzf)&"元)。');window.parent['EESaidd'].location.reload();</script>"
end if
end if'xxx
end if'0041
end if'004|_z-_z-|
next'##-##-##
if ppzdty=0 then'00000
ppzdty=1
if ppfty=1 then'xxxDEL
ppsai="<script language=javascript>alert('注意：已经删除了！。');window.parent['EESaidd'].location.reload();</script>"
elseif ppfty=9 then'xxxDO
if aiint(ppfjg)>=int(aiint(ppajg)+x_ppzf) then
Call ppapp(2,ppfsn,e_uer&x_ppgx&ppfjg&x_ppgx&now()&x_ppgx&"2")
ppzdck=ppzdck&x_ppga&ppfsn&x_ppgb&ppfoy&x_ppgb&ppfjg&x_ppgb&ppfbt
ppsai="<script language=javascript>alert('提示：成功参加竞拍["&ppfbt&"]出价"&ppfjg&"元。');window.parent['EESaidd'].location.reload();</script>"
else
ppzdck=ppzdck&x_ppga&ppfsn&x_ppgb&ppfoy&x_ppgb&ppfjg&x_ppgb&ppfbt
ppsai="<script language=javascript>alert('注意：出价已被淘汰，请返回刷新后重新出价(您最近出价"&ppfjg&"元，最新出价"&ppajg&"元，您至少需要出价"&int(aiint(ppajg)+x_ppzf)&"元)。');window.parent['EESaidd'].location.reload();</script>"
end if
end if'xxx
end if'00000
ppzdck=ppzdck&ppzdckl
end if'0031
end if'003
end if'0021
next'@@-@@-@@
end if'002
response.Cookies(x_ppck)=ppzdck
end if'0011
end if'001

end if
else
ppsai="<script language=javascript>alert('注意：无效操作。');window.parent['EESaidd'].location.reload();</script>"
end if
end function
'-----------------------------------
'pp jingpai show
'-----------------------------------
'ppapp(ppfty=1read/0del/2write,ppfsn,ppfstr)
function ppapp(ppfty,ppfsn,ppfstr)
if ppfsn<>"" then
if ppfty="1" then'read
dim ppadrr
ppapp=application(x_ppck&ppfsn)
ppadrr=split(ppapp,x_ppgx)
if ubound(ppadrr)=4 then
ppaus=ppadrr(1)
ppajg=aiint(ppadrr(2))
ppatm=ppadrr(3)
ppaxy=aiint(ppadrr(4))
ppakk=1
end if
elseif ppfty="0" and application(x_ppck&ppfsn)<>"" then'del
application.lock
if ppfstr="0" or ppfstr="" then
application.Contents.Remove(x_ppck&ppfsn)
else
dim ppallz
ppallz=application(x_ppck&ppfsn)
application(x_ppck&ppfsn)=ppfsn&x_ppgx&left(ppallz,len(ppallz)-1)&ppfstr
end if
application.unlock
elseif ppfty="2" and instr(ppfstr,x_ppgx)>0 then'write
application.lock
application(x_ppck&ppfsn)=ppfsn&x_ppgx&ppfstr
application.unlock
end if
end if
end function
'-----------------------------------
'pp jingpai show
'-----------------------------------
dim ppshid,ppshyh,ppshhj,ppshsf,ppshzl,ppshsl,ppshyhx,ppshhjx,ppshsfx,ppshzlx,ppshslx,ppshxxx,ppshusx,ppdts,ppduhty,ppduhjq,ppduhje,ppduhus
function ppshow(ppfstr,ppfty)
dim ppxdrr,ppxdi,ppxdls,ppxdud,ppadrr,ppadi,ppadls,ppadud,ppbdrr,ppbdsn,ppbdoy,ppbdjg,ppbdbt,ppadus
ppshyhx=0
ppshzlx=0
ppshslx=0
ppshhjx=0
ppshid=0
ppshxxx=""
if not isNumeric(ppfty) then ppfty=4
ppshow="<table border=0 cellspacing=0 cellpapping=0 class=d-vt>"
if ppfstr<>"" then'0-1-A
ppxdrr=split(ppfstr,x_ppgx)
ppxdud=ubound(ppxdrr)
if ppxdud>0 then
for ppxdi=1 to ppxdud'@@
ppxdls=ppxdrr(ppxdi)
if ppxdls<>"" then
ppadrr=split(ppxdls,x_ppga)
ppadud=ubound(ppadrr)
ppadus=ppadrr(0)
if ppadud>0 then
ppshzl=0
ppshsl=0
ppshhj=0
ppshid=ppshid+1
ppshow=ppshow&"<tr class=d-vta><td colspan="&ppfty&">"&ppadus&" 竞拍"&ppxdi&"</td></tr>"
if ppfty="7" then
ppshow=ppshow&"<tr class=d-vtt><td>名称</td><td width=32>定金</td><td width=32 align=center>出价</td><td width=32 align=center>状态</td></tr>"
else
ppshow=ppshow&"<tr class=d-vtt><td>名称</td><td width=32>定金</td><td width=32 align=center>出价</td></tr>"
end if
for ppadi=1 to ppadud'##-##-##
ppadls=ppadrr(ppadi)
ppbdrr=split(ppadls,x_ppgb)'||
if ubound(ppbdrr)=3 then
ppbdsn=ppbdrr(0)
ppbdoy=ppbdrr(1)
ppbdjg=ppbdrr(2)
ppbdbt=ppbdrr(3)
if not isNumeric(ppbdoy) then ppbdoy=0
if not isNumeric(ppbdjg) then ppbdjg=0
if ppadi mod 2=0 then
ppshow=ppshow&"<tr class=d-vt1>"
else
ppshow=ppshow&"<tr class=d-vt0>"
end if
ppshow=ppshow&"<td><a target=""_blank"" href=""/?info/"&ppbdsn&".html"">"&ppbdbt&"</a></td><td>"&ppbdoy&"</td>"
if ppfty="7" then
ppshow=ppshow&"<td align=center>"&ppbdjg&"</td><td align=center>"
Call ppapp(1,ppbdsn,"")
if ppaus="" then
ppshow=ppshow&"<span class=d-vfs title=竞拍结束或已失效>-</span>"
elseif lcase(ppaus)=lcase(e_uer) then
if ppaxy=3 then
ppshow=ppshow&"<span class=d-vfs title=您已成功竞拍>☆</span>"
else
ppshow=ppshow&"<span class=d-vfs title=正在领先>√</span>"
end if
else
if ppaxy=3 then
ppshow=ppshow&"<a class=d-vajx title=竞拍结束（点击取回定金） href=?del/"&ppbdsn&"/"&ppadus&">○</a>"
else
ppshow=ppshow&"<a class=d-vajx title=已被淘汰（删除后取回定金） href=?del/"&ppbdsn&"/"&ppadus&">×</a>"
end if
end if
ppshow=ppshow&"</td>"
else
ppshow=ppshow&"<td align=center>"&ppbdjg&"</td>"
end if
ppshow=ppshow&"</tr>"
ppshzl=ppshzl+1
ppshsl=ppshsl+ppbdjg
ppshhj=ppshhj+ppbdoy
end if
next
ppshsf=ppshhj
ppshow=ppshow&"<tr class=d-vtd><td colspan="&ppfty&" align=left>竞拍小计："&ppshzl&" 件<br>出价小计："&ppshsl&" 元<br>定金小计："&ppshhj&" 元</td></tr>"
ppshzlx=ppshzlx+ppshzl
ppshslx=ppshslx+ppshsl
ppshhjx=ppshhjx+ppshhj
ppshyhx=ppshyhx+ppshyh
ppshsfx=ppshsfx+ppshsf
end if
end if
next
ppshow=ppshow&"<tr class=d-vtd><td colspan="&ppfty&" align=left>竞拍总数："&ppshzlx&" 件<br>出价合计："&ppshslx&" 元<br>定金合计："&ppshhjx&" 元</td></tr>"
end if
end if'0-1-C
if ppshslx=0 then ppshow=ppshow&"<tr class=d-vtd><td colspan="&ppfty&" align=center>暂无商品</td></tr>"
ppshow=ppshow&"</table>"
End function
'-----------------------------------
'car show
'-----------------------------------
function ppcar(ppfstr)
ppcar=ppshow(ppfstr,7)
'ppcar=ppshow(ppfstr,7,0)
End function
'-----------------------------------
'order read
'-----------------------------------
function ppread(ppfstr)
ppread=ppshow(ppfstr,4)
end function
'-----------------------------------
'PS:jingpai car
'=ppcar(ppfkg/i_xkadd)
'-----------------------------------
Function ppcartc(ppfkg)
ppcartc=""
if ppfkg>0 then
ppcartc=ppcartc&"<script type=""text/javascript"">var ddx="&ppfkg&";var ddm=""竞拍场"";var ddr="""&eshref(s_druser&"p/",3)&""";</script><script language=""JavaScript"" src="""&eshref(s_druser&"p/pp.js",3)&"""></script>"
end if
End Function
%>