<!--#include file=gdibn.inc-->
<%
Server.ScriptTimeOut=120
dim id,softname,softdx,softlanguage,softjm,softlx,softhj,softdj,softsj,softlxr,softkfs,softcs,softjj,downurl,softxg,topsoft
on error resume next 
	id=request("id")
	url="http://www.skycn.net/soft/"&id&".html"
	softcode=getHTTPPage(url)	
	if err.number=0 then
	start=Instr(softcode,"<font color='#004FC6' size='3'>")+31
	over=Instr(softcode,"</font></b></td></tr>")
	softname=mid(softcode,start,over-start)
	start=Instr(softcode,"软件大小：</b>")+9
	over=Instr(softcode,"<br><b>软件语言")
	softdx=mid(softcode,start,over-start)
	start=Instr(softcode,"软件语言：</b>")+9
	over=Instr(softcode,"<br><b>软件类别")
	softlanguage=mid(softcode,start,over-start)
	start=Instr(softcode,"软件类别：</b>")+9
	over=Instr(softcode,"<br><b>应用平台")
	softlx=mid(softcode,start,over-start)
	start=Instr(softcode,"应用平台：</b>")+9
	over=Instr(softcode,"<br><b>界面预览")
	softhj=mid(softcode,start,over-start)
	start=Instr(softcode,"界面预览：</b>")+9
	over=Instr(softcode,"<br><b>加入时间")
	softjm=mid(softcode,start,over-start)
	softjm=replace(softjm,"href='../softimg.php","href='softimg.asp")
	softjm=replace(softjm,"src='../images","src='images")
	start=Instr(softcode,"加入时间：</b>")+9
	over=Instr(softcode,"<br><b>下载次数")
	softsj=mid(softcode,start,over-start)
	start=Instr(softcode,"下载次数：</b>")+9
	over=Instr(softcode,"<br><b>推荐等级")
	softcs=mid(softcode,start,over-start)
	start=Instr(softcode,"推荐等级：</b>")+9
	over=Instr(softcode,"<br><br><b>联 系 人")
	softdj=mid(softcode,start,over-start)
	softdj=replace(softdj,"src='../images","src='images")
	start=Instr(softcode,"开 发 商：</b>")+10
	over=Instr(softcode,"</td><td width=285 align='center'>")
	softkfs=mid(softcode,start,over-start)
	start=Instr(softcode,"<script language=javascript src=../js/text_ad4.js></script><br>")+63
	over=Instr(softcode,"<script language=javascript src=../js/text_ad5.js></script>")
	softjj=mid(softcode,start,over-start)
	softjj=replace(softjj,"<iframe name=import_frame width=1 height=1","")
	softjj=replace(softjj,"src=http://member.skycn.com/httpd1.php?id=","")
	softjj=replace(softjj,id,"")
	softjj=replace(softjj,"frameborder=no></iframe></div>","")
	softjj=replace(softjj,"frameborder=no>","")
	start=Instr(softcode,"http://cbbn.driversky.com/down/")+11
	over=Instr(softcode,"target=_blank>淄博网通下载</A>")
	downurl=mid(softcode,start,over-start)
	downurl=replace(downurl,"href='.driversky.com/down/","'")
	downurl=replace(downurl,"'","")	
	start=Instr(softcode,"<TR><td width=120>")+18
	over=Instr(softcode,"</td><td width=420 align=center>")
	downurl=mid(softcode,start,over-start)
	downurl=replace(downurl,"href='http://count.skycn.com/softdown.php?id="&id&"&url=","href='")
	downurl=replace(downurl,"src='../images","src='images")
	downurl=replace(downurl,"<br>","")
	downurl=replace(downurl,"http://count.skycn.com/softdownload.php?id=","")
	downurl=replace(downurl,id,"")
	downurl=replace(downurl,"&url=","")
	downurl=replace(downurl," ","")
	downurl=replace(downurl,".driversky.com/down/","")
	downurl=replace(downurl," ","")
	start=Instr(softcode,"src=../js/img_ad6.js></script>")+79
	over=Instr(softcode,"</td></tr><tr><td><br>")
	softxg=mid(softcode,start,over-start)
	softxg=replace(softxg,"../soft/","soft.asp?id=")
	softxg=replace(softxg,"../article/","article.asp?id=")
	softxg=replace(softxg,".html","")
	a=Instr(softxg,"相关文章:")
	if a<>0 then
	b=Instr(softxg,"</td></tr><tr><td><b>")-1
	softxg=mid(softxg,1,b)
	end if
	start=Instr(softcode,"<tr><td align='left'>")+21
	over=Instr(softcode,"</td></tr><script")
	topsoft=mid(softcode,start,over-start)
	topsoft=replace(topsoft,"href='../soft/","href='soft.asp?id=")
	topsoft=replace(topsoft,".html","")
	else 
		wscript.echo err.description 
	end if
