需求  需要存储html
html 从word中复制表格出来到ueditor编辑器（此时ueditor编辑器将它变成了html）
发送 application/x-www-form-urlencoded格式用post方法发送
html的数据大于 备注 类型的64k
百度 无奈只好用Ole
不会 从asp中操作ole
百度  看到csdn的帖子
 参考（复制）帖子里的东西写出来没用

asp要做的是接受post发送过来的html并把它存到ole类型的字段中

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%

 function TextToBinary(text)
  dim bindata,stream
  set stream=server.CreateObject("adodb.stream")
  with stream
    .Type=2'返回值text字符串模式
    .Mode=3'readwrite模式
    .Open'打开流
    .Charset="gb2312"'设置编码为gb2312
    .Position=0'设置流初始位置为0
    .WriteText text'写入字符串内容
    .Position=0'重新设置流位置为0，要不流位置处于最后，读不到数据
    .Type=1'设置流返回值类型为2进制
    bindata= .read'读取前面写入的字符串对应的2进制流数据
    .Close'关闭流
  end with
  TextToBinary=bindata
end function



Set conn = Server.CreateObject("ADODB.Connection")
connstr = "driver={Microsoft Access Driver (*.mdb)};pwd=admin;dbq=" & Server.MapPath("/") &"\\data\\TP000023.mdb"
conn.open connstr
set rec= server.createobject("ADODB.recordset")
strsql="select * from sd_model_photo where photoid = (select max(photoid) from sd_model_photo)"
rec.open strsql,conn,1,3
rec("xhsm").AppendChunk TextToBinary(request.form("xhsm"))
rec("xncs").AppendChunk TextToBinary(request.form("xncs"))
rec.update
rec.close
set rec = nothing
set conn = nothing
%>

<%
Dim xhsmX ,xncsX
xhsmX = Request(提交文本框1的值)   '你提交的文本框的名称，例如名称是NAMEA，那么 Request("NAMEA")
xncsX = Request(提交文本框2的值)   '你提交的文本框的名称，例如名称是NAMEB，那么 Request("NAMEB")
Set conn = Server.CreateObject("ADODB.Connection")
connstr = "driver={Microsoft Access Driver (*.mdb)};pwd=admin;dbq=" & Server.MapPath  & "\data\TP000023.mdb"
conn.open connstr
set rec= server.createobject("ADODB.recordset")
strsql="select * from sd_model_photo where photoid = (select max(photoid) from sd_model_photo)"
'由于不知道你更新数据的意图，不能确定你的上面这个 SQL 语句是否正确
rec.open strsql,conn,3,2
rec("xhsm") = xhsmX
rec("xncs") = xncsX
rec.update
rec.close
set rec = nothing
set conn = nothing
%>

根据你的代码修改的,不一定符合你的要求.