showdown.asp

本程序采用花香内核

<!--#Include File="Check_hx.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="mdb.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="inc/format.asp"-->
<%
dim founderr
founderr=false
if request.querystring("soft_id")="" then
  founderr=true
  Response.Write "<script language=javascript>alert('请指定操作的对象！');javascript:history.back();</script>"
else
  if not isInteger(request.querystring("soft_id")) then
    founderr=true
    Response.Write "<script language=javascript>alert('参数非法！');javascript:history.back();</script>"
  end if
end if
if request.querystring("soft_id")="" then response.redirect "show_error.asp?eid=栏目ID或记录ID不能为空!"
sql="select * from soft where soft_id="&request.querystring("soft_id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
start="下载中心 - "&rs("soft_name")&""
if rs("Grade")="0" then
hxGrade="游客身份"
elseif rs("Grade")="1" then
hxGrade="会员身份"       
elseif rs("Grade")="2" then
hxGrade="VIP身份"       
end if      
call head()
call menu()
set rscount=conn.execute("select soft_id,soft_rcount from soft")
sql="UPDATE soft SET soft_rcount = soft_rcount + 1  WHERE soft_id="&request.querystring("soft_id")
conn.execute (sql)
rscount.close
set rscount=nothing
Response.Write "<table width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class=""table-hx66s""><TBODY>" & vbCrLf
Response.Write "<TR><TD height=""25"">&nbsp; 您的位置： <a href='index.asp'>"&webname&"</a> >> <a href='down.asp'>下载中心</a>" & vbCrLf
Response.Write " >> <a href=""down.asp?cat_id="&rs("soft_catid")&""">"&rs("soft_catname")&"</a> >> <a href=""down.asp?cat_id="&rs("soft_catid")&"&class_id="&rs("soft_classid")&""">"&rs("soft_classname")&"</a>"  & vbCrLf
Response.Write "</TD></TR></TBODY></TABLE>" & vbCrLf
Response.Write "<table width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class=""table-hx66s"">" & vbCrLf
Response.Write "<TBODY><TR vAlign=top bgcolor=""#FCFCFC""><TD>" & vbCrLf
Response.Write "<DIV class=mframe>" & vbCrLf
Response.Write "<table width=""758""  border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0""  class=""table-shangxia""><tr><td height=""23""  class=""a1"">　下载文件</td></tr></table>" & vbCrLf
Response.Write "<table width=""100%""  border=""1"" align=""center"" cellspacing=""0"" cellpadding=""3"" bgcolor=""#FFFFFF"" bordercolor=""#f0f0f0"" style=""border-collapse: collapse"">"
%>
        <%if guestsoft="yes" or request.Cookies("HX_USER")("User_Name")<>"" then%>
        <tr> 
          <td width=100% colspan=3 align="center" HEIGHT=30><b><font color=ff6600><b><%=rs("soft_name")%></b></font><b></td>
        </tr> 
        <tr> 
          <td height="25" align="center" width="15%">加入时间</td>
          <td width="35%" >&nbsp;<%=rs("soft_joindate")%>　</td>
<td rowspan="11" align="center" width="235">
<%if rs("soft_showpic")<>"http://hx66.net" then%><a href="<%=rs("soft_showpic")%>" title="<%=rs("soft_showpic")%>" target=_blank><img src='<%=rs("soft_showpic")%>' border='0' width=360  valign="center"></a><%else%><img src='img/nopic.gif' border='0' valign="center"><%end if%></td>
</tr>
        <tr> 
          <td height="25" align="center" width="15%">程序类别</td>
          <td width="35%">&nbsp;<%=rs("soft_classname")%></td>
        </tr>
        <tr> 
          <td height="25" align="center">文件大小</td>
          <td>&nbsp;<%=rs("soft_size")%>　</td>
</tr>
        <tr> 
          <td height="25" align="center">授权方式</td>
          <td >&nbsp;<%=rs("soft_mode")%>　</td>
        </tr>
        <tr> 
          <td height="25" align="center">应用平台</td>
          <td>&nbsp;<%=rs("soft_roof")%>　</td>
</tr>
        <tr> 
          <td height="25" align="center">推荐程度</td>
          <td>&nbsp;<img src="img/star<%=rs("soft_commend")%>.gif"align="absmiddle"></td>
        </tr>
        <tr> 
          <td height="25" align="center">下载权限</td>
          <td>&nbsp;<font color=red><%=hxGrade%></font></td>
        </tr>
        <tr> 
          <td height="25" align="center">花费听雪币</td>
          <td>&nbsp;<font color=red><%=rs("points")%></font></td>
        </tr>
        <tr> 
          <td height="25" align="center">程序演示</td>
          <td>&nbsp;
            <%if rs("soft_home")<>"" then%>
            <a href="<%=rs("soft_home")%>" title="<%=rs("soft_home")%>" target="_blank"><font color="#009900">主页</font></a> 
            <%end if%>
            <%if rs("soft_demo")<>"" then%>
            <a href="<%=rs("soft_demo")%>" title="<%=rs("soft_demo")%>" target=_blank><font color="#009900">演示</font></a>  
            <%end if%>
          </td>
        </tr>
        <tr> 
          <td height="30" align="center" width="15%">发布会员</td>
          <td>&nbsp;<%=rs("tjuser")%></td>
        </tr>
        <tr> 
          <td height="25" align="center">下载浏览</td>
          <td >&nbsp;下载:<%=rs("soft_dcount")%>&nbsp;&nbsp;浏览:<%=rs("soft_rcount")%></td>
        </tr>
        <tr> 
          <td width=100% colspan=3 style="display:block;padding:0px 10px;LINE-HEIGHT: 180%">&nbsp;&nbsp;<b>相关简介：</b><br><%=ubb2html(formatStr(autourl(rs("soft_desc"))), true, true)%></td>
        </tr> 
<tr> 
          <td height="25" align="center">下载地址</td>
          <td colspan=3 bgcolor="#FFFFFF">
          <%
set User_UserPoint=conn.execute("select points,usergrade from [user] where userid="&request.Cookies("HX_USER")("uid"))
userPoint=User_UserPoint(0)
userGrade=User_UserPoint(1)
User_UserPoint.close
set User_UserPoint=nothing
if request.Cookies("HX_USER")("Grade")="" then 
          Grade=0
          else 
          Grade=userGrade+1
          end if
          if Grade>=RS("Grade") and userPoint>=rs("points") then%>  
            <a href="opensoft.asp?soft_id=<%=rs("soft_id")%>&url=1" title="直接下载"><font color=5292FF><b>①</b></font></a> 
            <%if rs("soft_url2")<>"" then%>
            <a href="opensoft.asp?soft_id=<%=rs("soft_id")%>&url=2" title="直接下载">
<font color=31D3FF><b>②</b></font></a> 
            <%end if%>
            <%if rs("soft_url3")<>"" then%>
            <a href="opensoft.asp?soft_id=<%=rs("soft_id")%>&url=3" title="直接下载"><font color=5292FF><b>③</b></font></a> 
            <%end if%>
            <%if rs("soft_url4")<>"" then%>
            <a href="opensoft.asp?soft_id=<%=rs("soft_id")%>&url=4" title="直接下载"><font color=31D3FF><b>④</b></font></a> 
            <%end if%>
          </td>
            <%elseif Grade<RS("Grade") then
            Response.Write "<font color=red>对不起，你的权限不够，不能下载本软件!</font>" & vbCrLf
            elseif userPoint<rs("points") then
            Response.Write "<font color=red>对不起，你的点数不足(你当前点数为：" &userPoint& ")，无法下载本软件。请与我们联系进行充值。</font>" & vbCrLf
            end if%>
        </tr></table>
<%Response.Write "<table width=""98%"" align=""center""><tr><td align=""left"">" & vbCrLf
set RelationArt = conn.execute("select top 1 soft_id,soft_name from soft where soft_id<"&request.querystring("soft_id")&" and passed=0 order by soft_joindate desc")
IF RelationArt.eof and relationArt.bof Then
Response.Write "<font color=red>·上个软件：</font>已经没有了<BR> "    
else
Response.Write "<font color=red>·上个软件：</font><a href=""showdown.asp?soft_id=" & RelationArt(0) & """>" & relationArt(1) & "</a><BR>"   
end if   
Set RelationArt=Nothing
set RelationArt = conn.execute("select top 1 soft_id,soft_name from soft where soft_id>"&request.querystring("soft_id")&" and passed=0 order by soft_id")
IF RelationArt.eof and relationArt.bof Then
Response.Write "<font color=red>·下个软件：</font>已经没有了"   
else
Response.Write "<font color=red>·下个软件：</font><a href=""showdown.asp?soft_id=" & RelationArt(0) & """>" & relationArt(1) & "</a></td>"  
end if  
Set RelationArt=Nothing 
Response.Write "</tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
%>
<table width="758"  border="0" align="center" cellspacing="0" cellpadding="0"  class="table-shangxia"><tr><td height="23"  class="a1">　相关说明</td></tr></table>
<table align="center" cellspacing="0" cellpadding="0" style="word-break:break-all;table-layout:fixed;text-align:left">
    <TR> 
      <TD style="display:block;padding:0px 10px;LINE-HEIGHT: 180%"> 
☉为确保正常使用请使用 <font color=blue>WinRAR v3.10</font> 以上版本解压本站软件。<br>
        ☉本站下载的文件解压密码未提示，解压密码默认为[ <font color=red>hx66.net</font> ]<br>
        ☉如有其它问题,欢迎<a href='mailto:<%=webmail%>' Title='给站长写信'><font color=green>联系我们</font></a>,谢谢!<br> 
      </TD>
    </TR>  
</table>
<%else
call guesterror()
  response.end
end if%>
<%if point_down="1" then%>
<table width="758"  border="0" align="center" cellspacing="0" cellpadding="0"  class="table-shangxia"><tr><td height="23"  class="a1">　相关评论<font color=#CC0000><%=rs("reviewcount")%></font>篇,当前显示最新的<font color=#CC0000>5</font>篇</td></tr></table>
<table width="98%" align="center" cellspacing="0" cellpadding="0" style="word-break:break-all;table-layout:fixed;text-align:left">
<%if rs("review")<>"" then
temp=split(Trim(rs("review")),"|")
for i = 1 to 5%>
<tr><td style="LINE-HEIGHT: 180%"><%=temp(i)%></td></tr>
<%
next
else
Response.Write "<tr><td style=""LINE-HEIGHT: 180%"">当前没有评论</td></tr>"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<tr><td align="right"><a href="view.asp?action=down&soft_id=<%=request.querystring("soft_id")%>">[查看更多评论] [发表我的评论] </a>&nbsp;&nbsp;</td></tr>  
</table>
<%elseif point_down="0" then%>
<table width="100%" cellpadding="5" cellspacing="0" border="0">
<tr><td align="center">【下载评论已关闭】</td></tr></table>
<%End If%>
</table>
<%
call footer()%>