LytUpload程式範例

< %
filepath=Server.MapPath("/upload_test")
Set obj = Server.CreateObject("LyfUpload.UploadFile")
txt = obj.request("text1")
Response.Write( "文本框1的輸入值是： " & txt)
Response.Write "
"
ss=obj.SaveFile("file1", filepath,true)
'ss=obj.SaveFile("file1", "c: emp",true)
aa=obj.filetype("file1")
if ss<> "" then
Response.Write "選擇的文件已經上載到服務器！
"
Response.Write("文件名：" & ss)
Response.Write("
Content- Type：" & aa)
end if
obj.about
%>