哪里有 iNotes.Upload 组件的使用范例或说明

[57129]

请问各位大大
哪里有 iNotes.Upload 组件的使用范例或说明，
因为我下载安装此 iNotes.Upload 后，
依照我看到的范例执行档案上载动作，
程序都有过，但档案却没正确上载到SERVER，
不之有哪位大大能提供程序或告知哪里有相关说明可以阅读
谢谢..

[kkkbs]

<%
dim flname
dim dirname
dirname="codeupload"&year(now())&month(now())&day(now())
function checkfile(filename,filesize,extname)
if filesize>5210000 then
response.write "<p align=center>你上传的源码太大,上传源码的大小应该小于5M!</p>"
checkfile=false
exit function
end if
if filesize=-1 then
response.write "<p align=center>你要上传的文件找不到,请确认文件路径是否正确?</p>"
checkfile=false
exit function
end if
if extname<>".zip" and extname<>".rar" then
response.write "<p aling=center>源码只能以.zip或.rar形式上传</p>"
checkfile=false
exit function
end if
flname=trim(session("username"))&year(now())&month(now())&day(now())&hour(now())&minute(now())&second(now())&extname
fileobj.FilePath=Server.MapPath("/") & "/upload/"&dirname
FileObj.SaveFile "filename",flname
'response.write fileObj.FilePath&flname

set filesize=nothing
set extname=nothing
checkfile=true
end function


'response.write filename & "--"

if trim(Request.QueryString("add"))="1" then
Set FileObj=Server.CreateObject("iNotes.UpLoad")
filename=FileObj.FileName ("filename")
extname=FileObj.ExtName("filename")
filesize=fileobj.filesize("filename")
if checkfile(filename,filesize,extname)=false then
response.write "<a href=javascript:history.go(-1);>返回</a>"

set picname=nothing
set content=nothing
set filename=nothing
set filesize=nothing
set extname=nothing
response.end
else
picpath="http://"&Request.ServerVariables ("HTTP_HOST")&"/upload/"&dirname&"/"&flname
Response.Write "<tr><td bgcolor="&table_title_color&" align='center'>上传源码成功，请按以下地址制作你的下载链接，谢谢：<br>"&picpath&"</td></tr>"
end if

set fileobj=nothing

end if

%>


<form method=post action=codeupload.asp?add=1 ENCTYPE="multipart/form-data" name=codeform>
<tr>
<td bgcolor="<%=table_title_color%>" align="center"> 上传源码<br>[上传的源码请不要太大，源码只能以.zip或.rar形式上传,我们将定期删除一些不要的源码]<br>
<input type="file" name="filename"> <br>
<INPUT name="btnval" type="submit" value="上载" onClick="this.disabled=true;document.codeform.submit();">
<INPUT type="reset" value="重置">
<input type="hidden" name="Copyright" value="中国[网际备忘]中心,http://china-notes.com">


不知道这个样例对你有没有用

[57129]

您好:
请问我照您的程序执行，
都可以执行，也出现上传源码成功
但上载档案却没有上载到SERVER这边来....
不知哪里错误???

[57129]

solved...