[求助]点击广告显示下载地址的问题

ygmgc

<div class="remark word-break" id="div-view-remark227125">down_view.asp的源代码:



<%
'****************************************************
' Joekoe CMS 1.2 Free Power by Joekoe.com
' Email: cms@joekoe.com , service@joekoe.com
' Web: http://www.joekoe.com , http://www.topv.com
' Copyright (C) 2004 Joekoe.com All Rights Reserved.
'****************************************************

dim id
id=trim(request.querystring("id"))
if not(isnumeric(id)) then
call format_redirect("down.asp")
end if
%>





<%
dim is_download,temp1,n_username,n_topic,n_tim,down_26
dim username,d_sizes,d_genre,d_os,d_power,d_emoney,d_url,d_url2,d_url3,d_url4,d_url5,d_pic,d_homepage,d_remark,d_tim,d_counter,d_keyes,d_types,d_downmoney
iframe=true
is_download=true
down_26=int(format_mid_num(26))

sql="select top 1 * from down where hidden=1 and id="&id
call joekoe_cms.exec("",-1)
rs.open sql,conn,1,1
if rs.eof and rs.bof then
rs.close
call format_redirect("down.asp")
end if
cid=rs(1)
sid=rs(2)
username=rs("username")
d_name=rs("name")
d_sizes=rs("sizes")
d_genre=rs("genre")
d_os=rs("os")
d_power=rs("power")
d_emoney=rs("emoney")
d_url=rs("url")
d_url2=rs("url2")
d_url3=rs("url3")
d_url4=rs("url4")
d_url5=rs("url5")
d_pic=rs("pic")
d_homepage=rs("homepage")
d_remark=rs("remark")
d_tim=rs("tim")
d_counter=rs("counter")
d_keyes=rs("keyes")
d_types=rs("types")
d_downmoney=rs("downmoney")
n_topic=rs("name")
rs.close

tit="软件浏览"
cname=""
sname=""
if cid>0 then
if sid>0 then
sql="select jk_class.c_name,jk_sort.s_name from jk_sort inner join jk_class on jk_sort.c_id=jk_class.c_id where jk_sort.c_id="&cid&" and jk_sort.s_id="&sid
else
sql="select c_name from jk_class where c_id="&cid
end if
set rs=joekoe_cms.exec(sql,1)
if not(rs.eof) then
cname=rs("c_name")
tit=tit&"（"&cname
if sid>0 then
sname=rs("s_name")
tit=tit&"-"&sname
end if
tit=tit&"）"
end if
rs.close
end if

tit=cname
if sname<>"" then tit=tit&"（"&sname&"："&n_topic&"）"

if action="download" and is_download and down_26=0 then page_power=d_power
call web_head(0,0,0,0,0)
'----------------------------下载 开始----------------------------
if action="download" and is_download then
response.clear
if not joekoe_cms.post_chk() then        'glom_user()
response.write joekoe_cms.js_put("alert(""软件下载出错：nn请不要使用WebZip、Teleport这类软件下载本站数据；n也不要使用googlebot这类浏览器浏览本站；nn请更改浏览器或停止非法操作后再访问本站，谢谢。"")",1)
response.write joekoe_cms.js_put("location.href='down_view.asp?id="&id&"';",1)
call web_clear(1)
end if
dim dim_upload,prg_p,down_true
down_true=emoney_notes(d_power,d_emoney,n_sort,id,0,"")
if not down_true then
response.write joekoe_cms.js_put("alert(""软件下载出错：nn您没有足够的权限或钱币进行刚才的操作！nn也可能您还没有注册和登陆本站。"");",1)
response.write joekoe_cms.js_put("location.href='down_view.asp?id="&id&"';",1)
call web_clear(1)
end if
dim_upload=split(web_dim(14),"|")
prg_p=dim_upload(4)
erase dim_upload
index_url=d_url
if trim(request("down_url"))="download2" then index_url=d_url2
if trim(request("down_url"))="download3" then index_url=d_url3
if trim(request("down_url"))="download4" then index_url=d_url4
if trim(request("down_url"))="download5" then index_url=d_url5
sql="update down set counter=counter+1 where id="&id
call joekoe_cms.exec(sql,0)
index_url=joekoe_cms.url_true(prg_p,index_url)
call joekoe_cms.exec("insert into downlog(username,name,ip,data) values('"&login_username&"','"&d_name&"','"&user_ip&"','"&joekoe_cms.now_time&"')",0)
call web_clear(0)
response.clear
response.write "nodownload"
response.redirect index_url
response.end
end if
'----------------------------下载 结束----------------------------
call down_load(0,0,0)
'----------------------------左边 开始----------------------------
call down_left("hot",10,11,"热门下载")
call down_left("good",10,11,"推荐下载")
'----------------------------左边 结束----------------------------
call web_center(0)
'----------------------------中间 开始----------------------------
response.write vbcrlf&down_bar_top(tit,0,1)
%>

<%response.write joekoe_cms.code_html(d_name,1,0)%>
授权类型：	<%response.write d_genre%>	<%response.write pic_fk(d_pic,2,"")%>
运行环境：	<%response.write d_os%>
软件大小：	<%response.write d_sizes%>
推荐等级：
下载次数：	<%response.write d_counter%>
发 布 人：	<%response.write format_user_name(username,10,"")%>
发布日期：	<%response.write joekoe_cms.time_type(d_tim,2)%>
软件主页：	<% temp1=var_null(d_homepage) if temp1="" or lcase(temp1)="http://" then response.write "没有" else response.write ""&joekoe_cms.code_html(temp1,1,28)&"" end if %>
非VIP会员下载价格(详情请QQ上咨询7644599)：	(人民币)<%response.write d_downmoney%>元
下载权限：	<%response.write format_emoney_power(d_emoney,d_power,1)%>	<%response.write commend_friend(tit,d_name,"down_view.asp?id="&id)%>
下载地址：	[table=98%]
点击下面图片，就会出现下载地址！(为了网站生存,请原谅)

<div id="oUrl" style="display:'none'">

<%if is_download then%>