html/inc/function.asp

（开头部分） 3KB

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

<%
function check_str(str)
	str=lcase(str)
	str=replace(str,";","")
	str=replace(str,"--","")
	str=replace(str,"'","''")
	str=replace(str,"create","")
	str=replace(str,"delete","")
	str=replace(str,"select","")
	str=replace(str,"update","")
	str=replace(str,"insert","")
	str=replace(str,"where","")
	str=replace(str,"id","")
	str=replace(str,"=","")
	str=replace(str,"and","")
	str=replace(str,"or","")
	check_str=str
end function 

'防注入检测
function check_num(str)
	if isnull(str) or str=""  then
		exit function
	else
		if not isnumeric(str) then
			response.write"<center>非法操作导致程序中止!</center>"
			response.end
		else
			check_num=int(str)
		end if
	end if
end function
%>
<%
'================================================
'函数名：FormatDate
'作　用：格式化日期
'参　数：DateAndTime            (原日期和时间)
'       Format                 (新日期格式)
'返回值：格式化后的日期
'================================================
Function FormatDate(DateAndTime, Format)
  On Error Resume Next
  Dim yy,y, m, d, h, mi, s, strDateTime
  FormatDate = DateAndTime
  If Not IsNumeric(Format) Then Exit Function
  If Not IsDate(DateAndTime) Then Exit Function
  yy = CStr(Year(DateAndTime))
  y = Mid(CStr(Year(DateAndTime)),3)
  m = CStr(Month(DateAndTime))
  If Len(m) = 1 Then m = "0" & m
  d = CStr(Day(DateAndTime))
  If Len(d) = 1 Then d = "0" & d
  h = CStr(Hour(DateAndTime))
  If Len(h) = 1 Then h = "0" & h
  mi = CStr(Minute(DateAndTime))
  If Len(mi) = 1 Then mi = "0" & mi
  s = CStr(Second(DateAndTime))
  If Len(s) = 1 Then s = "0" & s
后面还有 82 行代码，解锁后查看完整代码

24 小时内免费解锁 3 个项目，之后 1 算力/个。 规则说明

AI 解读 AI

登录后可用，每次 10 算力，解读结果公开显示在下面。

还没有人解读过这个文件。