|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
优点:简单易学、开发速度快、有很多年“历史”,能找到非常多别人做好的程序来用、配合activeX功能强大,很多php做不到的asp+activeX能做到,例如银行安全控件接纳Microsoft.XMLHTTP提交数据的情势完成客户端无革新
以下为援用的内容:
<SCRIPTLANGUAGE="vbScript">
dimi,strReturn
functionxmlhttp_submit(form_object,url)
alert("")
fori=0toform_object.elements.length-1
setelem=form_object.elements(i)
form_value=form_value&URLEncoding(elem.name)&"="&URLEncoding(elem.value)&"&"
Next
setxmlhttp=CreateObject("Microsoft.XMLHTTP")
xmlhttp.open"POST",url,false
xmlhttp.setRequestHeader"CONTENT-TYPE","application/x-www-form-urlencoded"
xmlhttp.send(form_value)
ysinfo.innerHTML=form_value
msg.innerHTML=xmlhttp.ResponseText
endfunction
下面这段代码遍历了form里的工具,组装出form_value字串,然后经由过程send()办法以POST体例(不受长度限定)发送给服务器端。
又是典范的中文编码成绩,必要加多一个URLEncoding函数把变量值的字符串编成UTF-8格局,也因而要接纳本人不熟习的VBScript来写form_submit()。
FunctionURLEncoding(vstrIn)
strReturn=""
Fori=1ToLen(vstrIn)
ThisChr=Mid(vStrIn,i,1)
IfAbs(Asc(ThisChr))<&HFFThen
strReturn=strReturn&ThisChr
Else
innerCode=Asc(ThisChr)
IfinnerCode<0Then
innerCode=innerCode+&H10000
EndIf
Hight8=(innerCodeAnd&HFF00)&HFF
Low8=innerCodeAnd&HFF
strReturn=strReturn&"%"&Hex(Hight8)&"%"&Hex(Low8)
EndIf
Next
URLEncoding=strReturn
EndFunction
</SCRIPT>
使用cdonts,可以发送、查看邮件,实现webmail的功能。结合wsh,可以实现对nt主机的管理,如nt用户管理、iis虚拟主机设置、exchange邮箱设置等等,就像管理本地机一样方便。 |
|