<%@language=vbscript codepage=950%> <% 'Check User dim rs,user_id,user_class,LogonOk set rs=server.createobject("ADODB.Recordset") rs.open "select * from guest where guest_linkman='" & request("guest_username") & "' and guest_domain='" & request("guest_pwd") & "'",conn,1,1 if not rs.EOF and not rs.BOF then session("guest_id")=rs("guest_id") session("guest_category")=rs("guest_category") session("LogonOk")=session("guest_id") & "?23#7856datum8!" %> <% Response.Write "" else 'Invalid UserID %> <% end if rs.Close set rs = nothing %>