%
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("errnumsd")) then
errnum=cint(request("errnumsd"))
if errnum=1 then
response.write"
通知更改成功!
"
end if
if errnum=2 then
response.write"
错误! 通知标题不能为空!
"
end if
if errnum=3 then
response.write"
错误! 通知内容不能为空!
"
end if
if errnum=4 then
response.write"
成功删除一条通知!
"
end if
if errnum=5 then
response.write"
密码输入错误!
"
end if
else
if not isempty(session("tzadminpwd")) then
if not isempty(request("dotype")) then
whatdo=cint(request("dotype"))
if whatdo=1 then%>
<%end if
if whatdo=2 then
end if
else%>
<% end if
else%>
<%end if
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%>