sjCatSoft上传组件

一年里都在用5xsoft来上传文件，今天猫哥给了我他的sjCatSoft，在此感谢sjCatSoft的作者猫哥（三角猫）。
sjCatSoft 虽然用的也是5xsoft内核，但是把一些功能封装起来，以比较直观的方式同时上传文件和表单项，具体方式如下：

<!--#include file="exdb.asp"-->
<!--#include file = "sjcatstudio.inc"-->
<%Server.ScriptTimeOut=5000%>
dim upload,file,fieldName,fileName,iCount
dim sqlStatement,formNameString,fieldnameString,filenamestring,blobfieldnamestring
'on error resume next
sqlstatement = "select * from product" '数据要放入的表
formnamestring = "company_id|product|big_sort|small_sort|type|sign|price|intro" '依次列出表单中要提交到数据库的元素名，各元素用 | 分隔
fieldnamestring = formnamestring '依次列出数据库中对应的字段名，因为本例相同，所以直接复制
Filenamestring = "pic" '依次列出要存入数据库的文件元素名
blobfieldnamestring = "pic" '依次列出数据库中与文件对应的字段名
set upload = new sjCat_Upload ''建立上传对象
if upload.Up2DB(dbconn,sqlstatement,formnamestring,fieldnamestring,filenamestring,blobfieldnamestring,0) then 
response.write "上传成功"
end if
%>