down_view.asp

漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了页面底部的统计形式。 3、修改了“公告更新”栏目

<!-- #include file="include/config_down.asp" -->
<%
dim id:id=trim(request.querystring("id"))
if not(isnumeric(id)) then
  call format_redirect("down.asp")
  reponse.end
end if
%>
<!-- #include file="include/jk_ubb.asp" -->
<!-- #include file="include/config_review.asp" -->
<!-- #include file="include/conn.asp" -->
<%
dim cname,sname,temp1,keyes,power,userp,emoney,url1,url2
set rs=server.createobject("ADODB.recordset")
sql="select jk_class.c_name,jk_sort.s_name,down.* " & _
     "from jk_class,jk_sort,down where jk_class.c_id=down.c_id and jk_sort.s_id=down.s_id and down.id="&id&" and down.hidden=1"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
  rs.close:set rs=nothing
  call close_conn()
  call format_redirect("down.asp")
  response.end
end if
cid=rs("c_id")
sid=rs("s_id")
cname=rs("c_name")
sname=rs("s_name")
keyes=rs("keyes")
power=rs("power")
emoney=rs("emoney")

tit=cname&"（"&sname&"）"

if action="nodo" then
 if login_username<>"" then
conn.Execute("insert into user_mail(accept_u,send_u,topic,word,tim,types,isread) values('"&web_var(web_config,3)&"','"&login_username&"','下载链接报错通知','"&rs("name")&" 无法下载，请纠正！',Now(),1,false)")
  response.write "<script language=javascript>" & _
     vbcrlf & "alert(""感谢您报告下载资源的死链接，我们会尽快修正﹗"");" & _
     vbcrlf & "parent.location='down_view.asp?id="&id&"'"&_
     vbcrlf & "</script>"
 else
  response.write "<script language=javascript>" & _
     vbcrlf & "alert(""您不是会员或没有登陆，请注册登陆后使用本站各项功能﹗"");" & _
     vbcrlf & "parent.location='main.asp'" & _
     vbcrlf & "</script>"
 end if
end if


if action="download" then
  call web_head(1,0,0,0,0)
else
  call web_head(0,0,0,0,0)
end if
'--------------------------------download---------------------------------
userp=int(format_power(login_mode,2))


if action="download" then
  call emoney_notes(power,emoney,n_sort,id,"js",1,1,"?id="&id,p_name)
  if trim(request.querystring("url"))="download2" then
    index_url=rs("url2")
  else
    index_url=rs("url")
  end if
  rs.close:set rs=nothing
  sql="update down set counter=counter+1 where id="&id
  conn.execute(sql)
  call close_conn()
  
  response.redirect ""&url_true(web_var(web_down,5),index_url)&""
  response.end
end if
'------------------------------------left----------------------------------
%>
<table border=0 width='96%' cellspacing=0 cellpadding=0 align=center>
<tr><td align=center><%call down_sea()%></td></tr>
<tr><td align=center><%call down_new_hot("","","","","good",15,0,13,1,0)%></td></tr>
<tr><td align=center><%call down_new_hot("","","","","hot",15,0,13,1,0)%></td></tr>
<tr><td align=center><%call down_new_hot("","","","","new",15,0,13,1,0)%></td></tr>
</table>
<%
'----------------------------------left end--------------------------------
call web_center(0)
'-----------------------------------center---------------------------------
%>
<table border=0 width='98%' cellspacing=0 cellpadding=0 align=center>
<tr><td align=center><%call down_class_sort(cid,sid)%></td></tr>
<tr><td align=center>
  <table border=1 cellspacing=0 cellpadding=4 width='100%' bordercolorlight=<%response.write web_var(web_color,5)%> bordercolordark=<%response.write web_var(web_color,1)%>>
  <tr bgcolor=<%response.write web_var(web_color,5)%> bordercolordark=<%response.write web_var(web_color,5)%>>
  <td align=center colspan=3 height=30><font size=3 class=blue><b><%response.write rs("name")%></b></font></td></tr>
  <tr><td align=center width='15%'>授权类型：</td><td width='40%'><%response.write rs("genre")%>&nbsp;</td>
