Jag har ett upploadscript som jag laddat ner från webforum och nu undrar jag om nån kan hjälpa mig med att göra så att filerna man laddar upp sparas med ett annat namn! T,ex med siffror!! Första man laddar upp sparas som 1.gif (beroernde på bildformat såklart) nästa 2.gif o.s.v
Koden ser ut så här:
<%@EnableSessionState=True%><%Response.Buffer=True%><%Response.Expires=0 UPLOAD_PATH = Server.MapPath("pics") Set Fso = Server.CreateObject("Scripting.FileSystemObject") Set Folder = Fso.getFolder(UPLOAD_PATH) If (Request.ServerVariables("REQUEST_METHOD") = "POST") Then Set Upload = get_upload_files() fcontent = Upload("upload").Item("content") If Fso.FileExists(UPLOAD_PATH & "\" & extract_filename(Upload("upload").Item("filename"))) Then Session("mess") = "En fil med det namnet finns redan!" Response.Redirect "upload.asp" Else Set File = Fso.CreateTextFile(UPLOAD_PATH & "\" & extract_filename(Upload("upload").Item("filename"))) End If For i = 1 to LenB(fcontent) File.Write chr(AscB(MidB(fcontent, i, 1))) Next File.Close: Set File = Nothing Session("go") = extract_filename(Upload("upload").Item("filename")) Session("visa") = "ok" Response.Redirect "skicka.asp" End If%><!--#Include file="settings.asp"--><html><head><title>»» Bildgalleri ««</title><script language="JavaScript"><!-- function blured(){for (a in document.links) document.links[a].onfocus = document.links[a].blur;}if (document.all){document.onmousedown = blured;}// --></script><link rel="stylesheet" href="stil.css" type="text/css"></head><body bgcolor="#f0f0f0"><%Set Conn = Server.CreateObject("ADODB.Connection")Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db%><table width="400" align="center" border="0"> <tr> <td colspan="2"><font size="2">Bildgalleriet:</font></td> </tr> <tr> <td height="10" colspan="2"><img src="bilder/dot400.gif"></td> </tr> <form name="menyn"> <tr> <td width="267"><font size="2">» Ladda upp bild</font></td> <td align="right" width="133"> <!--#Include file="meny.asp"--> </td> </tr> </form> <tr> <td colspan="2" height="10"><img src="bilder/dot400.gif"></td> </tr></table><%Ads.CloseConn.CloseSet Ads = NothingSet Conn = Nothing%><table width="400" border="0" align="center"> <tr> <td height="10" class="normal"> Helst ska bilderna vara i dessa storlekar:<br><b> » 160x120 » 320x240 » 640x480 » 800x600<br> » 1024x768 » 1280x1024<br></b> Blir snyggast när bilden är i litet format. Spelar ingen roll om det är tvärtom. </td> </tr> <tr> <td height="10"><img src="bilder/dot400.gif"></td> </tr><form name="frmUpload" method="post" enctype="multipart/form-data" action="upload.asp"> <tr> <td> <input type="file" name="upload"> <input type="submit" value="Ladda upp"> </td> </tr> <%If Session("mess") <> "" Then%> <tr> <td height="10"><img src="bilder/dot400.gif"></td> </tr> <tr> <td><%=Session("mess")%><%Session("mess") = ""%></td> </tr> <%End If%></form> </table></body></html><% Function get_upload_files() Set upload_object = Server.CreateObject("Scripting.Dictionary") request_binaries = Request.BinaryRead(Request.TotalBytes) position_start = 1 position_end = InstrB(position_start, request_binaries, get_byte_string(chr(13))) boundary = MidB(request_binaries, position_start, (position_end - position_start)) boundary_pos = InstrB(1, request_binaries, boundary) Do Until (boundary_pos = InstrB(request_binaries, boundary & get_byte_string("--"))) If Not(Response.IsClientConnected) Then Response.End position_start = (InstrB(InstrB(boundary_pos, request_binaries, get_byte_string("Content-Disposition")), request_binaries, get_byte_string("name=")) + 6) position_end = InstrB(position_start, request_binaries, get_byte_string(chr(34))) name = get_string(MidB(request_binaries, position_start, (position_end - position_start))) pos_file = InstrB(boundary_pos, request_binaries, get_byte_string("filename=")) If ((pos_file <> 0) AND (pos_file < InstrB(position_end, request_binaries, boundary))) Then upload_object.Add name, Server.CreateObject("Scripting.Dictionary") position_start = (pos_file + 10) position_end = InstrB(position_start, request_binaries, get_byte_string(chr(34))) upload_object.item(name).Add "filename", get_string(MidB(request_binaries, position_start, (position_end - position_start))) position_start = (InstrB(position_end, request_binaries, get_byte_string("Content-Type:")) + 14) position_end = InstrB(position_start, request_binaries, get_byte_string(chr(13))) upload_object.item(name).Add "content-type", get_string(MidB(request_binaries, position_start, (position_end - position_start))) position_start = (position_end + 4) position_end = InstrB(position_start, request_binaries, boundary) - 2 upload_object.item(name).Add "size", ((position_end - position_start)) upload_object.item(name).Add "content", MidB(request_binaries, position_start, (position_end - position_start)) End If boundary_pos = InstrB(boundary_pos + LenB(boundary), request_binaries, boundary) Loop Set get_upload_files = upload_object End Function Function get_byte_string(str) For cnt = 1 to Len(str) get_byte_string = get_byte_string & chrB(AscB(Mid(str, cnt, 1))) Next End Function Function get_string(str) For cnt = 1 to LenB(str) get_string = get_string & chr(AscB(MidB(str, cnt, 1))) Next End Function Function extract_filename(filename) extract_filename = Right(filename, Len(filename) - InStrRev(filename, "\", -1, 1)) End Function%>