idcbe.com
分类: 网站建设预览模式: 普通 | 列表

【收藏】PHP提取字符串中的数字

PHP提取字符串中的第一组数字
 
<?php
    $str='acc123nmnm4545';
    if(preg_match('/\d+/',$str,$arr)){
       echo $arr[0];
    }
?>
 
PHP提取字符串中的数字的其它方法
 
第一种方法,使用正则表达式:
 
function findNum($str=''){
$str=trim($str);
if(empty($str)){return '';}
$reg='/(\d{3}(\.\d+)?)/is';//匹配数字的正则表达式
preg_match_all($reg,$str,$result);
if(is_array($result)&&!empty($result)&&!empty($result[1])&&!empty($result[1][0])){
return $result[1][0];
}
return '';
}
 
第二种方法,使用in_array方法:
 
function findNum($str=''){
$str=trim($str);
if(empty($str)){return '';}
$temp=array('1','2','3','4','5','6','7','8','9','0');
$result='';
for($i=0;$i<strlen($str);$i++){
if(in_array($str[$i],$temp)){
$result.=$str[$i];
}
}
return $result;
}
 
 
第三种方法,使用is_numeric函数:
 
function findNum($str=''){
$str=trim($str);
if(empty($str)){return '';}
$result='';
for($i=0;$i<strlen($str);$i++){
if(is_numeric($str[$i])){
$result.=$str[$i];
}
}
return $result;
}

例如:

//截取字符串中的数字2
    $str ='Q币2个';
    $result='';
    for($i=0;$i<strlen($str);$i++){
        if(is_numeric($str[$i])){
            $result.=$str[$i];
        }
    }
    print_r($result);die;
    //输出结果 2
---------------------
作者:jiangnanqbey
来源:CSDN
原文:https://blog.csdn.net/jiangnanqbey/article/details/81354968
版权声明:本文为博主原创文章,转载请附上博文链接!

Tags: PHP 提取 字符串 数字

分类:网站建设 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 47

MYSQL语句随机查询的实现方法

MYSQL的随机抽取实现方法。举个例子,要从tablename表中随机提取一条记录,大家一般的写法就是:Select * FROM tablename orDER BY RAND() LIMIT 1。

但是真正测试一下才发现这样效率非常低。一个15万余条的库,查询5条数据,居然要8秒以上。

采用JOIN语句的话,速度不错,需要0.5秒。

最后,把语句完善一下,加上MIN(id)的判断。

查看更多...

Tags: mysql 语句 随机 查询 方法

分类:网站建设 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2143

mysql语句查询一天,一周等隔日数据

mysql查询一天,一周等隔日数据

 
--查询一天
select * from tbl_order where date(tbor_create_time) = curdate();
select * from tbl_order where to_days(tbor_create_time) = to_days(now());
 
--查询一个周
select * from tbl_order where DATE_SUB(CURDATE(), INTERVAL 7 DAY) <= date(tbor_create_time);
 
--查询一个月
select * from tbl_order where DATE_SUB(CURDATE(), INTERVAL 30 DAY) <= date(tbor_create_time);
 
--两个日期之间的数据
select * from tbl_order where tbor_create_time>'2012-01-20 00:00:00' and tbor_create_time<'2012-02-7 00:00:00';

Tags: mysql 语句 查询 一天 一周 数据

分类:网站建设 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2143

ASP获取URL链接href标签的值

function GetHref(strHTML)
   Dim objRegExp
   Set objRegExp = New Regexp
   objRegExp.IgnoreCase = True
   objRegExp.Global = True

查看更多...

Tags: ASP 链接 href 标签 URL

分类:网站建设 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2675

ASP VB让Replace函数替换不区分大小写

默认我们在ASP中用Replace的时候是会区分大小写的,如何让Replace不区分呢?

我们先来看一看 Replace 的详细参数

描述
返回字符串,其中指定数目的某子字符串被替换为另一个子字符串。
语法
Replace(expression, find, replacewith[, compare[, count[, start]]])

Replace 函数的语法有以下参数:

参数 描述
expression 必选项。 字符串表达式 包含要替代的子字符串。
find 必选项。被搜索的子字符串。
replacewith 必选项。用于替换的子字符串。
start 可选项。expression 中开始搜索子字符串的位置。如果省略,默认值为 1。在和count 关联时必须用
count 可选项。执行子字符串替换的数目。如果省略,默认值为 -1,表示进行所有可能的替换。在和 start 关联时必须用。
compare 可选项。指示在计算子字符串时使用的比较类型的数值。有关数值,请参阅“设置”部分。如果省略,缺省值为 0 ,这意味着必须进行二进制比较。


设置
compare 参数可以有以下值:
常数 值 描述
vbBinaryCompare 0 执行二进制比较。
vbTextCompare 1 执行文本比较。


