asp使用者登入，退出登入函數

最後更新：2017-01-13 來源：互聯網

上載者：User

創建阿里雲帳戶，並獲得超過 40 款產品的免費試用版；而企業帳戶則可以享有總值 $1200 的免費試用版。立即註冊！

<!doctype html public "-//w3c//dtd xhtml 1.0 transitional//en" "http://www.w3.org/tr/xhtml1/dtd/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="content-type" content="text/html; charset=gb2312" />
<title>asp教程使用者登入，退出登入函數</title>
</head>

<body>
<form action="login.asp" method="post" name="loginform" id="loginform" onsubmit="return check();">
        <table width="500" border="0" cellspacing="5" cellpadding="0">
<tr>
    <td><strong>使用者名稱：</strong>      <input type="text" size="20" name="username">
      <strong>密碼：</strong>      <input name="userpass" type="password" id="userpass" size="20"></td>
</tr>
<tr>
    <td>保持登入：
      <input name="issave" type="radio" value="0">
      不儲存
      <input name="issave" type="radio" value="1" checked>
      保持一天
      <input type="radio" name="issave" value="30">
      保持一個月
      <input type="submit" name="submit" value="登入"></td>
</tr>
</form>
</body>
</html>

<%
on error resume next
set conn=server.createobject("adodb.connection")
conn.open connstr
if err then
response.write ""&issqlver&"資料庫教程串連出錯，請檢查串連字串。<br><br>"&err.source&" ("&err.number&")"
set conn = nothing
err.clear
response.end
end if

dim expires,userpass
username=request("username")
userpass=md5(request("userpass"),16)
expires=request("issave")
if username<>"test" then

set rs=server.createobject("adodb.recordset")
rs.open"select * from lg50_my_user where username='"&username&"' and password='"&userpass&"'",conn,1,3
if rs.eof and rs.bof then
rs.close
set rs=nothing
response.write("<script language=網頁特效>alert('請輸入正確使用者名稱和密碼');this.location.href='login.htm';</script>")
response.end
else
   response.cookies(cookiesname)("username")=username
   if int(expires)>0 then response.cookies(cookiesname).expires = date+expires
      response.redirect ("index.asp")
end if

else
   response.cookies(cookiesname)("username")=username
      response.redirect ("index.asp")
   response.end
end if
%>

退出登入

<%
if request("out")="bbs" then
response.cookies(cookiesname)("username")=""
response.redirect "/www.111cn.net/login.asp?menu=out&bbs=bbs"
else
response.cookies(cookiesname)("username")=""
response.redirect ("login.htm")
end if
%>

本文章原先以中文撰寫並發佈於 aliyun.com，亦設英文版本，僅作資訊用途。本網站不對文章的準確性，完整性或可靠性或其任何翻譯作出任何明示或暗示的陳述或保證。如對該文章有任何疑慮或投訴，請傳送電郵至 info-contact@alibabacloud.com 並提供相關疑慮或投訴的詳細說明。職員會於 5 個工作天內與您聯絡，一經驗證之後，即會刪除該侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

Get Started for Free

Sales Support

1 on 1 presale consultation

Chat Contact Sales
After-Sales Support

24/7 Technical Support 6 Free Tickets per Quarter Faster Response

Open a Ticket
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

Learn More

asp使用者登入，退出登入函數

聯繫我們

A Free Trial That Lets You Build Big!

Sales Support

After-Sales Support