<%
'网上图片判断
dim uploadpic
if left(rs("pic"),4)<>"http" then
uploadpic=web_var(web_upload,1)
else
uploadpic=""
end if
%>
  <td align=center width='45%' rowspan=8><img src='<% response.write uploadpic&rs("pic") %>' border=0 width=<%response.write web_var(web_num,7)%> height=<%response.write web_var(web_num,8)%>></td></tr>
  <tr><td align=center>运行环境：</td><td><%response.write rs("os")%>&nbsp;</td></tr>
  <tr><td align=center>软件大小：</td><td><%response.write rs("sizes")%></td></tr>
  <tr><td align=center>推荐等级：</td><td><img src='images/down/star<%response.write rs("types")%>.gif' border=0></td></tr>
  <tr><td align=center>下载次数：</td><td><font class=red><%response.write rs("counter")%></font></td></tr>
  <tr><td align=center>发&nbsp;布&nbsp;人：</td><td><%response.write format_user_view(rs("username"),1,1)%></td></tr>
  <tr><td align=center>发布日期：</td><td><%response.write time_type(rs("tim"),88)%></td></tr>
  <tr><td align=center>软件主页：</td><td><%
temp1=rs("homepage")
if temp1="" or isnull(temp1) or temp1="http://" then
  response.write "<a href='"&web_var(web_config,2)&"' target=_blank>"&web_var(web_config,2)&"</a>"
else
  response.write "<a href='"&temp1&"' target=_blank>"&temp1&"</a>"
end if
%></td></tr>
  <tr><td align=center>下载权限：</td><td colspan=2>&nbsp;<%response.write power_pic(emoney,power,1)%></td></tr>
  <tr><td align=center>下载地址：</td><td colspan=2>&nbsp;&nbsp;&nbsp;<a href='?action=download&id=<%response.write id%>'<%response.write atb%>><img src='images/down/download.gif' border=0></a>&nbsp;
<% if len(rs("url2"))>8 then %>
&nbsp;&nbsp;&nbsp;<a href='?action=download&url=download2&id=<%response.write id%>'<%response.write atb%>><img src='images/down/download2.gif' border=0></a>
<% end if %>
 [<a href='?action=nodo&id=<%response.write id%>'>死链接报告错误</a>]
</td></tr>
  <tr height=50 valign=top><td align=center>软件备注：</td><td colspan=2><%
temp1=rs("remark")
if len(temp1)<3 then
  temp1="<font class=gray>好像没有关于该软件的介绍哦！</font>"
else
  temp1=code_jk(temp1)
end if
response.write temp1
rs.close
%></td></tr>
  <tr valign=top><td align=center>相关软件：</td><td colspan=2><table border=0><%
sql="select top 5 id,name,tim,counter from down where hidden=1 and keyes like '%"&keyes&"%' and id<>"&id&" order by id desc"
set rs=conn.execute(sql)
if rs.eof and rs.bof or len(keyes)=0 then
  response.write vbcrlf&"<tr><td class=gray>该软件没有与之相关的软件</td></tr>"
else
  do while not rs.eof
    temp1=rs("name")
    response.write vbcrlf&"<tr><td><a href='down_view.asp?id="&rs("id")&"' title='"&code_html(temp1,1,0)&"'>"&code_html(temp1,1,30)&"</a>"&format_end(1,time_type(rs("tim"),33)&",<font class=blue>"&rs("counter")&"</font>")&"</td></tr>"
    rs.movenext
  loop
end if
rs.close:set rs=nothing
%></table></td></tr>
  </table>
</td></tr>
<tr><td height=10></td></tr>
<tr><td align=center><% call review_type(n_sort,id,"down_view.asp?id="&id,1) %></td></tr>
<tr><td height=5></td></tr>
<tr><td align=center><%call down_remark("jt0")%></td></tr>
</table>
<%
'---------------------------------center end-------------------------------
call web_end(0)
%>