关于多个函数的调用问题

[liwan123]

大家帮忙啊，我在多次调用同一个函数，系统提示Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
多步 OLE DB 操作产生错误。如果可能，请检查每个 OLE DB 状态值。没有工作被完成。
/ceshi/0000/gbook0/addjs.asp, line 44

我取得表单传递来的多个参数，并且每个参数都经过同一个函数function check(char)，如name=check(name),title=check(title)后面还有好几个，但是就出错了。 难道不能在一个页面多次调用同一个函数吗？？？

[liwan123]

顶顶！！

[nchen123]

调用多少次都没有关系，
主要还是你的 sql 语句本身有冲突，或者是编程逻辑有问题。
你把代码贴出来看看

[liwan123]

大家看看
name=request.Form("name")
name=check(name)
title=request.form("title")
title=check(title)
sex=request.Form("sex")
if sex=1 then
sex="男"
else
sex="女"
end if
from=request.Form("from")
from=check(from)
email=trim(request.Form("email"))
email=check(email)
homepage=trim(request.Form("homepage"))
homepage=check(homepage)
oicq=trim(request.Form("oicq"))
oicq=check(oicq)
face=request.Form("face")
content=request.Form("guestcontent")
ip=request.ServerVariables("REMOTE_ADDR")
choose=request.form("select")
badwords=split(badword,"|")
for i=0 to ubound(badwords)
title=replace(title,badwords(i),"**")
next
badwords=split(badword,"|")
for i=0 to ubound(badwords)
content=replace(content,badwords(i),"**")
next

set rs=server.CreateObject("adodb.recordset")
sql="select * from ask"
rs.open sql,conn,1,3
rs.addnew
rs("title")=title
rs("name")=name
rs("sex")=sex
rs("from")=from
rs("email")=email
rs("homepage")=homepage
rs("oicq")=oicq
rs("face")=face
rs("content")=content
rs("ip")=ip
rs("hide")=choose
rs.update

[liwan123]

这是函数
function check(char)
char=replace(char,"<","<")
char=replace(char,">",">")
char=replace(char,"'","|")
'char=replace(char,"","|")
char=replace(char,chr(13),"")
char=replace(char,chr(10),"<p>")
char=replace(char,chr(10),"</br>")
check=char
end function

[liwan123]

怎么没人回答啊

[nchen123]

你能不能加上缩进，写清楚点，这样看上去太混乱了

[liwan123]

’错误出现在这段
name=request.Form("name")
name=check(name)
title=request.form("title")
title=check(title)
sex=request.Form("sex")
if sex=1 then
sex="男"
else
sex="女"
end if
from=request.Form("from")
from=check(from)
email=trim(request.Form("email"))
email=check(email)
homepage=trim(request.Form("homepage"))
homepage=check(homepage)
oicq=trim(request.Form("oicq"))
oicq=check(oicq)
face=request.Form("face")
content=request.Form("guestcontent")
ip=request.ServerVariables("REMOTE_ADDR")
choose=request.form("select")
‘下面的是替换掉特殊字符，无错
badwords=split(badword,"|")
for i=0 to ubound(badwords)
title=replace(title,badwords(i),"**")
next
badwords=split(badword,"|")
for i=0 to ubound(badwords)
content=replace(content,badwords(i),"**")
next

set rs=server.CreateObject("adodb.recordset")
sql="select * from ask"
rs.open sql,conn,1,3
rs.addnew
rs("title")=title
rs("name")=name
rs("sex")=sex
rs("from")=from
rs("email")=email
rs("homepage")=homepage
rs("oicq")=oicq
rs("face")=face
rs("content")=content
rs("ip")=ip
rs("hide")=choose
rs.update



下面是函数：


function check(char)
char=replace(char,"<","<")
char=replace(char,">",">")
char=replace(char,"'","|")
'char=replace(char,"","|")
char=replace(char,chr(13),"")
char=replace(char,chr(10),"<p>")
char=replace(char,chr(10),"</br>")
check=char
end function

[liwan123]

大家来帮帮我啊

[liwan123]

再来tt