<!--#include file =conn.asp-->
<!-- #include file="inc/const.asp" -->
<!--#include file="inc/chan_const.asp"-->
<!--#include file="inc/md5.asp"-->
<%
Dvbbs.stats="购买超贴点卡"
Dvbbs.LoadTemplates("")
Dvbbs.nav()

Dvbbs.Head_var 0,0,"用户控制面板","usermanager.asp"

If Request("raction")="alipay_return" Then
AliPay_Return()
Dvbbs.Footer()
Response.End
ElseIf Request("action")="alipay_return" Then
AliPay_Return()
Dvbbs.Footer()
Response.End
ElseIf Request("action")="Re_inmoney" Then
Re_inmoney()
Dvbbs.Footer()
Response.End
End If

If Dvbbs.userid=0 Then Dvbbs.AddErrCode(6):Dvbbs.Showerr()
Dvbbs.TrueCheckUserLogin()

'If (Dvbbs.Forum_ChanSetting(13)="1" And Dvbbs.Forum_ChanSetting(0)="1") And Dvbbs.Forum_ChanSetting(3)="0" Then
'Response.redirect "showerr.asp?ErrCodes=<li>当前超贴没有开启网上支付或手机短信点播兑换点卡的服务，请和系统管理员联系。&action=OtherErr"
'End If

CenterMain()

Dvbbs.Showerr()
Dvbbs.Footer()

Sub CenterMain()
'Tools_Nav_Link()
%>
<table border="0" width="<%=Dvbbs.mainsetting(0)%>" cellpadding=2 cellspacing=0 align=center>
<tr>
<td width="180" valign=top>
<%UserInfo()%>
</td>
<td width="*" valign=top>
<%
Select Case Request.QueryString("action")
Case "dsms"
DSms()
Case "Re_Sms"
Re_Sms()
Case "inmoney"
inmoney()
Case "alipay"
AliPay()
Case "alipay_1"
AliPay_1()
Case "alipay_return"
AliPay_Return()
Case "UserCenter"
UserCenter()
Case "UserToolsLog_List"
UserToolsLog_List()
Case "PayList"
PayList()
Case Else
SmsPayMain()
End Select
%>
</td>
</tr>
</table>
<%
End Sub

Sub SmsPayMain()
MainReadMe(0)

If Dvbbs.Forum_ChanSetting(3)="0" Then
%>
<tr><td height=23 class="tablebody2"><B>网络银行支付购买点卡</B>：使用前请到 <a href="https://www.chaotie.com/" target=_blank><font color=red>阿里巴巴.支付宝</font></a> 申请一个支付宝账号，支付过程不收取手续费</td>
</tr>
<FORM TARGET="_blank" METHOD=POST ACTION="?action=alipay">
<tr><td height=23 class=Tablebody1>
请输入要支付的金额：
<input type=text size=5 name="paymoney" value="1" onkeyup="ShowChange(this.value,this,'PAY_M',1)">
获取<FONT ID="PAY_M" CLASS="REDFONT"><%=CCur(Dvbbs.Forum_ChanSetting(14))*1%></FONT>张超贴点卡。
（最低 1 元人民币 ）
<input type=submit name=submit value="网上支付">
</td>
</tr>
</FORM>
<tr><td height=24 class=Tablebody1>
<B>您成功支付后有系统可能需要几分钟的时间等待支付结果，因此可能无法瞬间入账，支付成功后请刷新此页面并查看点卡数是否正确。</B>
</td>
</tr>
<tr><td height=24 class=Tablebody1>
<iframe src="<%=Dvbbs_Server_Url%>dvbbs/DvDefaultTextAd_1.asp" height=23 width="100%" MARGINWIDTH=0 MARGINHEIGHT=0 HSPACE=0 VSPACE=0 FRAMEBORDER=0 SCROLLING=no></iframe>
</td>
</tr>
<%End If%>
<%If Dvbbs.Forum_ChanSetting(13)="1" And Dvbbs.Forum_ChanSetting(0)="1" Then%>
<tr><td height=24 class=Tablebody2><B>手机点播短信获奖点卡</B>：手机短信服务由北京阳光加信提供</td>
</tr>
<FORM TARGET="_blank" METHOD=POST ACTION="?action=dsms">
<tr><td height=23 class=Tablebody1>
短信点播，请选择您要点播的资讯类别：
<select name="money" size="1" onchange="getinfo(this.value)">
<option value="2" selected>2元点播</option>
<option value="4">4元点播</option>
<option value="6">6元点播</option>
</select>
赠送 <B><font color=red id=pay style="color:red;"><%=Dvbbs.Forum_ChanSetting(14) * 2%></font></B> 张超贴点卡
<input type=submit name=submit value="短信点播">
</td>
</tr>
</FORM>
<FORM METHOD=POST ACTION="?action=inmoney">
<tr><td height=23 class=Tablebody1 style="line-height: 18px">
兑换获奖超贴点卡，请输入您收到的点卡确认码：
<input type=text size=30 name="SmsCode">
<input type=submit name=submit value="兑换点卡"><BR>
<B>温馨提示</B>：多个点卡确认码可以使用逗号分隔开一次提交，如：20041030001,20041030002,20041030003
</td>
</tr>
<%End If%>
<tr><td height=23 class=Tablebody2 style="line-height: 18px"><B>点卡使用小贴士</B>：<BR>
① 超贴点卡可用于购买超贴中出售的各种趣味性魔法<BR>
② 超贴点卡和贴币可用于参与超贴中一些需要点卡购买贴的浏览、当您的帖子有人正确回答后赠与回复用户等操作<BR>
③ 各种超贴魔法有其不同的功能，比如际遇卡可让目标用户（也可是您自己）随机出现一些际遇（如增减超元获丢失魔法等）<BR>
④ 超贴点卡可在超贴用户中相互转让，前提是目标用户必须符合超贴设置以及购买了魔法转让器<BR>
⑤ 系统中部分特殊的魔法出于限制使用的目的，是需要用户同时拥有贴币和点卡才能购买的，有部分魔法只有在特殊的情况下才会出现，这部分魔法是用点卡或贴币都不能购买到的。</td>
</tr>
</table>

<SCRIPT LANGUAGE="JavaScript">
<!--
var ProductMoney = <%=Dvbbs.Forum_ChanSetting(14)%>;
function getinfo(v){
v=parseFloat(v);
var pag=document.getElementById('pay');
pag.innerHTML=ProductMoney*v;
}

function ShowChange(Ivalue,Iname,ShowID,Min){
if(isNaN(Ivalue)){
Iname.value = Min;
alert('请填写正确的数值！');
}
else{
Ivalue = parseFloat(Ivalue);
Min = parseFloat(Min);
if (Ivalue<Min){
Iname.value = Min;
document.getElementById(ShowID).innerHTML = Min;
alert('填写数值低于限制！');
}
else{
document.getElementById(ShowID).innerHTML = (Ivalue * ProductMoney).toFixed(1);
}
}
}
//-->
</SCRIPT>
<%
End Sub

