<!-- #include file="include/config.asp" -->
<!-- #include file="../include/jk_msort.asp" -->
<%
tit="在线支付表单"

call web_head(0,0,0,0,0)
call shop_load()
'----------------------------左边 开始----------------------------
call shop_left()
call shop_left_nsort(0)
'----------------------------左边 结束----------------------------
call web_center(0)
'----------------------------中间 开始----------------------------

call pay_form()
response.write ukong
'----------------------------中间 结束----------------------------
call web_end(0,0)

sub pay_form()
  dim sqladd,ordernum,tmp1
  ordernum=trim(request("ordernum"))
  sqladd=" where ordernum='"&ordernum&"'"
  sql="select id,ordernum,username,nname,phone,email,address,code,remark,prices from shop_orders "&sqladd&" order by id desc"
  set rs=joekoe_cms.exec(sql,1)
  if not(rs.eof and rs.bof) then

tmp1=vbcrlf&"<form name=payForm action=pay_check_shop.asp method=post>" & _
vbcrlf&"<table cellspacing=1 cellpadding=4 class=table>" & _
vbcrlf&"<tr><td class=trs align=center colspan='2'><b>"&tit&"</b></td></tr>" & _
vbcrlf&"<tr class=bg_td>" & _
vbcrlf&"<td>收货人姓名：</td>" & _
vbcrlf&"<td><input maxlength='50' name='vname' size='20' value="&rs("nname")&"></td>" & _
vbcrlf&"</tr>" & _
vbcrlf&"<tr class=bg_td> " & _
vbcrlf&"<td>电子信箱：</td>" & _
vbcrlf&"<td><input name='email' size='20' maxlength='50' value="&rs("email")&"></td>" & _
vbcrlf&"</tr>" & _
vbcrlf&"<tr class=bg_td> " & _
vbcrlf&"<td>联系电话：</td>" & _
vbcrlf&"<td><input maxlength='50' name='handphone' size='20' value="&rs("phone")&"></td>" & _
vbcrlf&"</tr>" & _
vbcrlf&"<tr class=bg_td> " & _
vbcrlf&"<td>联系地址：</td>" & _
vbcrlf&"<td><input name='address' size='20' maxlength='50' value="&rs("address")&"></td>" & _
vbcrlf&"</tr>" & _
vbcrlf&"<tr class=bg_td>" & _
vbcrlf&"<td>邮政编码：</td>" & _
vbcrlf&"<td><input name='zip' size='20' maxlength='50' value="&rs("code")&"></td>" & _
vbcrlf&"</tr>" & _
vbcrlf&"<tr class=bg_td> " & _
vbcrlf&"<td>定单编号：</td>" & _
vbcrlf&"<td>"&rs("ordernum")&"<input type='hidden' name='shopname' value="&rs("ordernum")&"></td>" & _
vbcrlf&"</tr>" & _
vbcrlf&"<tr class=bg_td> " & _
vbcrlf&"<td>总计金额：</td>" & _
vbcrlf&"<td> <font color='#FF3366'><b>"&rs("prices")&"</b></font>元（人民币）<input type='hidden' name='cash' value="&rs("prices")&"></td>" & _
vbcrlf&"</tr>" & _
vbcrlf&"<tr class=bg_td> " & _
vbcrlf&"<td>备注：</td>" & _
vbcrlf&"<td><textarea name='remark' cols='30' rows='5'>"&rs("remark")&"</textarea><input type='hidden' name='username' value="&rs("username")&"></td>" & _
vbcrlf&"</tr>" & _
vbcrlf&"<tr class=bg_td><td colspan=2 align=center height=50>" & _
vbcrlf&"<center>" & _
vbcrlf&"<input type='button' class='btn' name='button1' onclick=""javascript:window.history.go(-1);"" value='上一步'>" & _
vbcrlf&"<input type=submit class=btn value='下一步' name=Submit>" & _
vbcrlf&"<input type=reset class=btn value='关 闭' onclick=window.close();>" & _
vbcrlf&"</center>" & _
vbcrlf&"</td></tr>" & _
vbcrlf&"</form>"
call shop_center_table(tit,tmp1,1,1)

else
Response.Write "对不起你提交的定单参数不对，请确认后重新提交！"
end if
rs.close
set rs=nothing
end sub
%>