Sub CheckUserIsLogin()

    If KSUser.UserLoginChecked() = False Then

      If KS.S("S")="1" Then

       KS.Echo "var user={'loginstr':'您好,欢迎进入" & KS.Setting(0) & "! [<a href=""javascript:void(0)""ShowPopLogin()"">登录</a>] | [<a href=""" & KS.GetDomain & "?do=reg"" target=""_blank"">免费注册</a>]'}"

   Else

    KS.Echo "var user={'loginstr':'<form name=""myform"" id=""myform"" method=""POST"" action=""" & KS.GetDomain & "user/checkuserlogin.asp"">用户名 <input type=""text"" maxlength=""30"" name=""username"" id=""username"" size=""12"" class=""textbox""/>&nbsp;密码 <input style=""FONT-FAMILY: verdana;"" type=""password"" maxlength=""30"" name=""password"" size=""12"" id=""password"" class=""textbox""/>&nbsp;"

    If KS.Setting(34)="1" Then

     KS.Echo "<span>验证码 </span><buttongetCode()"" maxlength=""8"" type=""text"" name=""Verifycode"" size=""5"" class=""textbox""><span id=""showVerify""><IMG style=""cursor:pointer"" src=""" & KS.GetDomain & "plus/verifycode.asp""this.src=\'" & KS.GetDomain & "plus/verifycode.asp?n=\'+ Math.random();"" align=""absmiddle""></span>"

    End If

    KS.Echo "<input align=""absmiddle"" type=""image"" src=""" & KS.GetDomain & "images/login.gif""return(CheckLoginForm())""  class=""lgbtn""/>&nbsp;<a href=""" & KS.GetDomain & "?do=reg"" target=""_self"">注册</a>&nbsp;|&nbsp;<a href=""" & KS.GetDomain & "user/getpassword.asp"">找回密码</a></form>'}"

   End If

    Else

      KS.Echo "var user={'loginstr':'您好！<span style=""color:red"">" & KSUser.UserName & "</span>,欢迎来到会员中心!【<a href=""" & KS.GetDomain & "user/"">会员中心</a>】【<a href=""" & KS.GetDomain & "/user/user_Message.asp?action=inbox"">短消息"& GetMailTips()& "</a>】【<a href=""" & KS.GetDomain & "User/UserLogout.asp"">退出</a>】'}"

    End If

  End Sub

红色是什么意思，请高人指点

S=1来源于网址中！

如果S=1那么

？？？？？？？？？？

否则

？？？？？？？

结束

如果你会写的话，自己也可以无限加上去！

如果S=1那么

？？？？？？

否则如果S=2 那么

？？？？？

否则如果S=3 那么

？？？？？？？

结束