<% username = request("username") userpwd = request("userpwd") set conn=Server.CreateObject("ADODB.Connection") conn.open "Driver={SQL Server};SERVER=127.0.0.1;DATABASE=pywz" set rs=Server.CreateObject("ADODB.Recordset") strSql="select * from UserInfo where userid='" & username & "' and password='" & userpwd & "'" rs.open strSql,conn, 1, 1 if not(rs.bof and rs.eof) then application("VisitorNum") = application("VisitorNum") + 1 application("VisitorName") = application("VisitorName") & " " & username Response.Write ("userlogin=success") Else Response.Write ("userlogin=unsuccess") end if rs.close conn.close %>