类描述
类方法
验证码演示
Set verify = loader.LoadClass("Ext/Verify") verify.output Set verify = Nothing
发邮件演示
Set mail = loader.LoadClass("Ext/Mail") mail.Setting "smtp.exmail.qq.com",465,1,"[email protected]","xxx123" i = mail.Send("[email protected]", "Frank", "test subject", "test content", "ekede", "[email protected]", 1) Set mail = Nothing
Http请求演示
url = wts.route.ReWrite(wts.site.config("base_url"), "index.asp?route=index/http") Set http = loader.LoadClass("Ext/Http") With http .cookie_on = True .cache = wts.cache '.SetHeader "Accept-Encoding", "gzip, deflate"'设定gzip压缩 .SetHeader "Referer", url '设定页面来源 .SetHeader "Accept-Language", "zh-cn" '设定语言 .SetHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)" '设定浏览器 .SetHeader "Accept", "*/*" '文档类型 .SetHeader "aaa", "bbb" '自定义头 .SetHeader "If-Modified-Since", "0" '避免跳转错误 .SetHeader "Content-Type", "application/x-www-form-urlencoded" '"multipart/form-data" .AddItem "username","nom" .AddItem "password","pass" '.items = "你好" .Send "POST",url ' str="status:"&.rStatus&"
网站统计演示
Set stat = loader.LoadClass("Ext/WebStat") stat.fun = wts.fun ip=stat.GetIp() wts.responses.SetOutput stat.GetSys 'wts.responses.SetOutput stat.GetBrowser() 'wts.responses.SetOutput stat.GetLanguage() Set stat = Nothing
IP库查询演示
ip="202.202.202.202" Set wry = loader.LoadClass("Ext/Tqqwry") wry.data=wts.fso.GetMapPath(PATH_ROOT&"data/db/qqwry.dat") ipType = wry.QQWry(ip) ipContry = wry.Country Set wry = Nothing wts.responses.SetOutput ipContry
dom操作演示
Set xml = loader.LoadClass("Ext/Xml") '增加根节点 Set root = xml.CreateNew("root") '增加子节点 Set first_ = xml.AddNode("first_",root) xml.AddAttribute "id","1",first_ '增加孙节点2 Set second_ = xml.AddNode("second_",first_) xml.AddAttribute "id","2",second_ '节点增加属性 xml.AddText "Cd*asdf&",True,second_ '节点添加文本 '增加孙节点3 Set third_ = xml.AddNode("third_",first_) xml.AddAttribute "id","3",third_ xml.AddText "3333",False,third_ '查找节点返回数组 Set findnode=xml.FindNodes("second_") s = "length:"& findnode.length&chr(10) If findnode.length > 0 Then s = s & "id:"&xml.GetAtt("id",findnode(0))&chr(10) '节点属性读取 s = s & "name:"& xml.GetNodeName(findnode(0))&chr(10) '节点名称读取 s = s & "text:"& xml.GetNodeText(findnode(0))&chr(10) '节点文本读取 s = s & "type:"& xml.GetNodeType(findnode(0))&chr(10) '节点类型读取 End If '替换节点内容 xml.ReplaceNode "root/first_/third_","444",True '删除节点 xml.DelNode "root/first_/third_" '保存为xml xml.SaveAsXML wts.fso.GetMapPath(PATH_ROOT&PATH_DATA&"test.xml") Set xml = Nothing
数组排序演示
'a=Array(25,20,31,33,4,5,5,7,9,2,10) a=Array("zoo","a","big","som") Set Arr = loader.LoadClass("Ext/Array") Arr.Sorts a,"desc" Set Arr = Nothing For i = 0 To UBound(a) s=s& a(i)&Chr(10) Next
zip打包演示
zFolder = wts.fso.GetMapPath(PATH_ROOT&PATH_PIC&PATH_PIC_IMAGES) zFile = wts.fso.GetMapPath(PATH_ROOT&PATH_PIC&"image.zip") uFolder = wts.fso.GetMapPath(PATH_ROOT&PATH_PIC&"unzip") Set fzip = loader.LoadClass("Ext/Zip") fzip.Zip zFolder, zFile fzip.UnZip zFile,uFolder Set fzip = Nothing
pack打包演示
zFolder = wts.fso.GetMapPath(PATH_ROOT&PATH_PIC&PATH_PIC_IMAGES) zFile = wts.fso.GetMapPath(PATH_ROOT&PATH_PIC&"images.pack") uFolder = wts.fso.GetMapPath(PATH_ROOT&PATH_PIC&"unpack") Set p = loader.LoadClass("Ext/Pack") p.Pack zFolder, zFile p.UnPack zFile,uFolder Set pack = Nothing
购物车
Set cart = loader.LoadClass("Ext/Cart") cart.cartId = wts.site.langId cart.add 1,1 cart.add 2,1 cart.add 3,1 cart.Remove 1 n = cart.HasNum Set cart = Nothing |