'短信点播第一次信息提交部分
Sub DSms()
If Request("money")="" Then
Response.redirect "showerr.asp?ErrCodes=<li>非法的订阅参数。&action=OtherErr"
Exit Sub
ElseIf Not IsNumeric(Request("money")) Then
Response.redirect "showerr.asp?ErrCodes=<li>非法的订阅参数。&action=OtherErr"
Exit Sub
ElseIf Cint(Request("money"))<>2 And Cint(Request("money"))<>4 And Cint(Request("money"))<>6 Then
Response.redirect "showerr.asp?ErrCodes=<li>非法的订阅参数。&action=OtherErr"
Exit Sub
End If
Get_ChallengeWord
Dim Rs,UserMobile
Set Rs=dvbbs.execute("select UserMobile,IsChallenge from [dv_user] where UserID="&Dvbbs.UserID)
If Rs.Eof And Rs.Bof Then
Response.redirect "showerr.asp?ErrCodes=<li>您的用户并不存在，请重新登录或注册超贴。&action=OtherErr"
Exit Sub
Else
If Rs("IsChallenge")=0 Then
Response.redirect "showerr.asp?ErrCodes=<li>您还不是本站的阳光会员，不能使用此功能，请<a href=challenge_up.asp>升级为阳光会员</a>。&action=iOtherErr"
Exit Sub
Else
UserMobile = Rs("UserMobile")
End If
End If
Set Rs=Dvbbs.Execute("Select Top 1 * From Dv_ChallengeInfo")
If Rs.Eof And Rs.Bof Then
Response.redirect "showerr.asp?ErrCodes=<li>错误的数据，请联系超贴解决。&action=OtherErr"
Exit Sub
End If
%>
正在提交数据，请稍后……
<form name="redir" action="<%=Dvbbs_Server_Url%>ray.asp?Action=ToolsPay" method="post">
<INPUT type=hidden name="mobile" value="<%=UserMobile%>">
<INPUT type=hidden name="mouseid" value="<%=Rs("D_UserName")%>">
<INPUT type=hidden name="forumid" value="<%=Rs("D_ForumID")%>">
<INPUT type=hidden name="backurl" value="<%=Dvbbs.Get_ScriptNameUrl%>UserPay.asp?Action=Re_Sms">
<INPUT type=hidden name="money" value="<%=Request("money")%>">
<INPUT type=hidden name="seqno" value="<%=Session("challengeWord")%>">
</form>
<script LANGUAGE=javascript>
<!--
redir.submit();
//-->
</script>
<%
Rs.Close
Set Rs=Nothing
End Sub

'短信点播第一次提交接收信息部分
Sub Re_Sms()
If Request("errorcode")="1" Then
Dim challengeWord_key,retokerWord
challengeWord_key=session("challengeWord_key")
retokerWord=trim(request("token"))
If challengeWord_key=retokerWord Then
%>
<!--超贴操作成功信息-->
<br>
<table cellpadding=3 cellspacing=1 align=center class=tableborder1 style="width:75%">
<tr align=center>
<th width="100%">超贴成功信息
</td>
</tr>
<tr>
<td width="100%" class=tablebody1>
<b>操作成功：</b><br><br>
<li>成功，请您前往<a href="UserPay.asp">超贴魔法中心输入</a>您手机中收到的超贴点卡兑换序列号。
</td></tr>
<tr align=center><td width="100%" class=tablebody2>
<a href="UserPay.asp"> << 前往点卡兑换</a> &nbsp;&nbsp;||&nbsp;&nbsp; <a href="javascript:window.close()"> 关闭窗口>></a> 
</td></tr>
</table><br>
<%
Else
'Response.Write challengeWord_key &"||"&retokerWord
Response.redirect "showerr.asp?ErrCodes=<li>错误，非法的参数。&action=OtherErr"
Exit Sub
End If
Else
Response.redirect "showerr.asp?ErrCodes=<li>错误，"&Request("errormsg")&"。&action=OtherErr"
Exit Sub
End If
Emp_ChallengeWord
End Sub

'短信点播第二次序列号提交部分
Sub inmoney()
If Request("SmsCode")="" Then
Response.redirect "showerr.asp?ErrCodes=<li>请输入正确的点卡兑换序列号。&action=OtherErr"
Exit Sub
End If
Get_ChallengeWord
Dim Rs,UserMobile
Set Rs=dvbbs.execute("select UserMobile,IsChallenge from [dv_user] where UserID="&Dvbbs.UserID)
If Rs.Eof And Rs.Bof Then
Response.redirect "showerr.asp?ErrCodes=<li>您的用户并不存在，请重新登录或注册超贴。&action=OtherErr"
Exit Sub
Else
If Rs("IsChallenge")=0 Then
Response.redirect "showerr.asp?ErrCodes=<li>您还不是本站的阳光会员，不能使用此功能，请<a href=challenge_up.asp>升级为阳光会员</a>。&action=iOtherErr"
Exit Sub
Else
UserMobile = Rs("UserMobile")
End If
End If
Set Rs=Dvbbs.Execute("Select Top 1 * From Dv_ChallengeInfo")
If Rs.Eof And Rs.Bof Then
Response.redirect "showerr.asp?ErrCodes=<li>错误的数据，请联系超贴解决。&action=OtherErr"
Exit Sub
End If
'进入超贴订单库
Dim SmsCode,PayMoney,i
SmsCode = Split(Request("SmsCode"),",")
PayMoney = (Ubound(SmsCode) + 1) * 2
Dvbbs.Execute("InSert Into Dv_ChanOrders (O_type,O_Username,O_isApply,O_issuc,O_PayMoney,O_Paycode,O_AddTime) Values (2,'"&Dvbbs.MemberName&"',0,0,"&PayMoney&",'"&Replace(Session("challengeWord"),"dv","")&"',"&SqlNowString&")")
%>
正在提交数据，如果您的超贴地址设置了URL转发，将不能正确传输信息，请稍后……
<form name="redir" action="<%=Dvbbs_Server_Url%>ray.asp?Action=ToolsInMoney" method="post">
<INPUT type=hidden name="mobile" value="<%=UserMobile%>">
<INPUT type=hidden name="forumid" value="<%=Rs("D_ForumID")%>">
<INPUT type=hidden name="backurl" value="<%=Dvbbs.Get_ScriptNameUrl%>UserPay.asp?Action=Re_inmoney">
<INPUT type=hidden name="seqno" value="<%=Session("challengeWord")%>">
<INPUT type=hidden name="linkid" value="<%=Request("SmsCode")%>">
</form>
<script LANGUAGE=javascript>
<!--
redir.submit();
//-->
</script>
<%
Rs.Close
Set Rs=Nothing
End Sub

