📄 down.asp

📁 俄罗斯方块源码俄罗斯方块源码俄罗斯方块源码

💻 ASP

字号:

<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<%
dim id:id=request("id")

if not isinteger(id) then
  response.write "<font color=red size=2>请指定要下载的Flash！</font>"
else
  set rs=server.createobject("adodb.recordset")
  sql="select F.*,A.email from flash F inner join Author A on F.username=A.username where F.id="&id
  rs.open sql,conn,1,3
  
  if rs.bof and rs.eof then
    rs.close:set rs=nothing
	call closeconn()
    response.write "<font color=red size=2>找不到Flash</font>"
    response.end
  else
   rs("downnum")=rs("downnum")+1
   rs.update
  end if
 
dim url
if rs("folder")<>"" then 
 url=rs("folder")&"/"&rs("url")
else
 url=rs("url")
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=sitename%> - 动画下载</title>
<link href="style.css" rel="stylesheet" type="text/css">
<script language=javascript src="inc/mouse_up.js"></script>
</head>

<body background="images/bg.gif" leftmargin="0" topmargin="0">
<table width="500" border="1" cellpadding="5" cellspacing="3" bordercolor="#000000">
  <tr>
    <td align="center" bgcolor="#FFCC66"><b><%=rs("flashname")%></b></td>
  </tr>
  <tr>
    <td bgcolor="#CCCCCC">· 作者: <%=rs("username")%> <a href="mailto:<%=rs("email")%>"><img src="images/email2.gif" alt="发邮件给作者.." width="24" height="11" border="0"></a></td>
  </tr>
  <tr>
    <td bgcolor="#CCCCCC">· 上传时间： <%=formatdatetime(rs("dateandtime"),2)%>　档案大小： <%=rs("fsize")%> k 下载次数： <%=rs("downnum")%></td>
  </tr>
  <tr>
    <td bgcolor="#CCCCCC">· 档案简介：<%=rs("remark")%></td>
  </tr>
  <tr>
    <td bgcolor="#CCCCCC">· <a href="<%=url%>" title="点右键，选择“目标另存为...”">点击这里下载--&gt;<img src="images/down_icon.gif" width="20" height="20" border="0" align="absmiddle"></a> 
      　<font color="#FF0000">下载方法：点右键，选择“目标另存为...”</font></td>
  </tr>
</table>
</body>
</html>
<%
end if
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -