📄 public_refresh.asp
字号:
if UBound(f_Paras_Array) = 1 then
f_Temp_Array_1 = Split(f_Paras_Array(0),":")
f_Temp_Array_2 = Split(f_Paras_Array(1),":")
if UBound(f_Temp_Array_1) = 1 And UBound(f_Temp_Array_2) = 1 then
If G_IS_SQL_DB=0 Then
f_Where = " And A.addtime Between #" & f_Temp_Array_1(1) & "# And #" & f_Temp_Array_2(1) & "#"
Else
f_Where = " And A.addtime Between '" & f_Temp_Array_1(1) & "' And '" & f_Temp_Array_2(1) & "'"
End If
else
f_Where = " And 1=0 "
end if
else
f_Where = " And 1=0 "
end if
f_Where = f_Where+" and A.isURL=0 and isdraft=0 and isRecyle=0 and isLock=0 and A.ClassID in (Select ClassID From FS_NS_NewsClass)"
Case "nsclassnews"
f_ID = Split(f_Paras_Array(0),":")(1)
f_ID = "'" & Replace(f_ID,"*","','") & "'"
f_Where = " And A.ClassID in (" & f_ID & ")"
f_Where = f_Where+" and A.isURL=0 and isdraft=0 and isRecyle=0 and isLock=0 and A.ClassID in (Select ClassID From FS_NS_NewsClass)"
Case "nsallclass"
f_Public_Sql_Head = Get_Search_Sql_Head(p_Sys_ID,"class")
f_Where = ""
f_Where = f_Where+" and A.isURL=0 and ReycleTF=0 and A.ClassID in (Select ClassID From FS_NS_NewsClass)"
Case "nsclass"
f_ID = Split(f_Paras_Array(0),":")(1)
f_ID = "'" & Replace(f_ID,"*","','") & "'"
f_Public_Sql_Head = Get_Search_Sql_Head(p_Sys_ID,"class")
f_Where = " And A.ClassID in (" & f_ID & ")"
f_Where = f_Where+" and A.isURL=0 and ReycleTF=0"
Case "nsspecial"
f_Public_Sql_Head = Get_Search_Sql_Head(p_Sys_ID,"special")
f_ID = Split(f_Paras_Array(0),":")(1)
if f_ID <> "" then
f_ID = Replace(f_ID,"*",",")
f_Where = " And A.specialID in (" & f_ID & ")"
else
f_Where = " and 1=0"
End If
Str_ID="specialID"
f_Where = f_Where+" and isLock=0"
Case Else
f_Where = " And 1=0"
End Select
Case "MS"
f_Public_Sql_Head = Get_Search_Sql_Head(p_Sys_ID,"product")
Select Case f_Type
Case "msallproduct"
f_Where = ""
Case "msidproduct"
if UBound(f_Paras_Array) = 1 then
f_Temp_Array_1 = Split(f_Paras_Array(0),":")
f_Temp_Array_2 = Split(f_Paras_Array(1),":")
if UBound(f_Temp_Array_1) = 1 And UBound(f_Temp_Array_2) = 1 then
f_Where = " And A.ID Between " & Split(f_Paras_Array(0),":")(1) & " And " & Split(f_Paras_Array(1),":")(1)
else
f_Where = " And 1=0 "
end if
else
f_Where = " And 1=0 "
end if
Case "mslastproduct"
f_Where = ""
Case "msdateproduct"
if UBound(f_Paras_Array) = 1 then
f_Temp_Array_1 = Split(f_Paras_Array(0),":")
f_Temp_Array_2 = Split(f_Paras_Array(1),":")
if UBound(f_Temp_Array_1) = 1 And UBound(f_Temp_Array_2) = 1 then
If G_IS_SQL_DB=0 Then
f_Where = " And A.addtime Between #" & Split(f_Paras_Array(0),":")(1) & "# And #" & Split(f_Paras_Array(1),":")(1)&"#"
Else
f_Where = " And A.addtime Between '" & Split(f_Paras_Array(0),":")(1) & "' And '" & Split(f_Paras_Array(1),":")(1)&"'"
End if
else
f_Where = " And 1=0 "
end if
else
f_Where = " And 1=0 "
end if
Case "msclassproduct"
f_ID = Split(f_Paras_Array(0),":")(1)
f_ID = "'" & Replace(f_ID,"*","','") & "'"
f_Where = " And A.ClassID in (" & f_ID & ")"
Case "msallclass"
f_Public_Sql_Head = Get_Search_Sql_Head(p_Sys_ID,"class")
f_Where = "AND IsURL=0"
Case "msclass"
f_ID = Split(f_Paras_Array(0),":")(1)
f_ID = "'" & Replace(f_ID,"*","','") & "'"
f_Public_Sql_Head = Get_Search_Sql_Head(p_Sys_ID,"class")
f_Where = " And A.ClassID in (" & f_ID & ") AND IsURL=0"
Case "msspecial"
f_Public_Sql_Head = Get_Search_Sql_Head(p_Sys_ID,"special")
f_ID = Split(f_Paras_Array(0),":")(1)
if f_ID <> "" then
f_ID = Replace(f_ID,"*",",")
f_Where = " And A.specialID in (" & f_ID & ")"
else
f_Where = " And 1=0"
end If
Str_ID="specialID"
Case Else
f_Where = " And 1=0"
End Select
Case "DS"
f_Public_Sql_Head = Get_Search_Sql_Head(p_Sys_ID,"download")
Select Case f_Type
Case "dsalldownload"
f_Where = ""
Case "dsiddownload"
if UBound(f_Paras_Array) = 1 then
f_Temp_Array_1 = Split(f_Paras_Array(0),":")
f_Temp_Array_2 = Split(f_Paras_Array(1),":")
if UBound(f_Temp_Array_1) = 1 And UBound(f_Temp_Array_2) = 1 then
f_Where = " And A.ID Between " & Split(f_Paras_Array(0),":")(1) & " And " & Split(f_Paras_Array(1),":")(1)
else
f_Where = " And 1=0 "
end if
else
f_Where = " And 1=0 "
end if
Case "dslastdownload"
f_Where = ""
Case "dsdatedownload"
if UBound(f_Paras_Array) = 1 then
f_Temp_Array_1 = Split(f_Paras_Array(0),":")
f_Temp_Array_2 = Split(f_Paras_Array(1),":")
if UBound(f_Temp_Array_1) = 1 And UBound(f_Temp_Array_2) = 1 then
If G_IS_SQL_DB=0 Then
f_Where = " And A.addtime Between #" & Split(f_Paras_Array(0),":")(1) & "# And #" & Split(f_Paras_Array(1),":")(1)&"#"
Else
f_Where = " And A.addtime Between '" & Split(f_Paras_Array(0),":")(1) & "' And '" & Split(f_Paras_Array(1),":")(1)&"'"
End If
else
f_Where = " And 1=0 "
end if
else
f_Where = " And 1=0 "
end if
Case "dsclassdownload"
f_ID = Split(f_Paras_Array(0),":")(1)
f_ID = "'" & Replace(f_ID,"*","','") & "'"
f_Where = " And A.ClassID in (" & f_ID & ")"
Case "dsallclass"
f_Public_Sql_Head = Get_Search_Sql_Head(p_Sys_ID,"class")
f_Where = "AND IsURL=0"
Case "dsclass"
f_ID = Split(f_Paras_Array(0),":")(1)
f_ID = "'" & Replace(f_ID,"*","','") & "'"
f_Public_Sql_Head = Get_Search_Sql_Head(p_Sys_ID,"class")
f_Where = " And A.ClassID in (" & f_ID & ") AND IsURL=0"
Case "dsspecial"
f_Public_Sql_Head = Get_Search_Sql_Head(p_Sys_ID,"special")
f_ID = Split(f_Paras_Array(0),":")(1)
if f_ID <> "" then
f_ID = Replace(f_ID,"*",",")
f_Where = " And A.specialID in (" & f_ID & ")"
else
f_Where = " And 1=0"
end If
Str_ID="specialID"
Case Else
f_Where = " And 1=0"
End Select
Case Else
f_Public_Sql_Head = ""
f_Where = " And 1=0"
End Select
StrSql="Select Count(*),max("&Str_ID&") from " & f_Table & " as A where 1=1" & f_Where
Set Rs_Temp = Conn.Execute(StrSql)
f_Record_Count = Rs_Temp(0)
If f_Record_Count=0 Then
f_Record_Count=0
Else
f_First_ID = Rs_Temp(1)+1
End If
'Response.Write f_Record_Count
if Instr(f_Type,"last") <> 0 then
f_Last_Type_Record_Count = Split(f_Paras_Array(0),":")(1)
if f_Last_Type_Record_Count = "" then
f_Record_Count = 0
else
If Not IsNumeric(f_Last_Type_Record_Count) Then
f_Record_Count = 10
ElseIf f_Record_Count>CLng(f_Last_Type_Record_Count) Then
f_Record_Count = CLng(f_Last_Type_Record_Count)
End If
end if
end If
Response.Cookies("COOKIES_REFRESH_NewsCount") = f_Record_Count
Response.Cookies("COOKIES_REFRESH_Index") = 0
Response.Cookies("COOKIES_REFRESH_FirstID") = f_First_ID
Response.Cookies("COOKIES_REFRESH_Where") = f_Where
Response.Cookies("COOKIES_REFRESH_IDFlag") = Str_ID
Response.Cookies("COOKIES_REFRESH_SqlHead") = f_Public_Sql_Head
End If
f_Record_Count = Request.Cookies("COOKIES_REFRESH_NewsCount")
f_Index = Request.Cookies("COOKIES_REFRESH_Index")
f_First_ID = Request.Cookies("COOKIES_REFRESH_FirstID")
f_Where = Request.Cookies("COOKIES_REFRESH_Where")
Str_ID = Request.Cookies("COOKIES_REFRESH_IDFlag")
f_Public_Sql_Head = Request.Cookies("COOKIES_REFRESH_SqlHead")
If f_Record_Count="" Then
f_Record_Count="0"
End If
If CLng(f_Record_Count)=0 Then
Get_Sql=""
Response.Cookies("COOKIES_REFRESH_NewsCount") = ""
Response.Cookies("COOKIES_REFRESH_Index") = ""
Response.Cookies("COOKIES_REFRESH_FirstID") = ""
Response.Cookies("COOKIES_REFRESH_Where") = ""
Else
If CLng(f_Index)+1 <= CLng(f_Record_Count) then
Get_Sql = f_Public_Sql_Head & f_Where & " And A."&Str_ID&"<" & f_First_ID & " Order by A."&Str_ID&" Desc"
Response.Cookies("COOKIES_REFRESH_Index") = f_Index + 1
else
Get_Sql = f_Public_Sql_Head & f_Where & " And 1=0"
Response.Cookies("COOKIES_REFRESH_NewsCount") = ""
Response.Cookies("COOKIES_REFRESH_Index") = ""
Response.Cookies("COOKIES_REFRESH_FirstID") = ""
Response.Cookies("COOKIES_REFRESH_Where") = ""
end if
End If
p_Index = f_Index
p_Count = f_Record_Count
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -