电泳件常见缺陷:请问JKsoft.UpLoadclass在哪里可以下载

ASP源码中,用了JKsoft.UpLoadclass组件上传,可网上并未找到有相关的资料,
源码如下:
'创建图片上传对象
set pic_Upload= server.createObject("JKsoft.UpLoadclass")
if temp_1="A00000" then
pic_Upload.maxsize = 500000 '免费用户单个文件最大为500K
else
pic_Upload.maxsize = 5000000 'VIP用户单个文件最大为5000K
end if
pic_Upload.Filetype = "jpg/bmp/gif" '只允许上传jpg/bmp/gif格式
'pic_Upload.maxHeadersize = 3000000 '一次上传最大为3M
pic_Upload.Autosave = 2 '图片手工存盘
pic_Upload.open()

'变量_保存上级目录(如：05/01/09/)
picdir = Right(Year(date),2) & "/" & checkdate(month(date)) & "/" & checkdate(day(date)) & "/"
'设置保存目录
pic_Upload.savepath ="../Userpic" & "/Original/" & picdir

if pic_upload.Form("tyno")="3" then
tyno = pic_upload.Form("tyno") & pic_upload.Form("tourno")
else
tyno = pic_upload.Form("tyno")
end if
sql = "select count(*) from Wed_pic_intro where uid="&uid&" and tyno='"&tyno&"' "
Set rs_tyno = Server.CreateObject("ADODB.Recordset")
rs_tyno.Open sql,conn,3
pic_count=rs_tyno(0) '查询同一uid,tyno的图片数量，为新增加的图片ID编号。
rs_tyno.close

for i = 1 to 5
if pic_upload.Form("picsrc" & i & "_size") > 0 then '便历每一个上传对象，如果不为空Begin
picsize = pic_Upload.Form("picsrc" & i & "_size") '获取大小
picExt = pic_Upload.Form("picsrc" & i & "_Ext") '获取扩展名
'产生6位随机数与其他参数一起组成图片的文件名
randomize
rannum = int(900000*rnd)+100000
'文件名
picname = checkdate(hour(now)) & checkdate(minute(now)) & checkdate(second(now)) & right(picsize,2) & rannum
'----(1)----原始图片保存
pic_Upload.save "picsrc" & i,picname & "." & picExt

if pic_Upload.Form("picsrc" & i & "_Err")=0 then '**********如果上传一张图片成功Begin
'**************************************************************生成略缩图片

'创建对象
set Jpeg = server.createObject("persits.Jpeg")
'图片所在位置
path = server.mappath("../Userpic") & "/Original/" & picdir & picname & "." & picExt
Jpeg.Open path

'''''''生成标准的略缩图片
X=Jpeg.OriginalWidth
Y=Jpeg.OriginalHeight
if (X>Y) then '依照长边计算
Jpeg.Width=stand_w
Jpeg.Height=stand_w*y/x
else
Jpeg.Height=stand_w
Jpeg.Width=stand_w*x/y
end if
'----(2)----标准略缩图片保存
picsrc=server.mappath("../Userpic") & "/standard/" & picdir & picname & "." & picExt
Jpeg.save(picsrc)

''''''''生成最小的略缩图片
if (X>Y) then '依照短边计算
Jpeg.Height=small_w
Jpeg.Width=small_w*x/y
else
Jpeg.Width=small_w
Jpeg.Height=small_w*y/x
end if
'----(3)----最小略缩图片保存
picsrc=server.mappath("../Userpic") & "/small/" & picdir & picname & "." & picExt
Jpeg.save(picsrc)