show.asp

三鸟个人网站源码。

<!--#include file="db/user.asp" -->
<LINK href="style.css" type=text/css rel=STYLESHEET>

<%
if request("id")="" then
	response.write "非法操作，请确认程序是否正常运行"
	response.end
end if
if request("down")<>"" then
	call down()
	response.end
end if
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM download where id="&request("id")
rs.OPEN sql, Conn,1,3
if rs.eof and rs.bof then
	response.write "没有该软件"
	response.end
end if
rs("count")=rs("count").value+1
rs.update
%>
<center><br><br>
<table bgcolor=white border=1 cellpadding=5 cellspacing=0 style='border-collapse:collapse' bordercolor=#C0C0C0 width=500>
  <tr>
<td width=50% colspan=2 bgcolor=#F5F5F5><b><%=rs("name")%></b></td>
<td width=50% colspan=2 align=right bgcolor=#F5F5F5>
<%if rs("demo")<>"" then%>
<a class=shadow1 href='<%=rs("demo")%>' target=_blank>演示</a>
<%else%>
<font color=#cdcdcd>演示</font>
<%end if%>
</td>
</tr>
<tr>
<td width=15% bgcolor=#efefef align=center>更新日期</td>
<td width=35% bgcolor=white><%=rs("time")%></td>
<td width=15% bgcolor=#efefef align=center>程序类别</td>
<td width=35% bgcolor=white><%=rs("big")%>￤<%=rs("sort")%></td> 
</tr> 
<tr> 
<td width=15% bgcolor=#efefef align=center>文件大小</td> 
<td width=35% bgcolor=white><%=rs("size")%></td> 
<td width=15% bgcolor=#efefef align=center>授权方式</td> 
<td width=35% bgcolor=white><%=rs("mode")%></td> 
</tr> 
<tr> 
<td width=15% bgcolor=#efefef align=center>应用平台</td> 
<td width=35% bgcolor=white><%=rs("roof")%></td> 
<td width=15% bgcolor=#efefef align=center>推荐程度</td> 
<td width=35% bgcolor=white><img src='./images/<%=rs("commend")%>' width=55 height=12></td> 
</tr> 
<tr> 
<td width=15% bgcolor=#efefef align=center>程序主页</td> 
<td width=35% bgcolor=white>
<%if rs("homepage")<>"" then%>
<a href='<%=rs("homepage")%>' target=_blank>Home Page</a>
<%else%>
Home Page
<%end if%>
</td> 
<td width=15% bgcolor=#efefef align=center>下载/浏览</td> 
<td width=35% bgcolor=white><%=rs("downcount")%>/<%=rs("count")%></td> 
</tr> 
<tr> 
<td width=15% bgcolor=#efefef align=center>下载地址</td> 
    <td width=85% bgcolor=white colspan=3><a href='show.asp?id=<%=rs("id")%>&down=1'>下载1</a> 
      <%if rs("down2")<>"" then%>
      <a href='show.asp?id=<%=rs("id")%>&down=2' target="_blank">下载2</a> 
      <%end if%>
      <%if rs("down3")<>"" then%>
      <a href='show.asp?id=<%=rs("id")%>&down=3'>下载3</a> 
      <%end if%>
      <%if rs("down4")<>"" then%>
      <a href='show.asp?id=<%=rs("id")%>&down=4'>下载4</a> 
      <%end if%>
      <%if rs("down5")<>"" then%>
      <a href='show.asp?id=<%=rs("id")%>&down=5'>下载5</a> 
      <%end if%>
    </td> 
</tr> 
<tr> 
<td width=100% colspan=4 bgcolor=#FFFFFF style='table-layout: fixed; word-break: break-all; border-bottom-style: solid; border-bottom-color: #FFFFFF'>
简介： 
<%if rs("pic")<>"" then%>
<a href='<%=rs("pic")%>' target=_blank><img src='./images/img.gif' title='点击查看图片' border=0></a>
<%end if%>
</td> 
</tr> 
<tr>   
<td width=100% colspan=4 bgcolor=#FFFFFF style='table-layout: fixed; word-break: break-all; text-indent: 40; border-top-style: solid; border-top-color: #FFFFFF'>  
<%=rs("show")%>
</td>   
</tr>   
</table> 
<br> 
<br> 
<center> 
</center> 

</body> 
</html>
<%
sub down()
Set rdown = Server.CreateObject("ADODB.Recordset")
sqldown="SELECT * FROM download where id="&request("id")
rdown.OPEN sqldown, Conn,1,3
downl=request("down")
if downl>"5" then
	response.write "没有该下载地址"
	response.end
end if
if downl="1" then
%>
<META HTTP-EQUIV=REFRESH CONTENT='0;URL=<%=rdown("down1")%>'>
<%
	rdown("downcount")=rdown("downcount").value+1
	rdown.update
elseif downl="2" then
%>
<META HTTP-EQUIV=REFRESH CONTENT='0;URL=<%=rdown("down2")%>'>
<%
	rdown("downcount")=rdown("downcount").value+1
	rdown.update
elseif downl="3" then
%>
<META HTTP-EQUIV=REFRESH CONTENT='0;URL=<%=rdown("down3")%>'>
<%
	rdown("downcount")=rdown("downcount").value+1
	rdown.update
elseif downl="4" then
%>
<META HTTP-EQUIV=REFRESH CONTENT='0;URL=<%=rdown("down4")%>'>
<%
	rdown("downcount")=rdown("downcount").value+1
	rdown.update
elseif downl="5" then
%>
<META HTTP-EQUIV=REFRESH CONTENT='0;URL=<%=rdown("down5")%>'>
<%
	rdown("downcount")=rdown("downcount").value+1
	rdown.update
end if
rdown.close
set rdown=nothing
end sub
rs.close
set rs=nothing
conn.close
set conn=nothing
%>