麻烦各位高手说的详细点哦
用简单语句表达一下：）

Dim AddFlag
AddFlag = False '标记下载的记录是否存在，以确定下面是否需要执行添加下载记录和下载程序
sql="select * from [稿件表] where ID='"& ID &"' "
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
'开始取出下载记录的值
value1= rs("字段1")
value2= rs("字段2")
value3= rs("字段3")
……
AddFlag = true '标记下载的记录存在，以确定下面是否需要写下载记录和执行下载程序
end if
rs.close
set rs = nothing

if AddFlag = True then
'……
Rs.Addnew
'把以上的vlaue1,value2.value3等值写入登记表中
Rs.Update
'……
' 执行下载程序
response.write("下载成功！")
else
response.write("你要下载的记录不存在！")
end if