asp登入儲存資料到cookie

這裡是根據使用者的選擇是否允許把使用者名稱密碼儲存到cookie裡面哦，我們特別注意那代碼藍色的代碼哦。

set rs=server.createobject("adodb.recordset")
 exec="select * from yrwl_tb_admin where yhm='"&yhm&"'"
 rs.open exec,conn,1,1
 if not rs.eof then
  if setpwd(pass) <> rs("pass")  then
   dl = "0"
  else
   cs = rs("cs")
   if isnull(cs) then cs = 0
   cs = cs + 1
   zhsj = rs("zhsj")
   if isnull(zhsj) then zhsj = "第一次登陸"
   session(sessionvalue&"zhsj") = zhsj
   if jy="1" then
    Response.cookies("bbsyhm") = yhm
    Response.cookies("bbspass") = pass
   else
    Response.cookies("bbsyhm") = ""
    Response.cookies("bbspass") = ""
   end if
   session(sessionvalue&"pass")=pass
   session(sessionvalue&"yhm") = yhm
   session(sessionvalue&"lxfs") = rs("lxfs")
   session(sessionvalue&"sp") = rs("wz")
   session(sessionvalue&"id") = cstr(rs("id"))
   session(sessionvalue&"jb") = rs("jb")
   session(sessionvalue&"qm") = rs("qm")
   exec1 = "update yrwl_tb_admin set cs = "+cstr(cs)+",zhsj = '"+jdsj+"' where yhm = '"+yhm+"'"
   conn.execute exec1
   exec1 = "insert into yrwl_tb_dlxx (yhm,sj,ck) values ('"&yhm&"','"&jdsj&"','貼吧')"
   conn.execute exec1
   if cz = "index" then response.redirect "index.asp"
  end if
 else
  dl = "0"
 end if
 if dl = "0" then%>
  <script language="javascript">
  alert("使用者名稱或密碼錯！");
  if("<%=cz%>"=="bg") window.location="index.asp";
  window.location="tb_dl.asp";
  </script>
 <%else
  rs.close
  conn.close%>
  <script language="javascript">
  parent.window.location.href='index.asp';
  //parent.window.frames['bbslx'].location.href='bbs_lx.asp';
  ////window.location = "bbs_list.asp";
  </script>
 <%end if