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: PHPPHP 提取提取 字符串字符串 数字数字

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

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

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

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

查看更多...

Tags: mysqlmysql 语句语句 随机随机 查询查询 方法方法

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

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

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

查看更多...

Tags: ASPASP 链接链接 hrefhref 标签标签 URLURL

默认我们在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: ASPASP VBVB ReplaceReplace 函数函数 替换替换 大小写大小写

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

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

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

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

查看更多...

Tags: 国内国内 注册注册 域名域名

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

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

后来在ie上试，居然可以成功提交！？

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

查看更多...

Tags: firefoxfirefox 表单表单 ajaxajax 提交提交

<%@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: ASPASP RSSRSS XMLXML 读取读取 程序程序

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

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

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

完整代码如下：（可起名：img.asp）

查看更多...

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

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

LCase：转成小写
UCase：转成大写

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

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

查看更多...

Tags: ASPASP 字符串字符串 大小写大小写

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

<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: JSJS 定时定时 页面跳转页面跳转 重定向重定向 代码代码

<%'===========================================
'获取当前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: 当前页当前页 地址地址 URLURL 函数函数 ASPASP

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: 切换切换 选项卡选项卡 效果效果 javascriptjavascript

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

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

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

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

Tags: 爬虫爬虫 蜘蛛蜘蛛 搜索引擎搜索引擎 RobotsRobots

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: ASPASP 过滤过滤 函数函数 代码代码