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")
%>
相关文档：
使地址欄URL固定，隱藏參數：
<head>
</head>
<frameset>
<frame name="" src="Login.aspx" target="Login.aspx" scrolling="auto" noresize></frame>
<nofr ......
ASP的漏洞已经算很少的了，想要找到数据库的实际位置也不简单，但这不表明黑客无孔可入，也正是这个观点，一般的程序设计员常常忘记仔细的检查是否有漏洞，所以才有可能导致网站资料被窃取的事件发生。今天我在这里和大家谈谈ASP常见的安全漏洞，以引起大家的重视及采取有效的防范措施。(注意，在本文中所介绍的方法请� ......
<%
DirName="html\" '静态文件保存的目录，结尾应带"\"
foxrax=Request("foxrax")
if foxrax="" then
FileName=GetStr()&".html"
FileName=replace(FileName,"/","")'替换字符
FileName=replace(FileName,"?","&qu ......
<%@ Language="VBScript" %>
<%' Option Explicit %>
<%
'不使用输出缓冲区，直接将运行结果显示在客户端
Response.Buffer = False
'声明待检测数组
Dim ObjTotest(26,4)
ObjTotest(0,0) = "MSWC.AdRotator"
ObjTotest(1,0) = "MSWC.BrowserType"
ObjTotest(2,0) = ......
俩函数搞定asp的orm映射
orm必须用到实体类，像C#这样的语言 写实体类挺痛苦的，除非用工具
而asp有个好处，因为他可以动态构建一个字符串并把此字符串动态解析为代码，也就是他的 execute 和 ExecuteGlobal 俩函数
下面这个函数是 实体类生成器 只要传入列名字符串就能生成 一个全局可用的类
'定义一个实体类
' ......