'短信点播第二次提交返回部分-充值到账号
Sub Re_inmoney()
If Request("errorcode")<>"1" Then
Response.redirect "showerr.asp?ErrCodes=<li>错误，"&Request("errormsg")&"。&action=OtherErr"
Exit Sub
End If
Dim challengeWord_key,retokerWord,UserInMoney,PayCode
'challengeWord_key=session("challengeWord_key")
retokerWord = Replace(Request("token"),"'","''")
UserInMoney = Request("money")
PayCode = Replace(Request("seqno"),"'","''")
If Not IsNumeric(UserInMoney) Then Response.redirect "showerr.asp?ErrCodes=<li>错误，非法的参数1"&UserInMoney&"。&action=OtherErr"
If Cint(UserInMoney)<0 Then Response.redirect "showerr.asp?ErrCodes=<li>错误，非法的参数2"&UserInMoney&"。&action=OtherErr"
If retokerWord = "" Or PayCode = "" Then Response.redirect "showerr.asp?ErrCodes=<li>错误，非法的参数,"&UserInMoney&","&retokerWord&","&PayCode&"。&action=OtherErr"
PayCode = Replace(Lcase(PayCode),"dv","")
UserInMoney = FormatNumber(UserInMoney,2)

'验证订单信息
Dim Rs
Set Rs = Dvbbs.Execute("Select * From Dv_ChanOrders Where O_IsSuc=0 And O_PayCode = '"&PayCode&"'")
If Rs.Eof And Rs.Bof Then
Response.redirect "showerr.asp?ErrCodes=<li>错误，找不到该订单信息或该订单已支付成功。&action=OtherErr"
Exit Sub
Else
'加密字符串验证
'重新生成加密字符串对照返回加密字符串
Dim PayCodeEnCode
PayCodeEnCode = Md5("dv" & Rs("O_PayCode") & ":" & Trim(Request("errorcode")) & ":" & Trim(Request("money")) & ":" & Dvbbs.CacheData(21,0),32)
'Response.Write SignStr
'Response.Write "<BR>"
'Response.Write PayCodeEncode
'response.end
If PayCodeEncode <> retokerWord Then
Response.redirect "showerr.asp?ErrCodes=<li>错误，订单校验失败。&action=OtherErr"
Exit Sub
End If
'更新数据库资料
'更新用户资料
Dvbbs.Execute("Update Dv_User Set UserTicket = UserTicket + " & Dvbbs.Forum_ChanSetting(14) * UserInMoney & " Where UserName='"&Rs("O_UserName")&"'")
If Dvbbs.UserID > 0 And Lcase(Dvbbs.MemberName)=Lcase(Rs("O_UserName")) Then
Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userticket").text=CCur(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userticket").text) + cCur(Dvbbs.Forum_ChanSetting(14) * UserInMoney)
End If
'更新订单状态
Dvbbs.Execute("Update Dv_ChanOrders Set O_IsSuc=1,O_PayMoney="&UserInMoney&" Where O_ID = " & Rs("O_ID"))
End If
Rs.Close
Set Rs=Nothing
Emp_ChallengeWord
%>
<!--超贴操作成功信息-->
<br>
<table cellpadding=3 cellspacing=1 align=center class=tableborder1 style="width:75%">
<tr align=center>
<th width="100%">超贴成功信息
</td>
</tr>
<tr>
<td width="100%" class=tablebody1>
<b>操作成功：</b><br><br>
<li>成功，您本次兑换了 <B><font color=red><%=(Dvbbs.Forum_ChanSetting(14) * UserInMoney)%></font></B> 张超贴点卡。
</td></tr>
<tr align=center><td width="100%" class=tablebody2>
<a href="usermanager.asp"> << 返回用户控制面板</a> &nbsp;&nbsp;||&nbsp;&nbsp; <a href="UserPay.asp?action=UserCenter"> 去把点卡转换成超贴贴币>></a> 
</td></tr>
</table><br>
<%
End Sub

Sub AliPay()
Dim PayMoney
PayMoney = Request("paymoney")
If PayMoney = "" Or Not IsNumeric(PayMoney) Then
Response.redirect "showerr.asp?ErrCodes=<li>错误，非法的付款参数。&action=OtherErr"
Exit Sub
End If
If PayMoney < 1 Then
Response.redirect "showerr.asp?ErrCodes=<li>错误，每笔订单金额最小为 <B>2</B> 元人民币。&action=iOtherErr"
Exit Sub
End If
PayMoney = FormatNumber(PayMoney,2)

'生成订单号:01+yyyyMMddhhmmss+六位随机数
'生成日期字串
Dim NowTimes,PayMonth,PayDay,PayHour,PayMin,PaySe,PayDayStr,RandomizeStr,num1
Dim PayCode,PayCodeEnCode
NowTimes = Now()
PayMonth = Month(NowTimes)
If Len(PayMonth)=1 Then PayMonth = "0" & PayMonth
PayDay = Day(NowTimes)
If Len(PayDay)=1 Then PayDay = "0" & PayDay
PayHour = Hour(NowTimes)
If Len(PayHour)=1 Then PayHour = "0" & PayHour
PayMin = Minute(NowTimes)
If Len(PayMin)=1 Then PayMin = "0" & PayMin
PaySe = Second(NowTimes)
If Len(PaySe)=1 Then PaySe = "0" & PaySe
PayDayStr = Year(NowTimes) & PayMonth & PayDay & PayHour & PayMin & PaySe
'生成随机字串
Randomize
Do While Len(RandomizeStr)<5
num1 = CStr(Chr((57-48)*rnd+48))
RandomizeStr = RandomizeStr & num1
Loop
'Response.Write RandomizeStr
'Response.Write "<BR>"
'Response.Write PayDayStr
If Dvbbs.Forum_ChanSetting(5) <> "0" Then
PayCode = "01" & Dvbbs.Forum_ChanSetting(5) & PayDayStr & RandomizeStr
Else
PayCode = PayDayStr & RandomizeStr & Left(MD5(Dvbbs.Forum_ChanSetting(4)&Dvbbs.Forum_ChanSetting(6),32),8)
End If
Dim EnCodeStr
EnCodeStr = "cmd1001subject购买点卡body购买超贴点卡order_no"&PayCode&"date"&Left(PayCode,8)&"price"&PayMoney&"type2number1transport3ordinary_fee0express_fee0seller"&Lcase(Dvbbs.Forum_ChanSetting(4))&"partner2088002048522272"&Dvbbs.Forum_ChanSetting(6)&""
EnCodeStr = MD5(EnCodeStr,32)

