Asp 调用WebService示例
<% '---调用WebService 获取Exchange2007已知用户的邮件未读数
'---参数说明----
'url:webservice 的路径
'params:方法参数
'method:方法名称
'dataType:返回的数据类型
function webServices(url,params,method,dataType)
set objXML=Server.CreateObject("MSXML2.XMLHTTP")
objXML.open "post",url&"/"&method,false
objXML.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
objXML.send(params)
if objXML.Status=200 then
Set xmlDOC = server.CreateObject("MSXML.DOMDocument")
xmlDOC.load(objXML.responseXML)
webServices = xmlDOC.documentElement.selectSingleNode("//"& dataType &"").text
end if
end function
'调用示例:
response.Write webServices("http://localhost:1936/Service1.asmx","username=yaling","GetNewMailCount","int")
%>
相关文档：
'creat by qqlxinye@tom.com
'time 2008-09-19
'qq:273453129
'web www.qqlxinye.cn
dim outSmtp,outUser,outPsd,recUser,recSubmit,bodyContent,AddAttachment,ifsend
function init_mail(str1,str2,str3,str4,str5,str6,str7)
outSmtp=str1
outUser=str2
outPsd=str3
recUser=str ......
<%
'下面是最具技术含量的函数了，哈哈~
'增加数据库字段
function addziduan(ziduanming,ziduanleixing)
on error resume next
fldname = ziduanming
if ziduanleixing=1 or ziduanleixing=4 then
fldtype = "VarChar"
fldsize = 255
elseif ziduanleixing=2 or ziduanleixing=3 then
fldtyp ......
fix是bmp的一种衍生格式，可用于asp生成验证码图形。
一个例子：
1 图象绘制完成后，将文件存为24位位图格式的BMP图象文件。
2 去除前54Byte内容.
3 改名为BODY+数字.FIX
4 修改CHECKCODE.ASP,调用你新做的这个文件.
（checkcode.asp 负责生成和输出验证码 1309 byte，head.fix 是54byte的BMP头，body.fix 数字0~9 10 ......
刚调试程序的时候报错后然后找的解决方法，现在发出来大家借鉴。
-----------------------
错误提示：
运行时错误 800a01b6
对象不支持此属性或方法: Response.CharSet
---------------------------------------------------------------------
(百度一下，还有很多人遇到同样的错误)
Micros ......
