$PHPSelf = addslashes(htmlspecialchars($_SERVER['PHP_SELF'] ? $_SERVER['PHP_SELF'] : $_SERVER['SCRIPT_NAME']));
$UrlPath = $Config['WebsitePath'] ? str_ireplace($Config['WebsitePath'] . '/', '', substr($PHPSelf, 0, -4)) : substr($PHPSelf, 1, -4);
//For IIS ISAPI_Rewrite
$RequestURI = isset($_SERVER['HTTP_X_REWRITE_URL']) ? $_SERVER['HTTP_X_REWRITE_URL'] : $_SERVER['REQUEST_URI'];
$IsAjax = isset($_SERVER['HTTP_X_REQUESTED_WITH']) && strtolower($_SERVER['HTTP_X_REQUESTED_WITH']) == 'xmlhttprequest';
$CurProtocol = IsSSL() ? 'https://' : 'http://';
//消除低版本中魔术引号的影响
if (version_compare(PHP_VERSION, '5.4.0') < 0 && get_magic_quotes_gpc()) {
function StripslashesDeep($var)
{
return is_array($var) ? array_map('StripslashesDeep', $var) : stripslashes($var);
}
$_GET = StripslashesDeep($_GET);
$_POST = StripslashesDeep($_POST);
$_COOKIE = StripslashesDeep($_COOKIE);
$_REQUEST = StripslashesDeep($_REQUEST);
}
// At某人并提醒他，使用时常在其前后加空格或回车，如 “@admin ”
function AddingNotifications($Content, $TopicID, $PostID, $FilterUser = '')
{
/*
Type:
1:新回复
2:@ 到我的
*/
global $Prefix, $DB, $MCache, $TimeStamp, $CurUserName;
//例外列表
$ExceptionUser = array($CurUserName);
if ($FilterUser != $CurUserName) {
$ExceptionUser[] = $FilterUser;
}
// E_STRICT
StrikeError('Error ' . $code . ' (' . $message . ') occured in ' . $filename . ' at ' . $linenumber . '');
}
// -----------------------------------------------------
set_error_handler('OnPHPError');
if (!isset($_SESSION)) {
@session_start();
}
function StripslashesDeep($value)
{
$value = is_array($value) ? array_map("StripslashesDeep", $value) : stripslashes($value);
return $value;
}
if (ini_get("magic_quotes_gpc")) {
$_GET = StripslashesDeep($_GET);
$_POST = StripslashesDeep($_POST);
// cookie ?
}
$GLOBALS['tpl.time.parse'] = 0;
// -----------------------------------------------------
function GetMicroTime()
{
list($usec, $sec) = explode(" ", microtime());
return $usec + $sec;
}
function MicroTimeToStr($tm)
{
$str = (string) ($tm - floor($tm));
$ls = substr($str, 2);
while (strlen($ls) < 15) {
$ls = $ls . '0';
