 |
 |
 |
| |
<%
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"文件名稱："&rs("name")&" | 文件大小："&rs("dx")&" | 察看次數："&rS("ck")&" | 添加時間："&rs("time")&"
文件簡介："&rs("jj")&" | "
if rs("url")<>"" then
Response.Write"打 包
下 載"
end if
Response.Write" |
"
rs.close
Set rs=Nothing
conn.close
Set conn=Nothing
%>
|
|
|
 |
 |
 |
|
