<% 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%>