芜湖芝麻开门网络在帮助客户开发仪器网站时，发现客户添加的报价单表格无法添加，公司技术检查后发现客户添加了超大的表格数据，大概一万多行，大家也知道备注字段只能添加65535个字节，所以通过access数据库来添加肯定行不行，通过技术分析得出，把这个添加的备注字段生成静态文件，然后前台调用这个静态文件来处理。这样也是可以处理的。下面把相关代码贴出来，供大家参考。
第一步：后台生成表格数据
Dim fso,f
Dim strTitle,strContent,strOut
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set f=fso.OpenTextFile(Server.MapPath("test.html")) '模板页面
strOut=f.ReadAll
f.close
strContent=request("content")
strOut=Replace(strOut,"$body$",strContent)
Set f=fso.CreateTextFile(Server.MapPath("table/"&bb&".html"),true) '生成的静态文件放到table文件夹当中
f.WriteLine strOut
f.close
set f=Nothing
set fso=Nothing
第二步：前台调用表格静态数据
httpurl="网址/table/"&rs4("bb")&".html"
response.write gethttppage(httpurl)
函数
function gethttppage(url)
dim adxmlhttp
set adxmlhttp = server.createobject("microsoft.xmlhttp")
adxmlhttp.open "get",url,false
adxmlhttp.send()
if adxmlhttp.readystate <> 4 then exit function
gethttppage = bytes2bstr(adxmlhttp.responsebody)
set adxmlhttp = nothing
End function
function bytes2bstr(vin)
dim bytesstream,stringreturn
set bytesstream = server.CreateObject("adodb.stream")
bytesstream.type = 2
bytesstream.open
bytesstream.writeText vin
bytesstream.position = 0
bytesstream.charset = "gb2312"
bytesstream.position = 2
stringreturn = bytesstream.readtext
bytesstream.close
set bytesstream = nothing
bytes2bstr = stringreturn
end function
