歌特中国

‘ ============================================
‘ 身份验证
‘ ============================================
Sub Sfyz()
 If Session(”UserName”) = “” Or Session(”PassWord”) = “” Then
 Session.Abandon()
 Call Window(”index.html”,”_parent”)
 Response.End()
 End If
 Sql = “select Username,Psw from users where Username=”"” & Session(”UserName”) & “”" and Psw=”"” & Session(”PassWord”) & “”"”
 SET Rs = Server.CreateObject(”ADODB.recordset”)
 Rs.Open Sql,Conn,1,1
 If Rs.eof And Rs.bof Then
 Session.Abandon()
 Call Window(”index.html”,”_parent”)
 Response.End()
 Else
 Closers()
 End If
End Sub
Read the rest of this entry »

SESSION, 用户组验证, 身份验证