up.asp
<!--#include file="lianku.asp"--> '连库文件
<%
filename1="file1"
path1="c:\upimage" '存放上传的文件
Set obj = Server.CreateObject(".UploadFile")
ss=obj.SaveFile(filename1, path1, false) '保存文件到服务器
aa=obj.filetype("file1") '得到文件的Content-Type
text=obj.request("text")
if ss<>"" then
set rs=server.CreateObject("adodb.recordset")
rs.Open "SELECT * FROM shch2",con,2,2
rs.addnew
rs("image")=trim(ss)
rs("text")=trim(text)
rs("wjlx")=trim(aa)
rs.Update
response.write "成功上传"
end if
if ss="3" then
Response.Write "此文件在服务器上已经存在或同名!不能覆盖!请改名或更换文件!<br>"
Response.write "<a href='#' onclick=history.back();>返回</a>"
Response.end
end if
%>
用SA组件:
set conn=server.CreateObject("adodb.connection")
conn.connectionstring=Application("info_ConnectionString")
conn.open
Set FileMgr = Server.CreateObject("SoftArtisans.FileUp")
'a=filemgr.form("title")
sql="Select * from datamanager"
Set RS = CreateObject("ADODB.Recordset")
RS.open sql,Conn,adOpenKeyset,adLockOptimistic
rs.Addnew
rs("name")=Session("name")
rs("title")=filemgr.form("title")
'rs("type")=filemgr.form("type")
dim sva
sva=filemgr.form("pid")
rs("parentid")=filemgr.form("pid")
rs("content")=filemgr.form("remark")
rs("datetime")=date()
'rs("filename")=filemgr.Form("DocumentPath")
'rs("title")=filemgr.form("title")
If filemgr.Form("file1").TotalBytes <>0 Then
Pos = InstrRev(filemgr.Form("file1").UserFilename , "\")
Pos=Pos+1
RS("filename")= Mid(filemgr.Form("file1").UserFilename ,Pos)
filemgr.Form("file1").SaveAsBlob RS("filevalue")
End If
rs.Update
rs.close
set rs=nothing