📄 softdownshow.asp

📁 这是作的一个网站,修改很方便,可以做网站设计.管理登陆：admin.asp 帐号和密码：admin/admin
💻 ASP
字号:
<!--#include file="Gaobei_head.asp" -->
<%sub navigation()%>
&gt;&gt; 软件下载
<%end sub%>
<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="778" height="50" bgcolor="#EFEFE7">
		<tr>
			<td width="218" valign="top">
<% call Gaobei_userlogin() %>
<% call Gaobei_SoftDownClass() %>
<% 'call Gaobei_CallSearch() %>
<% call Gaobei_HotSoftDown() %>
<% 'call Gaobei_Search() %>
<% call Gaobei_vote() %>
</td>
			<td width="560" valign="top">
<div align="center">
				<table border="0" cellpadding="0" cellspacing="0" width="550" height="20" id="table1" background="images/Gaobei_skin/Gaobei_infoview.gif">
					<tr>
						<td>　</td>
					</tr>
				</table>
</div>
<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="550" height="5">
		<tr>
			<td></td>
		</tr>
	</table>
</div>
<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="550" height="160">
		<tr>
			<td bgcolor="#FFFFFF" width="100%">   
<!--文章浏览开始-->
<%
    Dim SoftID,FoundErr,ErrMsg,S_SoftName,S_SoftSize,S_SoftSizeUnit,S_SoftAddTime,S_SoftLicenceType
    Dim S_SoftType,S_SoftLang,S_SoftGrade,S_SoftRunEnvi,S_SoftPic,S_SoftDemoUrl
    Dim S_SoftAuthUrl,S_SoftRemark,S_SoftBrowseCount,S_SoftDownCount,S_SoftKeyWord
    Dim S_SoftDown1,S_SoftDown2,S_SoftDown3,S_SoftDown4,S_SoftDown5
    Dim S_SoftDownName1,S_SoftDownName2,S_SoftDownName3,S_SoftDownName4,S_SoftDownName5
    Dim SoftClassID
    SoftID=Trim(Request("SoftID"))
    If IsNumeric(SoftID) = False Then
    GoError "软件ID参数错误，请不要试图破坏此系统。"
    End If
    '下载浏览记数
    set rs=server.createobject("adodb.recordset")
    Sql="Select S_SoftBrowseCount From SoftData Where S_ID="&SoftID
    Rs.Open Sql,Conn,1,1
    If Not Rs.Eof Then
    Conn.execute "update SoftData set S_SoftBrowseCount=S_SoftBrowseCount+1 where S_ID="&SoftID
    End If
    Rs.Close
    set rs=server.createobject("adodb.recordset")
    Sql="Select * From SoftData Where S_ID="&SoftID
    Rs.Open Sql,Conn,1,1
    If Not Rs.Eof Then
    S_ID=Rs("S_ID")
    S_SoftName=Rs("S_SoftName")
    SoftClassID=Rs("S_SoftClassID")
    S_SoftSize=Rs("S_SoftSize")
    S_SoftSizeUnit=Rs("S_SoftSizeUnit")
    S_SoftAddTime=Rs("S_SoftAddTime")
    S_SoftLicenceType=Rs("S_SoftLicenceType")
    S_SoftType=Rs("S_SoftType")
    S_SoftLang=Rs("S_SoftLang")
    S_SoftGrade=Rs("S_SoftGrade")
    S_SoftRunEnvi=Rs("S_SoftRunEnvi")
    S_SoftPic=Rs("S_SoftPic")
    S_SoftBigPic=Rs("S_SoftBigPic")
    S_SoftDemoUrl=Rs("S_SoftDemoUrl")
    S_SoftAuthUrl=Rs("S_SoftAuthUrl")
    S_SoftDownName1=Rs("S_SoftDownName1")
    S_SoftDown1=Rs("S_SoftDown1")
    S_SoftDownName2=Rs("S_SoftDownName2")
    S_SoftDown2=Rs("S_SoftDown2")
    S_SoftDownName3=Rs("S_SoftDownName3")
    S_SoftDown3=Rs("S_SoftDown3")
    S_SoftDownName4=Rs("S_SoftDownName4")
    S_SoftDown4=Rs("S_SoftDown4")
    S_SoftDownName5=Rs("S_SoftDownName5")
    S_SoftDown5=Rs("S_SoftDown5")
    S_SoftRemark=Rs("S_SoftRemark")
    S_SoftBrowseCount=Rs("S_SoftBrowseCount")
    S_SoftDownCount=Rs("S_SoftDownCount")
    S_SoftKeyWord=Rs("S_SoftKeyWord")
    Else
	FoundErr=True
	ErrMsg=ErrMsg & "<br><li>无此软件信息或已被删除！</li>"
    End If
    Rs.Close
    if FoundErr=True then
	WriteErrMsg()
	Response.End
    End If
    WebTitle=S_SoftName
