paybuyusermoney.asp

电子商城代码

<!--#include file="connshop.asp"-->
<!--#include file="webconfig.asp"-->
<%
session.codepage=65001
response.write c_skin_56770(c_skin_word(skin_head))
Dim usermoney,ifpay,ordernumber,rss,sqls,summoney,order_number,orderzt
if session(""&cookiesname&"user_id")="" Then
        response.write"<meta http-equiv='refresh' content=5;url=javascript:window.close()>"
        tl=www56770com_word150
        mes="路"&www56770com_word156&""
        mes=mes&"<br><br>路<a href='javascript:window.close();'><img border=0 src=images/close.gif align=absmiddle>"&www56770com_word235&"</a>"
		mes=mes&"<br><br>"&loading&""
		call sendinfo(tl,mes)
else
set rs=server.createobject("adodb.recordset")
sql="select * from [56770_user] where user_id='"&session(""&cookiesname&"user_id")&"'"
rs.open sql, conn, 1, 1
user_id=rs("user_id")
usermoney=rs("usermoney")
ifpay=rs("ifpay")
rs.close
set rs=Nothing

'鍙栧緱瀹氬崟淇℃伅
ordernumber=safereplace(request("order_number"))
set rss=server.createobject("adodb.recordset")
sqls="select * from [56770_orders] where order_number='"&ordernumber&"'"
rss.open sqls, conn, 1, 1
order_number=rss("order_number")
summoney=rss("summoney")
orderzt=rss("orderzt")
rss.close
set rss=Nothing
'鍒ゆ柇鏈夋晥鎬