<!-- conn.asp文件里有数据库连接字符串并打开数据库 -->
<!--#include file="conn.asp" -->
<!-- getpost.asp文件包含上面的GetPost类 -->
<!--#include file="getpost.asp" -->
<%
'为了测试这个类,我们写个html表单(在index.asp文件里),里面有两个文本域txt1,txt2,两个文件域file1,file2,我们再建立一个数据库,里面有4个字段,id,txt1,txt2,file1,file2,类型分别为文本,文本,文本,OLE格式,表名为mytable
Set o = new GetPost
Response.Write("file1的原始路径是:" & o.GetFilePath ("file1") & "<br>")
Response.Write("file1的文件类型是:" & o.GetFileType ("file1") & "<br>")
Response.Write("file1的原始文件扩展文件名:" & o.GetExtendName ("file1") & "<br>")
Response.Write("file1的原始文件大小:" & o.GetFileSize ("file1") & "字节<br>")
filename=server.mappath("upload")& "\" & o.getrandStr()& o.GetExtendName("file1")
Response.Write("file1上传后的位置:" & filename & "<br>")
dim file1name
file1name=o.SaveToFile ("file1",filename)
Response.Write (filename & "上传成功<br>")
Dim rs,sql
set rs = server.CreateObject("adodb.recordset")
sql = "select txt1,txt2,file1,file2 from mytable"
rs.open sql,conn,1,3
rs.addnew
rs("txt1")= o.RetFieldText("txt1")
rs("txt2")= o.RetFieldText("txt2")
rs("file1") = file1name
rs("file2").appendchunk o.GetFile("file2") '把file2上传的文件直接写到数据库里
rs.update
rs.close
set rs=nothing
call closedata()  '关闭数据库
Response.Redirect("index.asp")
%>