<%
url = "http://service2.winic.org:8003/Service.asmx"  'webservice ��ַ

'==============================��ѯ�˻���Ϣ
function GetUserInfo(uid,pwd)
SoapRequest="<?xml version="&CHR(34)&"1.0"&CHR(34)&" encoding="&CHR(34)&"utf-8"&CHR(34)&"?>"& _
"<soap:Envelope xmlns:xsi="&CHR(34)&"http://www.w3.org/2001/XMLSchema-instance"&CHR(34)&" "& _
"xmlns:xsd="&CHR(34)&"http://www.w3.org/2001/XMLSchema"&CHR(34)&" "& _
"xmlns:soap="&CHR(34)&"http://schemas.xmlsoap.org/soap/envelope/"&CHR(34)&">"& _
"<soap:Body>"& _
"<GetUserInfo xmlns="&CHR(34)&"http://tempuri.org/"&CHR(34)&">"& _
"<uid>"&uid&"</uid>"& _
"<pwd>"&pwd&"</pwd>"& _
"</GetUserInfo>"& _
"</soap:Body>"& _
"</soap:Envelope>"

Set xmlhttp = server.CreateObject("Msxml2.XMLHTTP")
xmlhttp.Open "POST",url,false
xmlhttp.setRequestHeader "Content-Type", "text/xml;charset=utf-8"
xmlhttp.setRequestHeader "HOST","service2.winic.org"
xmlhttp.setRequestHeader "Content-Length",LEN(SoapRequest)
xmlhttp.setRequestHeader "SOAPAction", "http://tempuri.org/GetUserInfo" 'һ��Ҫ��WEBSERVICE�������ռ���ͬ����������ܾ�
xmlhttp.Send(SoapRequest)
''��������XMLHTTP�ɹ���������SOAPʾ��������SOAP����.'���һ���Ƿ񷵻�200=�ɹ��� 
     If xmlhttp.Status = 200 Then
        Set xmlDOC = server.CreateObject("MSXML.DOMDocument")
        xmlDOC.load(xmlhttp.responseXML)
            GetUserInfo=xmlDOC.documentElement.selectNodes("//GetUserInfoResult")(0).text '��ʾ�ڵ�ΪGetUserInfoResult������(�����ַ���)
        Set xmlDOC = nothing
    Else
        GetUserInfo=xmlhttp.Status&"&nbsp;"
        GetUserInfo=xmlhttp.StatusText
    End if
        Set xmlhttp = Nothing
end function

'==============================�޸�����
function EditUserPwd(uid,pwd,newpwd)
SoapRequest="<?xml version="&CHR(34)&"1.0"&CHR(34)&" encoding="&CHR(34)&"utf-8"&CHR(34)&"?>"& _
"<soap:Envelope xmlns:xsi="&CHR(34)&"http://www.w3.org/2001/XMLSchema-instance"&CHR(34)&" "& _
"xmlns:xsd="&CHR(34)&"http://www.w3.org/2001/XMLSchema"&CHR(34)&" "& _
"xmlns:soap="&CHR(34)&"http://schemas.xmlsoap.org/soap/envelope/"&CHR(34)&">"& _
"<soap:Body>"& _
"<EditUserPwd xmlns="&CHR(34)&"http://tempuri.org/"&CHR(34)&">"& _
"<uid>"&uid&"</uid>"& _
"<pwd>"&pwd&"</pwd>"& _
"<newpwd>"&newpwd&"</newpwd>"& _
"</EditUserPwd>"& _
"</soap:Body>"& _
"</soap:Envelope>"

