sub ShowUserLogin() dim strLogin if CheckUserLogined()=False then strLogin="

" & vbcrlf strLogin=strLogin & " " & vbcrlf strLogin=strLogin & " " & vbcrlf strLogin=strLogin & " " & vbcrlf strLogin=strLogin & " " & vbcrlf strLogin=strLogin & " " & vbcrlf strLogin=strLogin & "

							" & vbcrlf strLogin=strLogin & "
新用户注册 \| 忘记密码？

" & vbcrlf response.write strLogin %> <% Else response.write "   欢迎" & UserName & "，登陆！" response.write "
   您的身份：" if UserLevel=999 then response.write "注册用户" elseif UserLevel=99 then response.write "收费用户" elseif UserLevel=9 then response.write "VIP用户" end if response.write "
   计费方式：" if ChargeType=1 then if UserPoint>0 then response.write "扣点数
   可用点数： " & UserPoint & " 点" if UserPoint<=10 then response.write "
" end if else response.write "扣点数
   可用点数： " & UserPoint & " 点" response.write "" end if else if ValidDays>0 then response.write "有效期
有效天数： " & ValidDays & " 天" if ValidDays<=10 then response.write "" end if else response.write "有效期
有效天数： " & ValidDays & " 天" response.write "" end if end if response.write "

" & vbcrlf response.write "

发表文章" & vbcrlf response.write "

文章管理
" & vbcrlf response.write "

修改密码" & vbcrlf response.write "

个人信息
" & vbcrlf response.write "

" & vbcrlf end if %> <% end sub