then you need to make the cover page a cgi page or server page (asp,jsp,php...), something like this in ASP:<script language="vbscript" runat="server"> sub CreateLink (folderspec, sPattern) Dim oRegExp, oMatches Dim fso, f, f1, fc, sset oRegExp = New RegExpoRegExp.Pattern = sPattern oRegExp.IgnoreCase = True Set fso = CreateObject("Scripting.FileSystemObject")Set f = fso.GetFolder(folderspec) Set fc = f.Files For Each f1 in fc Set oMatches = oRegExp.Execute(f1.name)
if oMatches.Count > 0 then Response.Write "<a href='" & f1.name & "'>" & oMatches(0).SubMatches(0) & "</a> " end if Nextset fso=nothing set oRegExp = nothing end sub </script><% CreateLink Server.MapPath("."), "abc([^.]*)[.]html?" %> so if you have abc1101.htm, abc1102.html in the current directory, the above code will generate:<a href='abc1101.htm'>1101</a> <a href='abc1102.html'>1102</a>
sub CreateLink (folderspec, sPattern)
Dim oRegExp, oMatches
Dim fso, f, f1, fc, sset oRegExp = New RegExpoRegExp.Pattern = sPattern
oRegExp.IgnoreCase = True Set fso = CreateObject("Scripting.FileSystemObject")Set f = fso.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc Set oMatches = oRegExp.Execute(f1.name)
if oMatches.Count > 0 then Response.Write "<a href='" & f1.name & "'>" & oMatches(0).SubMatches(0) & "</a> " end if
Nextset fso=nothing
set oRegExp = nothing
end sub
</script><%
CreateLink Server.MapPath("."), "abc([^.]*)[.]html?"
%>
so if you have abc1101.htm, abc1102.html in the current directory, the above code will generate:<a href='abc1101.htm'>1101</a> <a href='abc1102.html'>1102</a>
if( document.links[i]==NameOfA)
document.links[i].href="YourUrl"