【www.gdgbn.com--php常用代码】

这里是根据用户的选择是否允许把用户名密码保存到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

本文来源:http://www.gdgbn.com/jiaocheng/20563/