性艾中心内部网

<% response.expires =0 session("author")="ncaids" if session("cdcuser")<>1 or session("chkuser")="" then response.redirect "index.asp" end if const MaxPerPage=6 dim totalput dim CurrentPage dim TotalPage dim currentNum if not isempty(request("page")) then if not isempty(request("numlist")) then tztop=0 currentPage=cint(request("page")) currentnum=cint(request("numlist")) else tztop=1 currentpage=cint(request("page")) end if else tztop=1 currentPage=1 end if if not isempty(request("lanmusd")) then lanmu=request("lanmusd") else lanmu="tongzhi" end if %> 性艾中心内部网

<% response.write session("chktruename")&" "%> <% if Time < #8:00:00# and Time >= #0:00:00# then response.write"早上好！" elseif Time < #11:00:00# and Time >= #8:00:00# then response.write("上午好！") elseif Time < #13:00:00# and Time >= #11:00:00# then response.write("中午好！") elseif Time < #19:00:00# and Time >= #13:00:00# then response.write("下午好！") else response.write("晚上好！") end if %> 你的ip地址： <%dim userip userip=Request.ServerVariables("REMOTE_ADDR") response.write(userip)%>

<% if not isempty(request("newtz")) then%> <% end if%> <%sql ="select * from viplist where vip_name='"& session("chkuser") &"'" openrs rs,sql,2,2 if rs("新通知")=1 then rs("新通知")=0 rs.update newttzz=1 end if rs.close set rs=nothing set conn=nothing if newttzz=1 then newttzz=0%> <%end if%>