📄 inc_functions.asp
字号:
if strIMGInPosts = "1" then
' ### 防止JavaScript 炸弹
if InStr(fString, "javascript:") = 0 or InStr(fString, "window.open") = 0 then
fString = doCode(fString, "[img]","[/img]","<img src=""",""" border=0>")
fString = doCode(fString, "[image]","[/image]","<img src=""",""" border=0>")
fString = doCode(fString, "[img=right]","[/img=right]","<img align=right src=""",""" id=right border=0>")
fString = doCode(fString, "[image=right]","[/image=right]","<img align=right src=""",""" id=right border=0>")
fString = doCode(fString, "[img=left]","[/img=left]","<img align=left src=""",""" id=left border=0>")
fString = doCode(fString, "[image=left]","[/image=left]","<img align=left src=""",""" id=left border=0>")
end if
end if
' ### [code] 及 [/code] 处理 ###
if strAllowCODE = "1" then
strStart = InStr(fString, "[code]")
strEnd = InStrRev(fString, "[/code]")
if strStart > 0 and strEnd > 0 then
strStart = strStart + Len("[code]")
strText = Mid(fString, strStart, strEnd - strStart)
fString = Replace(fString, strText, HTMLEncode(strText))
fString = doCode(fString, "[code]", "[/code]", strTextAreaStart, strTextAreaEnd)
end if
end if
end if
end if
if strIcons = "1" and _
fField_Type <> "title" and _
fField_Type <> "hidden" then
fString= smile(fString)
end if
if fField_Type <> "hidden" and _
fField_Type <> "preview" then
fString = Replace(fString, "'", "''")
end if
ChkString = fString
end function
function ChkDateTime(fDateTime)
if fDateTime = "" then
exit function
end if
if IsDate(fDateTime) then
select case strDateType
case "dmy"
ChkDateTime = Mid(fDateTime,7,2) & "/" & _
Mid(fDateTime,5,2) & "/" & _
Mid(fDateTime,1,4)
case "mdy"
ChkDateTime = Mid(fDateTime,5,2) & "/" & _
Mid(fDateTime,7,2) & "/" & _
Mid(fDateTime,1,4)
case "ymd"
ChkDateTime = Mid(fDateTime,1,4) & "/" & _
Mid(fDateTime,5,2) & "/" & _
Mid(fDateTime,7,2)
case "ydm"
ChkDateTime =Mid(fDateTime,1,4) & "/" & _
Mid(fDateTime,7,2) & "/" & _
Mid(fDateTime,5,2)
case "dmmy"
ChkDateTime = Mid(fDateTime,7,2) & " " & _
Monthname(Mid(fDateTime,5,2),1) & " " & _
Mid(fDateTime,1,4)
case "mmdy"
ChkDateTime = Monthname(Mid(fDateTime,5,2),1) & " " & _
Mid(fDateTime,7,2) & " " & _
Mid(fDateTime,1,4)
case "ymmd"
ChkDateTime = Mid(fDateTime,1,4) & " " & _
Monthname(Mid(fDateTime,5,2),1) & " " & _
Mid(fDateTime,7,2)
case "ydmm"
ChkDateTime = Mid(fDateTime,1,4) & " " & _
Mid(fDateTime,7,2) & " " & _
Monthname(Mid(fDateTime,5,2),1)
case "dmmmy"
ChkDateTime = Mid(fDateTime,7,2) & " " & _
Monthname(Mid(fDateTime,5,2),0) & " " & _
Mid(fDateTime,1,4)
case "mmmdy"
ChkDateTime = Monthname(Mid(fDateTime,5,2),0) & " " & _
Mid(fDateTime,7,2) & " " & _
Mid(fDateTime,1,4)
case "ymmmd"
ChkDateTime = Mid(fDateTime,1,4) & " " & _
Monthname(Mid(fDateTime,5,2),0) & " " & _
Mid(fDateTime,7,2)
case "ydmmm"
ChkDateTime = Mid(fDateTime,1,4) & " " & _
Mid(fDateTime,7,2) & " " & _
Monthname(Mid(fDateTime,5,2),0)
case else
ChkDateTime = doublenum(Mid(fDateTime,5,2)) & "/" & _
Mid(fDateTime,7,2) & "/" & _
Mid(fDateTime,1,4)
end select
if strTimeType = 12 then
if cint(Mid(fDateTime, 9,2)) > 12 then
ChkDateTime = ChkDateTime & " " & _
(cint(Mid(fDateTime, 9,2)) -12) & ":" & _
Mid(fDateTime, 11,2) & ":" & _
Mid(fDateTime, 13,2) & " " & "PM"
elseif cint(Mid(fDateTime, 9,2)) = 12 then
ChkDateTime = ChkDateTime & " " & _
cint(Mid(fDateTime, 9,2)) & ":" & _
Mid(fDateTime, 11,2) & ":" & _
Mid(fDateTime, 13,2) & " " & "PM"
elseif cint(Mid(fDateTime, 9,2)) = 0 then
ChkDateTime = ChkDateTime & " " & _
(cint(Mid(fDateTime, 9,2)) +12) & ":" & _
Mid(fDateTime, 11,2) & ":" & _
Mid(fDateTime, 13,2) & " " & "AM"
else
ChkDateTime = ChkDateTime & " " & _
Mid(fDateTime, 9,2) & ":" & _
Mid(fDateTime, 11,2) & ":" & _
Mid(fDateTime, 13,2) & " " & "AM"
end if
else
ChkDateTime = ChkDateTime & " " & _
Mid(fDateTime, 9,2) & ":" & _
Mid(fDateTime, 11,2) & ":" & _
Mid(fDateTime, 13,2)
end if
end if
end function
function ChkDateFormat(strDateTime)
ChkDateFormat = isdate("" & Mid(strDateTime, 5,2) & "/" & Mid(strDateTime, 7,2) & "/" & Mid(strDateTime, 1,4) & " " & Mid(strDateTime, 9,2) & ":" & Mid(strDateTime, 11,2) & ":" & Mid(strDateTime, 13,2) & "")
end function
function StrToDate(strDateTime)
if ChkDateFormat(strDateTime) then
StrToDate = cdate("" & Mid(strDateTime, 5,2) & "/" & Mid(strDateTime, 7,2) & "/" & Mid(strDateTime, 1,4) & " " & Mid(strDateTime, 9,2) & ":" & Mid(strDateTime, 11,2) & ":" & Mid(strDateTime, 13,2) & "")
else
StrToDate = "" & strForumTimeAdjust
end if
end function
function DateToStr(dtDateTime)
DateToStr = year(dtDateTime) & doublenum(Month(dtdateTime)) & doublenum(Day(dtdateTime)) & doublenum(Hour(dtdateTime)) & doublenum(Minute(dtdateTime)) & doublenum(Second(dtdateTime)) & ""
end function
function ReadLastHereDate(UserName)
dim TempLastHereDate
dim rs_date
'## Forum_SQL
strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.M_LASTHEREDATE "
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS."&Strdbntsqlname&" = '" & UserName & "' "
set rs_date = my_conn.Execute (strSql)
if (rs_date.BOF and rs_date.EOF) then
TempLastHereDate = DateAdd("d",-10,strForumTimeAdjust)
else
TempLastHereDate = StrToDate(rs_date("M_LASTHEREDATE"))
if TempLastHereDate = "" or IsNull(TempLastHereDate) then
TempLastHereDate = DateAdd("d",-10,strForumTimeAdjust)
end if
end if
rs_date.close
set rs_date = nothing
'## Forum_SQL - Do DB Update
strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " SET M_LASTHEREDATE = '" & DateToStr(strForumTimeAdjust) & "'"
' ################################### Ban IP Mod ###################################
strSql = strSql & ", M_LAST_IP = '" & Request.ServerVariables("REMOTE_ADDR") & "'"
' ##################################################################################
strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS." & strDBNTSQLName & " = '" & UserName & "' "
my_conn.Execute (strSql)
ReadLastHereDate = DateToStr(TempLastHereDate)
end function
function getMemberID(fUser_Name)
'## Forum_SQL
strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.MEMBER_ID "
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " WHERE M_NAME = '" & fUser_Name & "'"
Set rsGetMemberID = Server.CreateObject("ADODB.RecordSet")
rsGetMemberID.open strSql,my_Conn,0,1
if rsGetMemberID.eof or rsGetMemberID.bof then
getMemberID = ""
else
getMemberID = rsGetMemberID("MEMBER_ID")
end if
rsGetMemberID.Close
Set rsGetMemberID = Nothing
end function
' ### getAllowUploads(fUser_Name) 转移到 post.asp ###
function ChkDate(fDate)
if fDate = "" or vartype(fDate) = vbNull then
exit function
end if
'if IsDate(fDate) then
select case strDateType
case "dmy"
ChkDate = Mid(fDate,7,2) & "-" & _
Mid(fDate,5,2) & "-" & _
Mid(fDate,1,4)
case "mdy"
ChkDate = Mid(fDate,5,2) & "-" & _
Mid(fDate,7,2) & "-" & _
Mid(fDate,1,4)
case "ymd"
ChkDate = Mid(fDate,1,4) & "-" & _
Mid(fDate,5,2) & "-" & _
Mid(fDate,7,2)
case "ydm"
ChkDate =Mid(fDate,1,4) & "-" & _
Mid(fDate,7,2) & "-" & _
Mid(fDate,5,2)
case "dmmy"
ChkDate = Mid(fDate,7,2) & " " & _
Monthname(Mid(fDate,5,2),1) & " " & _
Mid(fDate,1,4)
case "mmdy"
ChkDate = Monthname(Mid(fDate,5,2),1) & " " & _
Mid(fDate,7,2) & " " & _
Mid(fDate,1,4)
case "ymmd"
ChkDate = Mid(fDate,1,4) & " " & _
Monthname(Mid(fDate,5,2),1) & " " & _
Mid(fDate,7,2)
case "ydmm"
ChkDate = Mid(fDate,1,4) & " " & _
Mid(fDate,7,2) & " " & _
Monthname(Mid(fDate,5,2),1)
case "dmmmy"
ChkDate = Mid(fDate,7,2) & " " & _
Monthname(Mid(fDate,5,2),0) & " " & _
Mid(fDate,1,4)
case "mmmdy"
ChkDate = Monthname(Mid(fDate,5,2),0) & " " & _
Mid(fDate,7,2) & " " & _
Mid(fDate,1,4)
case "ymmmd"
ChkDate = Mid(fDate,1,4) & " " & _
Monthname(Mid(fDate,5,2),0) & " " & _
Mid(fDate,7,2)
case "ydmmm"
ChkDate = Mid(fDate,1,4) & " " & _
Mid(fDate,7,2) & " " & _
Monthname(Mid(fDate,5,2),0)
case else
ChkDate = Mid(fDate,5,2) & "-" & _
Mid(fDate,7,2) & "-" & _
Mid(fDate,1,4)
End Select
'end if
end function
function ChkDate2(fDate)
strMid ="/"
if fDate = "" or vartype(fDate) = vbNull then
exit function
end if
'if IsDate(fDate) then
select case strDateType
case "dmy"
ChkDate2 = Mid(fDate,7,2) & strMid & _
Mid(fDate,5,2) & strMid & _
Mid(fDate,1,4)
case "mdy"
ChkDate2 = Mid(fDate,5,2) & strMid & _
Mid(fDate,7,2) & strMid & _
Mid(fDate,1,4)
case "ymd"
ChkDate2 = Mid(fDate,1,4) & strMid & _
Mid(fDate,5,2) & strMid & _
Mid(fDate,7,2)
case "ydm"
ChkDate2 =Mid(fDate,1,4) & strMid & _
Mid(fDate,7,2) & strMid & _
Mid(fDate,5,2)
case "dmmy"
ChkDate2 = Mid(fDate,7,2) & " " & _
Monthname(Mid(fDate,5,2),1) & " " & _
Mid(fDate,1,4)
case "mmdy"
ChkDate2 = Monthname(Mid(fDate,5,2),1) & " " & _
Mid(fDate,7,2) & " " & _
Mid(fDate,1,4)
case "ymmd"
ChkDate2 = Mid(fDate,1,4) & " " & _
Monthname(Mid(fDate,5,2),1) & " " & _
Mid(fDate,7,2)
case "ydmm"
ChkDate2 = Mid(fDate,1,4) & " " & _
Mid(fDate,7,2) & " " & _
Monthname(Mid(fDate,5,2),1)
case "dmmmy"
ChkDate2 = Mid(fDate,7,2) & " " & _
Monthname(Mid(fDate,5,2),0) & " " & _
Mid(fDate,1,4)
case "mmmdy"
ChkDate2 = Monthname(Mid(fDate,5,2),0) & " " & _
Mid(fDate,7,2) & " " & _
Mid(fDate,1,4)
case "ymmmd"
ChkDate2 = Mid(fDate,1,4) & " " & _
Monthname(Mid(fDate,5,2),0) & " " & _
Mid(fDate,7,2)
case "ydmmm"
ChkDate2 = Mid(fDate,1,4) & " " & _
Mid(fDate,7,2) & " " & _
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -