Dannielsen jeg har forsøgt mig, men det vil ikke rigtig. Jeg bruger det stykke script - og vil gerne ha der hvor g_oFile.name står lavet om, så jeg kun får filnavnet uden .doc
Dim UPLOAD_PATH
UPLOAD_PATH = Server.MapPath(".")
Dim g_oFso, g_oFolder, g_oFile Set g_oFso = Server.CreateObject("Scripting.FileSystemObject") Set g_oFolder = g_oFso.getFolder(UPLOAD_PATH)
If (Request.ServerVariables("REQUEST_METHOD") = "POST") Then Dim g_oUpload Set g_oUpload = get_upload_files()
Dim fpos, fcontent fcontent = g_oUpload("upload").Item("content") Set g_oFile = g_oFso.CreateTextFile(UPLOAD_PATH & "\" & extract_filename(g_oUpload("upload").Item("filename"))) For fpos = 1 to LenB(fcontent) g_oFile.Write chr(AscB(MidB(fcontent, fpos, 1))) Next g_oFile.Close: Set g_oFile = Nothing
Response.Redirect Request.ServerVariables("SCRIPT_NAME") End If
Response.Write "<html><body><table class='plan'>"
Response.Write "<tr><td><font size='+1'><font color=""#0000FF"">" & g_ofolder.name & "</font></font></td></tr><tr><td><hr></td></tr>" For Each g_oFile In g_oFolder.Files if right(g_oFile.name,3) = "asp" then Response.write "" else Response.Write "<tr><td><a href=""" & g_oFile.name & """ target=_blank>" & g_oFile.name & "</a></td></tr>" end if Next Response.Write "<tr><td><hr></td></tr>"
- det var godt du selv fandt ud af det... for det lærer man jo mest af... ;-)
- her et svar for point.
\Dan
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.