ASP
leechiyang
这个作者很懒,什么都没留下…
展开
-
asp中利用MSXML2.DOMDocument解析xml文件
set xmlDoc = server.CreateObject("MSXML2.DOMDocument")xmlDoc.loadXML("深州26衡水25")set root = xmlDoc.documentElementset oNodeList = root.childNodesfor each item in oNodeList response.Write item.getattri原创 2005-12-07 11:07:00 · 7185 阅读 · 0 评论 -
选择xml的某一个节点
set node = root.selectSingleNode("/OrgCodeService/Result/Type") set node = root.selectSingleNode("/OrgCodeService/OrgData/item[@name=OrgTypeName]")原创 2005-12-13 21:16:00 · 1026 阅读 · 0 评论 -
asp服务器端读取远程网页
Function StreamToChar(StrStream) set stream=CreateObject("ADODB.Stream") stream.Type=1 stream.Mode=3 stream.Open stream.Write Strstream stream.Position= 0 stream.Type= 2 stream.Charset="GB23原创 2005-12-06 17:44:00 · 1511 阅读 · 0 评论 -
ASP生成GUID字符串
Function GetGuid() Set TypeLib = Server.CreateObject("Scriptlet.TypeLib") GetGuid = TypeLib.Guid Set TypeLib = Nothing End Function response.write getguid()%>原创 2005-12-23 21:14:00 · 1024 阅读 · 0 评论 -
Function bytes2BSTR(vIn)
Function bytes2BSTR(vIn) dim strReturn dim i,ThisCharCode,NextCharCode strReturn = "" For i = 1 To LenB(vIn) ThisCharCode = AscB(MidB(vIn,i,1)) If ThisCharCode strReturn =原创 2006-02-06 15:40:00 · 1522 阅读 · 0 评论 -
用ASP写Base64编码数据到文件
function WriteBase64File(fileName, content) Dim xml Set xml=Server.CreateObject("MSXML2.DOMDocument") Dim stm Set stm=Server.CreateObject("ADODB.Stream") Set root = xml.createElement("tif") roo原创 2006-06-23 10:38:00 · 1749 阅读 · 0 评论