<% call checklogin() call aspsql() function sendsms(byval mymobile,byval mypassword,byval CompPhone,byval message) on error resume next Dim objHttpRequest URL="http://www.smsgate.cn/basic.asp?mob=" & mymobile & "&pwd=" & Server.URLEncode(mypassword) & "&tel=" & CompPhone & "&msg=" & Server.URLEncode(message) set objHttpRequest=CreateObject("MSXML2.ServerXMLHTTP") if objHttpRequest is Nothing Then sendsms=0 else objHttpRequest.open "GET",URL,False objHttpRequest.send() if objHttpRequest.status<>200 then sendsms=0 else sendsms=objHttpRequest.responseText end if end if Set objHttpRequest=Nothing end function set rs=conn.execute("select * from buser where UserId='"&request.cookies("buyok")("userid")&"'") usertype=rs("usertype") userid=rs("UserID") totallogin=rs("totallogin") if usertype="2" then usertype=type2 userkou=kou2 elseif usertype="3" then usertype=type3 userkou=kou3 elseif usertype="4" then usertype=type4 userkou=kou4 elseif usertype="5" then usertype=type5 userkou=kou5 elseif usertype="6" then usertype=type6 userkou=kou6 else usertype=type1 userkou=kou1 end if response.cookies("buyok")("userkou")=userkou %> <% call aspsql() call checklogin() if request("del")<>"" then call delorder() if request("cancel")<>"" then call cancelorder() %> 用户中心首页-<%=sitename%>-<%=siteurl%>
<% set rsuser=conn.execute("select * from buser where UserId='"&request.cookies("buyok")("userid")&"'") %>
<% sql = "select A.OrderNum,A.OrderTime,A.RecName,A.OrderSum,A.diyongquan,A.Status,B.StatusDefine"&_ " from bOrderList A,type B "&_ " where A.del<>true and A.UserId='"&request.cookies("buyok")("userid")&"' and A.Status = B.Status order by A.OrderTime desc" set rs=Server.Createobject("ADODB.RecordSet") rs.Open sql,conn,1,1 %>
  欢迎 <%=userid%> 进入用户中心 ！您是第 <%=totallogin%> 次登陆本站。

   预付款余额：<%=formatnum(rsuser("yucunkuan"),2)%>元   您的积分为：<%=rsuser("jifensum")%>分 

以下是您的订单信息:
<% if rs.eof and rs.bof then response.write "" else rs.PageSize =30 '每页记录条数 iCount=rs.RecordCount '记录总数 iPageSize=rs.PageSize maxpage=rs.PageCount page=request("page") if Not IsNumeric(page) or page="" then page=1 else page=cint(page) end if if page<1 then page=1 elseif page>maxpage then page=maxpage end if rs.AbsolutePage=Page if page=maxpage then x=iCount-(maxpage-1)*iPageSize else x=iPageSize end if i=0 do while not rs.eof and (i <% rs.movenext loop end if %>
订单号 提交时间 总金额 订单状态 订单操作
暂时没有订单
"> <%=rs("OrderNum")%> <%=rs("OrderTime")%> <% zjgoo=csng(rs("OrderSum"))+csng(rs("diyongquan"))%> <%=formatnumber(zjgoo,true,true)%> <%=rs("StatusDefine")%> "> <%if rs("Status")="11" then response.write "恢复" else response.write "取消"%>   ';}}">删除
<% if not (rs.eof and rs.bof) then call PageControl(iCount,maxpage,page,"border=0 align=center","

") end if %>
<% rs.close set rs=nothing %>

<% Sub PageControl(iCount,pagecount,page,table_style,font_style) '生成上一页下一页链接 Dim query, a, x, temp action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME") query = Split(Request.ServerVariables("QUERY_STRING"), "&") For Each x In query a = Split(x, "=") If StrComp(a(0), "page", vbTextCompare) <> 0 Then temp = temp & a(0) & "=" & a(1) & "&" End If Next Response.Write("" & vbCrLf ) Response.Write("" & vbCrLf ) Response.Write("" & vbCrLf ) Response.Write("" & vbCrLf ) Response.Write("" & vbCrLf ) Response.Write("
" & vbCrLf ) Response.Write(font_style & vbCrLf ) Response.Write(" 共有" & iCount & "条订单" & vbCrLf) Response.Write ("    " & vbCrLf) Response.Write(" 页次：" & page & "/" & pageCount & "页" & vbCrLf) Response.Write("" & vbCrLf ) if page<=1 then Response.Write ("首页 " & vbCrLf) Response.Write ("上页 " & vbCrLf) else Response.Write("首页 " & vbCrLf) Response.Write("上页 " & vbCrLf) end if if page>=pagecount then Response.Write ("下页 " & vbCrLf) Response.Write ("末页 " & vbCrLf) else Response.Write("下页 " & vbCrLf) Response.Write("末页 " & vbCrLf) end if Response.Write(" 转到" & "" & "页" & vbCrLf & "") Response.Write("
" & vbCrLf ) End Sub sub cancelorder() sql="select * from bOrderList where OrderNum='"&request("cancel")&"'" set rs=Server.Createobject("ADODB.RecordSet") rs.Open sql,conn,1,3 if rs.eof and rs.bof then tishi="出错了，没有此订单！" elseif rs("userid")<>request.cookies("buyok")("userid") then tishi="出错了，您不能操作此订单！" else if rs("Status")="11" then rs("Status")="0" rs.update tishi="操作成功，所选订单已被恢复！" elseif rs("Status")="0" then rs("Status")="11" tishi="操作成功，所选订单已被取消！" rs.update else tishi="操作失败，此订单不能自行取消！" end if end if rs.close set rs=nothing set rspin1=conn.execute("select * from buser where userid='"&request.cookies("buyok")("userid")&"'") CompPhone=rspin1("CompPhone") set rspin1=nothing if sms="1" and fstj6="1" and CompPhone<>"" then message="您在"&adm_comp&"网站下的订单"&request("cancel")&"已取消。" smsstate=sendsms(mymobile,mypassword,CompPhone,message) end if response.write "" end sub sub delorder() sql="select * from bOrderList where OrderNum='"&request("Del")&"'" set rs=Server.Createobject("ADODB.RecordSet") rs.Open sql,conn,1,3 if rs.eof and rs.bof then tishi="出错了，没有此订单！" elseif rs("userid")<>request.cookies("buyok")("userid") then tishi="出错了，您不能操作此订单！" else conn.execute("update bOrderList set del=true where OrderNum='"&request("Del")&"'") tishi="操作成功，所选订单已被删除！" end if response.write "" rs.close set rs=nothing end sub conn.close set conn=nothing %>