<%@ ENABLESESSIONSTATE = FALSE %> <% dim classid,classname,typeid,typename if IsNumeric(Request.QueryString("id"))=False then Response.Redirect"info.asp?info=错误的参数" else id=cint(Request.QueryString("id")) end if set temprs=conn.execute("select typeid,classid,name from desktop where id="&id) typeid=temprs(0) classid=temprs(1) filename=temprs(2) set temprs=nothing set temprs=conn.execute("select name from class where id="&classid) classname=temprs(0) set temprs=nothing set temprs=conn.execute("select name from type where id="&typeid) typename=temprs(0) set temprs=nothing %>

<% sql = "SELECT * FROM desktop where id="&id Set rs = Server.CreateObject("ADODB.Recordset") rs.OPEN sql,Conn,1,3 rs("ck")=rs("ck")+1 rs.update if rs("lx")=1 then Response.Write"" elseif rs("lx")=0 then Response.Write"" end if Response.Write"" if rs("url")<>"" then Response.Write" 文件名称："&rs("name")&" | 文件大小："&rs("dx")&" | 察看次数："&rS("ck")&" | 添加时间："&rs("time")&" 文件简介："&rs("jj")&" 打 包 下 载" end if Response.Write" " rs.close Set rs=Nothing conn.close Set conn=Nothing %>