王新阳

asp xmlhttp发送form表单、xml、json或文本等示例

'发送端
Dim http
set http=server.createobject("MSXML2.XMLHTTP")
'下面一行只有在发送表单时才需要添加
'http.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"
http.open "POST","http://127.0.0.1/respond.asp",false
http.send(表单、文本、json、xml)
If http.readystate=4 then
	'发送成功
	'如果接收数据为乱码，需要用adodb.stream进行转码
	'接收文本和json数据：text=http.ResponseText
	'接收xml：xml.Load(http.ResponseBody)，只有响应端的内容类型是text/xml时，可以使用xml.Load(http.ResponseXML)，也可以xml.LoadXML(http.ResponseText)
end if
Set http=Nothing

'响应端
'接收表单直接用Request.Form
'接收文本和json都是用adodb.stream对Request.BinaryRead(Request.TotalBytes)获取的二进制进行文本转换
'接收xml：xml.Load(Request.BinaryRead(Request.TotalBytes))
Dim xml
Set xml = Server.CreateObject("MSXML2.DOMDocument")
xml.preserveWhiteSpace = true
xml.async = false
'xml.Load(二进制)
xml.LoadXml(文本型xml)
If xml.parseError.errorCode <> 0 Then
	Response.Write "Description: " & xml.parseError.reason & "
Line: " & xml.parseError.Line
Else
	If xml.getElementsByTagName("name").length=0 Then
		Response.Write "节点不存在"
	Else
		Response.Write xml.getElementsByTagName("name").Item(0).text
	End If
End If

2015-07-22

回应

Dim dict
Set dict = CreateObject("Scripting.Dictionary")
'添加项目
dict.Add "a", 100
dict.Add "b", 200
'统计项目数
Response.Write dict.Count

'删除项目
dict.Remove("a")

'判断项目是否存在
dict.exists("a")

'取关键字对应的值，注意在使用前需要判断是否存在key，否则dict中会多出一条记录
Response.Write dict.Item("a")

'修改关键字对应的值,如不存在则创建新的项目
dict.Item("a") = 101

'遍历
Dim arr, i
arr=dict.Items
For i=0 To dict.Count-1
Response.Write arr(i) '假设项目值为文本
Next

属性说明
CompareMode （仅用于VBScript）设定或返回键的字符串比较模式
Count 只读。返回Dictionary里的键/条目对的数量 ---从1开始，而不像数组从0开始计数
Item(key) 设定或返回指定的键的值
Key(key) 设定键名值

方法说明
Add(key,item) 增加键/条目对到Dictionary
Exists(key) 如果指定的键存在，返回True，否则返回False
Items() 返回一个包含Dictionary对象中所有条目的数组
Keys() 返回一个包含Dictionary对象中所有键的数组
Remove(key) 删除一个指定的键/条目对
RemoveAll() 删除全部键/条目对

2015-07-07

回应

在ASP中使用正则表达式

Dim arr
arr = regExec("192.168.a.1", "(25[0-5]|2[0-4][0-9]|1[0-9]{2}|[1-9]{2}|[1-9])\.")
Response.Write Ubound(arr)&"<br><br>"

Response.Write regReplace("[IMG]http://www.baidu.com/img/baidu_sylogo1.gif[/IMG]", "\[IMG\](.+)\[\/IMG\]", "<img src=""$1"" />")

Function regTest(ByVal str, p) Dim re
Set re = New RegExp
re.Pattern = p
re.IgnoreCase = true
re.Global = true
regTest = re.Test(str)
End Function

Function regReplace(ByVal str, p, str2)
If emp(str) Then
regReplace = ""
Else
Dim re
Set re = New RegExp
re.IgnoreCase = true
re.Global = true
re.Pattern = p
regReplace = re.Replace(str, str2)
End If
End Function

Function regMatch(Str, Pattern)
Dim regEx, obj
Set regEx = New RegExp
regEx.Pattern = Pattern
regEx.IgnoreCase = True
regEx.Global=True
Set obj = regEx.Execute(Str)
If obj.Count=0 Then
regMatch= array()
Else
Dim arr(), result, i
Redim arr(obj.count-1)
i=0
For Each result In obj
arr(i)=result
i=i+1
Next
regMatch=arr
End If
End Function

2015-06-27

回应

1 2

王新阳

ASP发起SOAP请求

asp生成CODE39码制的条形码

asp xmlhttp发送form表单、xml、json或文本等示例

asp用服务器端js解析并获取简单json示例

ASP Scripting.Dictionary对象

在ASP中使用正则表达式