应该是可以的:我这里只有javascript调用dll的 <% Dim int1 Dim colCollectionID set oResourceManage=server.createobject("ResLibrary.ResourceManage") Set colCollectionID = oResourceManage.GetCollectoinID(session("userid")) If Not colCollectionID Is Nothing Then response.write "return "&colCollectionID.Item("NodeID")&";" else response.write "return -1;" End If set oResourceManage=nothing Set oResourceManage = Nothing %>
http://www.csdn.net/Develop/article/14/14090.shtm
<%
Dim int1
Dim colCollectionID
set oResourceManage=server.createobject("ResLibrary.ResourceManage")
Set colCollectionID = oResourceManage.GetCollectoinID(session("userid"))
If Not colCollectionID Is Nothing Then
response.write "return "&colCollectionID.Item("NodeID")&";"
else
response.write "return -1;"
End If
set oResourceManage=nothing
Set oResourceManage = Nothing
%>