downloadshow.asp

word习题 word习题 word习题

<%@ LANGUAGE=VBScript CodePage=936%>
<%option explicit%>
<%Response.Buffer=True%>
<!--#include file="Include/System.asp"-->
<!--#include file="../Inc/ubbcode.asp"-->
<!--#include file="Include/SysDown.asp"-->
<!--#include file="Include/StrLeft.asp"-->

<%
ShowSmallClassType=ShowSmallClassType_Article
dim DownID,Content
DownID=trim(request("DownID"))
if DownID="" then
	response.Redirect("Download.asp")
end if

sql="select * from Download where DownID=" & 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("Hits")=rs("Hits")+1
	rs.update
	if rs("Hits")>=HitsOfHot then
		rs("Hits")=True
		rs.update
	end if
	BigClassName=rs("BigClassName")
	SmallClassName=rs("SmallClassName")
	Content=ubbcode(rs("Content"))
%>

<!--#include file="Include/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='Download.asp'>下载中心</a>"
Response.Write "&nbsp;&gt;&gt;&nbsp;<a href='Download.asp?BigClassName=" & rs("BigClassName") & "'>" & rs("BigClassName") & "</a>"
if rs("SmallClassName") & ""<>"" then
Response.Write "&nbsp;&gt;&gt;&nbsp;<a href='Download.asp?BigClassName=" & rs("BigClassName")&"&SmallClassName=" & rs("SmallClassName") & "'>" & rs("SmallClassName") & "</a>"
end if
'response.write "&nbsp;&gt;&gt;&nbsp;"& rs("Title")
%>
&nbsp;</SPAN></TD>
						<TD class='MC_Pt_TD4'><div align="right">
&nbsp;</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>&nbsp;<%=rs("Title")%></TD>
					</TR>
					<TR class='MC_DoShow_T1Tr2'>
						<td class='MC_DoShow_T1r2Td1'>&nbsp;软件语言：<%=rs("Language")%></TD>
						<td rowspan=6><DIV align=center><IMG src='<%=rs("PhotoUrl")%>'height=150 width=150></DIV></TD>
					</TR>
					<TR><td class='MC_DoShow_T1rnTd1'>&nbsp;授权类型：<%=rs("LicenceType")%></TD></TR>
					<TR><td class='MC_DoShow_T1rnTd1'>&nbsp;文件大小：<%=rs("FileSize")%></TD></TR>
					<TR><td class='MC_DoShow_T1rnTd1'>&nbsp;运行环境：<%=rs("System")%></TD></TR>
					<TR><td class='MC_DoShow_T1rnTd1'>&nbsp;整理日期：<%=FormatDateTime(rs("UpDateTime"),2)%></TD></TR>
					<TR><td class='MC_DoShow_T1rnTd1'>&nbsp;下载次数：<%=rs("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("DownloadUrl")%>" target=_blank>下载地址1</a>┊
<%
if rs("DownloadUrl2")<>"" then
	response.Write "<a href='" & rs("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>&nbsp;&nbsp;<%=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>】
&nbsp;</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/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/Foot4.asp" -->
<%end if%>