view.asp

..不怎么明白。不知道这个市什么只想下个服务端

<!-- #include file="inc/con_down.asp" -->
<%
'****************************************************
' Web: http://www.aouoo.com , http://www.aouoo.net
' Copyright (C) 2007 Aouoo.com All Rights Reserved.
'****************************************************

dim id
id=trim(request.querystring("id"))
if not(isnumeric(id)) then
  call format_redirect("down.asp")
end if
%>
<!-- #include file="../include/jk_ubb.asp" -->
<!-- #include file="../include/class_com.asp" -->
<!-- #include file="../include/jk_enurl.asp" -->
<!-- #include file="../include/jk_keyes.asp" -->
<!-- #include file="../include/jk_emoney.asp" -->
<%
dim is_download,temp1,n_username,n_topic,n_tim,down_26
dim username,d_name,d_sizes,d_genre,d_os,d_power,d_emoney,d_url,d_url2,d_pic,d_homepage,d_remark,d_tim,d_counter,d_keyes,d_types,s_pic
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_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")
rs.close
s_pic=d_pic
  if s_pic="" or s_pic="http://" then
  s_pic="upload/no_pic.gif"
  else
  if instr(s_pic,"://")<1 then
  s_pic=joekoe_cms.web_upload&s_pic
  end if
  end if
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

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(""软件下载出错：\n\n请不要使用WebZip、Teleport这类软件下载本站数据；\n也不要使用googlebot这类浏览器浏览本站；\n\n请更改浏览器或停止非法操作后再访问本站，谢谢。"")",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(""软件下载出错：\n\n您没有足够的权限或钱币进行刚才的操作！\n\n也可能您还没有注册和登陆本站。"");",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
  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 web_clear(0)
  response.clear
  response.write "nodownload"
  response.redirect index_url
  response.end
end if
call down_load(0,0,0)%><table width="912" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="208" valign="top" bgcolor="#990000"><%call left_notice()%><%call left_about()%><%call left_links()%></td>
    <td width="6" background="../skin/aouoo_skin/index/body_line.gif"><img src="../skin/aouoo_skin/index/body_line.gif" width="6" height="30" /></td>
    <td valign="top" bgcolor="#D40000"><table width=100% border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#990000">
  <tr>
    <td height="680" valign="top" bgcolor="#FFFFFF">
	<table border=0 cellspacing=0 cellpadding=0 width='100%'>
  <tr height=29>
  <td background='/skin/aouoo_skin/index/bar_bg.jpg'>&nbsp;&nbsp;<img src='/skin/aouoo_skin/index/tit.gif' align='absmiddle' />&nbsp;&nbsp;<font color='#FFFFFF'>软 件 下 载</font></td>
  </tr>
  </table><script language=javascript>
function down_load(url)
{
  var t1=note_emoney('下载此软件','<%response.write d_emoney%>','<%response.write d_power%>');
  if (t1)
  {
    document.down_frm.down_url.value=url;
    document.down_frm.submit();
  }
}
</script>
<form name=down_frm action='?action=download&id=<%response.write id%>' method=post target=hiddenframe>
<input type=hidden name=down_url value=''>
</form>
	<table width="662" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#f0f0f0">
  <tr>
    <td bgcolor="#FFFFFF"><strong>软件名称：<font class=blue><%response.write joekoe_cms.code_html(d_name,1,0)%></font></strong></td>
  </tr><tr>
    <td bgcolor="#FFFFFF" height="5"></td>
  </tr>
  <tr>
              <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td width="20%" bgcolor="#996633" height="2"></td>
                  <td width="80%" bgcolor="#DDBB75"></td>
                </tr>
              </table></td>
            </tr>
</table><br><table width='662' border='0' align='center' cellpadding='5' cellspacing='1' bgcolor='#eeeeee'>
  <tr bgcolor='#f4f4f4'>
    <td width="80" align="center" bgcolor="#F4F4F4">授权类型：</td>
    <td width="340" bgcolor="#FFFFFF"><%response.write d_genre%></td>
    <td width="208" rowspan="9" valign="middle" bgcolor="#FFFFFF"><table width="208" border="0" cellpadding="1" cellspacing="3" bgcolor="#EEEEEE">
  <tr>
    <td bgcolor="#FFFFFF" valign="top"><img src="/<%response.write s_pic%>" width="200" height="248" /></td>
  </tr>
