<sub id="f1rb7"></sub>

      <sub id="f1rb7"></sub><address id="f1rb7"></address>

        <address id="f1rb7"></address>

            <sub id="f1rb7"></sub>
            <address id="f1rb7"></address>

              <% 'ComeUrl=strInstallDir & "UserLogin.asp" '************************************************************** ' Software name: PowerEasy SiteWeaver ' Web: http://www.powereasy.net ' Copyright (C) 2005-2008 佛山市动易网络科技有限公司 版权所有 '************************************************************** Dim ShowType, LoginNum ShowType = Trim(Request.QueryString("ShowType")) If ShowType = "" Then ShowType = 1 Else ShowType = CLng(ShowType) End If If CheckUserLogined() = False Then Response.Write "" & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf If ShowType = 1 Then Response.Write " " & vbCrLf Response.Write " " & vbCrLf End If Response.Write " " & vbCrLf If ShowType = 1 Then Response.Write " " & vbCrLf Response.Write " " & vbCrLf End If If EnableCheckCodeOfLogin = True Then Response.Write " " & vbCrLf If ShowType = 1 Then Response.Write " " & vbCrLf Response.Write " " & vbCrLf End If End If Response.Write " " & vbCrLf Response.Write "" & vbCrLf Response.Write "
              用户名:
              密  码:
              验证码:
              " & vbCrLf Response.Write " 永久登录 " & vbCrLf Response.Write " " & vbCrLf If ShowType = 1 Then Response.Write "

              " & vbCrLf Else Response.Write "
              " & vbCrLf End If Response.Write "新用户注册  忘记密码?
              " & vbCrLf Response.Write "" & vbCrLf Else Call GetUser(UserName) Response.Write "
                " & UserName & "," If (Hour(Now) < 6) Then Response.Write "凌晨好!" ElseIf (Hour(Now) < 9) Then Response.Write "早上好!" ElseIf (Hour(Now) < 12) Then Response.Write "上午好!" ElseIf (Hour(Now) < 14) Then Response.Write "中午好!" ElseIf (Hour(Now) < 17) Then Response.Write "下午好!" ElseIf (Hour(Now) < 18) Then Response.Write "傍晚好!" Else Response.Write "晚上好!" End If If ShowType = 1 Then Response.Write "
                " Else Response.Write "
              " End If If ShowType = 1 Then Response.Write "资金余额: " & Balance & " 元" & vbCrLf Else '注这里是登录横向显示,官方的横向数据在760宽度正好,如果您想调用其它的信息,请在这里自定义。 End If If ShowType = 1 Then Response.Write "
                " Else Response.Write "
              " End If If ShowType = 1 Then Response.Write "经验积分: " & UserExp & " 分" & vbCrLf Else End If If ShowType = 1 Then Response.Write "
                " Else Response.Write "
              " End If If ShowType = 1 Then Response.Write "可用" & PointName & ": " & UserPoint & " " & PointUnit & "" Else End If If UserChargeType > 0 Then If ShowType = 1 Then Response.Write "
                " Else Response.Write "
              " End If If ValidNum = -1 Then Response.Write "剩余天数: 无限期" Else Response.Write "剩余天数: " & ValidDays & " 天" End If End If If ShowType = 1 Then Response.Write "
                " Else Response.Write "
              " End If Response.Write "待签文章:" & vbCrLf If Trim(UnsignedItems & "") = "" Then Response.Write " 0 篇" Else Dim UnsignedItemNum, arrUser arrUser = Split(UnsignedItems, ",") UnsignedItemNum = UBound(arrUser) + 1 Response.Write " " & UnsignedItemNum & " 篇" End If If ShowType = 1 Then Response.Write "
                " Else Response.Write "
              " End If Response.Write "待阅短信:" & vbCrLf If UnreadMsg > 0 Then Response.Write " " & UnreadMsg & " 条" Else Response.Write " 0 条" End If If ShowType = 1 Then Response.Write "
                " Else Response.Write "
              " End If Response.Write "登录次数: " & LoginTimes & " 次" & vbCrLf If ShowType = 1 Then Response.Write "
              " Else Response.Write "
              " End If Response.Write "【会员中心】 【注销登录】" Response.Write "
              " & vbCrLf End If If UnreadMsg <> "" And CLng(UnreadMsg) > CLng(0) Then Dim MessageID, rsMessage Set rsMessage = Conn.Execute("select Min(ID) from PE_Message where incept='" & UserName & "'and delR=0 and flag=0 and IsSend=1") If IsNull(rsMessage(0)) Then MessageID = 0 Else MessageID = rsMessage(0) End If If MessageID > 0 Then Response.Write "" & vbCrLf End If rsMessage.Close Set rsMessage = Nothing End If Call CloseConn %> 抢红包群 自动抢红包 签订与签定的区别 雪拂来 芦花荡老头子的性格 山科院教育中心