Texts | ||
Property, read only | ||
Member of ScriptUtils.ASPForm |
| ||
<% 'Sample file Form-Texts.asp ' Enumerates all text (non-file) source fields. ' 'Create upload form Dim Form: Set Form = Server.CreateObject("ScriptUtils.ASPForm") 'was the Form successfully received? If Form.State = 0 Then 'Number of text fields Response.Write "<br>n of text fields:" & Form.Texts.Count ' Response.Write "<br>" & vbCrLf Response.Write "Text field names and length:" 'Enumerate texts Dim Field: For Each Field In Form.Texts ' Response.Write "<br> " & Field.Name & " - " & Field.Length Next End If'Form.State = 0 then %> <br>sample For <A Href=http://www.motobit.com>HugeASP upload</A> <br>Enumerates all text (non-file) source fields. <form name="file_upload" method="POST" ENCTYPE="multipart/form-data" > File1:<input Name=SourceFile1 Type=File><br> File2:<input Name=SourceFile2 Type=File><br> Description:<input Name=Description1><br> <input Type=CheckBox Name=Save>Also save<br> <TextArea Name=LongText Cols=60 Rows=10></TextArea><br> <input Type=HIDDEN Name=HIDDENField Value="Some hidden data"> <input Name=SubmitButton Value="Submit >>" Type=Submit><br> </Form> |
| ||
<% 'Sample file Field-SaveAs.asp 'Store extra upload info to a database ' and file contents to the disk 'Create upload form Dim Form: Set Form = Server.CreateObject("ScriptUtils.ASPForm") 'was the Form successfully received? If Form.State = 0 Then 'Create destination path+filename for the source file. Dim DestinationPath, DestinationFileName DestinationPath = Server.MapPath(".") & "\" DestinationFileName = "~upload-" & Form("SourceFile").FileName 'Open recordset to store uploaded data Dim RS: Set RS = OpenUploadRS 'Store extra info about upload to database RS.AddNew RS("UploadDT") = Now() RS("Description") = Form.Texts("Description") RS("SourceFileName") = DestinationFileName '... RS.Update 'Save file to the destination Form("SourceFile").SaveAs DestinationPath & DestinationFileName ' Response.Write "<br>Source file names:" Dim Field: For Each Field In Form Response.Write "<br> " & Field.FileName Next End If'Form.State = 0 then Function OpenUploadRS() Dim RS : Set RS = CreateObject("ADODB.Recordset") 'Open dynamic recordset, table Upload RS.Open "Upload", GetConnection, 2, 2 Set OpenUploadRS = RS End Function Function GetConnection() Dim Conn: Set Conn = CreateObject("ADODB.Connection") Conn.Provider = "Microsoft.Jet.OLEDB.4.0" Conn.open "Data Source=" & Server.MapPath("upload.mdb") Set GetConnection = Conn End Function %> <br>sample For <A Href=http://www.motobit.com>HugeASP upload</A> <br>Store extra upload info To a database <br> And file contents To the disk <form name="file_upload" method="POST" ENCTYPE="multipart/form-data"> File1:<input Name=SourceFile Type=File><br> Description:<input Name=Description><br> <input Name=SubmitButton Value="Submit >>" Type=Submit><br> </Form> |