如何在ASP环境下利用SOAP来调用C#开发的Web Services 作为.NET Web Services的斑竹,很多朋友都问我如何在其他环境下调用Web Services, 原理其实很简单,大家都知道Web Services是基于SOAP协议通信的,在其他环境下自然 可以利用SOAP来访问Web Services了。 下面我就一个具体的例子来说明调用过程。 开发环境:windows 2000 SOAP Tookit3.0 IIS 我用C#写了如下一个Web Services: using System; using System.Collections; using System.ComponentModel; using System.Data; using System.Data.SqlClient; using System.Diagnostics; using System.Web; using System.Web.Services;
namespace WebService_1 { public class Service1 : System.Web.Services.WebService { string err_message; SqlDataAdapter my_adapter ; DataSet ds = new DataSet(); DataSet ds1 = new DataSet(); DataSet ds_err ; DataSet ds_value = new DataSet(); DataTable myDataTable; public Service1() { InitializeComponent(); }
private System.Data.SqlClient.SqlConnection sqlConnection1;
#region Component Designer generated code //Web 服务设计器所必需的 private IContainer components = null; /// <summary> /// 设计器支持所需的方法 - 不要使用代码编辑器修改 /// 此方法的内容。 /// </summary> private void InitializeComponent() { this.sqlConnection1 = new System.Data.SqlClient.SqlConnection(); // // sqlConnection1 // this.sqlConnection1.ConnectionString = "data source=QIEYJ;initial catalog=photos;persist security info=False;user id=sa;w" + "orkstation id=QIEYJ;packet size=4096";
}
/// <summary> /// 清理所有正在使用的资源。 /// </summary> protected override void Dispose( bool disposing ) { if(disposing && components != null) { components.Dispose(); } base.Dispose(disposing); } #endregion [WebMethod] public DataSet Account_check(string username,string password,string template,string org_nummer) { string sql; string cond; cond = org_nummer.Trim().Replace(" ",","); sql = "select * from Account where Username='" + username + "' and Password = '" + password + "'"; my_adapter = new SqlDataAdapter(sql,sqlConnection1); sqlConnection1.Open(); my_adapter.Fill(ds,"login"); sqlConnection1.Close(); if (ds.Tables[0].Rows.Count == 0) { ds_err = new DataSet(); myDataTable = new DataTable("error"); DataColumn myDataColumn; DataRow myDataRow; myDataColumn = new DataColumn(); myDataColumn.DataType = System.Type.GetType("System.String"); myDataColumn.ColumnName = "error"; myDataTable.Columns.Add(myDataColumn); myDataRow = myDataTable.NewRow(); myDataRow["error"] = "status=6 "; myDataTable.Rows.Add(myDataRow); ds_err.Tables.Add(myDataTable); return ds_err; } //check if the customer have enough points err_message = Points_check(template); if (err_message != "") { ds_err = new DataSet(); myDataTable = new DataTable("error"); DataColumn myDataColumn; DataRow myDataRow; myDataColumn = new DataColumn(); myDataColumn.DataType = System.Type.GetType("System.String"); myDataColumn.ColumnName = "error"; myDataTable.Columns.Add(myDataColumn); myDataRow = myDataTable.NewRow(); myDataRow["error"] = err_message; myDataTable.Rows.Add(myDataRow); ds_err.Tables.Add(myDataTable); return ds_err; } //check if belong to some rules ,if no,return result ds_err = Rules_check(template,cond); return ds_err; } } }
ASP文件:soapclient.asp <html> <head> <title>Calling a webservice from classic ASP, using the SOAP Toolkit</title> <script language="vbscript"> dim xmldoc set xmldoc=createobject("msxml2.domdocument") xmldoc.async=false xmldoc.load "response.xml" function showSource() source.innerText=xmldoc.xml end function
</script> </head> <body onload="showSource()" language="javascript"> <% Dim username,password,template,org_number username = trim(Request.Form("username")) password = trim(Request.Form("password")) template = trim(Request.Form("template")) org_number = trim(Request.Form("org_number"))
Set xmldoc = server.createObject("Msxml2.DOMDocument") xmldoc.async = false
If username <> "" Then On Error Resume Next Set soapclient = CreateObject("MSSOAP.SoapClient30") soapclient.ClientProperty("ServerHTTPRequest") = True soapclient.mssoapinit "http://localhost/webservice_1/Service1.asmx?wsdl","Service1","Service1Soap",""
Set NodeList = soapclient.Account_check(username,password,template,org_number) Set nodeDetails = NodeList.Item(1) Set nodeNAMNCount = nodeDetails.selectNodes("//org_nummer") xmldoc.loadXML(NodeList.Item(1).xml) xmldoc.save(server.MapPath("response.xml")) if err <> 0 then Response.Write err.description+ "<br>" Response.Write "faultcode=" + soapclient.faultcode + "<br>" Response.Write "faultstring=" + soapclient.faultstring+ "<br>" Response.Write "FaultActor=" + soapclient.FaultActor+ "<br>" Response.Write "Detail=" + soapclient.Detail end if End If %> <FORM method=post name=form> <p align=center><BR>username: <INPUT name=username><BR> <BR>password: <INPUT name=password><BR> <BR>template: <INPUT name=template><BR> <BR>org_number:<INPUT name=org_number><BR></p> <div align=center><INPUT type="submit" value="submit" name=submit></div></FORM> <p ><a href="response.xml" target="_blank">response.xml</a></p> xml result:<div id=source></div> </body> </html>

|