login.asp

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

<%
'fix text for SQL
Function SqlStr( data ) 
SqlStr = Replace( data, "'", "''" )
End Function 

'get info from client
username=SqlStr(request.form("username"))
password=SqlStr(request.form("password"))

'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

'user indetify
logined=False
message="null"
No="0000"
sql="SELECT * FROM 用户表 WHERE 用户名='" & username & "'"
Set Rs=conn.Execute(sql)
if Rs.Bof OR Rs.Eof Then
  message="用户名不正确或尚未注册！"
else
  if password<>Rs("密码") then
    message="密码错误！"
  else
    LogTime=Now()
    No=Cstr(Hour(LogTime)) & Cstr(Minute(LogTime)) & Cstr(Second(LogTime))& Cstr(Int(Rnd*10000))
    sql="UPDATE 用户表 SET 在线编号=" & No & "  WHERE 用户名='" & username & "'"
	conn.Execute sql
	logined=True
	message="成功登录！"
  end if
end if
Rs.close
set Rs=nothing
conn.close
set conn=nothing

' return
ReturnValue="No=" & No & "&text=" & message
response.write(ReturnValue)

%>