<!--#include file="inc/payconn.asp"-->
<%
num=trim(request("num"))
stat2=Lcase(session("stat"))
	Call ConnectionDatabase()
if num<>"" then 
	
	Dim Res

	SQL = "Select * From [mobile1] Where num='"&num&"' and prov='95588bank'"
	Set Res = Server.CreateObject("ADODB.Recordset")
	Res.Open SQL,Conn,1,1
	if res.eof or res.bof then
	response.Write("没有对应的数据记录。")
    response.End()
	else

	price=res("price")
end if

end if

%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head><title>充值区</title>
<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>
</head><body>
<font color=#FE2121><strong>成功提示</strong></font> <br />
您的订单[<font color=#339900><strong><%=num%></strong></font>]已充值成功！金额：<font color=#FE2121><strong><%=price%></strong></font>元。
<br>
		<br />		<br />	</body></html>