usernavi.asp

中文bux点击站源码。配合其他站点用

<%
  rs.Open "Select * From member Where UserName = '" & UserName & "'",Conn
  MemberShip = rs ("MemberShip")
  MemberPriority = rs ("MemberPriority")
  rs.Close

  rs.Open "Select Count(*) AS Total From mailrecord Where VIPLimit <= " & MemberPriority & " And MemberShipLimit <= " & MemberShip & " And MailValid = True And DateDiff ('d', SendTime, Now ()) <= 15",Conn
  TotalMails = rs("Total")
  rs.Close
%>