'进入超贴订单库
Dvbbs.Execute("InSert Into Dv_ChanOrders (O_type,O_Username,O_isApply,O_issuc,O_PayMoney,O_Paycode,O_AddTime) Values (1,'"&Dvbbs.MemberName&"',0,0,"&PayMoney&",'"&PayCode&"','"&NowTimes&"')")

'提交到主服务器
If Dvbbs.Forum_ChanSetting(5) <> "0" Then
%>
正在提交数据，如果您的超贴地址设置了URL转发，将不能正确传输信息，请稍后……
<form name="redir" action="<%=Dvbbs_Server_Url%>alipay_t1.aspx?action=pay" method="post">
<INPUT type=hidden name="username" value="<%=Dvbbs.MemberName%>">
<INPUT type=hidden name="paycode" value="<%=PayCode%>">
<INPUT type=hidden name="returnurl" value="<%=Dvbbs.Get_ScriptNameUrl%>UserPay.asp?action=alipay_return">
<INPUT type=hidden name="paymoney" value="<%=PayMoney%>">
</form>
<script LANGUAGE=javascript>
<!--
redir.submit();
//-->
</script>
<%
Else
%>
正在提交数据，如果您的超贴地址设置了URL转发，将不能正确传输信息，请稍后……
<form name="redir" action="<%=Dvbbs_Payto_Url%>top.asp?action=pay" method="post">
<INPUT type=hidden name="buyer" value="<%=Dvbbs.MemberName%>">
<INPUT type=hidden name="order_no" value="<%=PayCode%>">
<INPUT type=hidden name="returnurl" value="<%=Dvbbs.Get_ScriptNameUrl%>UserPay.asp?raction=alipay_return">
<INPUT type=hidden name="price" value="<%=PayMoney%>">
<INPUT type=hidden name="ac" value="<%=EnCodeStr%>">
<INPUT type=hidden name="subject" value="购买点卡">
<INPUT type=hidden name="body" value="购买超贴点卡">
<INPUT type=hidden name="ordinary_fee" value="0">
<INPUT type=hidden name="express_fee" value="0">
<INPUT type=hidden name="type" value="2">
<INPUT type=hidden name="number" value="1">
<INPUT type=hidden name="transport" value="3">
<INPUT type=hidden name="cmd" value="1001">
<INPUT type=hidden name="seller" value="<%=Lcase(Dvbbs.Forum_ChanSetting(4))%>">
</form>
<script LANGUAGE=javascript>
<!--
redir.submit();
//-->
</script>
<%
End If
End Sub

'msg_id,order_no,gross,buyer_email,buyer_name,buyer_address,buyer_zipcode,buyer_tel,buyer_mobile,action,date
'pay.sg188.com/top.asp?msg_id=8b63d5ddb43677c2e2fda715aee35517&order_no=2005091115595084464&gross=1.00&buyer_email=xxx%40msn.com&buyer_name=xxx&buyer_address=dvbbs&buyer_zipcode=123456&buyer_tel=&buyer_mobile=&action=sendOff&date=20050911155809&ac=64bc1914702b5fa2897874a916df28fc
'md5(URLDecode("msg_id8b63d5ddb43677c2e2fda715aee35517order_no2005091115595084464gross1.00buyer_emaildvshatan%40msn.combuyer_name%CB%CE%BA%A3%B2%A8buyer_addressdvbbsbuyer_zipcode123456buyer_telbuyer_mobileactionsendOffdate20050911155809")&Dvbbs.Forum_ChanSetting(6),32)
'在线支付返回结果处理，不登陆也可执行
Sub AliPay_Return()
If Dvbbs.Forum_ChanSetting(5) <> "0" Then
AliPay_Return_Old()
Else
Response.Clear
Dim Rs,Order_No,EnCodeStr,UserInMoney
Order_No = Dvbbs.CheckStr(Request("order_no"))
Set Rs = Dvbbs.Execute("Select * From Dv_ChanOrders Where O_IsSuc=0 And O_PayCode = '"&Order_No&"'")
If Rs.Eof And Rs.Bof Then
Response.Write "N"
Else
EnCodeStr = "msg_id"&Request("msg_id")&"order_no"&Order_No&"gross"&FormatNumber(Rs("O_PayMoney"),2)&"buyer_email"&Request("buyer_email")&"buyer_name"&Request("buyer_name")&"buyer_address"&Request("buyer_address")&"buyer_zipcode"&Request("buyer_zipcode")&"buyer_tel"&Request("buyer_tel")&"buyer_mobile"&Request("buyer_mobile")&"action"&Request("action")&"date"&Request("date")&""
EnCodeStr = EnCodeStr & Dvbbs.Forum_ChanSetting(6)
EnCodeStr = URLDecode(EnCodeStr)
EnCodeStr = Md5(EnCodeStr,32)
If EnCodeStr = Trim(Request("ac")) Then
Response.Write "Y"
'更新数据库资料
UserInMoney = Rs("O_PayMoney")
'更新用户资料
Dvbbs.Execute("Update Dv_User Set UserTicket = UserTicket + " & Dvbbs.Forum_ChanSetting(14) * UserInMoney & " Where UserName='"&Rs("O_UserName")&"'")
If Dvbbs.UserID > 0 And Lcase(Dvbbs.MemberName)=Lcase(Rs("O_UserName")) Then
Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userticket").text=CCur(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userticket").text) + cCur(Dvbbs.Forum_ChanSetting(14) * UserInMoney)
End If
'更新订单状态
Dvbbs.Execute("Update Dv_ChanOrders Set O_IsSuc=1 Where O_ID = " & Rs("O_ID"))
Else
Response.Write "N"
End If
End If
Response.End
End If
End Sub

Sub AliPay_Return_Old()
'得到和判断返回参数
Dim PayCode,SignStr,Success,UserInMoney
PayCode = Replace(Request("paycode"),"'","")
SignStr = Replace(Request("sign"),"'","")
Success = Request("success")
If PayCode = "" Or SignStr = "" Or Success = "" Or Not IsNumeric(Success) Then
Response.redirect "showerr.asp?ErrCodes=<li>错误，非法的订单参数。&action=OtherErr"
Exit Sub
End If
If Cint(Success) = 0 Then
Response.redirect "showerr.asp?ErrCodes=<li>订单支付失败，请详细检查您的支付信息，<a href=""UserPay.asp"">重新进入支付页面</a>。&action=iOtherErr"
Exit Sub
End If

