[.NET 2.0] Emigrering af FSO fra ASP til ASP.NET
hey der - jeg sidder med en webusercontroller der skal returnere noget CSS. Grunden til at CSS'et ikke 'bare' kan smides i et normalt CSS er at det indeholder ASP-kode der generere CSS'et hver gang siden loades. Derfor havde CSS'et oprindeligt også en .asp-extension men ASP.NET 2.0 understøtter ikke .asp istedet for .css længere og jeg er nu tvunget til at ommøblere min kode for samme resultat.Jeg har derfor besluttet at smide den del af CSS'et som er randomgenereret over i en webusercontroller der så kaster de nødvendige CSS-styles tilbage til default.aspx
Men den ASP-funktion der oprindeligt lå i CSS'et og autogenerede kode skal derfor også emigreres over i webusercontrolleren og jeg kan ikke rigtig se mig ud af det - eller jo. Jeg har splittet webusercontrolleren i to og jeg kunne jo i princippet bare drøne randomfunktionen ud i HTML-delen af webusercontrolleren men jeg ser det seje i at lave en getters/setters (Public Property bla bla) og til det formål skal den gamle FSO-ASP-kode laves til ASP.NET 2.0 - og spørgsmålet er så om det er muligt?
Funktionen er som følger:
<%
Function randomPictureGenerator(path)
Randomize()
Set filesys = CreateObject("Scripting.FileSystemObject")
Set demofolder = filesys.GetFolder(Server.MapPath(path))
Set folcoll = demofolder.SubFolders
Set demofile = filesys.GetFolder(Server.MapPath(path))
Set fileColl = demofile.Files
'For Each file in fileColl
' If Right(file.Name, 3) = "gif" Then
' i = i + 1
' End If
'Next
'r = int((i-1 +1 )* Rnd() + 1)
'randomPictureGenerator = r
For Each file in fileColl
i = i + 1
longString = longString & file.Name & "/"
Next
r = int(i*rnd())
sArray = longString
aArray = Split(sArray, "/")
randomPictureGenerator = aArray(r)
End Function
%>