%>
<HTML><HEAD><TITLE>软件下载 - 延安生活信息网 - <%=softname%></TITLE>
<!--#include file="head.asp"-->
<TABLE width=776 border=0 align="center" cellPadding=3 cellSpacing=0 
borderColorLight=#000000 borderColorDark=#ffffff>
  <TBODY>
    <TR align=middle bgColor=#e6ebf0>
      <TD height="113" align="center" vAlign=top bgcolor="#e6ebf0"><TABLE width="100%" height="20" border=0 cellPadding=0 cellSpacing=0>
        <TBODY>
          <TR>
            <TD height="12">&nbsp;您现在的位置是：下载特区-&gt; <%=softname%> </TD>
          </TR>
        </TBODY>
      </TABLE>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td height="28" background="images/toolbar_bg.gif"><table width="95%" border="0" cellspacing="0" cellpadding="0" height="22">
                        <tr>
                          <td width="20"><div align="center"><img src="images/icon.gif" width="11" height="14"></div></td>
                          <td width="80"><font color="#FFFFFF"><b><font color="#FF0000">软件搜索</font></b></font></td>
                      <td width=300><table width="100%" border="0" cellspacing="5" cellpadding="0" align="center">
                          <form name="form1" method="post" action="search.asp">
                            <tr>
                              <td width="120"><input type="text" name="ss_name2" size="12" maxlength="40"></td>
                                 <td width="180"> <select name="select" >
                                    <option value="00" >全部软件</option>
                                    <option value="01">国产软件</option>
                                    <option value="02">国外软件</option>
                                    <option value="03">汉化补丁</option>
                                    <option value="wz" >软件资讯</option>
                                  </select>
                                  <input type="submit" name="Submit2" value=" 搜 索 ">
                              </td>
                            </tr>
                          </FORM>
                      </table></td>
  <td width=300 height="28" background="images/toolbar_bg.gif"><div align="left"><font color=red><%=softname%></font></div></td>
                        </tr>
                    </table>
</td>
                        </tr>
                    </table>



      <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" height="214">
            <tr valign="top">
              <td bgcolor="#FFFFFF" width=204>

                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td height="28" background="images/toolbar_bg.gif"><table width="92%" border="0" cellspacing="0" cellpadding="0" height="22">
                          <tr>
                            <td width="46"><div align="center"><img src="images/icon.gif" width="11" height="14"></div></td>
                            <td width="147"><font color="#FFFFFF"><b><font color="#FF0000">本类下载更新</font></b></font></td>
                          </tr>
                      </table></td>
                    </tr>
                  </table>
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td><table width="100%" border="0" cellspacing="2" cellpadding="0" align="center">
                          <tr>
                            <td><%=topsoft%></td>
                          </tr>
                      </table></td>
                    </tr>
                </table></td>
              <td>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
                  <tr>
                    <td width="1"></td>
                    <td bgcolor="#FFFFFF" valign="top">
