ASP+ACCESS textarea提交数据库的问题
小弟不才，自己准备做一个工程存档，遇到一个很棘手的问题，就是TEXTAREA提交到数据库时，内容超长就提交不了，内容少的就正常，望各位大侠不吝赐教，小弟感激不尽！贴出我的...
小弟不才，自己准备做一个工程存档，遇到一个很棘手的问题，就是TEXTAREA提交到数据库时，内容超长就提交不了，内容少的就正常，望各位大侠不吝赐教，小弟感激不尽！
贴出我的代码
<!--#include file="conn.asp"-->
<%
Function SqlStr( data )
SqlStr = "''" & Replace( data, "''", "''''" ) & "''"
End Function
Function coder(str)
Dim i
If IsNull(str) Then : coder="" : Exit Function : End If
For i = 1 to Len(str)
Select case mid(str,i,1)
Case "<" : coder = coder &"<"
Case ">" : coder = coder &">"
Case "&" : coder = coder &"&"
Case chr(9) : coder = coder &" "
Case VBCrLf : coder = coder &"<br>"
Case chr(32) : coder = coder &" "
Case chr(34) : coder = coder &"""
Case chr(39) : coder = coder &"'"
Case Else : coder = coder & mid(str,i,1)
End Select
Next
End Function
cjqd=request("cjqd")
cjqd=replace(cjqd," "," ")
cjqd=coder(cjqd)
ygqd=request("ygqd")
ygqd=replace(ygqd," "," ")
ygqd=coder(ygqd)
%>
<%
action=request("action")
if Request("action")="add" then
set rs=server.CreateObject("adodb.recordset")
sql="select * from projects"
rs.open sql,conn,3,2
rs.addnew
rs("cjqd")=Server.Htmlencode(Request("cjqd"))
rs("ygqd")=Server.Htmlencode(Request("ygqd"))
rs.update
rs.close
response.write "<script>alert('工程添加成功!');window.opener.location.reload
();window.close();</Script>"
end if
%>
<html>
<head>
<title>新增作业工程</title>
<link href="images/public.css" rel="stylesheet" type="text/css">
<body background="images/background_02.gif" leftmargin=0 topmargin=0>
<center>
<form action="zuoye_detail_add.asp?action=add" method="post" name="form">
<b><font color="#ff0000" size=6>新增作业详情</font></b>
<table width=90% border=1>
<tr><th><input name="Submit" type="submit" value="添加作业详情">
<input name="Submit1" type="reset" value="重设作业详情">
<tr><th colspan=3>车间签单
<tr><td colspan=3><textarea cols="54" rows="22" name="cjqd"></textarea>
<tr><th colspan=3>用工签单
<tr><td colspan=3><textarea cols="54" rows="22" name="ygqd"></textarea>
</table>
</form>
</table>
</body>
</html>
曾试过
<%
Sub cjqd()
Dim i,scjqd
scjqd = ""
For i = 1 To Request("cjqd").Count
scjqd = scjqd & Request("cjqd")(i)
Next
End Sub
%>
但是没有用 展开
贴出我的代码
<!--#include file="conn.asp"-->
<%
Function SqlStr( data )
SqlStr = "''" & Replace( data, "''", "''''" ) & "''"
End Function
Function coder(str)
Dim i
If IsNull(str) Then : coder="" : Exit Function : End If
For i = 1 to Len(str)
Select case mid(str,i,1)
Case "<" : coder = coder &"<"
Case ">" : coder = coder &">"
Case "&" : coder = coder &"&"
Case chr(9) : coder = coder &" "
Case VBCrLf : coder = coder &"<br>"
Case chr(32) : coder = coder &" "
Case chr(34) : coder = coder &"""
Case chr(39) : coder = coder &"'"
Case Else : coder = coder & mid(str,i,1)
End Select
Next
End Function
cjqd=request("cjqd")
cjqd=replace(cjqd," "," ")
cjqd=coder(cjqd)
ygqd=request("ygqd")
ygqd=replace(ygqd," "," ")
ygqd=coder(ygqd)
%>
<%
action=request("action")
if Request("action")="add" then
set rs=server.CreateObject("adodb.recordset")
sql="select * from projects"
rs.open sql,conn,3,2
rs.addnew
rs("cjqd")=Server.Htmlencode(Request("cjqd"))
rs("ygqd")=Server.Htmlencode(Request("ygqd"))
rs.update
rs.close
response.write "<script>alert('工程添加成功!');window.opener.location.reload
();window.close();</Script>"
end if
%>
<html>
<head>
<title>新增作业工程</title>
<link href="images/public.css" rel="stylesheet" type="text/css">
<body background="images/background_02.gif" leftmargin=0 topmargin=0>
<center>
<form action="zuoye_detail_add.asp?action=add" method="post" name="form">
<b><font color="#ff0000" size=6>新增作业详情</font></b>
<table width=90% border=1>
<tr><th><input name="Submit" type="submit" value="添加作业详情">
<input name="Submit1" type="reset" value="重设作业详情">
<tr><th colspan=3>车间签单
<tr><td colspan=3><textarea cols="54" rows="22" name="cjqd"></textarea>
<tr><th colspan=3>用工签单
<tr><td colspan=3><textarea cols="54" rows="22" name="ygqd"></textarea>
</table>
</form>
</table>
</body>
</html>
曾试过
<%
Sub cjqd()
Dim i,scjqd
scjqd = ""
For i = 1 To Request("cjqd").Count
scjqd = scjqd & Request("cjqd")(i)
Next
End Sub
%>
但是没有用 展开
展开全部
数据库类型换备注
靠，代码写这么长，这么凌乱，你不累啊，我都没心情看下去
rs.open sql,conn,3,2
改
rs.open sql,conn,1,3
靠，代码写这么长，这么凌乱，你不累啊，我都没心情看下去
rs.open sql,conn,3,2
改
rs.open sql,conn,1,3
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
