㊣㊣㊣㊣㊣㊣㊣这段代码是什么机理?㊣㊣㊣㊣㊣㊣㊣

CDEFGAB 2004-12-06 04:39:45
<SCRIPT language="vbscript">
Sub Window_OnLoad()
PageRecordCount.value =10 '每页记录数
getNumberOfPages
tblHD.dataPageSize=10
FlashButton

btnQuery_onclick()
End Sub


Sub btnAdd_OnClick(Method)
dim i,xmlDoc,xmlcmd,xmlhttp
i=0
i=window.event.srcElement.sourceindex
Set xmlDoc = CreateObject("Msxml.DOMDocument")
xmlDoc.async = False
Set root = xmlDoc.createElement("CompanyRoot")
Set CategoryElm = xmlDoc.createElement("CompanyElem")
root.appendChild CategoryElm

do until document.all.item(i).tagname="TR"
if document.all.item(i).tagname="INPUT" and document.all.item(i).ID<>"" or document.all.item(i).tagname="SELECT" then
if document.all.item(i).ID="CompanyName" then
if document.all.item(i).value="" then
msgbox "公司名不能为空!"
document.all.item(i).focus()
exit sub
end if
end if
Set NewElm = xmlDoc.createElement(document.all.item(i).ID)
NewElm.text=document.all.item(i).value
CategoryElm.appendChild NewElm
end if
i=i-1
loop
xmlDoc.appendChild root
set xmlhttp = CreateObject("Microsoft.XMLHTTP")
xmlhttp.open "POST","Company.aspx?Action="&Method,false
xmlhttp.Send xmlDoc.xml '发送数据
If xmlHTTP.responseXML.SelectNodes("/Error").Length>0 Then
Msgbox xmlHTTP.responseXML.SelectSingleNode("/Error").Text
Else
Msgbox "操作成功!"
window.location.reload
End If
End Sub


Sub btnQuery_onclick()
dim QueryCondition
if Region.value="" then
QueryCondition=""
else
QueryCondition="RegionID='"®ion.value&"'"
end if
set xmlhttp = CreateObject("Microsoft.XMLHTTP")
xmlhttp.open "POST","Company.aspx?Type=Query&QueryCondition="&QueryCondition,false
xmlhttp.Send '发送数据
If xmlHTTP.responseXML.SelectNodes("/Error").Length>0 Then
Msgbox xmlHTTP.responseXML.SelectSingleNode("/Error").Text
Else
xmlApp.loadxml xmlHTTP.responseXML.xml'window.location.reload
End If
End Sub

</SCRIPT>
...全文
72 点赞 收藏 3
写回复
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
火电 2004-12-23
就是登陆的提交过程啊

不是在aspx中作的

在html中输入用户信息后然后生成一个信息xml,使用http对象的post方法

发送到对应后台的处理也面 aspx中

在到后台解析这个xml

判断用户是否正确等等

再返回xml结果

到前台再解析
回复
leeyeefeng2004 2004-12-09
本人看.....估计是输入表单,将表单数据搞成一个xml文档.然后发送出去
回复
jinseyd 2004-12-08
up!
回复
发动态
发帖子
XML/XSL
创建于2007-09-28

8779

社区成员

XML/XSL相关问题讨论专区
申请成为版主
社区公告
暂无公告