GetPaing 函数之asp采集函数中用到的获取分页的代码

1. '==================================================  
2. '函数名：GetPaing  
3. '作  用：获取分页  
4. '==================================================  
5. Function GetPaing(Byval ConStr,StartStr,OverStr,IncluL,IncluR)  
6. If ConStr="$False$" or ConStr="" Or StartStr="" Or OverStr="" or IsNull(ConStr)=True or IsNull(StartStr)=True Or IsNull(OverStr)=True Then  
7.    GetPaing="$False$"  
8.    Exit Function  
9. End If  
10.  
11. Dim Start,Over,ConTemp,TempStr  
12. TempStr=LCase(ConStr)  
13. StartStr=LCase(StartStr)  
14. OverStr=LCase(OverStr)  
15. Over=Instr(1,TempStr,OverStr)  
16. If Over<=0 Then  
17.    GetPaing="$False$"  
18.    Exit Function  
19. Else  
20.    If IncluR=True Then  
21.       Over=Over+Len(OverStr)  
22.    End If  
23. End If  
24. TempStr=Mid(TempStr,1,Over)  
25. Start=InstrRev(TempStr,StartStr)  
26. If IncluL=False Then  
27.    Start=Start+Len(StartStr)  
28. End If  
29.  
30. If Start<=0 Or Start>=Over Then  
31.    GetPaing="$False$"  
32.    Exit Function  
33. End If  
34. ConTemp=Mid(ConStr,Start,Over-Start)  
35.  
36. ConTemp=Trim(ConTemp)  
37. ConTemp=Replace(ConTemp," ","")  
38. ConTemp=Replace(ConTemp,",","")  
39. ConTemp=Replace(ConTemp,"'","")  
40. ConTemp=Replace(ConTemp,"""","")  
41. ConTemp=Replace(ConTemp,">","")  
42. ConTemp=Replace(ConTemp,"<","")  
43. ConTemp=Replace(ConTemp," ","")  
44. GetPaing=ConTemp  
45. End Function