<body> <table width="523" height="190" border="0" cellpadding="0" cellspacing="0"> <form id="form1" name="form1" enctype="multipart/form-data" method="post" action="?action=ok"> <tr> <td> </td> <td> </td> </tr> <tr> <td> </td> <td><input type="text" name="text1" id="text1" /></td> </tr> <tr> <td> </td> <td><p> <label> <input type="radio" name="RadioGroup1" value="111" id="RadioGroup1_0" /> 1111</label> <br /> <label> <input type="radio" name="RadioGroup1" value="2222" id="RadioGroup1_1" /> 2222</label> <br /> </p></td> </tr> <tr> <td> </td> <td> </td> </tr> <tr> <td> </td> <td> <input type="file" name="fileField" id="fileField" /> </td> </tr> <tr> <td> </td> <td><input type="submit" name="button" id="button" value="提交" /></td> </tr> </form> </table> </body>
</html>
<%
if request("action")="ok" then
Dim Upload,Upfile
Set Upload = Server.CreateObject("Persits.Upload")
Upload.Save
Response.Write(Upload.Form("text1"))
response.Write("<br>")
response.Write(Upload.Form("RadioGroup1"))
Set file1 = Upload.Files("fileField")
response.Write(file1.FileName)
newname = year(now()) & month(now()) & day(now()) & hour(now()) & minute(now()) & second(now())
file1.SaveAs Server.MapPath(".") & "\" & newname & file1.Ext
Set file1 = nothing Set Upload = nothing
end if
%> |
