<% if CheckUserLogined()=False then response.Redirect "User_Login.asp" end if dim SoftID,sql,rs,FoundErr,ErrMsg,PurviewChecked dim ClassID,tClass,ClassName,RootID,ParentID,ParentPath,Depth,ClassMaster SoftID=trim(request("SoftID")) FoundErr=False PurviewChecked=False call main() if FoundErr=True then WriteErrMsg() end if call CloseConn() sub main() if SoftId="" then FoundErr=True ErrMsg=ErrMsg & "
  • 参数不足
  • " exit sub else SoftID=Clng(SoftID) end if sql="select * from Soft where Deleted=False and SoftID=" & SoftID & "" Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 if rs.bof and rs.eof then FoundErr=True ErrMsg=ErrMsg & "
  • 找不到文章
  • " else ClassID=rs("ClassID") set tClass=conn.execute("select ClassName,RootID,ParentID,Depth,ParentPath,ClassMaster From SoftClass where ClassID=" & ClassID) if tClass.bof and tClass.eof then founderr=True ErrMsg=ErrMsg & "
  • 找不到指定的栏目
  • " else ClassName=tClass(0) RootID=tClass(1) ParentID=tClass(2) Depth=tClass(3) ParentPath=tClass(4) ClassMaster=tClass(5) end if set tClass=nothing end if if FoundErr=True then rs.close set rs=nothing exit sub end if if rs("Editor")=UserName and rs("Passed")=False then PurviewChecked=True else PurviewChecked=False end if %> <%=rs("SoftName") & "  " & rs("SoftVersion")%>
    <% response.write "您现在的位置: 软件管理 >> " if ParentID>0 then dim sqlPath,rsPath sqlPath="select ClassID,ClassName From SoftClass where ClassID in (" & ParentPath & ") order by Depth" set rsPath=server.createobject("adodb.recordset") rsPath.open sqlPath,conn,1,1 do while not rsPath.eof response.Write "" & rsPath(1) & " >> " rsPath.movenext loop rsPath.close set rsPath=nothing end if response.write "" & ClassName & " >> " response.write "" & dvhtmlencode(rs("SoftName")) & "  " & dvhtmlencode(rs("SoftVersion")) & "" %>
    软件名称: <%=dvhtmlencode(rs("SoftName")) & "  " & dvhtmlencode(rs("SoftVersion"))%>
    文件大小: <%=rs("SoftSize") & " K"%> <% if rs("SoftPicUrl")="" then response.write "相关图片" else response.write "" end if %>
    运行环境: <%=dvhtmlencode(rs("OperatingSystem"))%>
    软件类别: <% 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 %>
    软件语言: <% 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%>
    授权方式: <% 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%>
    软件等级: <%=string(rs("Stars"),"★")%>
    添加时间: <%=rs("UpdateTime")%> 开 发 商: <%response.write "" & dvhtmlencode(rs("Author")) & "    Email    主页" %>
    下载等级: <% if rs("SoftLevel")=9999 then response.write "游客" elseif rs("SoftLevel")=999 then response.write "注册用户" elseif rs("SoftLevel")=99 then response.write "收费用户" elseif rs("SoftLevel")=9 then response.write "VIP用户" elseif rs("SoftLevel")=5 then response.write "管理员" end if %> 下载点数: <%=" " & rs("SoftPoint") & " 点"%>
    软件添加: <%=rs("Editor")%> 解压密码: <%=rs("DecompressPassword")%>
    相关链接: <%response.write "程序演示    软件注册"%>
    下载次数: <%response.write "本日:" & rs("DayHits") & "    本周:" & rs("WeekHits") & "    本月:" & rs("MonthHits") & "    总计:" & rs("Hits")%>
    下载地址: <% response.write "下载地址一: " & rs("DownloadUrl1") & "
    " response.write "下载地址二: " & rs("DownloadUrl2") & "
    " response.write "下载地址三: " & rs("DownloadUrl3") & "
    " response.write "下载地址四: " & rs("DownloadUrl4") & "" %>
      <% response.write "可用操作:" if PurviewChecked=True then response.write "修改  " response.write "删除  " end if %>
    软件简介: <%=dvhtmlencode(rs("SoftIntro"))%>
    <% rs.close set rs=nothing end sub %>