本文小编将为你奉上10个超级有用的服务器端编程语言(专业超文本预处理器的缩写)代码片段。

1.查找经度与某一纬度地区之间的距离

函数getDistanceBetweenPointsNew($纬度1,$经度1,$纬度2,$经度2){ $ theta=$经度1-$经度2;$ miles=(sin(deg 2 rad($纬度1))* sin(deg 2 rad($纬度2)))(cos(deg 2 rad($纬度1))* cos(deg 2 rad($纬度2))* cos(deg 2 rad($))；$ miles=acos($ miles)；$ miles=rad 2 deg($ miles)；$ miles=$ miles * 60 * 1.1515$英尺=$英里* 5280;$码=$英尺/3;$公里=$英里* 1.609344;$米=$公里* 1000;返回紧凑('英里','英尺','码','公里','米');} $point1=数组(' lat'=40.770623，' long '=-73.964367)；$point2=数组(' lat'=40.758224，' long '=-73.917404)；$ distance=getDistanceBetweenPointsNew($ point 1[' lat ']，$point1['long']，$point2['lat']，$ point 2[' long '])；foreach($ distance as $ unit=$ value){ echo $ unit .': '.number_format($value，4).' ';}该示例返回以下值：英里： 2.6025英尺： 13,741.4350码： 4,580.4783公里： 4.1884米： 4,188.3894 2。完善卷曲功能

函数xcurl($url，$ref=null，$post=array()，$ ua=' Mozilla/5.0(X11；Linux x86 _ 64RV :2.2 a1 pre)Gecko/20110324 Firefox/4.2 a1 pre '，$ print=false){ $ ch=curl _ init()；curl_setopt($ch，CURLOPT _ AUTOREFERER，true)；if(！空($ref)) { curl_setopt($ch，CURLOPT _ REFERER，$ ref)；} curl_setopt($ch，CURLOPT_URL，$ URL)；curl_setopt($ch，CURLOPT_HEADER，0)；curl_setopt($ch，CURLOPT_FOLLOWLOCATION，1)；curl_setopt($ch，CURLOPT_RETURNTRANSFER，1)；if(！empty($ua)) { curl_setopt($ch，CURLOPT_USERAGENT，$ ua)；} if(count($ POST)0){ curl _ setopt($ ch，CURLOPT_POST，1)；curl_setopt($ch，CURLOPT_POSTFIELDS，$ post)；} $ output=curl _ exec($ ch)；curl _ close($ ch)；if($ print){ print($ output)；} else { return $ output} } 3。清理用户输入

]*?*?@si '，//去掉javascript '@[/！]*?[^]*?@si '，//去掉超文本标记语言标记' @]*?*?@siU '，//适当地剥离样式标签' @@' //剥离多行注释);$output=preg_replace($search ' '，$ input)；返回$ output}？$ val){ $ output[$ var]=sanitize($ val)；} } else { if(get _ magic _ quotes _ GPC()){ $ input=strip斜杠($ input)；} $ input=clean input($ input)；$ output=MySQL _ real _ escape _ string($ input)；}返回$ output}？4.通过IP(城市、国家)检测地理位置

