header.asp

欢迎使用《雨点下载系统 2.0》！ 本系统仅提供给个人网站免费使用

<%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="<%=SiteSetting(9)%>" 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">
&nbsp;</td>
    </form>
  </tr>
</table>
<%if SiteSetting(8)="yes" then%>
<DIV CLASS="collapsed" ID="login">
<table width="760" border="0" cellpadding="0" cellspacing="0" align="<%=SiteSetting(9)%>" 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="<%=SiteSetting(9)%>" cellpadding="0" cellspacing="0">
  <tr> 
    <td height="70" background="<%=SkinSetting(18)%>" class="xuxian">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="39%"><a href="default.asp"><img src="<%=SkinSetting(17)%>" border="0"></a></td>
          <td width="61%"><%=AdsCode%>
          </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td bgcolor="<%=SkinSetting(4)%>" class="xuxian"> 
<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=bbs/index.asp target=_blank>细雨论坛</a></td><td>┋</td>"
set rsm=nothing
%> </tr>
</table></td>
  </tr>
</table>