<!-- #include file="setup.asp" -->
<%
id=int(Request("id"))
if ""&adminpassword&""=empty then response.redirect "install.asp"
top
if Application(CacheName&"CountForum")=empty then Application(CacheName&"CountForum")=conn.execute("Select count(id)from [forum]")(0)
if Application(CacheName&"CountReforum")=empty then Application(CacheName&"CountReforum")=conn.execute("Select count(id)from [Reforum]")(0)
if Application(CacheName&"CountUser")=empty then Application(CacheName&"CountUser")=conn.execute("Select count(id)from [user]")(0)
if ""&nowdate&""<>""&date()&"" then
today=conn.execute("Select SUM(today)from bbsconfig")(0)
if ""&today&""="" then today=0
conn.execute("update [clubconfig] set today=0,oldday="&today&",Nowdate='"&date()&"'")
conn.execute("update [bbsconfig] set today=0")
end if
%><title><%=clubname%> - 软件下载</title>
<%
if Request.Cookies("username")=empty then error("<li>您还未<a href=login.asp>登录</a>社区")
%>
<table width=97% align=center border=0>
<tr>
<td width=25%>
<img src=images/logo.gif border=0></td>
<td align=right><%=banner%></td>
</tr>
</table><br>

<div align="center">
<table height=29 cellspacing=0 cellpadding=0 width=770 align=center border=0 bgcolor="#6C2E00">
  <tbody> 
  <tr> 
    <td> 
      <table width="750" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td align=center height="22" class="top"><a href="Default.asp"><font color="#FFFFFF">返回论坛</font></a> 
          <td align=center><a href='soft.asp?url=sort010000_indate_DESC_1.html'><font color='#ffffff'>网络软件</font></a></td>
          <td align=center width=1>|</td>
          <td align=center><a href='soft.asp?url=sort020000_indate_DESC_1.html'><font color='#ffffff'>系统工具</font></a></td>
          <td align=center width=1>|</td>
          <td align=center><a href='soft.asp?url=sort030000_indate_DESC_1.html'><font color='#ffffff'>应用软件</font></a></td>
          <td align=center width=1>|</td>
          <td align=center><a href='soft.asp?url=sort040000_indate_DESC_1.html'><font color='#ffffff'>联络聊天</font></a></td>
          <td align=center width=1>|</td>
          <td align=center><a href='soft.asp?url=sort050000_indate_DESC_1.html'><font color='#ffffff'>图形图像</font></a></td>
          <td align=center width=1>|</td>
          <td align=center><a href='soft.asp?url=sort060000_indate_DESC_1.html'><font color='#ffffff'>多媒体类</font></a></td>
          <td align=center width=1>|</td>
          <td align=center><a href='soft.asp?url=sort070000_indate_DESC_1.html'><font color='#ffffff'>行业软件</font></a></td>
          <td align=center width=1>|</td>
          <td align=center><a href='soft.asp?url=sort080000_indate_DESC_1.html'><font color='#ffffff'>游戏娱乐</font></a></td>
          <td align=center width=1>|</td>
          <td align=center><a href='soft.asp?url=sort090000_indate_DESC_1.html'><font color='#ffffff'>编程开发</font></a></td>
          <td align=center width=1>|</td>
          <td align=center><a href='soft.asp?url=sort100000_indate_DESC_1.html'><font color='#ffffff'>安全相关</font></a></td>
          <td align=center width=1>|</td>
          <td align=center><a href='soft.asp?url=sort110000_indate_DESC_1.html'><font color='#ffffff'>教育教学</font></a></td>
        </tr>
      </table>
    </td>
  </tr>
  </tbody> 
