📄 ad_softshow.asp
字号:
<%@language=vbscript codepage=936 %>
<%
option explicit
response.buffer=true
Const PurviewLevel=2
Const CheckChannelID=3
Const PurviewLevel_Soft=3
%>
<!--#include file="inc/conn.asp"-->
<!--#include file="Ad_ChkPurview.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/func.asp"-->
<!--#include file="inc/ubbcode.asp"-->
<!--#include file="inc/ad_code_soft.asp"-->
<%
dim SoftID,sql,rs,FoundErr,ErrMsg,PurviewChecked,PurviewChecked2
dim ClassID,tClass,ClassName,RootID,ParentID,ParentPath,Depth,ClassMaster,ClassChecker
SoftID=trim(request("SoftID"))
FoundErr=False
PurviewChecked=False
PurviewChecked2=False
call main()
if FoundErr=True then
WriteErrMsg()
end if
call CloseConn()
sub main()
if SoftId="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>参数不足</li>"
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 & "<br><li>找不到文章</li>"
else
ClassID=rs("ClassID")
set tClass=conn.execute("select ClassName,RootID,ParentID,Depth,ParentPath,ClassMaster,ClassChecker From SoftClass where ClassID=" & ClassID)
if tClass.bof and tClass.eof then
founderr=True
ErrMsg=ErrMsg & "<br><li>找不到指定的栏目</li>"
else
ClassName=tClass(0)
RootID=tClass(1)
ParentID=tClass(2)
Depth=tClass(3)
ParentPath=tClass(4)
ClassMaster=tClass(5)
ClassChecker=tClass(6)
end if
set tClass=nothing
end if
if FoundErr=True then
rs.close
set rs=nothing
exit sub
end if
if AdminPurview=1 or AdminPurview_Soft<=2 then
PurviewChecked=True
else
PurviewChecked=CheckClassMaster(ClassMaster,AdminName)
if PurviewChecked=False and ParentID>0 then
set tClass=conn.execute("select ClassMaster from SoftClass where ClassID in (" & ParentPath & ")")
do while not tClass.eof
PurviewChecked=CheckClassMaster(tClass(0),AdminName)
if PurviewChecked=True then exit do
tClass.movenext
loop
end if
PurviewChecked2=CheckClassMaster(ClassChecker,AdminName)
if PurviewChecked2=False and ParentID>0 then
set tClass=conn.execute("select ClassMaster from SoftClass where ClassID in (" & ParentPath & ")")
do while not tClass.eof
PurviewChecked2=CheckClassMaster(tClass(0),AdminName)
if PurviewChecked2=True then exit do
tClass.movenext
loop
end if
end if
%>
<html>
<head>
<title><%=rs("SoftName") & " " & rs("SoftVersion")%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="ad_Style.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<TABLE width="100%" border=0 align=center cellPadding=2 cellSpacing=1 bgcolor="#FFFFFF" class="border" style="WORD-BREAK: break-all">
<TBODY>
<TR class="title">
<TD height="22" colspan="4"><%
response.write "您现在的位置： <a href='Ad_SoftManage.asp'>软件管理</a> >> "
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 "<a href='ad_SoftManage.asp?ClassID=" & rsPath(0) & "'>" & rsPath(1) & "</a> >> "
rsPath.movenext
loop
rsPath.close
set rsPath=nothing
end if
response.write "<a href='Ad_SoftManage.asp?ClassID=" & ClassID & "'>" & ClassName & "</a> >> "
response.write "<a href='Ad_SoftShow.asp?SoftID=" & rs("SoftID") & "'>" & dvhtmlencode(rs("SoftName")) & " " & dvhtmlencode(rs("SoftVersion")) & "</a>"
%>
</TD>
</TR>
<TR class="tdbg">
<TD width="100" align="right">软件名称：</TD>
<TD colspan="3"><STRONG><%=dvhtmlencode(rs("SoftName")) & " " & dvhtmlencode(rs("SoftVersion"))%></STRONG></TD>
</TR>
<TR class="tdbg">
<TD width="100" align="right">文件大小：</TD>
<TD width="200"><%=rs("SoftSize") & " K"%></TD>
<TD colspan="2" rowspan="6" align=center valign="middle"><%
if rs("SoftPicUrl")="" then
response.write "相关图片"
else
response.write "<img src='" & rs("SoftPicUrl") & "' width='150'>"
end if
%> </TD>
</TR>
<TR class="tdbg">
<TD width="100" align="right">运行环境：</TD>
<TD width="200"><%=dvhtmlencode(rs("OperatingSystem"))%></TD>
</TR>
<TR class="tdbg">
<TD width="100" align="right">软件类别：</TD>
<TD width="200"> <%
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
%>
</TD>
</TR>
<TR class="tdbg">
<TD width="100" align="right">软件语言：</TD>
<TD width="200"> <%
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%>
</TD>
</TR>
<TR class="tdbg">
<TD width="100" align="right">授权方式：</TD>
<TD width="200"> <%
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%>
</TD>
</TR>
<TR class="tdbg">
<TD width="100" align="right">软件等级：</TD>
<TD width="200"><%=string(rs("Stars"),"★")%></TD>
</TR>
<TR class="tdbg">
<TD width="100" align="right">添加时间：</TD>
<TD width="200"><%=rs("UpdateTime")%></TD>
<TD width="100" align=right valign="middle">开 发 商：</TD>
<TD valign="middle"><%response.write "<a href='mailto:" & rs("AuthorEmail") & "'>" & dvhtmlencode(rs("Author")) & "</a> <a href='mailto:" & rs("AuthorEmail") & "'>Email</a> <a href='" & rs("AuthorHomepage") & "'>主页</a>" %>
</TD>
</TR>
<TR class="tdbg">
<TD width="100" align="right">下载等级：</TD>
<TD width="200"><%
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
%>
</TD>
<TD width="100" align=right valign="middle">下载点数：</TD>
<TD valign="middle"><%="<font color=red> " & rs("SoftPoint") & "</font> 点"%></TD>
</TR>
<TR class="tdbg">
<TD width="100" align="right">软件添加：</TD>
<TD width="200"><%=rs("Editor")%></TD>
<TD width="100" align=right valign="middle">解压密码：</TD>
<TD valign="middle"><%=rs("DecompressPassword")%></TD>
</TR>
<TR class="tdbg">
<TD width="100" align="right">相关链接：</TD>
<TD colspan="3"><%response.write "<a href='" & rs("DemoUrl") & "' target='_blank'>程序演示</a> <a href='" & rs("RegUrl") & "' target='_blank'>软件注册</a>"%></TD>
</TR>
<TR class="tdbg">
<TD width="100" align="right">下载次数：</TD>
<TD colspan="3"><%response.write "本日：" & rs("DayHits") & " 本周：" & rs("WeekHits") & " 本月：" & rs("MonthHits") & " 总计：" & rs("Hits")%>
</TD>
</TR>
<TR class="tdbg">
<TD width="100" align="right">下载地址：</TD>
<TD colspan="3"><%
response.write "下载地址一： <a href='" & rs("DownloadUrl1") & "' target='_blank'>" & rs("DownloadUrl1") & "</a><br>"
response.write "下载地址二： <a href='" & rs("DownloadUrl2") & "' target='_blank'>" & rs("DownloadUrl2") & "</a><br>"
response.write "下载地址三： <a href='" & rs("DownloadUrl3") & "' target='_blank'>" & rs("DownloadUrl3") & "</a><br>"
response.write "下载地址四： <a href='" & rs("DownloadUrl4") & "' target='_blank'>" & rs("DownloadUrl4") & "</a>"
%>
</TD>
</TR>
<TR class="tdbg">
<TD align="right"> </TD>
<TD colspan="3" align="right">
<%
response.write "<font color=blue><b>可用操作：</b></font>"
if (rs("Editor")=AdminName and rs("Passed")=False) or PurviewChecked=True then
response.write "<a href='ad_SoftModify.asp?SoftID=" & rs("SoftID") & "'>修改</a> "
response.write "<a href='ad_SoftDel.asp?Action=Del&SoftID=" & rs("SoftID") & "'>删除</a> "
end if
if AdminPurview=1 or AdminPurview_Soft<=2 then
response.write "<a href='ad_SoftMove.asp?SoftID=" & rs("SoftID") & "'>移动</a> "
end if
if PurviewChecked2=True then
if rs("Passed")=false then
response.write "<a href='ad_SoftProperty.asp?Action=SetPassed&SoftID=" & rs("SoftID") & "'>通过审核</a> "
Else
response.write "<a href='ad_SoftProperty.asp?Action=CancelPassed&SoftID=" & rs("SoftID") & "'>取消审核</a> "
end if
end if
if PurviewChecked=True then
if rs("OnTop")=false then
response.write "<a href='ad_SoftProperty.asp?Action=SetOnTop&SoftID=" & rs("SoftID") & "'>固顶</a> "
else
response.write "<a href='ad_SoftProperty.asp?Action=CancelOnTop&SoftID=" & rs("SoftID") & "'>解固</a> "
end if
if rs("Elite")=false then
response.write "<a href='ad_SoftProperty.asp?Action=SetElite&SoftID=" & rs("SoftID") & "'>设为推荐</a>"
else
response.write "<a href='ad_SoftProperty.asp?Action=CancelElite&SoftID=" & rs("SoftID") & "'>取消推荐</a>"
end if
end if
%>
</TD>
</TR>
<TR class="tdbg">
<TD width="100" align="right">软件点评：</TD>
<TD colspan="3"><a href='ad_softcomment.asp?showsoftid=<%=rs("SoftID")%>'>管理此软件的点评</a></TD>
</TR>
<TR class="tdbg">
<TD width="100" align="right">软件简介：</TD>
<TD height="100" colspan="3"><%=dvhtmlencode(rs("SoftIntro"))%></TD>
</TR>
</TBODY>
</TABLE>
</body>
</html>
<%
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -