header.asp

三鸟个人网站源码。

<%if SiteSetting(2)="no" then response.redirect(SiteSetting(3))%>
<!--#include file="chkmember.asp"-->
<SCRIPT LANGUAGE="JavaScript" src="js/outliner.js"></SCRIPT>
<table width="760" border="0" cellpadding="0" cellspacing="0" align="center" bgcolor="<%=SkinSetting(4)%>">
  <tr> <td width="120" height="24">&nbsp;<img src="images/anrrowblue.gif" width="7" height="7" align="absmiddle"> 
<%dim t,k,j,y
t=(cint(day(date()))*24+cint(hour(time())))*60+cint(minute(time()))
k=0
j=1
y=0
Do While application("zxip"&j)<>""
	if application("zxip"&j)=Request.ServerVariables("REMOTE_ADDR") then
		application("zxsj"&j)=t
		y=1
	end if
	if t-application("zxsj"&j)>9 or t<application("zxsj"&j) then
		k=k+1
	else
		if k>0 then
			application.lock
			application("zxip"&j-k)=application("zxip"&j)
			application("zxsj"&j-k)=application("zxsj"&j)
			application.unlock
		end if
	end if
	if k>0 then
		application.lock
		application("zxip"&j)=""
		application.unlock
	end if
	j=j+1
loop
if y=0 then
	application("zxip"&j)=Request.ServerVariables("REMOTE_ADDR")
	application("zxsj"&j)=t
else
	j=j-1
end if
response.write("当前在线:<font color='#FF0000'>"&j&"</font>人")
%> </td><%if SiteSetting(8)="yes" then
	response.write "<td><img src=images/anrrowred.gif width=7 height=7 align=absmiddle> "
	if chkmember=false then
		response.write "您还没有登录┊<a href='#' onclick='outliner()' child='login'>登录</a>┊<a href='reg.asp'>注册</a>"
	else
		response.write "欢迎您,"&request.cookies("ydxz")("usr")
		if SiteSetting(18)="yes" then response.write "┊积分:"&mypoint
		if power(0)="1" then response.write "┊<a href='post_step1.asp'>发布软件</a>"
		response.write "┊<a href='modify.asp'>修改资料</a>┊<a href='#' onclick='outliner()' child='login'>重新登录</a>┊<a href='logout.asp'>退出</a>"
	end if
response.write "</td>"
end if%> <form name="search" method="post" action="search.asp"> <td height="24" align="right"> 
<select name="type" id="type" size="1" style="font-size:12px" class="input"> <option value="FileName" selected>软件名称</option> 
<option value="Brief">软件简介</option> <option value="all">不限条件</option> </select> 
<input name="keyword" type="text" id="keyword" size="10" class="input"> <input type="submit" name="Submit" value="搜索" class="button">
      </td>
    </form></tr> </table><%if SiteSetting(8)="yes" then%> <DIV CLASS="collapsed" ID="login"> 
  <table width="760" border="0" cellpadding="0" cellspacing="0" align="center" bgcolor="<%=SkinSetting(4)%>">
    <tr> <form name="loginform" method="post" action="chklogin.asp"> <td height="24" align="center" class="xuxian"><img src="images/anrrowblue.gif" width="7" height="7" align="absmiddle"> 
用户名： <input name="usr" type="text" class="input" id="usr" size="8">&nbsp; <img src="images/anrrowblue.gif" width="7" height="7" align="absmiddle"> 
密码： <input name="pwd" type="password" class="input" id="pwd" size="8">&nbsp; <img src="images/anrrowblue.gif" width="7" height="7" align="absmiddle"> 
保存时间： <select name="cookiesdate" class="input" id="cookiesdate"> <option value="0">不保存</option> 
<option value="1">保存一天</option> <option value="7">保存一周</option> <option value="30">保存一月</option> 
<option value="365">保存一年</option> </select> &nbsp;<input type="submit" name="Submit22" value="登录" class="button"> 
</td></form></tr> </table></DIV><%end if%> 
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" HEIGHT="8">
  <tr> <td height="19" background="<%=SkinSetting(18)%>" class="xuxian" bgcolor="#FFFFFF"> 
<table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><%=AdsCode%> 
</td></tr> </table></td></tr> <tr> <td bgcolor="<%=SkinSetting(4)%>" class="xuxian" HEIGHT="2"> 
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1"> 
<tr> <%dim rsm,sqlm
sqlm="select ID,ClassName from Class where ParentID=0 order by Sequence"
set rsm=conn.execute(sqlm)
if rsm.eof and rsm.bof then
	response.write "<td><center>没有分类</center></td>"
else
	do while not rsm.eof
		response.write "<td>┋</td><td height='18' align='center' onmouseover=this.className='mouseover'; onmouseout=this.className='mouseout2';><a href=list.asp?id="&rsm(0)&">"&rsm(1)&"</a></td>"
		rsm.movenext
	loop
end if
response.write "<td>┋</td><td height='18' align='center' onmouseover=this.className='mouseover'; onmouseout=this.className='mouseout2';><a href=class.asp>详细分类</a></td>"
response.write "<td>┋</td><td height='18' align='center' onmouseover=this.className='mouseover'; onmouseout=this.className='mouseout2';><a href=http://www.3niao.com target=_blank>返回首页</a></td><td>┋</td>"
set rsm=nothing
%> </tr> </table></td></tr> </table>