</table>
</div>
<table width="770" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="167" valign="top">
            <table width="161" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td height="25" background="images/bar_1.gif" align="center"><b>栏目导航</b></td>
              </tr>
              <tr> 
                <td height="18" bgcolor="#CCCCCC" align="center"><a href='soft.asp?url=sort010000_indate_DESC_1.html'>网络软件</a></td>
              </tr>
              <tr> 
                <td height="18" bgcolor="#F3F3F3" align="center"><a href='soft.asp?url=sort020000_indate_DESC_1.html'>系统工具</a></td>
              </tr>
              <tr> 
                <td height="18" bgcolor="#CCCCCC" align="center"><a href='soft.asp?url=sort030000_indate_DESC_1.html'>应用软件</a></td>
              </tr>
              <tr> 
                <td height="18" bgcolor="#F3F3F3" align="center"><a href='soft.asp?url=sort040000_indate_DESC_1.html'>联络聊天</a></td>
              </tr>
              <tr> 
                <td height="18" bgcolor="#CCCCCC" align="center"><a href='soft.asp?url=sort050000_indate_DESC_1.html'>图形图像</a></td>
              </tr>
              <tr> 
                <td height="18" bgcolor="#F3F3F3" align="center"><a href='soft.asp?url=sort060000_indate_DESC_1.html'>多媒体类</a></td>
              </tr>
              <tr> 
                <td height="18" bgcolor="#CCCCCC" align="center"><a href='soft.asp?url=sort070000_indate_DESC_1.html'>行业软件</a></td>
              </tr>
              <tr> 
                <td height="18" bgcolor="#F3F3F3" align="center"><a href='soft.asp?url=sort080000_indate_DESC_1.html'>游戏娱乐</a></td>
              </tr>
              <tr> 
                <td height="18" bgcolor="#CCCCCC" align="center"><a href='soft.asp?url=sort090000_indate_DESC_1.html'>编程开发</a></td>
              </tr>
              <tr> 
                <td height="18" bgcolor="#F3F3F3" align="center"><a href='soft.asp?url=sort100000_indate_DESC_1.html'>安全相关</a></td>
              </tr>
              <tr> 
                <td height="18" bgcolor="#CCCCCC" align="center"><a href='soft.asp?url=sort110000_indate_DESC_1.html'>教育教学</a></td>
              </tr>
              <tr> 
                <td height="24" background="images/bar_1.gif" align="center"><b>软件搜索</b></td>
              </tr>
              <tr> 
                <td height="64" bgcolor="#F5F5F5"> 
                  <form action="searchsoft.asp" method="post" name="form">
                    <table width="98%" border="0" cellspacing="0" cellpadding="0" align="center">
                      <tr> 
                        <td height="30">　</td>
                        <td height="30"> 
                          <input type='text' name='ss_name' size='16' maxlength='40'>
                        </td>
                      </tr>
                      <tr> 
                        <td height="33">　</td>
                        <td height="33"> 
                          <select name='sor' >
                            <option value='00' >全部软件</option>
                            <option value='01'>国产软件</option>
                            <option value='02'>国外软件</option>
                            <option value='03'>汉化补丁</option>
                            <option value='wz' >软件资讯</option>
                            <option value='qd' >精彩动画</option>
                          </select>
                        </td>
                      </tr>
                      <tr> 
                        <td height="39">　</td>
                        <td height="39"> 
                          <input type='submit' name='Submit' value='查找'>
                        </td>
                      </tr>
                    </table>
                  </form>
                </td>
              </tr>
              </table>
          </td>
          <td width="1" valign="top" bgcolor="#999999"></td>
          <td width="599" background="images/back.gif" valign="top" align="center"> 
            <% 
on error resume next
Function bytes2BSTR(vIn) 
strReturn = "" 
For i = 1 To LenB(vIn) 
ThisCharCode = AscB(MidB(vIn,i,1)) 
If ThisCharCode < &H80 Then 
strReturn = strReturn & Chr(ThisCharCode) 
Else 
NextCharCode = AscB(MidB(vIn,i+1,1)) 
strReturn = strReturn & Chr (CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) 
i = i + 1 
End If 
Next 
bytes2BSTR = strReturn 
End Function 

