<% '请勿改动下面这三行代码 const ChannelID=3 Const ShowRunTime="Yes" MaxPerPage=20 SkinID=0 PageTitle="软件信息" Set rsSoft= Server.CreateObject("ADODB.Recordset") Set rsPic= Server.CreateObject("ADODB.Recordset") %> <%=SoftTitle%> <%call MenuJS()%> onmousemove='HideMenu()'> <% dim sqlRoot,rsRoot,trs,arrClassID,TitleStr sqlRoot="select C.ClassID,C.ClassName,C.RootID,L.LayoutFileName,L.LayoutID,C.Child,C.ParentPath From SoftClass C inner join Layout L on C.LayoutID=L.LayoutID where C.ParentID=" & ClassID & " or C.ParentPath like '%" & ParentPath & "," & ClassID & "%' and C.IsElite=True and C.LinkUrl='' and C.BrowsePurview>=" & UserLevel & " order by C.OrderID" Set rsRoot= Server.CreateObject("ADODB.Recordset") rsRoot.open sqlRoot,conn,1,1 arrClassID=ClassID do while not rsRoot.eof arrClassID=arrClassID & "," & rsRoot(0) rsRoot.movenext loop rsRoot.close set rsRoot=nothing %>
 下载中心通告 <% call ShowAnnounce(2,5) %> 最近更新    推荐下载
<%if Child>0 then%> <%end if%>
软件搜索
<%call ShowSearchForm("Soft_Search.asp",1)%>
<%=ClassName%>分类
<%call ShowChildClass(1)%>
<%=ClassName%>下载Top10
<%call ShowTop(10,200,arrClassID)%>
发 表 评 论
<% if CheckUserLogined()=false then%> <%else%> <% end if %>
姓名:
评分12345
 
 
<%=dvhtmlencode(rs("SoftName")) & "  " & dvhtmlencode(rs("SoftVersion"))%>
运行环境: <%=dvhtmlencode(rs("OperatingSystem"))%> <% if rs("SoftPicUrl")="" then response.write "" else response.write "" end if %> 文件大小: <%=rs("SoftSize") & " K"%>
软件等级: <%=string(rs("Stars"),"★")%> 软件类别: <% select case rs("SoftType") case 1 response.write "国产软件" case 2 response.write "国外软件" case 3 response.write "汉化补丁" case 4 response.write "程序源码" case 5 response.write "电影下载" case 6 response.write "FLASH动画" case 7 response.write "其他" end select %>
添加时间: <%=rs("UpdateTime")%> 软件语言: <% select case rs("SoftLanguage") case 1 response.write "英文" case 2 response.write "简体中文" case 3 response.write "繁体中文" case 4 response.write "简繁中文" case 5 response.write "多国语言" case 6 response.write "其他语言" end select%>
开 发 商: <%response.write "" & dvhtmlencode(rs("Author")) & "    Email    主页" %> 授权方式: <% select case rs("CopyrightType") case 1 response.write "免费版" case 2 response.write "共享版" case 3 response.write "试用版" case 4 response.write "演示版" case 5 response.write "注册版" case 6 response.write "破解版" case 7 response.write "零售版" case 8 response.write "OEM版" end select%>
相关链接: ">程序演示  ">软件注册 软件添加: <%=rs("Editor")%>
下载次数: 本日:<%=rs("DayHits")%>   本周:<%=rs("WeekHits")%>  
       本月:<%=rs("MonthHits")%>   总计:<%=rs("Hits")%>
解压密码:
  <%=rs("DecompressPassword")%>

::下载地址::
<% if rs("SoftLevel")<=999 then if UserLogined<>True then FoundErr=True ErrMsg=ErrMsg & "对不起,本软件为收费下载软件,要求至少是本站的注册用户才能下载!
您还没注册或者没有登录?所以不能下载本软件。请赶紧 注册登录吧!" else if UserLevel>rs("SoftLevel") then FoundErr=True ErrMsg=ErrMsg & "对不起,本软件为收费下载软件,并且只有 " if rs("SoftLevel")=999 then ErrMsg=ErrMsg & "注册用户" elseif rs("SoftLevel")=99 then ErrMsg=ErrMsg & "收费用户" elseif rs("SoftLevel")=9 then ErrMsg=ErrMsg & "VIP用户" elseif rs("SoftLevel")=5 then ErrMsg=ErrMsg & "管理员" end if ErrMsg=ErrMsg & "级别的用户 才能下载。你目前的权限级别不够,所以不能下载。" else if ChargeType=1 and rs("SoftPoint")>0 then if UserPoint" & rs("SoftPoint") & " 点!" ErrMsg=ErrMsg &"而你目前只有 " & UserPoint & " 点可用。点数不足,无法下载本软件。请与我们联系进行充值。" else ErrMsg=ErrMsg & "注意:本软件为收费下载软件,并且下载本软件需要消耗 " & rs("SoftPoint") & " 点!  若点击任何一个下载地址,意味着你同意消耗相应点数来下载此软件。若你不同意,请不要点击任何下载地址!" end if elseif ChargeType=2 then if ValidDays<=0 then FoundErr=True ErrMsg=ErrMsg & "对不起,本软件为收费下载,而您的有效期已经过期,所以无法下载本软件。请与我们联系进行充值。" end if end if end if end if end if if FoundErr=True then response.write ErrMsg else response.write "┊ 本地下载 ┊" if rs("DownloadUrl2")<>"" and rs("DownloadUrl2")<>"http://" then response.write " 下载地址二 ┊" if rs("DownloadUrl3")<>"" and rs("DownloadUrl3")<>"http://" then response.write " 下载地址三 ┊" if rs("DownloadUrl4")<>"" and rs("DownloadUrl4")<>"http://" then response.write " 下载地址四 ┊" end if %>
<%if FoundErr<>True and ErrMsg<>"" then response.write ErrMsg %>
::软件简介::
<%=ubbcode(dvhtmlencode(rs("SoftIntro")))%>

::相关软件::
<%call ShowCorrelative(5,200)%>

::下载说明::
为了达到最快的下载速度,推荐使用网际快车下载本站软件。
如果您发现该软件不能下载,请通知管理员,谢谢!
未经本站明确许可,任何网站不得非法盗链及抄袭本站资源;如引用页面,请注明来自本站,谢谢您的支持!

  网友评论:(只显示最新5条。评论内容只代表网友观点,与本站立场无关!) " target="_blank">发表评论
<%call ShowComment(5)%>
<% call Bottom() %> <% call PopAnnouceWindow(400,300) %> <% set rsSoft=nothing set rsPic=nothing call CloseConn() %>