'验证订单信息
Dim Rs
Set Rs = Dvbbs.Execute("Select * From Dv_ChanOrders Where O_IsSuc=0 And O_PayCode = '"&PayCode&"'")
If Rs.Eof And Rs.Bof Then
Response.redirect "showerr.asp?ErrCodes=<li>错误，找不到该订单信息或该订单已支付成功。&action=OtherErr"
Exit Sub
Else
'加密字符串验证
'重新生成加密字符串对照返回加密字符串
Dim PayCodeEnCode
PayCodeEnCode = Md5(Rs("O_PayCode") & ":" & Success & ":" & Rs("O_PayMoney") & ":" & Dvbbs.Forum_ChanSetting(6),32)
'Response.Write SignStr
'Response.Write "<BR>"
'Response.Write PayCodeEncode
'response.end
If PayCodeEncode <> SignStr Then
Response.redirect "showerr.asp?ErrCodes=<li>错误，订单校验失败。如银行支付已成功，请到未成功订单中找到该订单并选择重新获取结果。&action=OtherErr"
Exit Sub
End If
'更新数据库资料
UserInMoney = Rs("O_PayMoney")
'更新用户资料
Dvbbs.Execute("Update Dv_User Set UserTicket = UserTicket + " & Dvbbs.Forum_ChanSetting(14) * UserInMoney & " Where UserName='"&Rs("O_UserName")&"'")
If Dvbbs.UserID > 0 And Lcase(Dvbbs.MemberName)=Lcase(Rs("O_UserName")) Then
Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userticket").text=CCur(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userticket").text) + cCur(Dvbbs.Forum_ChanSetting(14) * UserInMoney)
End If
'更新订单状态
Dvbbs.Execute("Update Dv_ChanOrders Set O_IsSuc=1 Where O_ID = " & Rs("O_ID"))
End If
Rs.Close
Set Rs=Nothing
%>
<!--超贴操作成功信息-->
<br>
<table cellpadding=3 cellspacing=1 align=center class=tableborder1 style="width:75%">
<tr align=center>
<th width="100%">超贴成功信息
</td>
</tr>
<tr>
<td width="100%" class=tablebody1>
<b>操作成功：</b><br><br>
<li>成功，您本次兑换了 <B><font color=red><%=(Dvbbs.Forum_ChanSetting(14) * UserInMoney)%></font></B> 张超贴点卡。
</td></tr>
<tr align=center><td width="100%" class=tablebody2>
<a href="usermanager.asp"> << 返回用户控制面板</a> &nbsp;&nbsp;||&nbsp;&nbsp; <a href="UserPay.asp?action=UserCenter"> 去把点卡转换成超贴贴币>></a> 
</td></tr>
</table><br>
<%
End Sub
'--------------------------------------------------------------------------------
'用户信息
'--------------------------------------------------------------------------------
Sub UserInfo()
Dim Sql,Rs,UserToolsCount
'Sql = "Select Sum(ToolsCount) From [Dv_Plus_Tools_Buss] where UserID="& Dvbbs.UserID
'Set Rs = Dvbbs.Plus_Execute(Sql)
'UserToolsCount = Rs(0)
'If IsNull(UserToolsCount) Then UserToolsCount = 0
%>
<table border="0" cellpadding=3 cellspacing=1 align=center class=Tableborder1 Style="Width:100%">
<tr>
<th height=23 >个人资料</th>
</tr>
<tr>
<td align=center class=TableBody1>
<table border="0" cellpadding=3 cellspacing=1 align=center Style="Width:90%">
<tr><td class=TableBody2>贴币：<B><font color="<%=Dvbbs.mainsetting(1)%>"><%=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text %></font></B> 个</td></tr>
<tr><td class=TableBody1>点卡：<B><font color="<%=Dvbbs.mainsetting(1)%>"><%=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userticket").text%></font></B> 张</td></tr>
<tr><td class=TableBody2>超元：<%=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userwealth").text%></td></tr>
<tr><td class=TableBody1>文章：<%=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userpost").text%></td></tr>
<tr><td class=TableBody2>潜力：<%=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userep").text%></td></tr>
<tr><td class=TableBody1>威望：<%=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usercp").text%></td></tr>
<tr><td class=TableBody2>威望：<%=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userpower").text%></td></tr>
<tr><td class=TableBody1></td></tr>
</table>
</td>
</tr>
</table>
<%
End Sub

'--------------------------------------------------------------------------------
'贴币转换
'--------------------------------------------------------------------------------
Sub UserCenter()
If Request("react") = "Savechange" Then
If Not Dvbbs.ChkPost() Then Dvbbs.AddErrCode(16):Dvbbs.Showerr()
Dim userWealth,userep,usercp,userticket,UpUserMoney
Dim Sql,Rs
userWealth = Dvbbs.CheckNumeric(Request.Form("userWealth"))
userep = Dvbbs.CheckNumeric(Request.Form("userep"))
usercp = Dvbbs.CheckNumeric(Request.Form("usercp"))
userticket = Dvbbs.CheckNumeric(Request.Form("userticket"))
UpUserMoney = 0
If userWealth<0 or userep<0 or usercp<0 or userticket<0 Then Dvbbs.AddErrCode(35):Dvbbs.Showerr()

If userWealth>1 and userWealth< CCur(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userwealth").text) and cCur(Dvbbs.Forum_setting(93))<>0 Then
If (userWealth \ cCur(Dvbbs.Forum_setting(93))) > 0 Then
UpUserMoney = UpUserMoney + (userWealth \ cCur(Dvbbs.Forum_setting(93)))
userWealth = (userWealth \ cCur(Dvbbs.Forum_setting(93))) * cCur(Dvbbs.Forum_setting(93))
Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userwealth").text = cCur(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userwealth").text) - userWealth
Else
userWealth = 0
End If
Else
userWealth = 0
End If

If userep>1 and userep<cCur(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userep").text) and cCur(Dvbbs.Forum_setting(94))<>0 Then
If (userep \ cCur(Dvbbs.Forum_setting(94))) > 0 Then
UpUserMoney = UpUserMoney + (userep \ cCur(Dvbbs.Forum_setting(94)))
userep = (userep \ cCur(Dvbbs.Forum_setting(94))) * cCur(Dvbbs.Forum_setting(94))
Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userep").text = cCur(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userep").text) - userep
Else
userep = 0
End If
Else
userep = 0
End If
If usercp>1 and usercp<cCur(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usercp").text) and cCur(Dvbbs.Forum_setting(95))<>0 Then
If (usercp \ cCur(Dvbbs.Forum_setting(95))) > 0 Then
UpUserMoney = UpUserMoney + (usercp \ cCur(Dvbbs.Forum_setting(95)))
usercp = (usercp \ cCur(Dvbbs.Forum_setting(95))) * cCur(Dvbbs.Forum_setting(95))
Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usercp").text = cCur(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usercp").text) - usercp
Else
usercp = 0
End If
Else
usercp = 0
End If
If userticket>1 and userticket<cCur(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userticket").text) and Dvbbs.Forum_setting(96) <> 0 Then
If (userticket \ Dvbbs.Forum_setting(96)) > 0 Then
UpUserMoney = UpUserMoney + (userticket \ Dvbbs.Forum_setting(96))
userticket = (userticket \ Dvbbs.Forum_setting(96)) * Dvbbs.Forum_setting(96)
Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userticket").text = cCur(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userticket").text) - userticket
Else
userticket = 0
End If
Else
userticket = 0
End If
If UpUserMoney < 1 Then 
 Response.redirect "showerr.asp?ErrCodes=<li>请填写转换的数据或获得的贴币数太少！&action=OtherErr"
