看看这个vbs调用

[klmycity]

其中abc.vbs内容如下：
Public Function UBBEncode(ByVal Content)
...

UBBEncode = Replace(content, ">", ">")
end function


在一页面中调用
<SCRIPT language=VBScript.Encode src="temp/editor/edit.files/abc.vbs"></SCRIPT>

调用时
<script language = vbscript>

UBBEncode dddd
</script>

其中dddd是字符串，结果在页面上不显示dddd,没有提示语法错误，怎么回事？

[cmsoft]

调用时
<%
Call UBBEncode("dddd")
%>

[freezwy]

你又没有打印结果，怎么能显示呢？

[freezwy]

同时，调用要加上引号的，比如UBBEncode "dddd"

[grooving]

UBBEncode("dddd")

你调用时不加双引号就是一个无值的变量.

[klmycity]

但是提示－－－调用子程序时不能使用括号

[Iamfish]

Kao,这么一小段就错了两处!

<script language = vbscript>

document.write UBBEncode("dddd")

</script>

[klmycity]

： Iamfish(呆鱼) ，还是不行呀
提示－－－调用子程序时不能使用括号

[cmsoft]

同时这个也要改
Public Function UBBEncode(Content)
...

conntent = Replace(content, ">", ">")
UBBEncode=conntent
end function

[cmsoft]

<%
'一个函数
Function changeStr(str)
str=Replace(str,"<","<")
str=Replace(str,">",">")
str=Replace(str,"'","''")
str=Replace(str,""," ")
str=Replace(str,chr(13)&chr(10),"<br>")
changeStr=str
End Function

'调用它
gcJianjie=changeStr(Request.form("gcContent"))
%>

[freezwy]

在你新开的帖子中，有示例代码，如果还有错的话，是其他地方的代码错误。

[cmsoft]

<%
'一个函数
Function changeStr(str)
str=Replace(str,"<","<")
str=Replace(str,">",">")
str=Replace(str,"'","''")
str=Replace(str,""," ")
str=Replace(str,chr(13)&chr(10),"<br>")
changeStr=str
End Function

'调用它
gcJianjie=changeStr(Request.form("gcContent"))
%>