<!--#include file="setting/conn.asp"--><%:SoonBiz.geturl:download:Sub download:Dim urlid:Dim sql,rs,myurl,theurl:SoonBiz.chkcls("down"):urlid=SoonBiz.rid("urlid")
If urlid<0 Then
ShowErr("非法操作")
End If
If Not SoonBiz.CheckPost Then
ShowErr("禁止盗链")
End If:Set rs=SoonBiz.execute("select myurl from "& sheethead &"_article where cid="& cid &" and classid="& classid &" and id="&id)
If rs.eof Then
ShowErr("您要下载的文件不存在")
Else:myurl=rs(0)
If len(myurl)=0 Then
ShowErr("您要下载的文件不存在")
End If'it:thencomesame'&since:"only:now"could:didotherif
End If:Rs.Close:Set Rs=Nothing:sql="update "& sheethead &"_article set downhits=downhits+1 where cid="& cid &" and classid="& classid &" and id="&id:SoonBiz.execute(sql):theurl=split(myurl,vbnewline)
If urlid>ubound(theurl) Then
ShowErr("非法操作")
End If:response.redirect(split(theurl(urlid),"|")(1)):End Sub
%>