<!--#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
%>
<script language="JavaScript">
<!--
function statusMessageObject(p,d) {
this.msg = MESSAGE
this.out = " "
this.pos = POSITION
this.delay = DELAY
this.i = 0
this.reset = clearMessage
}
function clearMessage() {
this.pos = POSITION
}
var POSITION = 100
var DELAY = 5
var MESSAGE = "<%=softname%> "
var scroll = new statusMessageObject()
function scroller() {
for (scroll.i = 0; scroll.i < scroll.pos; scroll.i++) {
scroll.out += " "
}
if (scroll.pos >= 0)
scroll.out += scroll.msg
else scroll.out = scroll.msg.substring(-scroll.pos,scroll.msg.length)
window.status = scroll.out
scroll.out = " "
scroll.pos--
if (scroll.pos < -(scroll.msg.length)) {
scroll.reset()
}
setTimeout ('scroller()',scroll.delay)
}
function snapIn(jumpSpaces,position) {
var msg = scroll.msg
var out = ""
for (var i=0; i<position; i++)
{out += msg.charAt(i)}
for (i=1;i<jumpSpaces;i++)
{out += " "}
out += msg.charAt(position)
window.status = out
if (jumpSpaces <= 1) {
position++
if (msg.charAt(position) == ' ')
{position++ }
jumpSpaces = 100-position
} else if (jumpSpaces > 3)
{jumpSpaces *= .75}
else
{jumpSpaces--}
if (position != msg.length) {
var cmd = "snapIn(" + jumpSpaces + "," + position + ")";
scrollID = window.setTimeout(cmd,scroll.delay);
} else {
window.status=""
jumpSpaces=0
position=0
cmd = "snapIn(" + jumpSpaces + "," + position + ")";
scrollID = window.setTimeout(cmd,scroll.delay);
return false
}
return true
}
snapIn(100,0);
// -->
</script>
    
<html>
<head>
<title>延安生活信息网 --- <%=softname%>的下载地址页面</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.style1 {
	font-size: 18px;
	color: #FF0000;
}
-->
</style>
</head>
<body>
<div align="center">
  <SCRIPT LANGUAGE=JavaScript src='http://c09.caishow.com/cooperation/adCode/printSpecialJS.asp?f=9309&state=quiet&imgType=3'></SCRIPT>
  <span class="style1">下载页面广告位招租</span></div>
<p align=center>
<iframe name="down" width="100%" height="100%" marginwidth="0" marginheight="0" border="0" frameborder="0" align=center src="http://download.china.com/dlist.html?file=<%=downurl%>&id=<%=request("id")%>">
</iframe></p>
</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 
%>