返回值
Replace 返回以下值:
如果 Replace 返回
expression 为零长度 零长度字符串 ("")。
expression 为 Null 错误。
find 为零长度 expression 的副本。
replacewith 为零长度 expression 的副本,其中删除了所有由 find 参数指定的内容。
start > Len(expression) 零长度字符串。
count 为 0 expression 的副本。


说明
Replace 函数的返回值是经过替换(从由 start 指定的位置开始到 expression 字符串的结尾)后的字符串,而不是原始字符串从开始至结尾的副本。
下面的示例利用 Replace 函数返回字符串:

Dim MyString

MyString = Replace("XXpXXPXXp", "p", "Y") '二进制比较从字符串左端开始。返回 "XXYXXPXXY"。
MyString = Replace("XXpXXPXXp", "p", "Y", '文本比较从第三个字符开始。返回 "YXXYXXY"。3,, -1, 1)

方法一: 直接用ASP自带函数replace 这也是最简单的方法


title=replace(title,"DF","SD",1,-1,1)

replace函数参数详解:
参数1:源字符串
参数2:要被替换的字符
参数3:新的字符。,既,要将源字符串中的某些字符,替换成新指定的字符
参数4:值为1.指定从第一个字符开始搜索该字符串
参数5:值为-1 指定每一个子串都要被替换
参数6:值为1 指定字符串的比较不区分大小写。

查看更多...

Tags: ASP VB Replace 函数 替换 大小写

分类:网站建设 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 3442

敬告:不要在国内注册域名

在此向广大网友发出一条敬告:

不要贪图一时便宜,不要在国内的注册商及其代理商处注册国际域名!

如果你一旦这样做,到你想将域名过户或者转移至其他注册商的那天你会发现吃了大亏:

1、他们会让你填写一份申请表,签名、盖章、快递文件、等待答复...要经过繁复的过程,

查看更多...

Tags: 国内 注册 域名

分类:网站建设 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 4136

firefox 表单无法提交ajax里的内容

今天在修改一个内容表单,其中一个输入文本需使用ajax调用,并提交到数据库。

起初在firefox上测试,提交表单后,页面接收到ajax输入文本的值竟然为空,不能获取表单发送过来的内容。尝试过寻找:表单的原因(id和name的值)、js代码的原因,都不是!

后来在ie上试,居然可以成功提交!?

在网上找了很久,才找到一个针对性而有效的答案。这当中的原因其实是因为<form>和</form>嵌套的位置不够清晰,firefox无法识别。

查看更多...

Tags: firefox 表单 ajax 提交

分类:网站建设 | 固定链接 | 评论: 2 | 引用: 0 | 查看次数: 5501

<%@LANGUAGE="VBSCRIPT" codepage="65001"%>
<%response.charset="utf-8"

Function readrss(xmlseed)
dim xmlDoc
dim http
Set http=Server.CreateObject("Microsoft.XMLHTTP")
http.Open "GET",xmlseed,False
http.send
Set xmlDoc=Server.CreateObject("Microsoft.XMLDOM")
xmlDoc.Async=False
xmlDoc.ValidateOnParse=False
xmlDoc.Load(http.ResponseXML)
Set item=xmlDoc.getElementsByTagName("item")
if item.Length<=10 then
%>
<script language="JavaScript">
alert("对不起,该新闻条数已经少于10条新闻条数!");
</script>
<%
else
For i=0 To (item.Length-1)
Response.Write("<a href="""& Item(i).childNodes(1).Text &""" target='_blank'>"& Item(i).childNodes(0).Text &"</a><br>")
Next
end if
End Function
%>
<html>
<head>
<title>远程读取XML文件</title>
</head>
<body>
<%
call readrss("http://hi.baidu.com/houdawei/rss/")
%>
<br><br>

</body>
</html>

注:此程序源于网络,但由于原程序在使用时有错误,此为本人改良版本,可直接使用--

改进:1、没有错误信息;2、适用于任何编码页面(UTF-8\GB2312...),不会乱码

Tags: ASP RSS XML 读取 程序

分类:网站建设 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 12148

ASP图片防盗链/隐藏图片地址源代码

好的图片当然希望多些人分享,但是如果个个都链你网站就不好了,这样会造成网站负荷过重,浪费空间资源。

如何防止别人盗链网站上的图片呢?最主要的是要隐藏图片的真实地址,通过一个ASP文件来调用图片,而只有特定的域名才能引用,如果不是就只显示一张警示图,盗链的根本不知道图片的真正地址,他偷鸡不成还蚀把米--得不到图片内容还影响网站形象,自然就会放弃盗链。

这样做还有一个好处,就是假如某天要删掉了图片,而网页没有做更新,这样仍然不会令图片处留白或叉叉,而会自动补充一张提示图。

完整代码如下:(可起名:img.asp)

查看更多...

Tags: ASP 防盗链 图片 隐藏地址

分类:网站建设 | 固定链接 | 评论: 1 | 引用: 0 | 查看次数: 8388

ASP改变字符串大小写

字符串大写字面转换成小写字面或者小写字面转换成大写字面,ASP(特指VBS)里自带了两个函数

LCase:转成小写
UCase:转成大写

下面是ASP中的代码,可以直接演示效果的。

<%
dim str,str1,str2
str="AbCdEf"
str1=LCase(str)
str2=UCase(str)
Response.write("LCase转换小写"&str1 & ",UCase转换大写" & str2)
%>

查看更多...

Tags: ASP 字符串 大小写

分类:网站建设 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 4491

JS实现页面定时跳转/自动重定向

以下代码来源于网络,有效,可直接使用。本人亦作了一点点优化。

<script language="javascript" type="text/javascript">
 var hwd;
 var intSec = 3;//这里定义时间:秒
 function reHandle()
 {
  if(intSec==0)
  window.location.href = 'http://edwin.jkqun.com/blog/article.asp?id=245';
  else
  {
  intSec--;
  }
  hwd = setTimeout(reHandle,1000);
 }
  reHandle();
  document.write('<p><span id="tiao">'+intSec+'</span>秒后自动跳转…</p>')
</script>

Tags: JS 定时 页面跳转 重定向 代码

分类:网站建设 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 8825

ASP获取当前页面地址Url参数的函数

<%'===========================================
'获取当前Url参数的函数
Function GetUrl()
  Dim ScriptAddress,Servername,qs
  ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME"))
  Servername = CStr(Request.ServerVariables("Server_Name"))
  qs=Request.QueryString
  if qs<>"" then
  GetUrl ="http://"& Servername & ScriptAddress &"?"&qs
  else
  GetUrl ="http://"& Servername & ScriptAddress
  end if
End Function
'============================================%>

Tags: 当前页 地址 URL 函数 ASP

分类:网站建设 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 5865

切换Tab选项卡效果的JS代码

js 选项卡切换效果:

<SCRIPT language=“javascript” type=“text/javascript”>
 function Show_TabADSMenu(tabadid_num,tabadnum){
 for(var i=0;i<2;i++){document.getElementById("tabadcontent_"+tabadid_num+i).style.display="none";}
 for(var i=0;i<2;i++){document.getElementById("tabadmenu_"+tabadid_num+i).className="";}
 document.getElementById("tabadmenu_"+tabadid_num+tabadnum).className="TasADSOn";
 document.getElementById("tabadcontent_"+tabadid_num+tabadnum).style.display=""
 document.getElementById("tabadforum_"+tabadid_num).style.display="";
}
</SCRIPT>

   <ul>
     <li class="TasADSOn" id="tabadmenu_10 " onMouseOver="Show_TabADSMenu(1,0)">Hotels</li>
     <li id="tabadmenu_11"  onMouseOver="Show_TabADSMenu(1,0)">Flights</li>
   </ul>

<divv id="tabadforum_1" style="display:none;">
   <UL id="tabadcontent_10">
        <LI>000000000000000000000000</LI>
   </UL>
    <UL id="tabadcontent_11" style="DISPLAY: none; width: 260px;">
        <LI>1111111111111111111111111</LI>
    </UL>
</div>

Tags: 切换 选项卡 效果 javascript

分类:网站建设 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 6412

用Robots.txt禁止多个爬虫/蜘蛛访问

最近编写了一个程序专门检测搜索引擎蜘蛛机器人访问情况,经过多日的观察,发现美国一家名为Cuil的搜索爬虫和搜狗爬虫的访问量相当惊人,每天爬行次数几百倍于其他爬虫,但是来自于这些搜索引擎的访问却一个都没有!于是我毅然决定使用Robots.txt文件把这些爬虫干掉!

但是,要干掉多个搜索爬虫在Robots.txt里该怎么写呢?

禁止多个爬虫访问,可以用多组命令来实现,例如,禁止Cuil和搜狗:

# 完全禁止Cuil的爬虫
User-agent: Twiceler
Disallow: /
# 完全禁止搜狗的爬虫
User-agent:sogou spider
Disallow: /

Tags: 爬虫 蜘蛛 搜索引擎 Robots

分类:网站建设 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 7265

Asp过滤HTML特定代码的函数

Asp过滤HTML的函数:过滤图片、链接.....

Function RemoveHTML(strHTML)
Dim objRegExp, Match, Matches
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
'取闭合的<>
objRegExp.Pattern = "<.+?>"
'进行匹 配
Set Matches = objRegExp.Execute(strHTML)
' 遍历匹配集合,并替换掉匹配的项目
For Each Match in Matches
strHtml=Replace(strHTML,Match.Value,"")
Next
RemoveHTML=strHTML
Set objRegExp = Nothing
End Function

引用举例:

 

Tags: ASP 过滤 函数 代码

分类:网站建设 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 4171