showdown.asp

网站整站

<!--#include file="inc/conn.asp"-->
<!--#include file="inc/set.asp"-->
<!--#include file="inc/function.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="inc/code_down.asp"-->
<%
'//版权所有：野草设计

'//程序作者：野草

'//当前版本：V2.0

'//联系QQ：94440079

'//官方网站：http://www.yecaoweb.com
%>
<%
dim downid
downid=YC_post("下载ID",request.querystring("id"),1,0,0) 
title="下载中心→查看下载→"&showtitle("YC_down",downid)
execute(loadskin(skinmode))
call NowWhere("查看下载","showdown.asp?id="&downid)
call head()
YC_sql("update [YC_down] set click=click+1 where id="&downid)
sql="select title,color,pass,user,date,filesize,commend,web,show,click,downclick,content,pic,reads,exper,class,bigclass,url from [YC_down] where pass=1 and id="&downid
set rs=conn.execute(sql)
if rs.eof and rs.bof then
YCGO("error.asp?action=error&text="&server.urlencode("该数据不存在……")&"")
else
dim down(19)
down(0)=rs("title")
down(1)=rs("color")
down(2)=rs("user")
down(3)=rs("date")
down(4)=rs("filesize")
down(5)=rs("commend")
down(6)=rs("web")
down(7)=rs("show")
down(8)=rs("click")
down(9)=rs("downclick")
down(10)=rs("content")
down(11)=rs("pic")
down(12)=rs("reads")
down(13)=rs("exper")
down(14)=rs("class")
down(15)=rs("bigclass")
down(16)=rs("url")
down(17)=rs("pass")
if down(17)="0" then 
YCGO("error.asp?action=error&text="&server.urlencode("该下载正在审核中……")&"")
end if
end if
rs.close
set rs=nothing

sqluser="select user_exper from [YC_user] where pass=1 and id="&userid
set rsuser=conn.execute(sqluser)
dim downuser(0)
downuser(0)=rsuser("user_exper")
rsuser.close
set rsuser=nothing

YC("<table border=""0"" id=""content"" cellspacing=""0"" cellpadding=""0""><tr>")
YC("<td  valign=""top"" id=""show"" nowrap>")
YC("<table border=""0"" cellspacing=""0"" cellpadding=""0"" width=""100%""><tr>")
YC("<td class=""111"" nowrap></td><td  class=""222""  nowrap>")
YC("&nbsp;当前位置：<a href=""index.asp"">本站首页</a>→<a href=""down.asp"">资源下载</a>→")
call mybigclass("YC_downclass","down",down(15))
YC("→")
call myclass("YC_downclass","down",down(14))
YC("<td class=""333"" nowrap></td></td></tr></table>")
YC("<table border=""0"" cellspacing=""0"" cellpadding=""0"" width=""100%"">")
YC("<tr><td class=""444"" nowrap></td>")
YC("<td class=""555"" valign=""top"" nowrap>")
YC("<table border='1' cellspacing='0' cellpadding='0' align=""center"" bordercolor='"&color(0)&"' width='100%' frame='void'><tr>")
YC("<td height=""25"" width=""80"" bgcolor='"&color(2)&"' align=""center"" nowrap>下载名称：</td><td width=""290"" bgcolor="""&color(1)&"""  onmouseover=""this.bgColor='"&color(2)&"';"" onmouseout=""this.bgColor='"&color(1)&"';"">&nbsp;<b><font color="""&down(1)&""">"&down(0)&"</font></b></td>")
YC("<td rowspan=""8"" width=""250"">")
if down(11)="" then
YC("<img src=""img/nodown.gif"" border=""0"" width=""250"" height=""200"" align=""absmiddle"">")
else
YC("<a href="""&down(11)&""" target=""_blank"">")
YC("<img src="""&down(11)&""" border=""0""  width=""250""  height=""200"" align=""absmiddle""></a>")
end if
YC("</td></tr>")
YC("<tr height=""25""><td align=""center"" bgcolor='"&color(2)&"'>发布用户：</td><td width=410  bgcolor="""&color(1)&"""  onmouseover=""this.bgColor='"&color(2)&"';"" onmouseout=""this.bgColor='"&color(1)&"';"" nowrap>&nbsp;"&down(2)&"</td>")
YC("</tr>")
YC("<tr height=""25""><td align=""center"" bgcolor='"&color(2)&"'>发表日期：</td><td width=410 bgcolor="""&color(1)&"""  onmouseover=""this.bgColor='"&color(2)&"';"" onmouseout=""this.bgColor='"&color(1)&"';"" nowrap>&nbsp;"&replacetime(down(3),"1")&"</td></tr>")
YC("<tr height=""25""><td align=""center"" bgcolor='"&color(2)&"'>下载大小：</td><td bgcolor="""&color(1)&"""  onmouseover=""this.bgColor='"&color(2)&"';"" onmouseout=""this.bgColor='"&color(1)&"';"">&nbsp;"&down(4)&"</td></tr>")
YC("<tr height=""25""><td align=""center"" bgcolor='"&color(2)&"'>推荐程度：</td><td bgcolor="""&color(1)&"""  onmouseover=""this.bgColor='"&color(2)&"';"" onmouseout=""this.bgColor='"&color(1)&"';"">&nbsp;"&down(5)&"</td></tr>")
YC("<tr height=""25""><td align=""center"" bgcolor='"&color(2)&"'>下载所属：</td><td bgcolor="""&color(1)&"""  onmouseover=""this.bgColor='"&color(2)&"';"" onmouseout=""this.bgColor='"&color(1)&"';"">&nbsp;<a href="""&down(6)&""" target=""_blank"">官方主页</a>&nbsp;<a href="""&down(7)&""" target=""_blank"">下载演示</a></td></tr>")
YC("<tr height=""25""><td align=""center"" bgcolor='"&color(2)&"'>下载统计：</td><td bgcolor="""&color(1)&"""  onmouseover=""this.bgColor='"&color(2)&"';"" onmouseout=""this.bgColor='"&color(1)&"';"">&nbsp;点击次数"&down(8)&"次/下载次数"&down(9)&"次</td></tr>")
YC("<tr height=""25""><td align=""center"" bgcolor='"&color(2)&"'>下载性质：</td><td bgcolor="""&color(1)&"""  onmouseover=""this.bgColor='"&color(2)&"';"" onmouseout=""this.bgColor='"&color(1)&"';"">&nbsp;")

if down(12)=0 then
YC("免费软件")
elseif down(12)=1 then
YC("<font color=""blue"">[普通会员]</font>&nbsp;")
if isnull(down(13)) or down(13)<>0 then
YC("需要超过<font color=""blue""><b>"&down(13)&"</b></font>个积分！")
else
YC("↓直接下载↓")
end if
elseif down(12)=2 then
YC("<font color=""#ff0000"">[收费会员]</font>&nbsp;")
if isnull(down(13)) or down(13)<>0 then
YC("需要超过<font color=""blue""><b>"&down(13)&"</b></font>个积分！")
else
YC("↓直接下载↓")
end if
end if
YC("</td></tr>")
YC("<tr height=""25""><td align=""center"" bgcolor='"&color(2)&"'>下载地址：</td><td colspan=""2"" bgcolor="""&color(1)&"""  onmouseover=""this.bgColor='"&color(2)&"';"" onmouseout=""this.bgColor='"&color(1)&"';"">&nbsp;")

if down(12)=0 then
call downmain()
elseif down(12)=1 then
if useradmin>=1 then
if cint(downuser(0))>cint(down(13)) then
call downmain()
else
YC("<b><font color=""blue"">对不起！您的积分不足！</font></b>")
end if
else
YC("<b><font color=""blue"">对不起！只有普通会员以上级别才能使用！</font></b>")
end if
elseif down(12)=2 then
if useradmin>=2 then
if cint(downuser(0))>cint(down(13)) then
call downmain()
else
YC("<b><font color=""blue"">对不起！您的积分不足！</font></b>")
end if
else
YC("<b><font color=""red"">对不起！只有收费会员以上级别才能使用！</font></b>")
end if
end if
sub downmain()
dim downurl,i
downurl=split(down(16),"|")
for i=0 to ubound(downurl)
if i=0 then
YC("[<a href=""downdown.asp?id="&downid&"&num=0"">本地下载</a>]")
else
YC("[<a href=""downdown.asp?id="&downid&"&num="&i&""">镜像下载</a>]")
end if
next
end sub
YC("</td></tr><tr><td colspan='3'>")
YC("<p class=""show_title"" align=""center"">相关说明</p>")
YC("<div style=""margin:4px"">"&down(10)&"</div>")
call nextdata("YC_down","showdown","个")
YC("</td></tr></table><td class=""666"" nowrap></td></tr></table>")
YC("<table border=""0"" cellspacing=""0"" cellpadding=""0"" width=""100%"">")
YC("<tr>")
YC("<td  class=""777"" nowrap></td>")
YC("<td class=""888"" nowrap></td>")
YC("<td class=""999"" nowrap></td>")
YC("</tr></table>")
if downpl="yes" then
call pl("down",downid)
end if
YC("</td></tr></table>")
call foot()
%>