行在代码之路
-
编辑 删除
ASP(AJAX)
1.POST方式Sub submit1_onmouseup Dim objXML, objXSL, objFSO,strFile, strFileName, strXSL,strURL, theString,TheForm Set TheForm = Document.wordfind window.status="正在检索数据···" strURL="dns2.asp" ' 服务器侦听页地址 Set objXML = CreateObject("Microsoft.XMLHTTP") '创建MS的XMLHTTP组件 stra = "submit=submit&fqdn="&TheForm.webname.value objXML.Open "post",strURL,false '采用Post提交方式； objXML.setrequestheader "content-length",le
