Random file name

Et rimeligt skudsikkert princip er at bruge klokkeslettet - hvis du tager millisekunder med er du ret sikker på, at det bliver unikt. Navnet bliver dog besværligt at genkende bagefter.

Sådan, her har jeg valgt html sider
Option Explicit

Response.Expires = 1

DIM fileSystem, folderName, folder, fileList, file, dataFile, fileName
DIM htmlList(100), lowerBound, upperBound, count, pick, nextLine

lowerbound=0

folderName = Server.MapPath(".")&"\startup"
Set fileSystem = CreateObject("Scripting.FileSystemObject")
Set folder = fileSystem.GetFolder(folderName)

Set fileList = folder.Files

for each file in fileList
if (right(file.Name, 4) = "html" OR right(file.Name, 4) = "HTML") THEN
htmlList(count) = file.Name
count=count+1
end if
next

upperBound = count-1

Randomize()
pick = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

fileName = Server.MapPath(".")&"\startup\"+htmlList(pick)

Set dataFile = fileSystem.OpenTextFile(fileName, 1, FALSE, FALSE)
while dataFile.AtEndOfStream <> True
nextLine=dataFile.ReadLine
Response.write(nextLine)
wend
dataFile.Close

Set dataFile = Nothing
Set fileList = Nothing
Set folder = Nothing
Set fileSystem = Nothing

Eks hvor jeg uplaoder en fil og giver den filnavet/tallet som svare til det ID i databasen til høre til:


Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.SaveToMemory    'Save to memory

Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM tabel"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../../log/database.mdb")
rs.Open strSQL, strDSN, 1, 3

strTitel = Upload.Form("Titel")
strTekst = Upload.Form("Tekst")

rs.AddNew
rs("Titel") = strTitel
rs("Tekst") = Replace(strTekst, vbCrLf, "<br>")
rs.Update
id = rs("id")

Set file = Upload.Files("FILE1")
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
file.SaveAs Server.MapPath("/images/" & id & "." & FSO.GetExtensionName(file.ExtractFileName))


Så du kan give fin fil navnet som svare til det ID i databasen den tilhøre.

Tak for deltagelsen og den hurtige respons
Jeg vil gerne dele pointene imellem hossein og eagleeye
Da I begge har givet mig eksempler som jeg har kunne bruge til noget..

Så hvis lige hossein vil lægge et svar :) så kan vi få det overstået.

/boot

selv tak!