📄 ks_commoncls.asp
字号:
ReturnChannelUpFilesDir = CRS(0)
End If
InstallDir = GetConfig("InstallDir")
ReturnChannelUpFilesDir = Left(ReturnChannelUpFilesDir, Len(ReturnChannelUpFilesDir) - 1)
If InstallDir = "/" Then ReturnChannelUpFilesDir = "/" & ReturnChannelUpFilesDir
CRS.Close:Set CRS = Nothing
End Function
'**************************************************
'函数名：ReturnChannelAllowUserUpFilesTF
'作 用：返回频道是否允许会员上传文件
'参 数：ChannelID--频道ID
'**************************************************
Public Function ReturnChannelAllowUserUpFilesTF(ChannelID)
Dim InstallDir
If ChannelID = "" Or Not IsNumeric(ChannelID) Then
ChannelID = 0
End If
Dim CRS:Set CRS=Server.CreateObject("ADODB.RECORDSET")
CRS.Open "Select UserUpFilesTF From KS_Channel Where ChannelID=" & ChannelID, Conn, adOpenForwardOnly, adLockReadOnly
If CInt(ChannelID) = 0 Or (CRS.EOF And CRS.BOF) Then '默认允许上传文件
ReturnChannelAllowUserUpFilesTF = True
Else
If CRS(0) = 1 Then
ReturnChannelAllowUserUpFilesTF = True
Else
ReturnChannelAllowUserUpFilesTF = False
End If
End If
CRS.Close:Set CRS = Nothing
End Function
'**************************************************
'函数名：ReturnChannelUserUpFilesDir
'作 用：返回频道前台会员的上传目录
'参 数：ChannelID--频道ID
'返回值：目录字符串
'**************************************************
Public Function ReturnChannelUserUpFilesDir(ChannelID)
Dim InstallDir
If ChannelID = "" Or Not IsNumeric(ChannelID) Then
ChannelID = 0
End If
Dim CRS:Set CRS=Server.CreateObject("ADODB.RECORDSET")
CRS.Open "Select UserUpFilesDir From KS_Channel Where ChannelID=" & ChannelID, Conn, adOpenForwardOnly, adLockReadOnly
If CInt(ChannelID) = 0 Or (CRS.EOF And CRS.BOF) Then
ReturnChannelUserUpFilesDir = GetConfig("UpFilesDir")
Else
ReturnChannelUserUpFilesDir = CRS(0)
End If
InstallDir = GetConfig("InstallDir")
ReturnChannelUserUpFilesDir = Left(ReturnChannelUserUpFilesDir, Len(ReturnChannelUserUpFilesDir) - 1)
If InstallDir = "/" Then ReturnChannelUserUpFilesDir = "/" & ReturnChannelUserUpFilesDir
CRS.Close:Set CRS = Nothing
End Function
'**************************************************
'函数名：ReturnChannelAllowUpFilesSize
'作 用：返回频道的最大允许上传文件大小
'参 数：ChannelID--频道ID
'**************************************************
Public Function ReturnChannelAllowUpFilesSize(ChannelID)
Dim InstallDir
If ChannelID = "" Or Not IsNumeric(ChannelID) Then
ChannelID = 0
End If
Dim CRS:Set CRS=Server.CreateObject("ADODB.RECORDSET")
CRS.Open "Select UpFilesSize From KS_Channel Where ChannelID=" & ChannelID, Conn, adOpenForwardOnly, adLockReadOnly
If CInt(ChannelID) = 0 Or (CRS.EOF And CRS.BOF) Then
ReturnChannelAllowUpFilesSize = GetConfig("DefaultUpFilesSize")
Else
ReturnChannelAllowUpFilesSize = CRS(0)
End If
CRS.Close:Set CRS = Nothing
End Function
'**************************************************
'函数名：ReturnChannelAllowUpFilesType
'作 用：返回频道的允许上传的文件类型
'参 数：ChannelID--频道ID,TypeFlag 0-取全部 1-图片类型 2-flash 类型 3-Windows 媒体类型 4-Real 类型 5-其它类型
'**************************************************
Public Function ReturnChannelAllowUpFilesType(ChannelID, TypeFlag)
Dim InstallDir
If ChannelID = "" Or Not IsNumeric(ChannelID) Then ChannelID = 0
If Not IsNumeric(TypeFlag) Then TypeFlag = 0
Dim CRS:Set CRS=Server.CreateObject("ADODB.RECORDSET")
CRS.Open "Select AllowUpPhotoType,AllowUpFlashType,AllowUpMediaType,AllowUpRealType,AllowUpOtherType From KS_Channel Where ChannelID=" & ChannelID, Conn, adOpenForwardOnly, adLockReadOnly
If CInt(ChannelID) = 0 Or (CRS.EOF And CRS.BOF) Then
ReturnChannelAllowUpFilesType = GetConfig("DefaultAllowUpFilesType")
Else
If TypeFlag = 0 Then '所有允许的类型
ReturnChannelAllowUpFilesType = CRS(0) & "|" & CRS(1) & "|" & CRS(2) & "|" & CRS(3) & "|" & CRS(4)
Else
ReturnChannelAllowUpFilesType = CRS(TypeFlag - 1)
End If
End If
CRS.Close:Set CRS = Nothing
End Function
'**********************************************************************
'函数名：ReturnSpecial
'作 用：返回专题名称
'参 数：Selected-预选中项 ,ChannelID--频道ID,FolderID ---目录ID
'返回值：专题名称
'**********************************************************************
Public Function ReturnSpecial(SelectID, ChannelID, FolderID)
Dim SpecialObj:Set SpecialObj=Server.CreateObject("ADODB.RECORDSET")
Dim ParaStr
If ChannelID <> "" Then
ParaStr = ParaStr & " And ChannelID=" & ChannelID
If FolderID <> "" And FolderID <> "0" Then
ParaStr = ParaStr & " And FolderID='" & FolderID & "'"
End If
Else
If FolderID <> "" And FolderID <> "0" Then
ParaStr = ParaStr & " And FolderID='" & FolderID & "'"
End If
End If
SpecialObj.Open "Select SpecialName,ID From KS_Special Where 1=1 " & ParaStr, Conn, 1, 1
If Not SpecialObj.EOF Then
Do While Not SpecialObj.EOF
If Trim(SelectID) = Trim(SpecialObj("ID")) Then
ReturnSpecial = ReturnSpecial & "<Option value=" & SpecialObj("ID") & " Selected>" & Trim(SpecialObj("SpecialName")) & "</Option>"
Else
ReturnSpecial = ReturnSpecial & "<Option value=" & SpecialObj("ID") & ">" & Trim(SpecialObj("SpecialName")) & "</Option>"
End If
SpecialObj.MoveNext
Loop
End If
SpecialObj.Close:Set SpecialObj = Nothing
End Function
'**************************************************
'函数：FoundInArr
'作 用：检查一个数组中所有元素是否包含指定字符串
'参 数：strArr ----存储数据数据的字串
' strToFind ----要查找的字符串
' strSplit ----数组的分隔符
'返回值：True,False
'**************************************************
Public Function FoundInArr(strArr, strToFind, strSplit)
Dim arrTemp, i
FoundInArr = False
If InStr(strArr, strSplit) > 0 Then
arrTemp = Split(strArr, strSplit)
For i = 0 To UBound(arrTemp)
If LCase(Trim(arrTemp(i))) = LCase(Trim(strToFind)) Then
FoundInArr = True:Exit For
End If
Next
Else
If LCase(Trim(strArr)) = LCase(Trim(strToFind)) Then FoundInArr = True
End If
End Function
'检查是否是数字 ，并转换为长整型
Public Function ChkClng(ByVal str)
If str<>"" and IsNumeric(str) Then
ChkClng = CLng(str)
Else
ChkClng = 0
End If
End Function
'**************************************************
'函数名：ShowPage
'作 用：显示“上一页 下一页”等信息
'参 数：filename ----链接地址
' TotalNumber ----总数量
' MaxPerPage ----每页数量
' ShowAllPages ---是否用下拉列表显示所有页面以供跳转。
' strUnit ----计数单位,CurrentPage--当前页
'返回值：无返回值
'**************************************************
Sub ShowPage(totalnumber, MaxPerPage, FileName, ShowAllPages, strUnit, CurrentPage)
Dim N, I, PageStr
Const Btn_First = "<font face='webdings' size='2' title='第一页'>9</font>" '定义第一页按钮显示样式
Const Btn_Prev = "<font face='webdings' size='2' title='上一页'>3</font>" '定义前一页按钮显示样式
Const Btn_Next = "<font face='webdings' size='2' title='下一页'>4</font>" '定义下一页按钮显示样式
Const Btn_Last = "<font face='webdings' size='2' title='最后一页'>:</font>" '定义最后一页按钮显示样式
PageStr = ""
If totalnumber Mod MaxPerPage = 0 Then
N = totalnumber \ MaxPerPage
Else
N = totalnumber \ MaxPerPage + 1
End If
If N > 1 Then
PageStr = PageStr & ("页次：<font color=red>" & CurrentPage & "</font>/" & N & "页 共有:" & totalnumber & strUnit & " 每页:" & MaxPerPage & strUnit & " ")
If CurrentPage < 2 Then
PageStr = PageStr & Btn_First & " " & Btn_Prev & " "
Else
PageStr = PageStr & ("<a href=" & FileName & "?page=1>" & Btn_First & "</a> <a href=" & FileName & "?page=" & CurrentPage - 1 & ">" & Btn_Prev & "</a> ")
End If
If N - CurrentPage < 1 Then
PageStr = PageStr & " " & Btn_Next & " " & Btn_Last & " "
Else
PageStr = PageStr & (" <a href=" & FileName & "?page=" & (CurrentPage + 1) & ">" & Btn_Next & "</a> <a href=" & FileName & "?page=" & N & ">" & Btn_Last & "</a> ")
End If
If ShowAllPages = True Then
PageStr = PageStr & "GO:<select onChange='location.href=this.value;' style='width:55;' name='select'>"
For I = 1 To N
If CurrentPage = I Then
PageStr = PageStr & ("<option value=" & FileName & "?page=" & I & " selected>NO." & I & "</option>")
Else
PageStr = PageStr & ("<option value=" & FileName & "?page=" & I & ">NO." & I & "</option>")
End If
Next
PageStr = PageStr & "</select>"
End If
End If
Response.Write (PageStr)
End Sub
'**************************************************
'函数名：ShowPagePara
'作 用：显示“上一页 下一页”等信息
'参 数：filename ----链接地址
' TotalNumber ----总数量
' MaxPerPage ----每页数量
' ShowAllPages ---是否用下拉列表显示所有页面以供跳转。
' strUnit ----计数单位,CurrentPage--当前页,ParamterStr参数
'返回值：无返回值
'**************************************************
Public Function ShowPagePara(totalnumber, MaxPerPage, FileName, ShowAllPages, strUnit, CurrentPage, ParamterStr)
Dim N, I, PageStr
Const Btn_First = "<font face='webdings' size='2' title='第一页'>9</font>" '定义第一页按钮显示样式
Const Btn_Prev = "<font face='webdings' size='2' title='上一页'>3</font>" '定义前一页按钮显示样式
Const Btn_Next = "<font face='webdings' size='2' title='下一页'>4</font>" '定义下一页按钮显示样式
Const Btn_Last = "<font face='webdings' size='2' title='最后一页'>:</font>" '定义最后一页按钮显示样式
PageStr = ""
If totalnumber Mod MaxPerPage = 0 Then
N = totalnumber \ MaxPerPage
Else
N = totalnumber \ MaxPerPage + 1
End If
If N > 1 Then
PageStr = PageStr & ("页次：<font color=red>" & CurrentPage & "</font>/" & N & "页 共有:" & totalnumber & strUnit & " 每页:" & MaxPerPage & strUnit & " ")
If CurrentPage < 2 Then
PageStr = PageStr & Btn_First & " " & Btn_Prev & " "
Else
PageStr = PageStr & ("<a href=" & FileName & "?page=1" & "&" & ParamterStr & ">" & Btn_First & "</a> <a href=" & FileName & "?page=" & CurrentPage - 1 & "&" & ParamterStr & ">" & Btn_Prev & "</a> ")
End If
If N - CurrentPage < 1 Then
PageStr = PageStr & " " & Btn_Next & " " & Btn_Last & " "
Else
PageStr = PageStr & (" <a href=" & FileName & "?page=" & (CurrentPage + 1) & "&" & ParamterStr & ">" & Btn_Next & "</a> <a href=" & FileName & "?page=" & N & "&" & ParamterStr & ">" & Btn_Last & "</a> ")
End If
If ShowAllPages = True Then
PageStr = PageStr & ("GO:<select onChange='location.href=this.value;' style='width:55;' name='select'>")
For I = 1 To N
If CurrentPage = I Then
PageStr = PageStr & ("<option value=" & FileName & "?page=" & I & "&" & ParamterStr & " selected>NO." & I & "</option>")
Else
PageStr = PageStr & ("<option value=" & FileName & "?page=" & I & "&" & ParamterStr & ">NO." & I & "</option>")
End If
Next
PageStr = PageStr & "</select>"
End If
End If
ShowPagePara = PageStr
End Function
Sub ShowPageParamter(totalnumber, MaxPerPage, FileName, ShowAllPages, strUnit, CurrentPage, ParamterStr)
Response.Write (ShowPagePara(totalnumber, MaxPerPage, FileName, ShowAllPages, strUnit, CurrentPage, ParamterStr))
End Sub
'***********************************************************************************************************
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -