|
|
|
|
|
<%
dbpwd="1631140" '数据库密码
db=server.MapPath("upload/Upload.mdb") '数据库名
set conn=Server.CreateObject("adodb.Connection")
connstr="driver={Microsoft Access Driver (*.mdb)};Pwd="&dbpwd&";dbq="&db
conn.open connstr
dim rs1,con
set rs1=server.createobject("adodb.recordset")
rs1.open "select top 3 * from Uplist where Upren='2' order by id desc",conn,1,1
if rs1.recordcount=0 then
response.Write("暂时没有文件！")
else %>
<% i=0
do until rs1.Eof or i = rs1.PageSize
con="| · "&left(trim(rs1("filename")),26)&" | "
response.Write(con)
rs1.movenext
i = i + 1
loop
end if
%>
|
|
|
