<!--#include file="include/conn.asp"-->
<!--#include file="menu.asp"-->
<%
If session("userid")="" Then%>
<%w.r "/UserAcct.asp"%>
<%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>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<meta http-equiv="X-UA-Compatible" content="IE=EmulateIE7" />
<meta http-equiv="X-UA-Compatible" content="IE=7" />
<title><%=sWeb("WebTitle")%>_<%=sWeb("WebUrl")%></title>
<meta name="keywords" content="<%=sWeb("WebKeyWord")%>" />
<meta name="description" content="<%=sWeb("WebDescription")%>" />
<meta name="author" content="<%=sWeb("WebAuthor")%>" />
<meta name="copyright" content="<%=sWeb("WebCopyright")%>" />
<meta content="all" name="robots" />
<link rel="shortcut icon" href="favicon.ico" />
<link type="text/css" href="/css/global.css" rel="stylesheet" />
<link type="text/css" href="/css/style.css" rel="stylesheet" />
<link type="text/css" href="/css/user.css" rel="stylesheet" />
<script src="/JavaScript/jquery-1.8.3.min.js" type="text/javascript"></script>
<script type="text/javascript" src="/JavaScript/jquery.qrcode.min.js"></script>
<script src="/JavaScript/user.js"></script>
<script src="/JavaScript/mood.js"></script>
<style>
.input{border:1px #ddd solid;}
</style>
<script type="text/javascript">
	var browser = {
		versions: function () {
			var u = navigator.userAgent, app = navigator.appVersion;
			return {//移动终端浏览器版本信息
				mobile: (!!u.match(/AppleWebKit.*Mobile/) || !!u.match(/Windows Phone/) || !!u.match(/Android/) || !!u.match(/MQQBrowser/)) && !u.match(/iPad/)//是否为移动终端
			};
		}()
	}
	if (browser.versions.mobile) {
		window.location.href = "/wap/UserCenter.asp?a=lstmoney";
	}
</script>
</head>
<body>
<%Call Tophhh()%>
<%Call TopMenu()%>
<div id="GzUser">
	<div class="fl w250">
		<div class="fl wstitle"><span>会员中心</span></div>
		<div class="fl wcont">
			<ul>
				<li><a href="?a=Infos">基本资料</a></li>
				<li><a href="?a=Pass">密码修改</a></li>
				<li><a href="?a=myfav">我的收藏</a></li>
				<li><a href="##">积分：<%=Uid("UsrMoney")%></a></li>
			</ul>
		</div>
		<div class="fl wstitle"><span>财务中心</span></div>
		<div class="fl wcont">
			<ul>
				<li><a href="?a=lstmoney">支付记录</a></li>
			</ul>
		</div>
		<div class="fl wstitle"><span>订单管理</span></div>
		<div class="fl wcont">
			<ul>
				<li><a href="?a=orderroad">线路订单</a></li>
				<li><a href="?a=orderjing">景点订单</a></li>
				<li><a href="?a=orderhotel">酒店订单</a></li>
				<li><a href="?a=ordercar">租车订单</a></li>
			</ul>
		</div>
		<div class="fl wstitle"><span>我有话说</span></div>
		<div class="fl wcont">
			<ul>
				<li><a href="lstbook.asp">意见反馈</a></li>
			</ul>
		</div>
	</div>
	<div class="fr w940">
		<div class="fl w920">
<%
If a="" Then a="Infos"
Select Case a
	Case "Infos" Call Infos()
	Case "Pass" Call Pass()
	Case "myfav" Call myfav()
	Case "lstmoney" Call lstmoney()

	Case "orderroad" Call orderroad()
	Case "orderjing" Call orderjing()
	Case "orderhotel" Call orderhotel()
	Case "ordercar" Call ordercar()
	Case "zhifu" Call zhifu()
	Case "zhifubao" Call zhifubao()
	Case "weixinsaoma" Call weixinsaoma()
End Select
%>
<%Sub zhifu()%>
<div class="fl wtitle"><span>请选择在线支付方式</span></div>
<div class="zhifufs">
		<%
		If OrderNum="" Then
			w.a "对不起，参数错误！"
		End If
		'未支付，订单，本人
		Set v= oConn.Execute("SELECT top 1 * from [LstOrder] where Omoney=0 and OrderNo ='"&OrderNum&"' and OUserId="&session("userid")&" ")
		If v.bof And v.eof Then
			w.a "对不起，不存在此订单，或订单已取消"
		Else
		%>
		<ul>
			<li><a href=?a=weixinsaoma&OrderNum=<%=OrderNum%>><img src=/images/weixin.jpg><br>点击进入扫码支付</a></li>
			<li><a href=?a=zhifubao&OrderNum=<%=OrderNum%>><img src=/images/zfb.jpg><br>点击直接支付宝支付</a></li>
		</ul>
		<%End If%>
</div>
<%End Sub%>

<%Sub zhifubao()%>
<%If sSzfb=0 Then w.a"对不起，本站不支持在线支付！":w.e%>
<div class="fl wtitle"><span>支付宝支付</span></div>
<div class="fl sconts">
	<ul>
		<%
		If OrderNum="" Then
			w.a "对不起，参数错误！"
		End If
		'未支付，订单，本人
		Set v= oConn.Execute("SELECT top 1 * from [LstOrder] where Omoney=0 and OrderNo ='"&OrderNum&"' and OUserId="&session("userid")&" ")
		If v.bof And v.eof Then
			w.a "对不起，不存在此订单，或订单已取消"
		Else
		%>
		<FORM target=_blank name="alipayment" onSubmit="return CheckForm();" action="/APIALI/index.asp" method="post">
			<li>
				<div class="lileft">订单号：</div>
				<div class="liright"><div class="fl w300 f20 fmoney yahei"><%=v("OrderNo")%></div></div>
			</li>
			<li>
				<div class="lileft">总价：</div>
				<div class="liright"><div class="fl w300 f16 fmoney yahei"><b class="fmoney20" id=""><%=GZMONEY(v("OrderZmoney"))%></b>元</div></div>
			</li>
			<li>
				<div class="lileft">订单时间：</div>
				<div class="liright"><div class="fl w300"><%=v("OAddtime")%></div></div>
			</li>
			<li>
				<div class="lileft">其他备注：</div>
				<div class="liright"><div class="fl w300"><textarea class="anniuipt" name="WIDbody" cols="50" rows="2"></textarea></div></div>
			</li>
			<li>
			<div class="lileft"></div>
			<div class="liright"><input id="" class="anniusub" name="s" type="submit" value="确认支付"></div>
		</li>
		</form>
		<%End If%>
	<ul>
</div>
<%End Sub%>


<%Sub weixinsaoma()%>
<%If sSweixin=0 Then w.a"对不起，本站不支持微信扫码支付！":w.e%>
<div class="fl wtitle"><span>微信扫码支付</span></div>
<div class="fl sconts">
	<ul>
		<%
		If OrderNum="" Then
			w.a "对不起，参数错误！"
		End If
		'未支付，订单，本人
		Set v= oConn.Execute("SELECT top 1 * from [LstOrder] where Omoney=0 and OrderNo ='"&OrderNum&"' and OUserId="&session("userid")&" ")
		If v.bof And v.eof Then
			w.a "对不起，不存在此订单，或订单已取消"
		Else
		%>



			<li>
				<div class="lileft">订单号：</div>
				<div class="liright"><div class="fl w300 f20 fmoney yahei"><%=v("OrderNo")%>
				
				</div></div>
			</li>
			<li>
				<div class="lileft">订单总价：</div>
				<div class="liright"><div class="fl w300 f16 fmoney yahei"><b class="fmoney20" id=""><%=GZMONEY(v("OrderZmoney"))%></b>元</div></div>
			</li>
			<li>
				<div class="lileft">订单时间：</div>
				<div class="liright"><div class="fl w300"><%=v("OAddtime")%></div></div>
			</li>

			<li>
				<div class="lileft">支付状态：</div>
				<div class="liright">
					<cite><b id="saoma">正式版支持：QQ 47329193</b></cite>
				</div>
			</li>
		<%End If%>
	<ul>
</div>
<%End Sub%>


<%Sub myfav()%>
<div class="fl wtitle"><span>我的收藏夹</span></div>
<div class="fl sconts">
	<div class="fl ordertxt ">
		<div class="fl oaddress420">名称</div>
		<div class="fl oaddress120">收藏时间</div>
	</div>
<%
sSql="select * from [LstFav] where UserId="&session("userid")&" order by Id desc"
Set oRs = Server.CreateObject("ADODB.Recordset")
oRs.Open sSql, oconn, 1, 1
If oRs.eof and oRs.bof then
Else
Call PageNum(50)
for i=1 to mypage%>
	<div class="fl ordertxt ">
		<div class="fl oaddress420"><%=NEWSNAME(oRs("ProId"))%></div>
		<div class="fl oaddress160"><%=oRs("Saddtime")%></div>
		<div class="fl oaddress120"><a href="javascript:void(0);" onclick="{if(confirm('你是否确定删除!')){delfav(<%=oRs("Id")%>);}return false;}">删除</a></div>
	</div>
<%
oRs.MoveNext
Next
End If
%>
</div>
<div class="fl sconts"><%Call PageUrl("?a=myfav&keyword="&keyword&"",50)%></div>
<%End Sub%>
<%Sub lstmoney()%>
<div class="fl wtitle"><span>消费记录</span></div>
<div class="fl sconts">
<div class="fl m10 ordertitle"><span class="fmoney f16 yahei">总积分：<%=Uid("UsrMoney")%></span><div class="smoney"></div></div>
	<div class="fl ordertxt ">
		<div class="fl oaddress160">订单号</div>
		<div class="fl oaddress120">消费金额</div>
		<div class="fl oaddress120">增加积分</div>
		<div class="fl oaddress160">时间</div>
	</div>
<%
sSql="select * from [LstUserMoney] where UserId="&session("userid")&" order by Id desc"
Set oRs = Server.CreateObject("ADODB.Recordset")
oRs.Open sSql, oconn, 1, 1
If oRs.eof and oRs.bof then
Else
Call PageNum(50)
for i=1 to mypage%>
	<div class="fl ordertxt ">
		<div class="fl oaddress160"><%=oRs("UserNUM")%></div>
		<div class="fl oaddress120"><b class="fmoney20"><%=GZMONEY(oRs("UserMoney"))%></b></div>
		<div class="fl oaddress120"><b class="f14"><%=int(oRs("UserMoney"))%></b></div>
		<div class="fl oaddress160"><%=oRs("UserTime")%></div>
	</div>
<%
oRs.MoveNext
Next
End If
%>
</div>
<div class="fl sconts"><%Call PageUrl("?a=lstmoney&keyword="&keyword&"",50)%></div>
<%End Sub%>

<%Sub orderhotel()%>
<div class="fl wtitle"><span>酒店订单</span></div>
<div class="fl sconts">
<%
sSql="select * from [LstOrder] where OUserId="&session("userid")&" and Fangid>0 order by Id desc"
Set oRs = Server.CreateObject("ADODB.Recordset")
oRs.Open sSql, oconn, 1, 1
If oRs.eof and oRs.bof then
Else
Call PageNum(20)
for i=1 to mypage%>
	<div onclick="ShowOrder(<%=i%>)" class="fl m10 ordertitle"><span>订单号：<%=oRs("OrderNo")%></span><span class="fhui">订购时间：<%=FormatTime(oRs("OAddtime"),3)%></span>
	<span class="fhui" id="dingdaninfo<%=oRs("Id")%>"><%If oRs("Omoney")=0 Then%><a href="javascript:delorderuser(<%=oRs("Id")%>);">取消订单</a><%End If%></span>
		<div class="smoney">
			<span class="fmoney" id="fukuandiv<%=oRs("Id")%>">
				<%If oRs("Omoney")=0 Then%><input class="anniusub" type="button" onclick="{location.href='?a=zhifu&OrderNum=<%=oRs("OrderNo")%>';}" name="delete" value="付款"><%End If%>
				<%If oRs("Omoney")=1 Then%>已付款<%End If%>
				 - <%=FAHUO(oRs("OState"))%>
			</span>
			<span></span>
		</div>
	</div>
	<div style="display:none;" class="ordertxt  m10" id="ClassOrder<%=i%>">
		<ul>
			<li>
				<div class="lileft">酒店名称：</div>
				<div class="liright"><div class="fl w300"><%=NEWSNAME(oRs("RoadId"))%></div></div>
			</li>
			<li>
				<div class="lileft">房间类型：</div>
				<div class="liright"><div class="fl w300"><%=FANGNAME(oRs("FangId"))%></div></div>
			</li>
			<li>
				<div class="lileft">会员价格：</div>
				<div class="liright"><div class="fl w300"><b class="fmoney20"><%=GZMONEY(oRs("OrderMoney"))%></b>元
				</div></div>
			</li>
			<li>
				<div class="lileft">预订日期：</div>
				<div class="liright"><div class="fl w300">抵达:<%=oRs("OrderKtime")%> 离开:<%=oRs("OrderJtime")%>
				
				</div></div>
			</li>
			<li>
				<div class="lileft">共计天数：</div>
				<div class="liright"><div class="fl w300"><b class="fmoney f20" id=""><%=DateDiff("d",oRs("OrderKtime"),oRs("OrderJtime"))%></b>天
				
				</div></div>
			</li>
			<li>
				<div class="lileft">总计房间：</div>
				<div class="liright"><div class="fl w300">
				<b class="fmoney f20" id=""><%=oRs("OrderRen")%></b>间
				</div></div>
			</li>
			<li>
				<div class="lileft">总付款价：</div>
				<div class="liright"><div class="fl w300">
				<b class="fmoney20" id=""><%=GZMONEY(oRs("OrderZmoney"))%></b>元
				</div></div>
			</li>
		<ul>
	</div>
<%
oRs.MoveNext
Next
End If
%>
</div>
<div class="fl sconts"><%Call PageUrl("?a=orderhotel&keyword="&keyword&"",20)%></div>
<%End Sub%>
<%Sub ordercar()%>
<%Response.Write ("<script language=javascript>location='/Lstalone.asp?TT=12&SS=59'</script>")%>
<%End Sub%>
<%Sub orderjing()%>
<div class="fl wtitle"><span>景点订单</span></div>
<div class="fl sconts">
<%
sSql="select * from [LstOrder] where OUserId="&session("userid")&" and jingid>0 order by Id desc"
Set oRs = Server.CreateObject("ADODB.Recordset")
oRs.Open sSql, oconn, 1, 1
If oRs.eof and oRs.bof then
Else
Call PageNum(20)
for i=1 to mypage%>
	<div onclick="ShowOrder(<%=i%>)" class="fl m10 ordertitle"><span>订单号：<%=oRs("OrderNo")%></span><span class="fhui">订购时间：<%=FormatTime(oRs("OAddtime"),3)%></span>
	<span class="fhui" id="dingdaninfo<%=oRs("Id")%>"><%If oRs("Omoney")=0 Then%><a href="javascript:delorderuser(<%=oRs("Id")%>);">取消订单</a><%End If%></span>
		<div class="smoney">
			<span class="fmoney" id="fukuandiv<%=oRs("Id")%>">
				<%If oRs("Omoney")=0 Then%><input class="anniusub" type="button" onclick="{location.href='?a=zhifu&OrderNum=<%=oRs("OrderNo")%>';}" name="delete" value="付款"><%End If%>
				<%If oRs("Omoney")=1 Then%>已付款<%End If%> - <%=FAHUO(oRs("OState"))%>
			</span>
			<span></span>
		</div>
	</div>
	<div style="display:none;" class="ordertxt  m10" id="ClassOrder<%=i%>">
		<ul>
			<li>
				<div class="lileft">预订内容：</div>
				<div class="liright"><div class="fl w300"><%=NEWSNAME(oRs("JingId"))%></div></div>
			</li>
			<li>
				<div class="lileft">门票价格：</div>
				<div class="liright"><div class="fl w300"><b class="fmoney20"><%=GZMONEY(oRs("OrderMoney"))%></b>元
				</div></div>
			</li>
			<li>
				<div class="lileft">预订日期：</div>
				<div class="liright"><div class="fl w300">抵达:<%=oRs("OrderKtime")%> 离开:<%=oRs("OrderJtime")%>
				
				</div></div>
			</li>
			<li>
				<div class="lileft">总计票数：</div>
				<div class="liright"><div class="fl w300">
				<b class="fmoney f20" id=""><%=oRs("OrderRen")%></b>张
				</div></div>
			</li>
			<li>
				<div class="lileft">总付款价：</div>
				<div class="liright"><div class="fl w300">
				<b class="fmoney20" id=""><%=GZMONEY(oRs("OrderZmoney"))%></b>元
				</div></div>
			</li>
		<ul>
	</div>
<%
oRs.MoveNext
Next
End If
%>
</div>
<div class="fl sconts"><%Call PageUrl("?a=orderjing&keyword="&keyword&"",20)%></div>
<%End Sub%>
<%Sub orderroad()%>
<div class="fl wtitle"><span>线路订单</span></div>
<div class="fl sconts">
<%
sSql="select * from [LstOrder] where OUserId="&session("userid")&" and roadid>0 and fangid=0 order by Id desc"
Set oRs = Server.CreateObject("ADODB.Recordset")
oRs.Open sSql, oconn, 1, 1
If oRs.eof and oRs.bof then
Else
Call PageNum(20)
for i=1 to mypage%>
	<div onclick="ShowOrder(<%=i%>)" class="fl m10 ordertitle"><span>订单号：<%=oRs("OrderNo")%></span><span class="fhui">订购时间：<%=FormatTime(oRs("OAddtime"),3)%></span>
	<span class="fhui" id="dingdaninfo<%=oRs("Id")%>"><%If oRs("Omoney")=0 Then%><a href="javascript:delorderuser(<%=oRs("Id")%>);">取消订单</a><%End If%></span>
		<div class="smoney">
			<span class="fmoney" id="fukuandiv<%=oRs("Id")%>">
				<%If oRs("Omoney")=0 Then%><input class="anniusub" type="button" onclick="{location.href='?a=zhifu&OrderNum=<%=oRs("OrderNo")%>';}" name="delete" value="付款"><%End If%>
				<%If oRs("Omoney")=1 Then%>已付款<%End If%> - <%=FAHUO(oRs("OState"))%>
			</span>
			<span></span>
		</div>
	</div>
	<div style="display:none;" class="ordertxt  m10" id="ClassOrder<%=i%>">
		<ul>
			<li>
				<div class="lileft">预订内容：</div>
				<div class="liright"><div class="fl w300"><%=NEWSNAME(oRs("RoadId"))%></div></div>
			</li>
			<li>
				<div class="lileft">会员价格：</div>
				<div class="liright"><div class="fl w300"><b class="fmoney20"><%=GZMONEY(oRs("OrderMoney"))%></b>元
				</div></div>
			</li>
			<li>
				<div class="lileft">预订日期：</div>
				<div class="liright"><div class="fl w300">抵达:<%=oRs("OrderKtime")%> 离开:<%=oRs("OrderJtime")%>
				
				</div></div>
			</li>
			<li>
				<div class="lileft">总计人数：</div>
				<div class="liright"><div class="fl w300">
				<b class="fmoney f20" id=""><%=oRs("OrderRen")%></b>人 
				</div></div>
			</li>
			<li>
				<div class="lileft">总付款价：</div>
				<div class="liright"><div class="fl w300">
				<b class="fmoney20" id=""><%=GZMONEY(oRs("OrderZmoney"))%></b>元
				</div></div>
			</li>
		<ul>
	</div>
<%
oRs.MoveNext
Next
End If
%>
</div>
<div class="fl sconts"><%Call PageUrl("?a=orderroad&keyword="&keyword&"",20)%></div>
<%End Sub%>
<%Sub Infos()%>
<div class="fl wtitle"><span>基本资料</span></div>
<div class="fl sconts">
	<ul>
		<form method="post" action=''>
		<li>
			<div class="lileft">手机号码：</div>
			<div class="liright"><div class="fl w300"><input onchange="isMobil('usertel')" onblur="isMobil(this.value)" name="usertel" id="usertel" value="<%=uid("UserTel")%>" class="anniuipt" size="35">
			</div></div>
		</li>
		<li>
			<div class="lileft">公司名称：</div>
			<div class="liright"><div class="fl w300"><input name="UserCom" id="UserCom" value="<%=uid("UserCom")%>" class="anniuipt" size="35"></div></div>
		</li>
		<li>
			<div class="lileft">真实姓名：</div>
			<div class="liright"><div class="fl w300"><input name="UserName" id="UserName" value="<%=uid("UserName")%>" class="anniuipt" size="35"></div></div>
		</li>
		<li>
			<div class="lileft">联系地址：</div>
			<div class="liright"><div class="fl w300"><input name="UserAddress" id="UserAddress" value="<%=uid("UserAddress")%>" class="anniuipt" size="35"></div></div>
		</li>
		<li>
			<div class="lileft">电子信箱：</div>
			<div class="liright"><div class="fl w300"><input name="UserEmail" id="UserEmail" value="<%=uid("UserEmail")%>" class="anniuipt" size="35"></div></div>
		</li>
		<li>
			<div class="lileft">联系QQ：</div>
			<div class="liright"><div class="fl w300"><input name="UserQQ" id="UserQQ" value="<%=uid("UserQQ")%>" class="anniuipt" size="35"></div></div>
		</li>
		<li>
			<div class="lileft">注册时间：</div>
			<div class="liright"><div class="fl w300"><%=uid("UserAddtime")%></div></div>
		</li>
		<li>
			<div class="lileft">验证码：</div>
			<div class="liright"><div class="fl w300"><input name="llummm" id="llummm" value="" class="anniuipt" size="6"><img height="36" id="code" src="ImageCode.asp"/></div><div id="errinfo" class="fr w260 fred tl"></div></div>
		</li>
		<li>
			<div class="lileft"></div>
			<div class="liright"><input id="subedit" class="anniusub" name="s" type="button" value="马上修改"></div>
		</li></form>
	<ul>
</div>
<%End Sub%>
<%Sub Pass()%>
<div class="fl wtitle"><span>密码修改</span></div>
<div class="fl sconts">
	<ul>
		<li><form method="post" action=''>
			<div class="lileft">旧密码：</div>
			<div class="liright"><div class="fl w300"><input type="password" name="oldpass" id="oldpass" value="" class="anniuipt" size="35"></div></div>
		</li>
		<li>
			<div class="lileft">新密码：</div>
			<div class="liright"><div class="fl w300"><input type="password" name="newpass" id="newpass" value="" class="anniuipt" size="35"></div></div>
		</li>
		<li>
			<div class="lileft">确认密码：</div>
			<div class="liright"><div class="fl w300"><input type="password" name="newpassok" id="newpassok" value="" class="anniuipt" size="35"></div></div>
		</li>
		<li>
			<div class="lileft">验证码：</div>
			<div class="liright"><div class="fl w300"><input name="llummm" id="llummm" value="" class="anniuipt" size="6"><img height="36" id="code" src="ImageCode.asp"/></div><div id="errinfo" class="fr w260 fred tl"></div></div>
		</li>
		<li>
			<div class="lileft"></div>
			<div class="liright"><input id="subpass" class="anniusub" name="s" type="button" value="修改密码"></div>
		</li></form>
	<ul>
</div>
<%End Sub%>

</div>
</div>
</div>

<%Call ShowEnd()%>
<!-------提示信息------>
<div id="opencontid" class="opencontone MiaoIn05s bottomInDown">
	<div class="stitlesx">
		<h1>提示信息<span id="miao" class="fbai">3</span></h1>
		<div class="mores"><a href="##" onclick="document.getElementById('opencontid').style.display='none';document.getElementById('openbgid').style.display='none'"><font size="" color="#ff0000">关闭</font></a></div>
	</div>
	<div class="sconts f16 fyahei fred" id="errmessage"></div>
</div> 
<div id="openbgid" class="openbgone"></div>
</body>
</html>