<%
response.expires =0
session("author")="ncaids"
if session("cdcuser")<>1 or session("chkuser")="" then
response.redirect "index.asp"
end if
editname=session("chkuser")
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("editnum")) then
editnum=cint(request("editnum"))
if editnum=1 then%>
<%end if
if editnum=2 then%>
<%end if
else%>
<%end if%>
<%
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%>
