⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 viewdownload.asp

📁 asp+sql软件系统
💻 ASP
字号:
🔍 
<!--#include file="conn.asp"-->
<!--#include file="Include/Client_Module.asp"-->
<!--#include file="Include/UBB.asp"-->
<%
Dim Id
Id=Request.QueryString("Id")
If Not(IsNumeric(Id)) Or Id="" Then
ErrInfo = ErrInfo&"<li>非法ID。</li>"
FoundErr = True
Call ErrorMsg()
Response.End
End If
Call OpenDatabase()
Set Rs=Conn.Execute("EXECUTE NetCom_Download_List "&Id&"")
If Rs.Eof Then
ErrInfo = ErrInfo&"<li>无法找到此下载或此下载已经被禁。</li>"
FoundErr=True
ElseIf UserId="" AND Rs("Dpurview")<>0 Then
ErrInfo = ErrInfo&"<li>请您先登陆。</li>"
FoundErr=True
ElseIf UsersClass(UserId,1)<Rs("Dpurview") Then
ErrInfo = ErrInfo&"<li>你等级不够无法访问此下载。</li>"
FoundErr=True
End If
%><!----------头部标记开始---------->
<html><head><title><%=PageTitle%> → <%=Rs(0)%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta NAME="author" CONTENT="软件下载">
<meta NAME="description" CONTENT="软件下载-<%=Rs(0)%>">
<meta NAME="keywords" CONTENT="<%=Rs(0)%>,软件下载">

<SCRIPT language=javascript src="js/pop.js" type="text/javascript"></SCRIPT>
<link href="Css/Style.css" rel="stylesheet" type="text/css"></head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="758" border="0" cellpadding="0" cellspacing="0" align="center"><tr><td width="200" align="center"><img src="Images/Logo.gif" width="200" height="70"></td>
    <td valign="top" align="right">&nbsp;</td>
</tr></table><table width="760" border="0" cellpadding="0" cellspacing="0" align="center"><TR><TD height="1"></TD></TR></table><table width="760" border="0" cellpadding="0" cellspacing="0" align="center"><tr><TD height="40" bgcolor="#416194"><%If FoundErr Then
Call ErrorMsg()
Else
Conn.Execute("EXECUTE NetCom_Download_Browse "&Id&"")
Call AClass()
%></td>
</tr></table></td>
<td valign="top" bgcolor="#FFFFFF" width="605"><table width="100%" border="0" align="center" cellpadding="2" cellspacing="0"><tr><td><table width="760" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#416194">
  <tr><td colspan="4" align="center" class="UserInfo"><b><%=Rs(0)%></b></td></tr><tr><td width="16%" align="center" bgcolor="#F0F0F0">软件评价</td><td width="39%" bgcolor="#FFFFFF"><img src="Images/<%=Rs(3)%>.gif" border="0"></td><td width="27%" align="center" bgcolor="#F0F0F0">运行环境</td><td width="18%" bgcolor="#FFFFFF"><%=Rs(5)%></td></tr><tr><td width="16%" align="center" bgcolor="#F0F0F0">授权方式</td><td width="39%" bgcolor="#FFFFFF"><%=Rs(4)%></td><td width="27%" align="center" bgcolor="#F0F0F0">软件大小</td><td width="18%" bgcolor="#FFFFFF"><%=Rs(6)%></td></tr><tr><td width="16%" align="center" bgcolor="#F0F0F0">文件类型</td><td width="39%" bgcolor="#FFFFFF"><img src="Images/<%=Rs(7)%>.gif">.<%=Rs(7)%></td><td align="center" bgcolor="#FFFFFF" colspan="2" rowspan="12"><table width="100%" height="100%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#416194"><tr><td align="center" class="UserInfo"><b>广告位招商</b></td></tr><tr><td align="center" bgcolor="#FFFFFF"></td></tr></table></td></tr><tr><td width="16%" align="center" bgcolor="#F0F0F0">上传时间</td><td width="39%" bgcolor="#FFFFFF"><%=Rs(16)%></td></tr><tr><td width="16%" align="center" bgcolor="#F0F0F0">更新时间</td><td width="39%" bgcolor="#FFFFFF"><%=Rs(17)%></td></tr><tr><td width="16%" align="center" bgcolor="#F0F0F0">软件统计</td><td width="39%" bgcolor="#FFFFFF"><img src="Images/Down.gif" width="56" height="10" align="absmiddle"><%=Rs(19)%>&nbsp;<img src="Images/count.gif" width="38" height="10" align="absmiddle"><%=Rs(18)%></td></tr><tr><td width="16%" align="center" bgcolor="#F0F0F0">下载限制</td><td width="39%" bgcolor="#FFFFFF"><%=Rs(15)%></td></tr><tr><td width="16%" align="center" bgcolor="#F0F0F0">软件添加</td><td width="39%" bgcolor="#FFFFFF"><%=Rs(20)%></td></tr><tr><td width="16%" align="center" bgcolor="#F0F0F0">界面预览</td><td width="39%" bgcolor="#FFFFFF"><script name="Zoom Browser Window" language="javascript">
