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