'------------------------------------- -------------------------------------
'Function name: checkposturl
'Description: Prevent external data from being submitted
'------------------------------------- -------------------------------------
Function checkposturl ()
DIM Server_v1, Server_V2
CheckpostURL = FALSE
Server_v1 = cstr (Request.ServerVariables ("http_referer")))
Server_v2 = cstr (Request.ServerVariables ("Server_Name"))
IF MID (Server_V1, 8, Len (Server_V2)) <> Server_V2 THEN
CheckpostURL = FALSE
Else
CheckpostURL = TRUE
END IF
END FUNCTION
'Method call
If CheckpostURL = False Then
Response.write "
The data you submit is not legal, please do not submit data from the outside. "
Response.end
END IF
