logout.asp

这是一个很好的密码登录程序

<%
'get info from client
No=request.QueryString("No")

'connect to user database
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("user.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
Conn.Open connstr

updated="yes"
temptext=".%0D"
goon=false
'user indetify
sql="SELECT * FROM 用户表 WHERE 在线编号='" & No & "'"
Set Rs=conn.Execute(sql)
if Rs.Bof OR Rs.Eof Then
  temptext="%0D你已离线！%0D"
else
  username=Rs("用户名")
  goon=true
end if

'recieve message from database
if goon=true then
  sql="UPDATE 用户表 SET 在线编号='0' WHERE 用户名='" & username & "'"
  conn.Execute sql
  temptext="%0D你已离线！%0D"
end if

Rs.close
set Rs=nothing
conn.close
set conn=nothing

' return
ReturnValue="updated=" & updated & "&temptext=" & temptext
response.write(ReturnValue)

%>