Set xmlhttp = server.CreateObject("Msxml2.XMLHTTP")
xmlhttp.Open "POST",url,false
xmlhttp.setRequestHeader "Content-Type", "text/xml;charset=utf-8"
xmlhttp.setRequestHeader "HOST","service2.winic.org"
xmlhttp.setRequestHeader "Content-Length",LEN(SoapRequest)
xmlhttp.setRequestHeader "SOAPAction", "http://tempuri.org/EditUserPwd" 'һ��Ҫ��WEBSERVICE�������ռ���ͬ����������ܾ�
xmlhttp.Send(SoapRequest)
''��������XMLHTTP�ɹ���������SOAPʾ��������SOAP����.'���һ���Ƿ񷵻�200=�ɹ��� 

      If xmlhttp.Status = 200 Then
        Set xmlDOC = server.CreateObject("MSXML.DOMDocument")
        xmlDOC.load(xmlhttp.responseXML)
            EditUserPwd=xmlDOC.documentElement.selectNodes("//EditUserPwdResult")(0).text '��ʾ�ڵ�ΪGetUserInfoResult������(�����ַ���)
        Set xmlDOC = nothing
    Else
        EditUserPwd=xmlhttp.Status&"&nbsp;"
        EditUserPwd=xmlhttp.StatusText
    End if
        Set xmlhttp = Nothing
end function


'==============================���Ͷ��ź���
function SendMessages(uid,pwd,tos,msg,otime)
SoapRequest="<?xml version="&CHR(34)&"1.0"&CHR(34)&" encoding="&CHR(34)&"utf-8"&CHR(34)&"?>"& _
"<soap:Envelope xmlns:xsi="&CHR(34)&"http://www.w3.org/2001/XMLSchema-instance"&CHR(34)&" "& _
"xmlns:xsd="&CHR(34)&"http://www.w3.org/2001/XMLSchema"&CHR(34)&" "& _
"xmlns:soap="&CHR(34)&"http://schemas.xmlsoap.org/soap/envelope/"&CHR(34)&">"& _
"<soap:Body>"& _
"<SendMessages xmlns="&CHR(34)&"http://tempuri.org/"&CHR(34)&">"& _
"<uid>"&uid&"</uid>"& _
"<pwd>"&pwd&"</pwd>"& _
"<tos>"&tos&"</tos>"& _
"<msg>"&msg&"</msg>"& _
"<otime>"&otime&"</otime>"& _
"</SendMessages>"& _
"</soap:Body>"& _
"</soap:Envelope>"

Set xmlhttp = server.CreateObject("Msxml2.XMLHTTP")
xmlhttp.Open "POST",url,false
xmlhttp.setRequestHeader "Content-Type", "text/xml;charset=utf-8"
xmlhttp.setRequestHeader "HOST","service2.winic.org"
xmlhttp.setRequestHeader "Content-Length",LEN(SoapRequest)
xmlhttp.setRequestHeader "SOAPAction", "http://tempuri.org/SendMessages" 'һ��Ҫ��WEBSERVICE�������ռ���ͬ����������ܾ�
xmlhttp.Send(SoapRequest)
''��������XMLHTTP�ɹ���������SOAPʾ��������SOAP����.'���һ���Ƿ񷵻�200=�ɹ��� 

    If xmlhttp.Status = 200 Then
        Set xmlDOC = server.CreateObject("MSXML.DOMDocument")
        xmlDOC.load(xmlhttp.responseXML)
            SendMessages=xmlDOC.documentElement.selectNodes("//SendMessagesResult")(0).text '��ʾ�ڵ�ΪGetUserInfoResult������(�����ַ���)
        Set xmlDOC = nothing
    Else
        SendMessages=xmlhttp.Status&"&nbsp;"
        SendMessages=xmlhttp.StatusText
    End if
        Set xmlhttp = Nothing
end function

'================================ȡ�����е�һ��
function split_str(str,sint)
 on error resume next
  dim tempstr
  tempstr=split(str,"/") '/�ŷָ�
   split_str=tempstr(sint)
end function

'==============================
uid="your_id" '�˺�:��ҵ����Ա����
pwd="your_pwd" '����:��ҵ����Ա����

tos=request.Form("telNo") '�ֻ����� Ⱥ���� , (����)�ŷֿ�
msg=request.Form("tre_Note_Content")  '�������� 1-70���ַ�

'response.write GetUserInfo(uid,pwd)&"<br>" '�����˻���Ϣ������ã�000/test/0.8000/0.1000/70/

'response.write split_str(GetUserInfo(uid,pwd),2)&"<br>"  '����000/test/0.8000/0.1000/70/  �������е� �� 2 �� ������3��4

'response.write EditUserPwd(uid,pwd,"123456")&"<br>"  '�޸��û�����

 response.write SendMessages(uid,pwd,tos,msg,otime) '���Ͷ���

%>