<%@language=vbscript codepage=936 %> <% Option Explicit Response.buffer = True Const ChannelID = 0 Const SkinID = 0 %> <% Call Main Call CloseConn Sub Main() 'ComeUrl=strInstallDir & "UserLogin.asp" 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 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 ChargeType > 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 <> "" And CLng(UnreadMsg) > CLng(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 End Sub %>