<% '------------------------------ '文学爱好者 '此系统如有什么BGU请到本站发帖 '谢谢使用本系统 'http://www.py33.com 'py33.com@163.com '------------------------------ dim zhuid,typeid,types,zhu id = Request.QueryString("id") if id="" then Response.Write("错误参数") Response.End else set rs=server.createobject("adodb.recordset") sql="select learning.*,type.*,zhu.* from learning,type,zhu where learning.typeid=type.typeid and type.zhuid=zhu.zhuid and learning.articleid="&id rs.open sql,conn,1,1 typeid=rs("typeid") types=rs("type") zhuid=rs("zhuid") zhu=rs("zhu") %>

下载次数：

<%=rs("hits")%>

<%end if rs1.close set rs1=nothing conn.close set conn=nothing %>