在脚本上编辑字体和颜色

我的脚本显示文件夹中的所有图像。在第一页上显示所有文件夹的列表。我想将字体更改为verdana，将颜色更改为黑色。有没有人有任何想法我可以做到这一点？在脚本上编辑字体和颜色

<% 
Const ForReading = 1, ForWriting = 2, ForAppending = 3 
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 

qfolder = request.querystring("f") 
if qfolder = "" then 
    folderspec = server.mappath(".") 
    Set filesys = CreateObject("Scripting.FileSystemObject") 
    Set demofolder = filesys.GetFolder(folderspec) 
    Set folcoll = demofolder.SubFolders 
    For Each subfol in folcoll 
     folsize = left((subfol.size/1000000), 3) 
     folist = folist & "<a href='?f=" & subfol.name & "'><strong title='view'></strong> " & subfol.Name & "" & vbcrlf 
     folist = folist & "<BR>" 
    Next 
    set filesys = nothing 
    Response.Write folist 

else 

filepath = server.mappath(".") & "\" & qfolder 
captionfile = filepath & "\captions.txt" 
Set filesys = CreateObject("Scripting.FileSystemObject") 
Dim SomeArray() 
'caption part 
    If filesys.FileExists(captionfile) then 
     set file = filesys.GetFile(captionfile) 
     Set TextStream = file.OpenAsTextStream(ForReading,TristateUseDefault) 
     captioncount = 0 
     Do While Not TextStream.AtEndOfStream 
      Line = TextStream.readline 
      ReDim Preserve SomeArray(captioncount) 
      SomeArray(captioncount) = line 
      'response.write captioncount & " " & somearray(captioncount) & "" 
      captioncount = captioncount + 1 
      'Response.write Line 
     Loop 
     textStream.close 
    end if 

'folder part 
    Set demofolder = filesys.GetFolder(filepath) 
    Set filecoll = demofolder.Files 
    filecount = 0 
    For Each file in filecoll 
     Ext = UCase(Right(File.Path, 3)) 
     If Ext = "JPG" OR Ext = "GIF" OR Ext = "PNG" Then 
     on error resume next 
     data = SomeArray(filecount) 
     on error goto 0 
     hrefpath = qfolder & "/" & file.name 
     imagepath = "<strong>" & data & "</strong><a href='" & hrefpath & "' title='free image gallery' border=0><img width=200 height=150 src='" & hrefpath & "' border='" & border_size & "' title=""" & data & """ style='border-color: " & border_color & ";'></a>" 
     filist = filist & imagepath & vbcrlf 
     filist = filist & "" 
     filecount = filecount + 1 
     data = "" 
     end if 
    Next 
    set filesys = Nothing 
    filist = filist & "<small><a href='http://www.allscoop.com/' target='_blank'></a></small>" 
%> 

<h3><a href="." title="Back"><img src="arrow.jpg" alt="Back" height="16" width="20" /></a> 
&nbsp;<%=qfolder%></h3> 

<p><%=filist%></p> 

<% end if %>

来源

2012-07-18 Ross

这只是CSS/HTML ...

<style> 
a { 
    font-family:Verdana; 
    color: #000000; 
} 
</style>

，使各个环节的黑色和Verdana ...

来源

2012-07-19 14:03:33 ulluoink

在脚本上编辑字体和颜色

回答

相关问题