% ShowSmallClassType=ShowSmallClassType_Article dim ID ID=trim(request("ID")) if Id="" then response.Redirect("Download.asp") end if sql="select * from Download where ID=" & ID & "" Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,3 if rs.bof and rs.eof then response.write"" else rs("Hits")=rs("Hits")+1 rs.update %> <% title=rs("title")&" 下载" SiteContent=rs("Content") %>
|
|