asp插入超过4000字符到ORACLE中

 

<%
t_max="大于4000的字符集"
set cmd = server.CreateObject("adodb.command")
openConnCursor()
with cmd
set .ActiveConnection=connCursor
.CommandText="update t_test set t1=" & t1 & ",t2=" & t2 &",t3=" & t3 &", t4= " & t4& " , t_maxval=? where t5=" & t5 & " and t6='" & t6 & "'"
.Parameters.Append .CreateParameter("@t_maxval",201,1,999999,t_max)
.CommandType = 1
end with
set rs = server.createobject("adodb.recordset")
rs.CursorLocation = 3:rs.open cmd
set cmd = nothing

function openConnCursor()
dim objmail
dim connstr,RequestStr,splitqword,instrsi
Set connCursor = Server.CreateObject("adodb.connection")
connstr="Provider=OraOLEDB.Oracle.1;PLSQLRSet=1;Data Source=server_oracle;User ID=test;Password=123456"
connCursor.Open connstr
end function
%>