%>
  <table width="550"  border="0" cellpadding="0" cellspacing="0">
    <tr>
      <td valign="top">
        <table width="550" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#CECFCE">
          <tr bgcolor="#FFFFFF">
            <td colspan="3"><div align="center"><strong><font color="#ff0000"><%=S_SoftName%></font></strong></div></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td width="100" bgcolor="#F7F7F7"><img border="0" src="Images/Gaobei_Guide.gif"> 软件大小：</td>
            <td width="171"  bgcolor="#F7F7F7"><%=S_SoftSize&S_SoftSizeUnit%></td>
            <td width="279" rowspan="12"><div align="center">
<% if S_SoftBigPic<>"" then %>
            <img border="0" src="<%=(S_SoftBigPic)%>"> 
<% else %>
<% Call Gaobei_AD(5) %>
<% end if %>
            </div></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td><img border="0" src="Images/Gaobei_Guide.gif"> 添加时间：</td>
            <td><%=S_SoftAddTime%></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td bgcolor="#F7F7F7"><img border="0" src="Images/Gaobei_Guide.gif"> 软件授权：</td>
            <td bgcolor="#F7F7F7"><%=S_SoftLicenceType%></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td><img border="0" src="Images/Gaobei_Guide.gif"> 软件类型：</td>
            <td><%=S_SoftType%></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td bgcolor="#F7F7F7"><img border="0" src="Images/Gaobei_Guide.gif"> 软件语言：</td>
            <td bgcolor="#F7F7F7"><%=S_SoftLang%></td>
          </tr>

          <tr bgcolor="#FFFFFF">
            <td><img border="0" src="Images/Gaobei_Guide.gif"> 软件等级：</td>
            <td><img src="images/zw_star<%=S_SoftGrade%>.gif"></td>
          </tr>

          <tr bgcolor="#FFFFFF">
            <td bgcolor="#F7F7F7"><img border="0" src="Images/Gaobei_Guide.gif"> 运行环境：</td>
            <td bgcolor="#F7F7F7"><%=S_SoftRunEnvi%></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td><img border="0" src="Images/Gaobei_Guide.gif"> 预览图片：</td>
            <td><%If S_SoftPic<>"" Then%>
              <a href="<%=S_SoftPic%>" target="_blank">点击查看</a>
<%
    Else
    Response.Write "无"
    End If
