📄 myfiles.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<% Option Explicit %>
<!-- VSS generated file data
$Modtime: 10/24/97 10:24a $
$Revision: 18 $
$Workfile: myfiles.asp $
-->
<%
On Error Resume Next
Dim f, strDisplay, conn, Description, fc, fl, y, FileName, _
posFile, g, rs, sql, machine
'----------Localization Variables-----------------
Dim bckSlash, colon, semiColon, period, locMyPubFiles, locHome, _
locK, locSize, locDescription
bckSlash = chr(92)
colon = chr(58)
semiColon = chr(59)
period = chr(46)
locMyPubFiles = "My Published Files"
locHome = "Home"
locK = " KB" 'File Size
locSize = "Size "
'---------------Run Subs--------------
setSysObj
readDescriptions
'---------------Subs------------------
Sub setSysObj
Set FileSystem=CreateObject("Scripting.FileSystemObject")
Dim root, FileSystem, g, sc
root = server.mappath(bckSlash)
root = Trim(Left(root, instrRev(root, bckSlash)))
root = root + "webpub"
g = FileSystem.GetAbsolutePathName(root)
Set f=FileSystem.GetFolder(g)
Set sc = f.SubFolders
End Sub
Sub readDescriptions 'Read all file descriptions in publish.mdb
Dim strProvider, sql, rs, n, i
strProvider="DRIVER=Microsoft Access Driver (*.mdb); DBQ=" & Server.MapPath(bckSlash + "iisadmin") & bckSlash + "publish" + bckSlash + "publish.mdb" + semiColon
Set conn = Server.CreateObject("ADODB.Connection")
conn.open strProvider,"",""
sql = "SELECT FileList.FileName, FileList.FileDescription, FileList.FilePath FROM FileList ORDER BY FileList.FileName"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
If not rs.EOF Then
rs.movelast
n = rs.recordcount - 1
rs.movefirst
For i = 0 to n
strDisplay = strDisplay + rs.Fields("FileName").Value + " " + rs.Fields("FileDescription").Value + semiColon
rs.movenext
Next
End If
End Sub
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual InterDev 1.0">
<META HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
<!--#include virtual ="/iissamples/homepage/sub.inc"-->
<%
call stylesheet
Function writeFiles()
DIM strFiles, FileSize
'Read all file names in WebPub
Set fc = f.Files
strFiles = "<TABLE BORDER=0 cellspacing=0 cellpadding=1 width=""" & "90%" & """ height=""" & "100%" & """ class=bg0>"
g = ".." + bckSlash + ".." + bckSlash + "webpub" + bckSlash
For Each fl in fc
y = y + 1
FileName=fl.name
If strDisplay <> "" Then
posFile=instr(Ucase(strDisplay), Ucase(FileName))
If posFile <> 0 Then
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT FileList.FileName, FileList.FileDescription, FileList.FilePath FROM FileList WHERE FileList.FileName ='" + FileName + "'"
rs.Open sql, conn, 3, 3
Description = rs.Fields("FileDescription").Value
Else
Description = ""
End If
End If
If y Mod 2 <> 0 Then
strFiles = strFiles & "<TR>"
End If
FileSize = Int((fl.size/1024) + .5)
strFiles = strFiles & "<TD HEIGHT=10 WIDTH='50%'><IMG SRC='file.gif' WIDTH=13 HEIGHT=16 BORDER=0> "
strFiles = strFiles & "<A HREF='" & g & fl.name & "'>" & fl.name & "<A/><BR>" & locSize & FileSize & locK & "<BR>" & Description & "</TD>"
If y Mod 2 = 0 Then
strFiles = strFiles & "</TR>"
End If
Next
strFiles = strFiles & "</TABLE>"
writeFiles = strFiles
End Function
machine= Request.ServerVariables("SERVER_NAME")
%>
</HEAD>
<BODY BGCOLOR="#FFFFFF" TOPMARGIN="0" LEFTMARGIN="0">
<TABLE BORDER=0 cellspacing=0 cellpadding=5 width="100%" height="100%" class=bg0>
<TR ALIGN="CENTER">
<TD Rowspan="3" Width="50" Height="100%" class=bg1> </TD>
<TD Rowspan="3" Width="50" Height="100%" class=bg2> </TD>
<TD Height=65 Colspan=3 class=bg3>
<FONT style='font-family:verdana;font-size:24pt'><%=locMyPubFiles%></Font>
<FORM NAME="frmHOME" METHOD="POST" ACTION="HTTP://<%=machine%>/default.asp">
<INPUT TYPE="SUBMIT" VALUE=" <%=locHome%> ">
</FORM>
</TD>
</TR>
<TR ALIGN="CENTER"><TD>
<%
response.write writeFiles()
%>
</TD>
</TR>
<TR>
<TD WIDTH="100%" HEIGHT="25"> </TD>
</TR>
</TABLE>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -