?? bs_downloadshow.asp
字號:
<%@ LANGUAGE=VBScript CodePage=936%>
<%option explicit%>
<%Response.Buffer=True%>
<!--#include file="Include/Bs_System.asp"-->
<!--#include file="../Inc/ubbcode.asp"-->
<!--#include file="Include/Bs_SysDown.asp"-->
<!--#include file="Include/Bs_StrLeft.asp"-->
<%
'=========================================================
'
'產品名稱： 公司(企業)網站管理系統
'http://www.web300.cn, 13613394168
'
'
'Copyright 2006-2008 www.web300.cn - All Rights Reserved.
'
'=========================================================
%>
<%
ShowSmallClassType=ShowSmallClassType_Article
dim Bs_DownID,Bs_Content
Bs_DownID=trim(request("Bs_DownID"))
if Bs_DownID="" then
response.Redirect("Bs_Download.asp")
end if
sql="select * from Bs_Download where Bs_DownID=" & Bs_DownID & ""
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
if rs.bof and rs.eof then
response.write"<SCRIPT language=JavaScript>alert('找不到此軟件！');"
response.write"javascript:history.go(-1)</SCRIPT>"
else
rs("Bs_Hits")=rs("Bs_Hits")+1
rs.update
if rs("Bs_Hits")>=HitsOfHot then
rs("Bs_Hits")=True
rs.update
end if
Bs_BigClassName=rs("Bs_BigClassName")
Bs_SmallClassName=rs("Bs_SmallClassName")
Bs_Content=ubbcode(rs("Bs_Content"))
%>
<!--#include file="Include/Bs_Head.asp" -->
<TABLE cellPadding=0 cellSpacing=0 class='Middle_Title'>
<TR>
<%if strSkins <= 200 and strSkins >= 1 then%>
<%
elseif strSkins <= 250 and strSkins >= 201 then '新風格==============================================================
%>
<TD vAlign=top class='M_Left_Td'>
<table cellpadding="0" cellspacing="0" align="center" class='M_Left_Title'>
<tr>
<td valign="top">
<% Call Left_Download() %>
</td>
</tr>
</table>
</TD>
<%end if%>
<%if strSkins <= 200 and strSkins >= 1 then%>
<TD class='M_Jgx_TD'><IMG src='../img/1x1_pix.gif' width=1 height=2></TD>
<%
elseif strSkins <= 250 and strSkins >= 201 then '新風格==============================================================
%>
<%end if%>
<TD vAlign=top >
<TABLE cellPadding=0 cellSpacing=0 align='center' class='M_Center_Title'>
<% Call Style_Adcolumn() '廣告欄 %>
<!-- 下載查看 -->
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 align="center" class='MC_Pt_Title'>
<TR>
<TD class='MC_Pt_TD1'><IMG src='../img/1x1_pix.gif' width=3 height=1></TD>
<TD class='MC_Pt_TD2'><IMG src='../img/1x1_pix.gif' width=3 height=1></TD>
<TD class='MC_Pt_TD3'><SPAN class=Glow>
<%
Response.Write "<a href='Bs_Download.asp'>下載中心</a>"
Response.Write " >> <a href='Bs_Download.asp?Bs_BigClassName=" & rs("Bs_BigClassName") & "'>" & rs("Bs_BigClassName") & "</a>"
if rs("Bs_SmallClassName") & ""<>"" then
Response.Write " >> <a href='Bs_Download.asp?Bs_BigClassName=" & rs("Bs_BigClassName")&"&Bs_SmallClassName=" & rs("Bs_SmallClassName") & "'>" & rs("Bs_SmallClassName") & "</a>"
end if
'response.write " >> "& rs("Bs_Title")
%>
</SPAN></TD>
<TD class='MC_Pt_TD4'><div align="right">
</div></TD>
<TD class='MC_Pt_TD5'><IMG src='../img/1x1_pix.gif' width=3 height=1></TD>
</TR>
</TABLE>
</TD>
</TR>
<TR>
<TD>
<table cellSpacing=1 cellpadding=0 align="center" class='MC_DoShow_Title1'>
<TR class='MC_DoShow_T1Tr1'>
<td colspan=2> <%=rs("Bs_Title")%></TD>
</TR>
<TR class='MC_DoShow_T1Tr2'>
<td class='MC_DoShow_T1r2Td1'> 軟件語言：<%=rs("Bs_Language")%></TD>
<td rowspan=6><DIV align=center><IMG src='<%=rs("Bs_PhotoUrl")%>'height=150 width=150></DIV></TD>
</TR>
<TR><td class='MC_DoShow_T1rnTd1'> 授權類型：<%=rs("Bs_LicenceType")%></TD></TR>
<TR><td class='MC_DoShow_T1rnTd1'> 文件大小：<%=rs("Bs_FileSize")%></TD></TR>
<TR><td class='MC_DoShow_T1rnTd1'> 運行環境：<%=rs("Bs_System")%></TD></TR>
<TR><td class='MC_DoShow_T1rnTd1'> 整理日期：<%=FormatDateTime(rs("Bs_UpDateTime"),2)%></TD></TR>
<TR><td class='MC_DoShow_T1rnTd1'> 下載次數：<%=rs("Bs_Hits")%></TD></TR>
</TABLE>
</TD>
</TR>
<TR>
<TD>
<table cellSpacing=0 cellpadding=0 align="center" class='MC_DoShow_Title2'>
<TR class='MC_DoShow_t2Tr1'><td>::下載地址::</TD></TR>
<TR>
<td class='MC_DoShow_t2r2Td1'>
┊<a href="<%=rs("Bs_DownloadUrl")%>" target=_blank>下載地址1</a>┊
<%
if rs("Bs_DownloadUrl2")<>"" then
response.Write "<a href='" & rs("Bs_DownloadUrl2") & "'target=_blank>下載地址2</a>┊"
else
response.Write ""
end if
%>
</TD>
</TR>
<TR class='MC_DoShow_t2Tr3'><td>::軟件簡介::</TD></TR>
<TR>
<td class='MC_DoShow_t2r4Td1'>
<DIV> <%=Bs_Content%></DIV>
</TD>
</TR>
<TR class='MC_DoShow_t2Tr5'><td>::下載說明::</TD></TR>
<TR>
<td class='MC_DoShow_t2r6Td1'><DIV>
* 為了達到最快的下載速度，推薦使用<a href="http://www.amazesoft.com/" target=_blank><FONT COLOR="#0000FF">網際快車</FONT></a>下載本站軟件。<BR>
* 如果您發現該軟件不能下載，請通知<a href="mailto:<%=BsEmail%>"><FONT COLOR="#0000FF">管理員</FONT></a>，謝謝！<BR>
* 未經本站明確許可，任何網站不得非法盜鏈及抄襲本站資源；如引用頁面，請注明來自本站，謝謝您的支持！</DIV>
</TD>
</TR>
</TABLE>
</TD>
</TR>
<%
end if
rs.close
set rs=nothing
%>
<!-- 下載查看 END -->
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 align="center" class='MC_bottom_title'>
<tr>
<td><div align="right">
【<a href='javascript:history.back()'>返回</a
>】【<A href="javascript:window.scroll(0,-360)">頂部</A>】
</div></TD>
</tr>
<tr><td class='MC_bottom_Td2'></td></tr>
</table>
</TD>
</TR>
<TR><TD height=10><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
</TABLE>
</TD>
<%if strSkins <= 200 and strSkins >= 1 then%>
<TD vAlign=top class='M_Left_Td'>
<table cellpadding="0" cellspacing="0" align="center" class='M_Left_Title'>
<tr>
<td valign="top">
<%
Call Style_Download() '
Call Style_Fellow() '友情連接
%>
</td>
</tr>
</table>
</TD>
</TR>
</TABLE>
<!--#include file="Include/Bs_Foot.asp" -->
<%
elseif strSkins <= 250 and strSkins >= 201 then '新風格==============================================================
%>
<TD class='M_Jgx_TD'><IMG src='../img/1x1_pix.gif' width=1 height=2></TD>
<TD vAlign=top background="../Skin/201/line-mid-glay.gif" width="6"><img border="0" src="../Skin/201/line-shadow-glay-mid.gif" width="6" height="146"></TD><TD vAlign=top class='Mr_TitlePt'>
<% Call Right_Download() %>
</TD>
</TR>
</TABLE>
<!--#include file="Include/Bs_Foot4.asp" -->
<%end if%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -