<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../inc.asp"-->
<!--#include file="../ydzq.asp"-->
<% LANGUAGE="VBSCRIPT" %>
<!--#INCLUDE file="conn1.asp"-->

<%call head()
txt=request("txt")
name=request("myni")
lid=request("myid")
ids=session("myid")
yc=request("yc")
%>
<!--===以下为判定银子数量===-->
<%
set rspq=Server.CreateObject("ADODB.Recordset")
strSQL="select yz from wupin where cstr(ids)="&myid
rspq.open strSQL,liao,1,1
%>

<!--====[以下为银子足够]=====-->

<!--==开始读出资料==-->
<%
set rsp=Server.CreateObject("ADODB.Recordset")
strSQL="select dj,gj,fs,xue,tl,jj,xx,sd from sx where cstr(ids)="&myid
rsp.open strSQL,liao,1,1
dengji=clng(rsp("dj"))
mygj=rsp("gj")
myfs=rsp("fs")
myjy=rsp("xue")
mytl=rsp("tl")
myjj=rsp("jj")
myxx=rsp("xx")
mysd=rsp("sd")
rsp.close
set rsp=nothing
%>
<!--==开始储存资料==-->
<%
set rs=Server.CreateObject("ADODB.Recordset")
rsstr="select * from [tz] order by ID desc"
rs.open rsstr,liao,1,2
'----开始判断---
dim errr
errr=0
if rs.recordcount>0 then
	if rs("txt")=txt then errr=1
        if rspq("yz")<clng(txt) then errr=2
end if
'---表示输出---
if errr=1 then eer="请不要重复发布，<br/>正在返回江湖大厅！<br/>"
if errr=2 then eer="您的银子不够！<br/>正在返回江湖大厅！<br/>"
if errr<>1 and errr<>2 then
'---成功通过---
rs.addnew
'---开始储存---
if txt<>"" then rs("txt")=txt
rs("lid")=myid
rs("name")=myni
rs("yc")=yc
rs("ids")=myid
rs("tl")=mytl
rs("jy")=myjy
rs("gj")=mygj
rs("fs")=myfs
rs("dj")=dengji
rs("jj")=myjj
rs("sd")=mysd
rs("xx")=myxx
rs.update

end if


if rs.recordcount=0 then
rs.addnew

if txt<>"" then rs("txt")=txt


rs("lid")=myid
rs("name")=myni
rs("yc")=yc
rs("ids")=myid
rs("tl")=mytl
rs("jy")=myjy
rs("gj")=mygj
rs("fs")=myfs
rs("dj")=dengji
rs("jj")=myjj
rs("sd")=mysd
rs("xx")=myxx
rs.update
end if

rs.close
set rs=Nothing
liao.close
set liao=nothing
%>
<!--==开始输出结果==-->
<%call saycardd("发布成功")%>
<%if eer="" then%>
<%sql="update wupin set yz=yz-"&txt&" where cstr(ids)="&myid
  liao.Execute(sql)%>
挑战信息发布成功，<br/>
系统暂时扣除银子<%=txt%>两
<br/>
取消或结束挑战时候会返还
<br/>
<%else%>
<%=eer%>
<%end if%>
----------<br/>
<anchor><prev/>快速返回</anchor><br/>

<%call head1()%>