Question

ASP replace 的问题

我不知道 这样的效果可不可以实现
//index.asp
function sys(a)
set rs = server.createobject("adodb.recordset")
sql="select * from system"
rs.open sql,conn,1,1
a = replace(a,"{sys:dianhua}",rs("tel"))
Sys=a
rs.Close
set rs=nothing
end function

//index2.asp
Function Gongsiview(a)
set rs = server.createobject("adodb.recordset")
sql="select * from about WHERE id= "&about_id&""
rs.open sql,dbok,1,3
a = replace(a,"{Gongsiview:neirong}",sys(rs("cocontent")))
Rs.UPDATE
end if
rs.Close
set rs=nothing
Gongsiview = a
End Function

在第二个页面 这样用
a = replace(a,"{Gongsiview:neirong}",sys(rs("cocontent")))
会报错。但是我想实现这样的效果 怎么办
最后的15分了

Answer 1

a = replace(a,"{Gongsiview:neirong}",sys(rs("cocontent")))
改成
a = replace(a,"{Gongsiview:neirong}",sys(rs("cocontent").value))
试试.有可能传入函数的不是String而是Object.
或者把第一个函数声明改成
function sys(ByVal a)

你第二个函数中用到了
Rs.UPDATE
但实际上你没有修改记录集的任何内容. 应该用
rs('xxx') = xxx
设置值以后再update才会真正的修改数据.

追问

不行啊
a = replace(a,"{Gongsiview:neirong}",sys(rs("cocontent").value))

页面空白 什么也不显示了

追答

空白是不是代表没有错误发生呢?
如果是这样的话,你应该检查你其它的代码才对.
如果有具体的错误信息是关于这两个函数的,你可以贴上来,帮你分析.