如何在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;
///
1<summary>
2/// 设计器支持所需的方法 - 不要使用代码编辑器修改
3/// 此方法的内容。
4/// </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";
}
///
1<summary>
2/// 清理所有正在使用的资源。
3/// </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
1<html>
2<head>
3<title>Calling a webservice from classic ASP, using the SOAP Toolkit</title>
4<script language="vbscript">
5dim xmldoc
6set xmldoc=createobject("msxml2.domdocument")
7xmldoc.async=false
8xmldoc.load "response.xml"
9function showSource()
10source.innerText=xmldoc.xml
11end function
12
13</script>
14</head>
15<body language="javascript" onload="showSource()">
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
1<form method="post" name="form">
2<p align="center"><br/>username： <input name="username"/><br/>
3<br/>password： <input name="password"/><br/>
4<br/>template： <input name="template"/><br/>
5<br/>org_number：<input name="org_number"/><br/></p>
6<div align="center"><input name="submit" type="submit" value="submit"/></div></form>
7<p><a href="response.xml" target="_blank">response.xml</a></p>
8xml result：<div id="source"></div>
9</body>
10</html>