• 博客园logo
  • 会员
  • 众包
  • 新闻
  • 博问
  • 闪存
  • 赞助商
  • HarmonyOS
  • Chat2DB
    • 搜索
      所有博客
    • 搜索
      当前博客
  • 写随笔 我的博客 短消息 简洁模式
    用户头像
    我的博客 我的园子 账号设置 会员中心 简洁模式 ... 退出登录
    注册 登录
洛客
追求完美的用户体验。
博客园    首页    新随笔    联系   管理    订阅  订阅

ASP 调用返回 DataSet 的 Web Service

WebServiceDemo.asmx

public class ServiceDemo : WebService
    
{
        [WebMethod]
        
public string HelloWorld(string ss)
        
{
            
return "Hello World,"+ss;
        }


        [WebMethod]
        
public DataSet GetStudents()
        
{
            DataTable dt
=new DataTable();
            dt.Columns.Add(
"FID",typeof(string));
            dt.Columns.Add(
"FName",typeof(string));

            DataRow dr
=dt.NewRow();
            dr[
"FID"]="123";
            dr[
"FName"]="wengmj";

            dt.Rows.Add(dr);

            DataRow dr1
=dt.NewRow();
            dr1[
"FID"]="456";
            dr1[
"FName"]="cqm";
            dt.Rows.Add(dr1);

            DataSet ds
=new DataSet();
            ds.Tables.Add(dt);
            
return ds;

        }

    }

Test.asp

<% 

    
SET objSoapClient = Server.CreateObject("MSSOAP.SoapClient30")
    
    objSoapClient.ClientProperty(
"ServerHTTPRequest") = True
        
    
call objSoapClient.MSSoapInit("http://localhost/Fredoc.Web/ServiceDemo.asmx?WSDL")
        
    res 
= objSoapClient.HelloWorld("wengmj")    
        
    
set stud=  objSoapClient.GetStudents()
    
    
Set xmlDOC =CreateObject("MSXML2.DOMDocument.4.0")
    xmlDOC.loadXML(stud.item(
1).xml)

    
for each node in xmlDOC.firstChild.firstChild.childNodes
        
for each inode in node.childNodes
            response.Write inode.text
&"&nbsp;&nbsp;"
        
next
        response.Write 
"<br>"
    
next
    

%
> 

 

posted @ 2008-04-16 21:23  洛客  阅读(252)  评论(0)    收藏  举报
刷新页面返回顶部
博客园  ©  2004-2025
浙公网安备 33010602011771号 浙ICP备2021040463号-3