<table style="WORD-BREAK: break-all" cellspacing=1 cellpadding=2 width="100%" bgcolor=#cccccc border=0>
                          <tbody>

                            <tr bgcolor=#fffffe>
                              <td width="340" height="26">软件类别：<%=softlx%></td>
                              <td rowspan="10" width="190"><p align="center">广告位招租                                                            
                                <p align="center">联系QQ:107086147</td>
                            </tr>
                            <tr bgcolor=#fffffe>
                              <td width="340" height="26">文件大小：<%=softdx%></td>
                            </tr>
                            <tr bgcolor=#fffffe>
                              <td width="340" bgcolor=#fffffe height="26">运行环境：<%=softhj%></td>
                            </tr>
                            <tr bgcolor=#fffffe>
                              <td width="340" height="26">软件语言：<%=softlanguage%></td>
                            </tr>
                            <tr bgcolor=#fffffe>
                              <td width="340" bgcolor=#fffffe height="26">软件等级：<img src="images/star5.gif" width="67" height="11"></td>
                            </tr>
                            <tr bgcolor=#fffffe>
                              <td width="340" bgcolor=#fffffe height="26">开 发 商：<%=softkfs%></td>
                            </tr>
                            <tr bgcolor=#fffffe>
                              <td width="340" bgcolor=#fffffe height="26">添加时间：<%=softsj%></td>
                            </tr>
                            <tr bgcolor=#fffffe>
                              <td width="340" bgcolor=#fffffe height="26">下载次数：<%=softcs%></td>
                            </tr>
                            <tr bgcolor=#fffffe>
                              <td width="340" bgcolor=#fffffe height="26">软件添加： admin </td>
                            </tr>
                            <tr bgcolor=#fffffe>
                              <td width="340" bgcolor=#fffffe height="26">界面预览：<%=softjm%></td>
                            </tr>

                          </tbody>
                        </table>
                        <table style="WORD-BREAK: break-all" cellspacing=1 cellpadding=2 
      width="100%" bgcolor=#cccccc border=0>
                          <tbody>
                            <tr>
                              <td colspan=4 bgcolor="#ffffff" width="468">点击下载：<a href="sun.asp?file=<%=downurl%>&id=<%=request("id")%>"
 target=_blank><font color=red>→下载页面←</font></a></td>
                            </tr>

                          </tbody>
                        </table>
                        <table style="WORD-BREAK: break-all" cellspacing=1 cellpadding=2 
      width="100%" bgcolor=#cccccc border=0>
                          <tbody>
                            <tr>
                              <td style="LINE-HEIGHT: 16px" 
            bgcolor=#fffffe width="500">软件简介：</td>
                            </tr>
                            <TR bordercolor="#CCCCCC">
                              <TD bgcolor="#FFFFFF">
                                  <div align="life"><%=softjj%></div>
                              </div></TD>
                            </TR>
                          </tbody>
                        </table>


                        
                        <br>
                        <table style="WORD-BREAK: break-all" cellspacing=1 cellpadding=2 
      width="100%" bgcolor=#cccccc border=0>
                          <tbody>
                            <tr>
                              <td style="LINE-HEIGHT: 16px" 
            bgcolor=#fffffe width="472">下载说明：</td>
                            </tr>
                            <tr>
                              <td style="LINE-HEIGHT: 16px" 
            bgcolor=#fffffe width="472"><b>*&nbsp;</b><font color="#FF0000">为了达到最快的下载速度，推荐使用<a 
            href="soft.asp?id=879">网际快车</a>下载本站软件。</font> <br>
                                  <b>*&nbsp;</b>如果您发现该软件不能下载，请通知管理员，谢谢！ <br>
                              <b>*&nbsp;</b><font color="#FF0000">特别说明：</font>本站的下载资源均来自互联网.</td>
                            </tr>
                          </tbody>
                      </table></td>
                  </tr>
              </table></td>
            </tr>
        </table></TD>
    </TR>
  </TBODY>
</TABLE>
<!--#include file="foot.asp"-->
</BODY></HTML>
<%
	  function getHTTPPage(url) 
		on error resume next 
		dim http 
		set http=Server.createobject("Microsoft.XMLHTTP") 
		Http.open "GET",url,false 
		Http.send() 
		if Http.readystate<>4 then
			exit function 
		end if 
		getHTTPPage=bytes2BSTR(Http.responseBody) 
		set http=nothing
		if err.number<>0 then err.Clear  
	end function 
	Function bytes2BSTR(vIn) 
		dim strReturn 
		dim i1,ThisCharCode,NextCharCode 
		strReturn = "" 
		For i1 = 1 To LenB(vIn) 
			ThisCharCode = AscB(MidB(vIn,i1,1)) 
			If ThisCharCode < &H80 Then 
				strReturn = strReturn & Chr(ThisCharCode) 
			Else 
				NextCharCode = AscB(MidB(vIn,i1+1,1)) 
				strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) 
				i1 = i1 + 1 
			End If 
		Next 
		bytes2BSTR = strReturn 
	End Function 
%>