函数detect_city($ip) { $default='好莱坞，CA '；if(！is _ string($ IP)| | strlen($ IP)1 | | $ IP==' 127。0 .0 .1 ' | $ IP==' localhost ')$ IP=' 8。8 .8 .8 ';$ curlopt _ user agent=' Mozilla/5.0(Windows；u；Windows NT 5.1美国；房车：1。9 .2)Gecko/20100115 Firefox/3.6(.NET CLR 3。5 .30729)';$ URL='http://ipinfodb.com/ip_locator.php？ip=' .网址编码($ IP)；$ ch=curl _ init()；$ curl _ opt=array(CURLOPT _ follow location=1，CURLOPT_HEADER=0，CURLOPT_RETURNTRANSFER=1，CURLOPT _ user agent=$ CURLOPT _ user agent，CURLOPT_URL=$url，CURLOPT_TIMEOUT=1，CURLOPT _ REFERER=' http://' .$_SERVER['HTTP_HOST']，)；curl_setopt_array($ch，$ curl _ opt)；$ content=curl _ exec($ ch)；if(！is _ null($ curl _ info)){ $ curl _ info=curl _ getinfo($ ch)；} curl _ close($ ch)；if(preg _ match(' { city :([^]*]} I '，$content，$ regs)){ $ city=$ regs[1]；} if(preg _ match({)州/省：([^]*]} I '，$content，$ regs)){ $ state=$ regs[1]；} if($city！='' $state！='' ){ $location=$city .', ' .$ state返回$ location } else { return $ default } } 5。设置密码强度

100){ $实力=100;}返回$实力；} var_dump(password_strength('正确的马电池订书钉');回声"";var_dump(密码_强度('超级猴球'));回声"";var _ dump(password _ strength(' tr0ub 4 dor 3 ')；回声"";var _ dump(password _ strength(' ABC 123 ')；回声"";var _ dump(password _ strength(' sweet '))；6.检测浏览器语言，只提供可用的$可用语言作为数组(“en”、“de”、“es”)

函数get _ client _ LANGUAGE($可用语言，$ default=' en '){ if(已设置($ _ SERVER[' HTTP _ ACCEPT _ LANguage ']){ $ langs=explode('，'，$ _ SERVER[' HTTP _ ACCEPT _ LANguage '])；//开始遍历每一个foreach($ langs as $ value){ $ choice=substr($ value，0，2)；if(in_array($choice，$可用语言)){ return $ choice} } }返回$ default} 7。创建数据统一资源定位器

函数data_uri($file，$ mime){ $ contents=file _ get _ contents($ file)；$ base64=base64 _ encode($ contents)；echo ' data: $ mimebase64，$ base64 '；} 8.创建更加友好的页面标题搜索引擎优化网址

输入示例：$title="这个foo的酒吧太酷了!"；echo makeseo名称($ title)；//返回：//这个-foos-bar-很酷

函数make _ SEO _ name($ title){ return preg_replace('/[^a-z0-9_-]/i' ' '，strtolow(str _ replace('，'-'，trim($ title))；} 9.终极加密功能

//由BlackHatDBL(www.netforme.net)函数fue(哈希，$倍)执行的f(flust)u(ncrackeable)e(ncryption)函数{ //按照用户想要的次数执行加密($ I=$次)；$ i0$i - ) { //用base64编码.$ hash=base64 _ encode($ hash)；//和讯息摘要5.$ hash=MD5($ hash)；//sha1.$ hash=sha1($ hash)；//sha256.（多一个)$hash=hash('sha256 '，$ hash)；//sha512 $hash=hash('sha512 '，$ hash)；} //最终，完成后，返回值返回$ hash} 10a .高音扬声器馈电线——使用任意推特名，可在任意页面上加载用户资源。

pversion}公共函数loadTimeline($user，$max=20){ $this-twitURL .='电台/用户_时间线。XML？screen_name=' .$用户.计数='。$ max $ ch=curl _ init()；curl_setopt($ch，CURLOPT_URL，$ this-TwitURl)；curl_setopt($ch，CURLOPT_RETURNTRANSFER，true)；$ this-XML=curl _ exec($ ch)；返回$ this}公共函数getTweets(){ $ this-TwitterArr=$ this-getTimelineArray()；$ tweets=array()；foreach($ this-twitterArr-状态为$ status){ $ tweets[$ status-created _ at-_ _ toString()]=$ status-text-_ _ toString()；}返回$ tweets}公共函数gettimelineray(){ return SimpleXML _ load _ string($ this-XML)；}公共函数format weet($ tweet){ $ tweet=preg _ replace('/(http(.))(|$)/'，' $1$3 '，$ tweet)；$tweet=preg_replace('/#(.)(h|W|$)/'，' #$1$2 '，$ tweet)；$tweet=preg_replace('/@(.)(h|W|$)/'，' @$1$2 '，$ tweet)；返回$ tweet} } 10b .高音扬声器馈电线——用于在主题中创建文件，比如：example.php

loadTimeline(' phpsnips ')-getTweets()；foreach($ feed as $ time=$ message){ echo ' div class=' tweet ' ' .$ Twitter-formatweet($ message).br /At: ' .时间“/div”；}

直接拿来用，10个服务器端编程语言(专业超文本预处理器的缩写)代码片段，还犹豫什么，果断收藏吧