<!--
var zBox,zStep=0,zLink
function doZoom() {
zStep+=1;zPct=(10-zStep)/10
if (document.layers) {
zBox.moveTo(toX+zPct*(fromX-toX),toY+zPct*(fromY-toY));
zBox.document.open();
zBox.document.write("<table width='"+maxW*(1-zPct)+"' height="+maxH*(1-zPct)+" border=2 cellspacing=0><tr><td></td></tr></table>");
zBox.document.close();
}else{
zBox.style.border="2px solid #999999";
zBox.style.left=toX+zPct*(fromX-toX);
zBox.style.top=toY+zPct*(fromY-toY);
zBox.style.width=maxW*(1-zPct);
zBox.style.height=maxH*(1-zPct);
}
zBox.style.visibility="visible";
if  (zStep < 10) setTimeout("doZoom("+fromX+","+fromY+","+toX+","+toY+")",30);
else{zBox.style.visibility='hidden';zStep=0;
if (zLink) {
var w=window.open(''+ zLink + '','','width='+maxW+',height='+maxH+',left='+adjX+',top='+adjY+',scrollbars=yes,resizable');
}
}
}

function Lvl_Zoom(evt,zlink,maxw,maxh,tox,toy) {
if (arguments.length > 2)
scrollH=(window.pageYOffset!=null)?window.pageYOffset:document.body.scrollTop;
maxW=maxw?maxw:window.innerWidth?innerWidth:document.body.clientWidth;
maxH=maxh?maxh:window.innerHeight?innerHeight:document.body.clientHeight;
toX=tox?tox:0;
toY=(toy?toy:0)+scrollH;
fromX=evt.pageX?evt.pageX:evt.clientX;
fromY=(evt.pageY?evt.pageY:evt.clientY)+(document.all?scrollH:0);
adjX=toX+evt.screenX-fromX;
adjY=toY+evt.screenY-fromY;
if (document.createElement && document.body.appendChild && !zBox) {
zBox=document.createElement("div");
zBox.style.position="absolute";
document.body.appendChild(zBox);
}else if (document.all && !zBox) {
document.all[document.all.length-1].outerHTML+='<div id="zBoxDiv" style="position:absolute"></div>';
zBox=document.all.zBoxDiv;
}else if (document.layers && !zBox) {
zBox=new Layer(maxW);zBox.style=zBox;
}
zLink=zlink;
doZoom();
}
//-->
</script><%If Rs(8)<>"" Then
Dim Images
Images=Split(Rs(8),",")%><a href="javascript:;" onClick="Lvl_Zoom(event,'ViewImages.asp?Id=<%=Id%>',600,500,0,0)" style="cursor:hand" class="SoftMeun"><img src="Images/Picture.gif" width="24" height="22" alt="&lt;img src=ImageShow.asp?filename=<%=Images(0)%> border=1 width=150 height=150&gt;" border="0"></a><%End If%></td></tr><tr><td width="16%" align="center" bgcolor="#F0F0F0">相关链接</td><td width="39%" bgcolor="#FFFFFF"><%If Rs(9)<>"" Then%><a href="<%=Rs(9)%>" target="_blank" class="SoftMeun"><img src="Images/link.gif" width="45" height="9" border="0"></a><%End If%></td></tr><tr><td width="16%" align="center" bgcolor="#F0F0F0">演示地址</td><td width="39%" bgcolor="#FFFFFF"><%If Rs(10)<>"" Then%><a href="<%=Rs(10)%>" target="_blank" class="SoftMeun"><img src="Images/website.gif" width="45" height="9" border="0"></a><%End If%></td></tr><tr><td width="16%" align="center" bgcolor="#F0F0F0">下载地址</td><td width="39%" bgcolor="#FFFFFF"><%Dim DRs,x,Counturl
Counturl=Conn.Execute("EXECUTE NetCom_Download_CountUrl "&Id&"")(0)

