验证码演示

	   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&"
"
			 str=str&"header"&.rHeader&"
"
			 str=str&"cookie old"&.rCookie&"
"
			 str=str&"body"&.rText&""
		End With
		Set http = Nothing
		
        

网站统计演示

        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