webservice.htc 应用
2004-12-07 10:12
302 查看
<script>
<!--
//position
var iobj
function Auth_Add_Element(obj,msg,value)
{ //创建成元素
var str = '<br><INPUT type="checkbox" NAME="ck_auth" value="' + value + '">'
document.getElementById(obj).insertAdjacentHTML("beforeEnd",str)
}
function pos_app(appid,hasdetail)
{
//访问权限是否设置 appid
//alert(appid + "|" + hasdetail)
//if(iobj){
//document.getElementsByName("tempObj")
//details.removeChild(iobj)
//}
if(details.hasChildNodes()){
//alert(details.hasChildNodes())
details.removeChild(stmp)
}
var tmp
tmp = "<div id='stmp' style='background-color:blue;width:400px;height:300px'></div>"
document.getElementById("details").insertAdjacentHTML("beforeEnd",tmp)
var t
if(hasdetail=="True"){
service.useService("../share/xget.asmx?WSDL","xAuth")
t = service.xAuth.callService(Results,"Auth_Model",appid)
}
}
function Results(result)
{
if(result.error)
{
var xfaultcode = result.errorDetail.code;
var xfaultstring = result.errorDetail.string;
var xfaultsoap = result.errorDetail.raw;
alert(xfaultcode + xdaultstring + xfaultsoap)
}
else
{
//document.getElementById("tt").value = result.value
var docSubmit = new ActiveXObject("MSXML2.DOMDocument");
docSubmit.loadXML(result.value)
var nodeList=docSubmit.documentElement.getElementsByTagName("Asm_auth")
var i,s,info,num
info = ""
num = nodeList.length
if(num<=0)
return
// var sp = window.document.createElement("SPAN")//document.getElementById("details").document.createElement("SPAN")
// sp.id="isp"
// document.getElementById("details").appendChild(sp)
s = "<table id='tempObj'>"
for (i=0;i<num;i++)
{
if(nodeList(i).selectSingleNode("info"))
{
info =" [" + nodeList(i).selectSingleNode("info").text + "]"
}
s += "<tr><td>"
s += "<input type=/"checkbox/" name=/"ck_auth/" value=/"" + nodeList(i).selectSingleNode("i_id").text + "/"></td><td>" + nodeList(i).selectSingleNode("iName").text + "</td><td>" + info + "</td></tr>"
info = ""
}
s += "</table>"
stmp.insertAdjacentHTML("beforeEnd",s)
//document.getElementById("details").insertAdjacentHTML("beforeEnd",s)
//sp.insertAdjacentHTML("beforeEnd",s)
}
}
-->
</script>
>DIV id=service style="BEHAVIOR: url(../webctrl_client/1_0/webservice.htc)">
<!--
//position
var iobj
function Auth_Add_Element(obj,msg,value)
{ //创建成元素
var str = '<br><INPUT type="checkbox" NAME="ck_auth" value="' + value + '">'
document.getElementById(obj).insertAdjacentHTML("beforeEnd",str)
}
function pos_app(appid,hasdetail)
{
//访问权限是否设置 appid
//alert(appid + "|" + hasdetail)
//if(iobj){
//document.getElementsByName("tempObj")
//details.removeChild(iobj)
//}
if(details.hasChildNodes()){
//alert(details.hasChildNodes())
details.removeChild(stmp)
}
var tmp
tmp = "<div id='stmp' style='background-color:blue;width:400px;height:300px'></div>"
document.getElementById("details").insertAdjacentHTML("beforeEnd",tmp)
var t
if(hasdetail=="True"){
service.useService("../share/xget.asmx?WSDL","xAuth")
t = service.xAuth.callService(Results,"Auth_Model",appid)
}
}
function Results(result)
{
if(result.error)
{
var xfaultcode = result.errorDetail.code;
var xfaultstring = result.errorDetail.string;
var xfaultsoap = result.errorDetail.raw;
alert(xfaultcode + xdaultstring + xfaultsoap)
}
else
{
//document.getElementById("tt").value = result.value
var docSubmit = new ActiveXObject("MSXML2.DOMDocument");
docSubmit.loadXML(result.value)
var nodeList=docSubmit.documentElement.getElementsByTagName("Asm_auth")
var i,s,info,num
info = ""
num = nodeList.length
if(num<=0)
return
// var sp = window.document.createElement("SPAN")//document.getElementById("details").document.createElement("SPAN")
// sp.id="isp"
// document.getElementById("details").appendChild(sp)
s = "<table id='tempObj'>"
for (i=0;i<num;i++)
{
if(nodeList(i).selectSingleNode("info"))
{
info =" [" + nodeList(i).selectSingleNode("info").text + "]"
}
s += "<tr><td>"
s += "<input type=/"checkbox/" name=/"ck_auth/" value=/"" + nodeList(i).selectSingleNode("i_id").text + "/"></td><td>" + nodeList(i).selectSingleNode("iName").text + "</td><td>" + info + "</td></tr>"
info = ""
}
s += "</table>"
stmp.insertAdjacentHTML("beforeEnd",s)
//document.getElementById("details").insertAdjacentHTML("beforeEnd",s)
//sp.insertAdjacentHTML("beforeEnd",s)
}
}
-->
</script>
>DIV id=service style="BEHAVIOR: url(../webctrl_client/1_0/webservice.htc)">
相关文章推荐
- VC与Delphi之间动态链接库互相调用
- javascript表单之间的数据传递!
- PHP 的 MySQL 操作类,跟手册上的函数一样用,但是更方便了。多说无益,看了就知道了。
- SELECT TOP N 问题
- delphi中的时间操作技术(1)
- delphi中的时间操作技术(2)
- VB五子棋问题,请高手赐教
- IP地址的隐藏(delphi实现 )
- 解析IP地址为主机域名
- 将某一主机域名解析为IP地址
- 獲取SQL SERVER用戶表信息游標
- 有关TrueDBGrid的问题向各位大虾请教
- 从注册表中还原MSNMessenger口令
- 用VB和MTS开发多层数据库应用系统
- 使用FSO把文本信息导入数据库
- 纯编码实现数据库的建立或压缩
- 从数据库中动态选取下拉列表的方法
- 如何在VB例程中接收自定义消息
- RHEL6入门系列之三十,服务管理
- linux系统服务解析