<form method="POST" enctype="multipart/form-data" action="admin_photo_jian.asp">
选择文件：<input type="file" name="file1">
<input name="submit" type="submit" value="上载" />
</form>

Set obj = Server.CreateObject("LyfUpload.UploadFile")
filename="file1"
path=server.mappath("../photo/myself")
aa=obj.filetype("file1")
varfname=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&".jpg"
ss=obj.SaveFile(filename,path,false,varfname) '保存文件到服务器
set conn=server.CreateObject("adodb.connection")
conn.open"driver={microsoft access driver (*.mdb)};dbq="&server.MapPath(".../4261date/info.mdb")
set rs=server.CreateObject("adodb.recordset")
rs.open"select * from selfphoto",conn,1,3
rs.addnew()
rs("biaoti").value="我自己(6)"
rs("url").value="photo/myself/"&varfname
rs("shijian")=date()
rs.update()
rs.close
set rs=nothing
conn.close
set comnn=nothing