www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > down.asp
<!--#include file="admin/config.asp"-->
<%
'检查来路
server_vv=len(Request.ServerVariables("SERVER_NAME"))
server_v1=left(Cstr(Request.ServerVariables("HTTP_REFERER")),server_vv)
server_v2=left(Cstr("http://"&Request.ServerVariables("SERVER_NAME")),server_vv)
if server_v1<>server_v2 and server_v1<>"" and server_v2<>"" then
response.write("<script>location.href='d/"&request("id")&".html'</script>")
response.end
end if
html="<title>"&webname&"</title><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><style>body{font-size:9pt;line-height:140%}</style><body>"
error="<meta http-equiv='Refresh' content='2; URL=./index.htm'>"&html&"<b>错误! </b>读取地址时出错 2秒后自动<a href=./index.html>返回首页</a>..."
if request("id") ="" or request("no")="" then
response.write error
response.end
end if
MDBpath="admin/"%>
<!--#include file="admin/mdb_path_down.asp"-->
<%
set rs=server.CreateObject("ADODB.RecordSet")
rs.open "select file from downfile where downid="&request("id")&" and downno="&request("no"),conn,1,1
if not rs.eof then
fileurl = rs("file")
else
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write error
response.end
end if
rs.close
rs.open "select hits,hy from down where id="&request("id"),conn,1,2
if not rs.eof then
hy=rs("hy")
rs("hits")=rs("hits")+1
rs.update
else
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write error
response.end
end if
rs.close
'会员软件
if xoYuStudioUser="1" and hy>0 then
'xoYuStudioUserDj=request.cookies("xoYuStudioUserDj")
xoYuStudioUserDj=session("xoYuStudioUserDj")
if hy="1" then hydj="普通会员"
if hy="2" then hydj="高级会员"
if xoYuStudioUserDj="" then
xoYuStudioUserDj=-1
else
xoYuStudioUserDj=cint(xoYuStudioUserDj)
end if
if xoYuStudioUserDj<hy-1 then
response.write "<meta http-equiv='Refresh' content='20; URL=admin/login.asp'>"&html&"<li>你不能下载该["&hydj&"]软件!<p><li>如果你是"&hydj&",请先<a href=admin/login.asp target=_black onclick=window.close()>登陆</a>后再下载..."
response.end
else
if xoYuStudioUserShow="1" then
response.write html&"本软件下载地址：<a href="&fileurl&">"&fileurl&"</a>"
response.end
end if
end if
end if
'高级防作弊
if xoYuStudioWin="1" then
Response.cookies ("xoYuStudioFileUrl")=fileurl
response.write("<script>window.open(""about:<title>正在下载软件,请稍等... - "&webname&"</title><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><style>body{font-size:9pt;line-height:140%}</style><body><body oncontextmenu=self.event.returnValue=false>正在下载软件,请稍等......<br><font color=#808080>本次连接最长时间("&xoYuStudioWinClose&")秒,如果没下载成功请重试</font><br><br><a href=http://"&weburl&" target=_blank onclick=window.close()>"&webname&"</a><p align=right><a href=JavaScript:window.close()>[关闭窗口]</a> <br><br><meta http-equiv='Refresh' content='0; URL="&(fileurl)&"'><\script>limit='0:"&xoYuStudioWinClose+1&"';if(document.images){var parselimit=limit.split(':');parselimit=parselimit[0]*60+parselimit[1]*1}function beginrefresh(){if(!document.images)return;parselimit-=1;cursec=parselimit;window.status=cursec+'秒后断开连接';setTimeout('beginrefresh()',1000)}window.onload=beginrefresh;setTimeout('window.close();',"&xoYuStudioWinClose&"000);<\/script>"","""",""width=290,height=128,resizable=no,scrollbars=no,status=yes,toolbar=no,menubar=no,location=no"");location.href='about:<body onload=""window.close()"">';</script>")
response.end
end if
'转向连接
response.redirect fileurl
%>