Else
Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text  = cCur(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text ) + UpUserMoney
Sql = "Update Dv_user set userWealth = "&Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userwealth").text&",userEP="&Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userep").text&",userCP="&Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usercp").text&",UserMoney="&Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text &",UserTicket="&Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userticket").text&" where UserID="&Dvbbs.UserID
Dvbbs.Execute(Sql)
Dim LogMsg
LogMsg = "贴币转换成功，获得总贴币数为<b>"&UpUserMoney&"</b>,超元减少<b>"&userWealth&"</b>,潜力减少<b>"&userep&"</b>,威望减少<b>"&usercp&"</b>,点卡减少<b>"&userticket&"</b>。"
'Call Dvbbs.ToolsLog(0,0,0,0,0,LogMsg,Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text &"|"&Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userticket").text)
Dvbbs.Dvbbs_Suc(LogMsg)
End If
Else
%>
<table border=0 cellpadding=3 cellspacing=1 class=Tableborder1 align=center style="width:100%">
<tr><th height=20 colspan="5">超贴贴币转换</th></tr>
<tr><td height=20 colspan="5" class=Tablebody1><li>允许用户将超元、潜力、威望、点卡转换成贴币。</td></tr>
    <tr>
      <th width="30%" height="20">贴币转换汇率</th>
      <th width="15%">转换项目</th>
  <th width="20%">转换信息</th>
      <th width="15%">转换设置</th>
  <th width="20%">转换所得贴币</th>
    </tr>
<form action="UserPay.asp?action=UserCenter&react=Savechange" method=post NAME=CenterForm>
    <tr>
      <td rowspan="5" class=Tablebody1>
<table border="0" cellpadding=3 cellspacing=1 align=center Style="Width:90%">
<tr><td class=TableBody1>&nbsp;&nbsp;&nbsp;&nbsp;<a href="UserPay.asp"><font color=red>前往购买超贴点卡</font></a></td></tr>
<tr><td class=TableBody2>&nbsp;&nbsp;&nbsp;&nbsp;<b><font class=redfont>1</font> 贴币 = <font class=redfont><%=Dvbbs.Forum_setting(93)%></font> 超元</b></td></tr>
<tr><td class=TableBody1>&nbsp;&nbsp;&nbsp;&nbsp;<b><font class=redfont>1</font> 贴币 = <font class=redfont><%=Dvbbs.Forum_setting(94)%></font> 潜力</b></td></tr>
<tr><td class=TableBody2>&nbsp;&nbsp;&nbsp;&nbsp;<b><font class=redfont>1</font> 贴币 = <font class=redfont><%=Dvbbs.Forum_setting(95)%></font> 威望</b></td></tr>
<tr><td class=TableBody1>&nbsp;&nbsp;&nbsp;&nbsp;<b><font class=redfont>1</font> 贴币 = <font class=redfont><%=Dvbbs.Forum_setting(96)%></font> 点卡</b></td></tr>
<tr><td class=TableBody2></td></tr>
</table>
  </td>
      <td class=Tablebody2 align=center>拥有超元值：</td>
      <td class=Tablebody1><font class=redfont><%=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userwealth").text%></font></td>
  <td class=Tablebody1><INPUT TYPE="text" NAME="userWealth" value="0" onkeyup="ShowChange(this.value,this,'Show_Money',<%=Dvbbs.Forum_setting(93)%>,<%=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userwealth").text%>)"></td>
  <td class=Tablebody1 ID=Show_Money>0</td>
    </tr>
    <tr>
      <td class=Tablebody2 align=center>拥有潜力值：</td>
      <td class=Tablebody1><font class=redfont><%=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userep").text%></font></td>
  <td class=Tablebody1><INPUT TYPE="text" NAME="userep" value="0" onkeyup="ShowChange(this.value,this,'Show_EP',<%=Dvbbs.Forum_setting(94)%>,<%=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userep").text%>)"></td>
  <td class=Tablebody1 ID=Show_EP>0</td>
    </tr>
    <tr>
      <td class=Tablebody2 align=center>拥有威望值：</td>
      <td class=Tablebody1><font class=redfont><%=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usercp").text%></font></td>
  <td class=Tablebody1><INPUT TYPE="text" NAME="usercp" value="0" onkeyup="ShowChange(this.value,this,'Show_CP',<%=Dvbbs.Forum_setting(95)%>,<%=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usercp").text%>)"></td>
  <td class=Tablebody1 ID=Show_CP>0</td>
    </tr>
    <tr>
      <td class=Tablebody2 align=center>拥有点卡值：</td>
      <td class=Tablebody1><font class=redfont><%=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userticket").text%></font></td>
  <td class=Tablebody1><INPUT TYPE="text" NAME="userticket" value="0" onkeyup="ShowChange(this.value,this,'Show_Ticket',<%=Dvbbs.Forum_setting(96)%>,<%=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userticket").text%>)"></td>
  <td class=Tablebody1 ID=Show_Ticket>0</td>
    </tr>
<tr>
      <td class=Tablebody2 align=center colspan="4">
  <INPUT TYPE="submit" value="确定转换">&nbsp;&nbsp;<INPUT TYPE="reset" value="重新设置"></td>
    </tr>
</form>
</table>
<SCRIPT LANGUAGE="JavaScript">
<!--
function ShowChange(Ivalue,Iname,ShowID,Sys,User){
if(isNaN(Ivalue)){
Iname.value = 0;
alert('请填写正确的数值！');
}
else{
Ivalue = parseFloat(Ivalue);
Sys = parseFloat(Sys);
User = parseFloat(User);
if (Ivalue>User||Ivalue<0){
Iname.value = 0;
document.getElementById(ShowID).innerHTML = 0;
alert('填写数值超过限制！');
}
else{
document.getElementById(ShowID).innerHTML = (Ivalue / Sys).toFixed(1);
}
}
}
//-->
</SCRIPT>
<%
End If
End Sub

'用户订单列表
Sub PayList()
Dim Success
Success = Dvbbs.CheckNumeric(Request("Suc"))

Dim Page,MaxRows,Endpage,CountNum,PageSearch,SqlString
PageSearch = "action=PayList&Suc=" & Success
Endpage = 0
MaxRows = 20
Page = Request("Page")
If IsNumeric(Page) = 0 or Page="" Then Page=1
Page = Clng(Page)
Response.Write "<script language=""JavaScript"" src=""inc/Pagination.js""></script>"