Set DRs=Conn.Execute("EXECUTE NetCom_Download_Url "&Id&"")
If Counturl>1 Then
x=1
While Not DRs.EOF
Response.Write ("<a href=""DownloadUrl.asp?Id="&Id&"&Sid="&DRs(1)&"&DUid="&DRs(0)&""" class=""SoftMeun""><b>"&x&"."&DRs(2)&"</b></a><br>")
DRs.MoveNext
x=x+1
Wend
ElseIf Counturl<>0 Then
Response.Write ("<a href=""DownloadUrl.asp?Id="&Id&"&Sid="&DRs(1)&"&DUid="&DRs(0)&""" class=""SoftMeun""><b>"&DRs(2)&"</b></a>")
Else
Response.Write ("无下载地址")
End If
DRs.Close
Set DRs=Nothing%></td></tr><tr><td width="16%" align="center" bgcolor="#F0F0F0">&nbsp;</td><td width="39%" bgcolor="#FFFFFF">&nbsp;</td></tr><tr><td width="16%" align="center" bgcolor="#F0F0F0" valign="middle">软件简介</td><td bgcolor="#FFFFFF" colspan="3"><%=UBBCode(Rs(12))%></td></tr><tr><td width="16%" align="center" bgcolor="#F0F0F0">相关软件</td><td bgcolor="#FFFFFF" colspan="3"><%Set DRs=Conn.Execute("EXECUTE NetCom_Download_Interfix "&Id&",'"&Rs(11)&"'")
If Not(DRs.Eof) Then%><table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="#EEEEEE">
<%While Not DRs.EOF%><tr><td bgcolor="#FFFFFF" width="5%" align="center"><img src="Images/Dot.gif" width="6" height="7"></td><td bgcolor="#FFFFFF" onMouseOver="javascript:this.bgColor='#F7F7F7';this.style.cursor='default';" onMouseOut="javascript:this.bgColor='#FFFFFF';" width="95%"><a href="Viewdownload.asp?Id=<%=DRs(0)%>" class="SoftMeun"><%=DRs(1)%></a></td></tr><%DRs.MoveNext
Wend
DRs.Close
Set DRs=Nothing%></table><%Else%>暂无相关软件<%End If%></td></tr><tr><td width="16%" align="center" bgcolor="#F0F0F0">上下软件</td><td bgcolor="#FFFFFF" colspan="3"><table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="#EEEEEE"><tr bgcolor="#FFFFFF"><td width="5%" align="middle"><img src="Images/Dot_3.gif" width="9" height="8" alt="上一个软件"></td><td onMouseOver="javascript:this.bgColor='#F7F7F7';this.style.cursor='default';" onMouseOut="javascript:this.bgColor='#FFFFFF';" width="95%"><%Set DRs=Conn.Execute("EXECUTE NetCom_Download_Close 1,"&Id&","&Rs(2)&"")
If DRs.Eof Then
Response.Write ("无软件")
Else
Response.Write ("<a href=""Viewdownload.asp?Id="&DRs(0)&""" class=""SoftMeun"">"&DRs(1)&"</a>")
End If
DRs.Close
Set DRs=Nothing
%></td></tr><tr bgcolor="#FFFFFF"><td width="5%" align="middle"><img src="Images/Dot_4.gif" width="9" height="8" alt="下一个软件"></td><td onMouseOver="javascript:this.bgColor='#F7F7F7';this.style.cursor='default';" onMouseOut="javascript:this.bgColor='#FFFFFF';" width="95%"><%Set DRs=Conn.Execute("EXECUTE NetCom_Download_Close 2,"&Id&","&Rs(2)&"")
If DRs.Eof Then
Response.Write ("无软件")
Else
Response.Write ("<a href=""Viewdownload.asp?Id="&DRs(0)&""" class=""SoftMeun"">"&DRs(1)&"</a>")
End If
DRs.Close
Set DRs=Nothing
%></td></tr></table></td></tr><tr><td width="16%" align="center" bgcolor="#F0F0F0">搜索引擎</td><td bgcolor="#FFFFFF" colspan="3"><table width="100%" border="0" cellpadding="0" cellspacing="0" align="center"><form name="form1" method="post" action="SearchDownload.asp?Action=Query"><tr><td><select style="width:100;height:40px;font-size:12px" name="option"><option value="1" selected>软件名称</option><option value="2">软件简介</option></select><input name="keyword" type="text" id="keyword" class="inputC"><input type="submit" name="Submit" value="搜索" class="input1"><INPUT type="button" value="高级搜索" onClick="window.location.href='SearchDownload.asp?Action=AdSearch'" class="input1"></tr></form></table></td></tr><tr><td width="16%" align="center" bgcolor="#F0F0F0">下载说明</td><td bgcolor="#FFFFFF" colspan="3"><table width="100%" border="0" cellpadding="2" cellspacing="0" align="center"><tr><td>·本站免费软件仅供校园测试使用</td></tr></table></td></tr></table></td></tr><tr><td width="100%" align="center" bgcolor="#F0F0F0" colspan="4"><fieldset><legend align="center"></legend>
</fieldset></td></tr></table><%End If
Rs.Close
Set Rs = Nothing
Call CloseDatabase()%></td></tr></table>
<!--#include file="bottom.asp"-->
</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -