<% '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 %>