%>
</td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td bgcolor="#F7F7F7"><img border="0" src="Images/Gaobei_Guide.gif"> 程序演示：</td>
            <td bgcolor="#F7F7F7"><a href="<%=S_SoftDemoUrl%>" target="_blank">观看演示</a></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td><img border="0" src="Images/Gaobei_Guide.gif"> 开 发 商：</td>
            <td><a href="<%=S_SoftAuthUrl%>" target="_blank">官方主页</a></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td bgcolor="#F7F7F7"><img border="0" src="Images/Gaobei_Guide.gif"> 下载统计：</td>
            <td bgcolor="#F7F7F7">浏览：<font color="#FF0000"><%=S_SoftBrowseCount%></font> 下载：<font color="#FF0000"><%=S_SoftDownCount%></font></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td><img border="0" src="Images/Gaobei_Guide.gif"> 注册破解：</td>
            <td><iframe border=0  vspace=0 hspace=0 name=searchvip marginwidth=0 marginheight=0 framespacing=0 frameborder=0 scrolling=no height=12 width=150 src="http://template.union.163.com/search/tpl5.jsp?ID=zwbfw &NO=7200&boxColor=ffffff&fontsize=12&decor=none&txtColor=0000FF&Key=点击获得注册信息&keyword=<%=S_SoftName%>"></iframe></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td bgcolor="#F7F7F7"><img border="0" src="Images/Gaobei_Guide.gif"> 下载地址：</td>
            <td colspan="2" bgcolor="#F7F7F7">
			<%If S_SoftDown1<>"" Then%><img src="images/zw_download.gif" height="14"> <a href="SoftDownOpen.asp?SoftID=<%=S_ID%>&SoftUrlID=1" target="_blank"><%If S_SoftDownName1<>"" Then%><%=S_SoftDownName1%><%Else%><%=S_SoftName%><%End If%></a><br><%End If%>
			<%If S_SoftDown2<>"" Then%><img src="images/zw_download.gif" height="14"> <a href="SoftDownOpen.asp?SoftID=<%=S_ID%>&SoftUrlID=2" target="_blank"><%If S_SoftDownName2<>"" Then%><%=S_SoftDownName2%><%Else%><%=S_SoftName%><%End If%></a><br><%End If%>
			<%If S_SoftDown3<>"" Then%><img src="images/zw_download.gif" height="14"> <a href="SoftDownOpen.asp?SoftID=<%=S_ID%>&SoftUrlID=3" target="_blank"><%If S_SoftDownName3<>"" Then%><%=S_SoftDownName3%><%Else%><%=S_SoftName%><%End If%></a><br><%End If%>
			<%If S_SoftDown4<>"" Then%><img src="images/zw_download.gif" height="14"> <a href="SoftDownOpen.asp?SoftID=<%=S_ID%>&SoftUrlID=4" target="_blank"><%If S_SoftDownName4<>"" Then%><%=S_SoftDownName4%><%Else%><%=S_SoftName%><%End If%></a><br><%End If%>	
			<%If S_SoftDown5<>"" Then%><img src="images/zw_download.gif" height="14"> <a href="SoftDownOpen.asp?SoftID=<%=S_ID%>&SoftUrlID=5" target="_blank"><%If S_SoftDownName5<>"" Then%><%=S_SoftDownName5%><%Else%><%=S_SoftName%><%End If%></a><br><%End If%>
            <img src="images/zw_download.gif" height="14"> <iframe border=0  vspace=0 hspace=0 name=searchvip marginwidth=0 marginheight=0 framespacing=0 frameborder=0 scrolling=no height=12 src="http://template.union.163.com/search/tpl5.jsp?ID=zwbfw &NO=7200&boxColor=f7f7f7&fontsize=12&decor=none&txtColor=000000&Key=更多<%=S_SoftName%>下载地址&keyword=<%=S_SoftName%>"></iframe></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td><img border="0" src="Images/Gaobei_Guide.gif"> 软件简介：</td>
            <td colspan="2"><img border="0" src="Images/Gaobei_skin/Gaobei_ico.gif"> <%=(S_SoftRemark)%> </td>
          </tr>
          <tr bgcolor="#F7F7F7">
            <td colspan="3">
<% Call Gaobei_AD(6) %>
            </td>
          </tr>

          <tr bgcolor="#FFFFFF">
            <td><img border="0" src="Images/Gaobei_Guide.gif"> 关相软件：</td>
            <td colspan="2">
<%
    Set Rs=Conn.Execute("Select Top 3 S_ID,S_SoftName,S_SoftAddTime From SoftData Where S_SoftKeyWord='"&S_SoftKeyWord&"' And S_SoftName<>'"&S_SoftName&"' ORDER BY S_SoftAddTime DESC,S_ID DESC")
    If Not Rs.Eof Then
    Do While Not Rs.Eof
%>
              <img src="images/zw032.gif" width="7" height="7"> <a href="SoftDownShow.asp?SoftID=<%=Rs("S_ID")%>" title="软件名称：<%=Rs("S_SoftName")&vbcrlf%>添加时间：<%=Rs("S_SoftAddTime")%>次"><font color="#FF0000"><%=gotTopic(Rs("S_SoftName"),38)%></font></a><br>
<%
    Rs.MoveNext
    Loop
    End If
    Rs.Close
%>
			<img src="images/zw032.gif" width="7" height="7"> <iframe border=0  vspace=0 hspace=0 name=searchvip marginwidth=0 marginheight=0 framespacing=0 frameborder=0 scrolling=no height=12 src="http://template.union.163.com/search/tpl5.jsp?ID=zwbfw &NO=7200&boxColor=ffffff&fontsize=12&decor=none&txtColor=ff0000&Key=搜索更多与“<%=S_SoftName%>”相关的软件&keyword=<%=S_SoftName%>"></iframe>
			</td>
          </tr>
        </table>
      </td>
    </tr>
</table>
<!-- 文章浏览结束-->
</td>
		</tr>
	</table>
</div>
			</td>
		</tr>
	</table>
</div>
<!--#include file="Gaobei_foot.asp" -->
💿 文件大小 1003 K
👤 上传用户 hahuhuhuhu
📂 所属分类其他
🏷️ 相关标签

#admin #asp #网站 #修改
⌨️ 快捷键说明

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