VBs:

<%
Dim username, password
username = session("username")
if username = "" then
' session 中没有用户登录信息
  username = Request.Cookies("username")
  password = Request.Cookies("password")
  ' 注意上面的两句得到的 username 和 password 要进行 SQL 注入漏洞的防范（即过滤掉单引号“'”），这里略去
  if username = "" or password = "" then
  ' 用户没有登录
    ...
  else
    ' 这里假设已经创建了 conn 和 rs 对象
    rs.Open "SELECT TOP 1 * FROM [user] WHERE username='" & username & "' AND password='" & password & "'", conn, 1, 3
    if rs.eof then
    ' Cookies 中的信息非法
      ...
    else
    ' Cookies 中的信息合法，自动登录
      session("username") = username
      ...
    end if
  end if
else
' 用户信息已经存在于 session 中，直接读取
  ...
end if
%>

js:

<%
var username, password;
username = session("username") + "";
if (username == "" || username == "undefined") {
// session 中没有用户信息
  username = Request.Cookies("username") + "";
  password = Request.Cookies("password") + "";
  // 注意上面的两句得到的 username 和 password 要进行 SQL 注入漏洞的防范（即过滤掉单引号“'”），这里略去
  if (username == "" || username == "undefined" || password == "" || password == "undefined") {
  // 用户没有登录
    ...
  }
  else {
    // 这里假设已经创建了 conn 和 rs 对象
    rs.Open("SELECT TOP 1 * FROM [user] WHERE username='" + username + "' AND password='" + password + "'", conn, 1, 3);
    if (rs.eof) {
    // Cookies 中的信息非法
      ...
    }
    else {
    // Cookies 中的信息合法，自动登录
      session("username") = username + "";
      ...
    }
  }
}
else {
// 用户信息已经存在于 session 中，直接读取
  ...
}
%>

VBs:

<%
Response.Cookies("verifycode") = int(rnd * 2100000000)
%>

js:

<%
Response.Cookies("verifycode") = Math.floor(Math.random() * 2100000000);
%>