- 博客(5)
- 收藏
- 关注
RSS订阅原创 vbscript知识目录(不断完善中。。。)
函数 其它类函数: eval array Cint Creatobject Cstr formatcurrency Isobject Lbound
2006-06-20 10:04:00
817
原创 一段字符串处理程序
处理下半部的超链接 dim sV,sD 有效数据 dim lStart,lEnd lStart = instr(1,sR,"product_con.asp") if lStart > 0 then sV = mid(sR,1,lStart-1) while lStart > 0 lEnd = instr(lStart, sR, chr(34)
2006-06-15 21:44:00
991
原创 将字符串中某一字符串替代成其它的字符
dim sRdim iStart,iEnd,sHtmiStart = instr(1,sA,"product.asp?id=")sqian = mid(sA,1,iStart-1)while iStart > 0 iEnd = instr(iStart,sA,"target") shuzi = trim(mid(sA, iStart+15, iEnd - iStart -15))
2006-06-09 15:05:00
1091
原创 将asp页面转换成html页面
Sub GenFile(id) dim objXmlHttp set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP") objXmlHttp.open "GET","http://www.xxx.com/product.asp?id=" & id ,false objXmlHttp.send() Dim binFileDa
2006-06-09 15:01:00
1989
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人