If IsNumeric(strTemp) Then strTemp = CInt(strTemp) SW_intShowPageType = strTemp Else SW_intShowPagePos = SW_intPageShowInNone End If
'获取数据显示模版 aryTemp = Split(aryTemplate(2),"") For i = 0 To UBound(aryTemp) strTemp = LCase(Trim(aryTemp(i))) Select Case i Case 0 '获取并设置显示宽度 If strTemp <> "" Then strTemp = Replace(strTemp,"[data=","") SW_strShowWidth = strTemp Case 1 '获取数据显示方式 If IsNumeric(strTemp) Then strTemp = CInt(strTemp) SW_intShowType = strTemp Case 2 If strTemp <> "" Then strTemp = Replace(strTemp,"]","") aryTemp1 = Split(Trim(strTemp),"#") If UBound(aryTemp1) >= 3 Then SW_aryFldNote = Split(aryTemp1(0),",") SW_aryFldAlign = Split(aryTemp1(1),",") SW_aryFldWidth = Split(aryTemp1(2),",") SW_aryFldLink = Split(aryTemp1(3),",") End If End Select Next End If
If strError = "" Then SW_blnTemplate = true Else SW_strError = SW_strError & " <tr bgcolor=""#336699"" height=""28""><td><font color=""#FFFFFF"">Template属性：</font></td></tr>" & vbcrlf SW_strError = SW_strError & " <tr bgcolor=""#ffffff""><td>" & strError & "</td></tr>" & vbcrlf End If End Property
'***************************************** ' 类型： 属性 ' 目的： 设定或显示URL。 ' 输入： a_strURL: 需要分页的文件地址。 ' 返回： 需要分页的文件地址。 '***************************************** Public Property Let URL(a_strURL) Dim strError,objFSO
SW_blnGetURL = false If Trim(a_strURL)="" Then strError = "<br>非法的URL地址" Else Set objFSO = CreateObject("Scripting.FileSystemObject") If objFSO.FileExists(Server.Mappath(a_strURL)) Then SW_strURL = a_strURL Else strError = strError & "<br>你能确定文件 <font color=""#ff0000"">" & a_strURL & "</font> 存在么？" End If Set objFSO = Nothing End If If strError = "" Then
精品推荐