摘要：
iUBound1 Then For i = 0 To iUBound2 If StrComp(i, sValue, bCompare)0 Then k = k + 1 ReDim Preserve aTmpArray(iUBound1, k) For j = 0 To i... 阅读全文
posted @ 2008-03-12 13:22
pboy2925
阅读(126)
评论(0)
推荐(0)
摘要：
未完,测试中... UBound(A) Then Exit Function End If For j = 0 To UBound(A, 2) If StrComp(sValue, A(i, j), bCompare) = 0 Then Response.Write(A(i, j) & "") InArray2 ... 阅读全文
posted @ 2008-03-11 17:33
pboy2925
阅读(190)
评论(0)
推荐(0)
摘要：
文章来源:http://Jorkin.Reallydo.Com/default.asp?id=481 阅读全文
posted @ 2008-03-10 10:23
pboy2925
阅读(146)
评论(0)
推荐(0)
摘要：
文章来源:http://Jorkin.Reallydo.Com/default.asp?id=481 阅读全文
posted @ 2008-03-10 10:23
pboy2925
阅读(137)
评论(0)
推荐(0)
摘要：
标签格式化为模式'来源:http://jorkin.reallydo.com/article.asp?id=480'需要RegReplace函数:http://jorkin.reallydo.com/article.asp?id=345Function FixImg(sString) FixImg = sString & "" FixImg = RegReplace(FixImg, "... 阅读全文
posted @ 2008-03-09 16:32
pboy2925
阅读(102)
评论(0)
推荐(0)
浙公网安备 33010602011771号