<% 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 %>

<% 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 %>