ASP转VB,谁能帮我一下.很简单.

[china165]

Function DelStr(Str)
If IsNull(Str) Or IsEmpty(Str) Then
Str = ""
End If
DelStr = Replace(Str,";","")
DelStr = Replace(EingDelStr,"'","")
DelStr = Trim(EingDelStr)
End Function

帮我转一下VB,我封装成DLL,在ASP里调用

[上官云峰]

Function DelStr(Str as string)
If Str & "" ="" Then
Str = ""
End If
DelStr = Replace(Str,";","")
下面的变量是怎么来的啊
DelStr = Replace(EingDelStr,"'","")
DelStr = Trim(EingDelStr)
End Function

[fxy_2002]

感觉好象代码有问题

Function DelStr(Byval Str as string) as string
If IsNull(Str) Or IsEmpty(Str) Then
Str = ""
End If
DelStr = Replace(Str,";","")
DelStr = Replace(DelStr,"'","")
DelStr = Trim(DelStr)
End Function

EingDelStr 这个变量从哪来的？按程序的逻辑应该直接使用 DelStr 就行了。

这代码没问题了，只是声明部分稍改一下，放入 .cls 文件中编译就可以了。

[fxy_2002]

哦对了，如果做DLL还要加上public关键字

public Function DelStr(Byval Str as string) as string

'.....

end function

[china165]

多谢多谢,我先试试.

中间的eingdelstr写错了,应该是delstr

[VBToy]

提醒一下楼主，Str是VB中的内置函数，用str作变量名不合适。

[china165]

ASP中如何调用DLL呀?

[china165]

多谢VBToy

[china165]

Request.ServerVariables("LOCAL_ADDR")
Request.ServerVariables("SERVER_NAME")
在VB里可以直接这样使用吗?

[fxy_2002]

ASP中如何调用DLL呀?

==============
<%
set mydll=server.createobject("class1.mydll")
'class1.mydll 是你的类名
'比如你的类工程叫 class1，cls文件叫 mydll，那编译后类名就是 class1.mydll

aa=mydll.delstr("1234")

set mydll=nothing

response.write aa
%>