</table></td>
  </tr>
  <tr bgcolor='#f4f4f4'>
    <td align="center" bgcolor="#F4F4F4">运行环境：</td>
    <td bgcolor="#FFFFFF"><%response.write d_os%></td>
    </tr>
  <tr bgcolor='#f4f4f4'>
    <td align="center" bgcolor="#F4F4F4">软件大小：</td>
    <td bgcolor="#FFFFFF"><%response.write d_sizes%></td>
    </tr>
  <tr bgcolor='#f4f4f4'>
    <td align="center" bgcolor="#F4F4F4">推荐等级：</td>
    <td bgcolor="#FFFFFF"><img src='<%response.write joekoe_cms.web_dir%>images/down/star<%response.write d_types%>.gif' border=0></td>
    </tr>
  <tr bgcolor='#f4f4f4'>
    <td align="center" bgcolor="#F4F4F4">下载次数：</td>
    <td bgcolor="#FFFFFF"><font class=red><%response.write d_counter%></font> 次</td>
    </tr>
  <tr bgcolor='#f4f4f4'>
    <td align="center" bgcolor="#F4F4F4">发布日期：</td>
    <td bgcolor="#FFFFFF"><%response.write joekoe_cms.time_type(d_tim,2)%></td>
    </tr>
  <tr bgcolor='#f4f4f4'>
    <td align="center" bgcolor="#F4F4F4">软件主页：</td>
    <td bgcolor="#FFFFFF"><%
temp1=var_null(d_homepage)
if temp1="" or lcase(temp1)="http://" then
  response.write "<font class=gray>http://WwW.51kSf.CoM</font>"
else
  response.write "<a href='"&temp1&"' target=_blank>"&joekoe_cms.code_html(temp1,1,28)&"</a>"
end if
%></td>
    </tr>
  <tr bgcolor='#f4f4f4'>
    <td align="center" bgcolor="#F4F4F4">下载权限：</td>
    <td bgcolor="#FFFFFF"><%response.write format_emoney_power(d_emoney,d_power,1)%></td>
    </tr>
  <tr bgcolor='#f4f4f4'>
    <td align="center" bgcolor="#F4F4F4">下载地址：</td>
    <td bgcolor="#FFFFFF"><%if is_download then%>
&nbsp;&nbsp;&nbsp;<a<%
  if int(down_26)=0 then
    response.write " href='?action=download&id="&id&"&down_url=' target=_blank"
  else
    response.write " href='javascript:;' onclick=""javascript:down_load('');"""
  end if
%>><img src='<%response.write joekoe_cms.web_dir%>images/down/download.gif' border=0></a>&nbsp;
<% if var_null(d_url2)<>"" and lcase(d_url2)<>"http://" then %>
&nbsp;&nbsp;&nbsp;<a<%
  if int(down_26)=0 then
    response.write " href='?action=download&id="&id&"&down_url=download2' target=_blank"
  else
    response.write " href='javascript:;' onclick=""javascript:down_load('download2');"""
  end if
%>><img src='<%response.write joekoe_cms.web_dir%>images/down/download2.gif' border=0></a>
<%
  end if
else
  response.write "&nbsp;<font class=red_3><b>暂停下载</b></font>"
end if
%></td>
    </tr>
  <tr bgcolor='#f4f4f4'>
    <td colspan="4" valign="middle" bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#EEEEEE">
      <tr>
        <td bgcolor="#FFFFFF"><%
temp1=d_remark
if var_null(temp1)="" then
  temp1="<font class=gray>好像没有关于该软件的介绍哦！</font>"
else
  temp1=code_jk(temp1)
end if
response.write temp1
%></td>
    </tr>
    </table></td>
    </tr>
  <tr bgcolor='#f4f4f4'>
    <td height="28" colspan="4" valign="middle" bgcolor="#EEEEEE"><strong>相关软件</strong></td>
    </tr>
  <tr bgcolor='#f4f4f4'>
    <td colspan="4" valign="middle" bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td><%i=0
if var_null(d_keyes)<>"" then
  sql="select id,username,name,tim,counter from down where hidden=1 and "&sql_key(d_keyes,"keyes",1,"or")&" and id<>"&id&" order by id desc"
  set rs=joekoe_cms.exec(sql,1)
  do while not rs.eof
    n_username=rs("username")
    n_topic=rs("name")
    n_topic=joekoe_cms.code_html(n_topic,1,0)
    n_tim=rs("tim")
    response.write vbcrlf&down_topic_type(60,rs("id"),n_username,n_topic,n_tim,rs("counter"),false,0)
    rs.movenext
    i=i+1
  loop
  rs.close
end if
if i=0 then response.write vbcrlf&"<tr><td><font class=gray>没有相关软件</font></td></tr>"%></td>
        </tr>
        </table></td>
    </tr>
</table>
<br><table width="662" border="0" align="center" cellpadding="2" cellspacing="4" bgcolor="#EEEEEE">
  <tr>
    <td><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#F9F9F9">
      <tr>
        <td style="padding-top:8px; padding-left:8px; padding-right:8px; padding-bottom:8px; line-height:14pt"><strong>下载说明：</strong><br /><table width="100%" border="0" cellspacing="5" cellpadding="0">
<%call down_remark("下载说明")%>
</table>

            </td>
      </tr>
    </table></td>
  </tr>
</table>
</td>
      </tr>
    </table>
	</td>
  </tr>
</table>
    </td>
  </tr>
</table><%call down_end()
call web_end(0,0)
%>