<% ' 與資料庫連線 Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("../fpdb/download.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "select * from download where fileid=" & Request.Querystring("fileid") , conn,1,3 %> 管理模式--修改 <% ' 讀取資料 fileid = Request.Querystring("fileid") ProgramName = rs("ProgramName") FileName = rs("FileName") message = rs("message") version = rs("version") filesize = rs("filesize") updates = rs("updates") rs.close SET CONN = NOTHING %>

管理系統

編  號 <%=fileid%>
檔案名稱
連結路徑
說  明
繁簡體
檔案大小
更新日期
">