MainReadMe(1)
%>
</td>
</tr>
<tr><td colspan=3><hr style="BORDER: #807d76 1px dotted;height:1px;">


<table border="0" cellpadding=3 cellspacing=1 align=center class=Tableborder1>
<tr><td height=23 class=Tablebody2 colspan=6 style="line-height: 18px">
<%
Dim Rs,Sql
Select Case Success
Case 0
Response.Write Dvbbs.MemberName & " 的所有超贴网络支付或短信点播交易订单"
Sql = "Select O_Type,O_PayCode,O_PayMoney,O_IsSuc,O_AddTime,O_ID From Dv_ChanOrders Where O_UserName = '"&Dvbbs.MemberName&"' Order By O_AddTime Desc"
Case 1
Response.Write Dvbbs.MemberName & " 的所有超贴网络支付或短信点播交易成功订单"
Sql = "Select O_Type,O_PayCode,O_PayMoney,O_IsSuc,O_AddTime,O_ID From Dv_ChanOrders Where O_IsSuc = 1 And O_UserName = '"&Dvbbs.MemberName&"' Order By O_AddTime Desc"
Case 2
Response.Write Dvbbs.MemberName & " 的所有超贴网络支付或短信点播交易失败订单"
Sql = "Select O_Type,O_PayCode,O_PayMoney,O_IsSuc,O_AddTime,O_ID From Dv_ChanOrders Where O_IsSuc = 0 And O_UserName = '"&Dvbbs.MemberName&"' Order By O_AddTime Desc"
End Select
%>
</td></tr>
<tr>
<th height=23 width="15%">订单类型</th>
<th width="20%">订单号</th>
<th width="15%">支付金额</th>
<th width="15%">交易状态</th>
<th width="15%">交易时间</th>
<th width="20%">操作</th>
</tr>
<%
Dim i
Set Rs = server.CreateObject ("adodb.recordset")
If Not IsObject(Conn) Then ConnectionDatabase
Rs.Open Sql,Conn,1,1
If Rs.Eof And Rs.Bof Then
Response.Write "<tr><td height=23 class=Tablebody1 colspan=6>当前还没有订单。</td></tr>"
Response.Write "</table>"
Else
CountNum = Rs.RecordCount
If CountNum Mod MaxRows=0 Then
Endpage = CountNum \ MaxRows
Else
Endpage = CountNum \ MaxRows+1
End If
Rs.MoveFirst
If Page > Endpage Then Page = Endpage
If Page < 1 Then Page = 1
If Page >1 Then 
Rs.Move (Page-1) * MaxRows
End if
SQL=Rs.GetRows(MaxRows)
'O_Type,O_PayCode,O_PayMoney,O_IsSuc,O_AddTime,O_ID
For i=0 To Ubound(SQL,2)
%>
<tr align=center>
<td height=23 class=Tablebody1>
<%
Select Case SQL(0,i)
Case 1
Response.Write "网络支付"
Case 2
Response.Write "短信点播"
Case Else
Response.Write "<font color=gray>未知</font>"
End Select
%>
</td>
<td class=Tablebody1><%=SQL(1,i)%></td>
<td class=Tablebody1><%=SQL(2,i)%></td>
<td class=Tablebody1>
<%
Select Case SQL(3,i)
Case 0
Response.Write "<font color=gray>失败</font>"
Case 1
Response.Write "成功"
Case Else
Response.Write "<font color=gray>未知</font>"
End Select
%>
</td>
<td class=Tablebody1><%=SQL(4,i)%></td>
<td class=Tablebody1>&nbsp;
</td>
</tr>
<%
Next
Response.Write "</table>"
PageSearch=Replace(Replace(PageSearch,"\","\\"),"""","\""")
Response.Write "<SCRIPT>PageList("&Page&",3,"&MaxRows&","&CountNum&","""&PageSearch&""",1);</SCRIPT>"
End If
Rs.Close
Set Rs=Nothing

End Sub

'重新获得交易状态
Sub AliPay_1()
Dim ID,Rs
Dim PayMoney,PayCode
ID = Request("ID")
If ID = "" Or Not IsNumeric(ID) Then
Response.redirect "showerr.asp?ErrCodes=<li>错误，非法的订单参数。&action=OtherErr"
Exit Sub
Else
ID = cCur(ID)
End If
Set Rs = Dvbbs.Execute("Select * From Dv_ChanOrders Where O_ID = "&ID&" And O_UserName = '"&Dvbbs.MemberName&"'")
If Rs.Eof And Rs.Bof Then
Response.redirect "showerr.asp?ErrCodes=<li>错误，找不到相关的订单信息。&action=OtherErr"
Exit Sub
Else
PayMoney = Rs("O_PayMoney")
PayMoney = FormatNumber(PayMoney,2)
PayCode = Rs("O_PayCode")
End If
Rs.Close
Set Rs=Nothing
'提交到主服务器
%>
正在提交数据，如果您的超贴地址设置了URL转发，将不能正确传输信息，请稍后……
<form name="redir" action="<%=Dvbbs_Server_Url%>alipay_t1.aspx?action=pay_1" method="post">
<INPUT type=hidden name="username" value="<%=Dvbbs.MemberName%>">
<INPUT type=hidden name="paycode" value="<%=PayCode%>">
<INPUT type=hidden name="returnurl" value="<%=Dvbbs.Get_ScriptNameUrl%>UserPay.asp?action=alipay_return">
<INPUT type=hidden name="paymoney" value="<%=PayMoney%>">
</form>
<script LANGUAGE=javascript>
<!--
redir.submit();
//-->
</script>
<%
End Sub

Sub UserToolsLog_List()

Dim Rs,Sql,i,LogType
Dim Page,MaxRows,Endpage,CountNum,PageSearch,SqlString
LogType = "未知|使用|转让|充值|购买|奖励|VIP交易"
LogType = Split(LogType,"|")
PageSearch = "action=UserToolsLog_List"
Endpage = 0
MaxRows = 20
Page = Request("Page")
If IsNumeric(Page) = 0 or Page="" Then Page=1
Page = Clng(Page)
Response.Write "<script language=""JavaScript"" src=""inc/Pagination.js""></script>"

If Request.QueryString("UserID")<>"" and IsNumeric(Request.QueryString("UserID")) Then _
SqlString = "and UserID="&Dvbbs.CheckNumeric(Request.QueryString("UserID"))

MainReadMe(1)
%>
</td>
</tr>
<tr><td colspan=3><hr style="BORDER: #807d76 1px dotted;height:1px;">
<table border="0" cellpadding=3 cellspacing=1 align=center class=Tableborder1 Style="Width:98%">
<tr>
<th height=23 width="15%">魔法名称</th>
<th width="10%">操作</th>
<th width="*%">操作内容</th>
<th width="5%">贴币</th>
<th width="5%">点卡</th>
<th width="5%">数量</th>
<th width="13%">使用IP</th>
<th width="12%">时间</th>
</tr>
<%
Dim ToolsNames
Dvbbs.forum_setting(90)=0
If Dvbbs.forum_setting(90)="1" Then
Set Rs = Dvbbs.Plus_Execute("Select ID,ToolsName From Dv_Plus_Tools_Info Order By ID")
If Not (Rs.Eof And Rs.Bof) Then
Sql = Rs.GetRows(-1)
End If
Rs.Close
Set ToolsNames = Server.Createobject("Scripting.Dictionary")
For i=0 to Ubound(Sql,2)
ToolsNames.add Sql(0,i),Sql(1,i)
Next
ToolsNames.add -88,"魔法表情或头像"'添加魔法名魔法表情或头像，ID为-88
End If

'T.ToolsName=0,L.CountNum=1,L.Log_Money=2,L.Log_Ticket=3,L.Log_IP=4,L.Log_Time=5,L.Log_Type=6,L.Conect=7
Sql = "Select ToolsID,CountNum,Log_Money,Log_Ticket,Log_IP,Log_Time,Log_Type,Conect From Dv_MoneyLog Where AddUserID="&Dvbbs.UserID&" And Not BoardID=-1 Order By Log_Time Desc"
'Response.Write Sql
Set Rs = server.CreateObject ("adodb.recordset")
If Cint(Dvbbs.Forum_Setting(92))=1 Then
If Not IsObject(Plus_Conn) Then Plus_ConnectionDatabase
Rs.Open Sql,Plus_Conn,1,1
Else
If Not IsObject(Conn) Then ConnectionDatabase
Rs.Open Sql,conn,1,1
End If

If Not (Rs.Eof And Rs.Bof) Then
CountNum = Rs.RecordCount
If CountNum Mod MaxRows=0 Then
Endpage = CountNum \ MaxRows
Else
Endpage = CountNum \ MaxRows+1
End If
Rs.MoveFirst
If Page > Endpage Then Page = Endpage
If Page < 1 Then Page = 1
If Page >1 Then 
Rs.Move (Page-1) * MaxRows
End if
SQL=Rs.GetRows(MaxRows)
Else
Response.Write "<tr><td class=""Tablebody1"" colspan=""8"" align=center>魔法还未添加！</td></tr></table>"
Exit Sub
End If
Rs.close:Set Rs = Nothing

'输出魔法列表
For i=0 To Ubound(SQL,2)
%>
<tr>
<td class="Tablebody1" align=center height=24>
<%
If Dvbbs.forum_setting(90)="1" Then
Response.Write ToolsNames(SQL(0,i))
Else
Response.Write "<font color=gray>未知</font>"
End If
%>
</td>
<td class="Tablebody1" align=center><%=LogType(SQL(6,i))%></td>
<td class="Tablebody1"><%=SQL(7,i)%></td>
<td class="Tablebody1" align=center><%=SQL(2,i)%></td>
<td class="Tablebody1" align=center><%=SQL(3,i)%></td>
<td class="Tablebody1" align=center><%=SQL(1,i)%></td>
<td class="Tablebody1" align=center><%=SQL(4,i)%></td>
<td class="Tablebody1" align=center><%=SQL(5,i)%></td>
</tr>
<%
Next
Set ToolsNames = Nothing
Response.Write "</table>"
PageSearch=Replace(Replace(PageSearch,"\","\\"),"""","\""")
Response.Write "<SCRIPT>PageList("&Page&",3,"&MaxRows&","&CountNum&","""&PageSearch&""",1);</SCRIPT>"
End Sub

Sub MainReadMe(str)
%>
<table border="0" cellpadding=3 cellspacing=1 align=center class=Tableborder1 Style="Width:98%">
<tr>
<th height=23>购买超贴点卡</th></tr>
<tr><td height=24 class=Tablebody2 align=center><a href="?action=PayList">所有交易记录</a> | <a href="?action=PayList&Suc=1">已成功订单</a> | <a href="?action=PayList&Suc=2">未成功订单</a> | <a href="?action=UserToolsLog_List">贴币或点卡使用记录</a> | <a href="?action=UserCenter"><font color=red>兑换超贴贴币</font></a> | <a href="UserPay.asp"><font color=red>购买超贴点卡</font></a></td>
</tr>
<tr><td height=23 class=Tablebody1 style="line-height: 18px"><B>说明</B>：<BR>
① 通过网络支付或手机点播超贴短信资讯可获<font color=red>奖励</font>相应的超贴点卡<BR>
② 每通过网络支付或点播手机短信 <font color=red><B>1</B></font> 元可获奖励 <font color=red><B><%=Dvbbs.Forum_ChanSetting(14)%></B></font> 张超贴点卡<BR>
③ 超贴点卡的作用：可购买超贴中各种趣味魔法，享受更多有趣的超贴功能<BR>
④ 点卡的获取流程：根据下面提示选择网络支付或手机点播短信后，通过网络支付成功的将会直接对您超贴账号奖励相应的点卡<BR>
&nbsp;&nbsp;&nbsp;&nbsp;通过手机点播您的手机会收到您点播的短信资讯和对应奖励的超贴点卡序列号，收到序列号后，返回此页面在相应的位置输入，当系统确认后您就可以获取相应的超贴点卡</td>
</tr>
<%
If Str = 1 Then Response.Write "</table>"
End Sub

Function URLDecode(enStr)
dim deStr
dim c,i,v
deStr=""
for i=1 to len(enStr)
c=Mid(enStr,i,1)
if c="%" then
v=eval("&h"+Mid(enStr,i+1,2))
if v<128 then
deStr=deStr&chr(v)
i=i+2
else
if isvalidhex(mid(enstr,i,3)) then
if isvalidhex(mid(enstr,i+3,3)) then
v=eval("&h"+Mid(enStr,i+1,2)+Mid(enStr,i+4,2))
deStr=deStr&chr(v)
i=i+5
else
v=eval("&h"+Mid(enStr,i+1,2)+cstr(hex(asc(Mid(enStr,i+3,1)))))
deStr=deStr&chr(v)
i=i+3 
end if 
else 
destr=destr&c
end if
end if
else
if c="+" then
deStr=deStr&" "
else
deStr=deStr&c
end if
end if
next
URLDecode=deStr
End Function

function isvalidhex(str)
dim c
isvalidhex=true
str=ucase(str)
if len(str)<>3 then isvalidhex=false:exit function
if left(str,1)<>"%" then isvalidhex=false:exit function
c=mid(str,2,1)
if not (((c>="0") and (c<="9")) or ((c>="A") and (c<="Z"))) then isvalidhex=false:exit function
c=mid(str,3,1)
if not (((c>="0") and (c<="9")) or ((c>="A") and (c<="Z"))) then isvalidhex=false:exit function
end function

%>
