End If If (SW_intPageSize<=0) Then strError = strError & "<br>PageSize只能是正整数" End If End If If Trim(strError)="" Then SW_blnPageSize = True Else SW_strError = SW_strError & " <tr bgcolor=""#336699"" height=""28""><td><font color=""#FFFFFF"">PageSize属性：</font></td></tr>" & vbcrlf SW_strError = SW_strError & " <tr bgcolor=""#ffffff""><td>" & strError & "</td></tr>" & vbcrlf End If End Property
'***************************************** ' 类型： 属性 ' 目的： 设定分页文件显示模板信息。 ' 输入： a_strTemplate: 模板描述。 ' 返回： 无。 '***************************************** Public Property Let Template(a_strTemplate) Dim aryTemplate,i,j,strError,strTemp,intItem,aryTemp,aryTemp1
SW_blnTemplate = false
aryTemplate = Split(Trim(LCase(a_strTemplate)),"+") intItem = UBound(aryTemplate) If intItem < 4 Then strError = "<br>此属性是必选项"
If intItem < 4 Then '获取文件头 strTemp = TriM(aryTemplate(0))
If strcomp(Left(strTemp,6),"[file=")= 0 Then SW_strHeadJS = "<script src=""" & Mid(strTemp,7,Len(strTemp)-7) & """></script>" Else SW_strHeadJS = Mid(strTemp,7,Len(strTemp)-7) End If
'获取文件尾 strTemp = Trim(aryTemplate(3))
If strComp(Left(strTemp,6),"[file=") = 0 Then SW_strFootJS = "<script src=""" & Mid(strTemp,7,Len(strTemp)-7) & """></script>" Else SW_strFootJS = Mid(strTemp,7,Len(strTemp)-7) End If
'获取分页模版 aryTemp = Split(aryTemplate(1),",") If aryTemp(0) <> "" Then strTemp = Replace(aryTemp(0),"[page=","")
If IsNumeric(strTemp) Then strTemp = CInt(strTemp) If strTemp <> SW_intPageInNone Then
If IsNumeric(strTemp) Then strTemp = CInt(strTemp)
SW_intShowPagePos = strTemp strTemp = aryTemp(1) If strTemp <> "" Then strTemp = Replace(strTemp,"]","")
精品推荐