Url = "http://www.skycn.com/new/00.html"
set oSend=createobject("Microsoft.XMLHTTP")
SourceCode = oSend.open ("GET",url,false) 
oSend.send()
if err.number<>0 then
Response.write err.description
Response.End()
end if  
SourceCode = bytes2BSTR(oSend.responseBody)
if instr(SourceCode,"建议您检查输入文字有无错误")=0 then

'response.write SourceCode
'response.end

betw=instr(SourceCode,"<table border='1' width='100%' cellspacing='0' cellpadding='2' height='100%' borderColorDark=#ffffff borderColorLight=#cccccc> ")-instr(SourceCode," <center><table width=""760"">") 
first=instr(SourceCode,"<table border='1' width='100%' cellspacing='0' cellpadding='2' height='100%' borderColorDark=#ffffff borderColorLight=#cccccc>") 
SourceCode = Mid(SourceCode,first,abs(betw))
SourceCode =replace(SourceCode,"../soft/","soft.asp?url=soft&type=down&id=")
SourceCode =replace(SourceCode,"../sort/","soft.asp?url=")
SourceCode =replace(SourceCode,".html"">",".html>")
tt1=split(SourceCode,"<br>")

'response.write tt1(1)
'response.end

response.write replace(left(tt1(0),instr(tt1(0),"<tttt>")),"天空","润舞")&"<br> "
response.write right(tt1(0),len(tt1(0))-instr(tt1(0),"<OL>")+1)&"</table><br>"
response.write replace(replace(tt1(1),".html"">",".html>"),"ct","fct")
else
end if
%>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<table cellspacing=0 cellpadding=0 width=770 align=center border=0>
  <tbody> 
  <tr> 
    <td colspan=7 height=2> 
      <table height=5 cellspacing=0 cellpadding=0 width="100%" border=0>
        <tr valign=center align=middle> 
          <td bgcolor=#ffffff height=5> 
            <table cellspacing=0 cellpadding=0 width="100%" align=center 
            border=0>
              <tbody> 
              <tr> 
                <td background=images/news.htm height=3><img height=3 
                  src="images/news.htm" width=3></td>
              </tr>
              </tbody>
            </table>
          </td>
        </tr>
        <tbody> 
        <tr valign=center align=middle> 
          <td bgcolor=#990000 height=5><img height=1 src="" 
        width=1></td>
        </tr>
        </tbody>
      </table>
    </td>
  </tr>
</table>

<%
htmlend


sub ForumList(selec)
sql="Select * From bbsconfig where followid="&selec&" and hide=0 order by SortNum"
Set Rs1=Conn.Execute(sql)
do while not Rs1.eof
if ii=0 then
%>
<tr <%if floor<2 then%>bgcolor=ffffff<%else%>class=a1 id=TableTitleLink<%end if%>><td colspan=7 height=25><b>　<img src=images/1.gif> <a href=ShowForum.asp?forumid=<%=Rs1("id")%>><%=Rs1("bbsname")%></a></b></td></tr></a>
<%
else
if ""&Rs1("password")&""="" then:password=0:else:password=1:end if
%><script>ShowList("<%=Rs1("pass")%>","<%=Rs1("id")%>","<%=Rs1("bbsname")%>","<%=Rs1("icon")%>","<%=Rs1("intro")%>","<%=Rs1("moderated")%>","<%=Rs1("today")%>","<%=Rs1("toltopic")%>","<%=Rs1("tolrestore")%>","<%=Rs1("lasttime")%>","<%=Rs1("lastname")%>","<%=Rs1("lasttopic")%>","<%=password%>");</script>
<%
end if

ii=ii+1
if ii < int(floor) then ForumList Rs1("id")
ii=ii-1

Rs1.movenext
loop
Set Rs1 = Nothing
end sub


%>