%@language="vbscript"%>
<% Response.Buffer=false %>
<% Response.Expires=false %>
<%
dim sql_str
sql_str="select * from infor order by id desc"
call openbase(sql_str)
dim records
records=recset.recordcount
dim user,password
user=trim(request("user"))
password=trim(request("password"))
if user="" or password="" then
session("availuser")=0
else
if user="ht2007" and password="ht2007" then
session("availuser")=1
else
session("availuser")=0
end if
end if
%>