- 博客(3)
- 收藏
- 关注
RSS订阅原创 asp get data from xml
Dim xmlSet xml = Server.CreateObject("Microsoft.XMLDOM")xml.async = Falsexml.load (Server.MapPath("xmldemo1.xml"))Dim fText1, fText2fText1 = xml.documentElement.childNodes(0).textfText2 = xml.document
2004-08-23 10:32:00
830
原创 Limit Title Character...
Function neatTrim( strToTrim, desiredLength )strToTrim = trim( strToTrim )if len( strToTrim ) neatTrim = strToTrimexit functionelseif inStrRev( strToTrim, " ", desiredLength ) = 0 thenstrT
2004-08-20 11:01:00
953
原创 三级联动菜单
dim bid,cid bid = request("bid") bid 大类id cid = request("cid") cid 中类id if bid="" then bid="1" end if if cid="" then cid="1" end if set rs=server.createobje
2004-08-13 17:55:00
1678
4
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人