down.asp

狼道公司源码下载

<!--#include file="Inc/Conn.asp" -->
<!--#include file="Inc/Function.asp" -->
<%
ID=Request("ID")
if ID="" or not isnumeric(ID) then
  Response.Redirect("DownLoad.asp")
end if

Set rs=server.CreateObject("adodb.recordset")
rs.open "select DownAddress,DNumber from DownLoad where ID="&ID,Conn,3,3
if not rs.eof then
  DownAddress=rs("DownAddress")
  rs("Dnumber")=rs("DNumber")+1
  rs.update
end if
rs.close
set rs=nothing
Response.Redirect("Down/"&DownAddress)
%>