ASP判断手机号码的函数,ASP判断手机号码是否输入正确的函数
Function YISKYCheckMobilePhone(sPhone)
  Dim regEx          
  Set regEx = New RegExp      
  regEx.Pattern = "^1(([3458]\d)|(5[123467890]))\d{8}$"    '检测手机号的正则表达表
  regEx.Pattern = "^(13[0-9]|15[890])\d{8}$"  '还可以用这个
  regEx.IgnoreCase = False          '手机号错误返回False            
  YISKYCheckMobilePhone = regEx.Test(sPhone)  
  Set regEx = Nothing
End Function


解释以下 ^表示字符串的开始 $表示结束 这两个合起来表示全字符匹配.
[0-9] 表示0-9中的任意一个 [890] 表示 8,9,0 中的任意一个
\d 匹配所有的数字 相当于[0-9]
{8} 表示出现8次  

<div id=demod style="overflow:hidden;height:345px;width:650px"> <table align=left cellpadding=0 cellspace=0 border=0> <tr> <td id=demo7 valign=top> <table width='100%' cellpadding='0' cellspacing='5' border='0' align='center'> <tr valign='top'> <td align='left'><img src="http://ad.foloda.com/10dy/xhss/images/2-1.jpg"></td> </tr> </table></td> <td id=demo8 valign=top></td> </tr> </table> </div> <script> var speed=15 demo8.innerHTML=demo7.innerHTML function Marquee(){ if(demo8.offsetWidth-demod.scrollLeft<=0) demod.scrollLeft-=demo7.offsetWidth else{ demod.scrollLeft++ } } var MyMar=setInterval(Marquee,speed) demod.onmouseover=function() {clearInterval(MyMar)} demod.onmouseout=function() {MyMar=setInterval(Marquee,speed)} </script>

[Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--Asp读取access数据库生成XML文件(gb2312 总穆修正版) 程序修改自网络 仅帮助新手入门 Zongmu-->
<%
dim conn,connstr,rs,sql
    connstr="provider=Microsoft.Jet.OLEDB.4.0;data source="&Server.MapPath("zongmu_db/zongmu_km.mdb")&";"
set conn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.RecordSet")
    conn.open connstr
%>


<%
if request("action")="zongmu_shengcheng" then

set conn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.RecordSet")
    conn.open connstr
sql="select * from content order by id desc"
    rs.open sql,conn,1,1


xmlfile=Server.MapPath("test.xml")
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(xmlfile,True)

MyFile.WriteLine("<?xml version=""1.0"" encoding=""gb2312""?>")
MyFile.WriteLine("<config>")

do while not rs.eof
MyFile.WriteLine"<item>"
MyFile.WriteLine"<Id>"&rs("title")&"</Id>"
MyFile.WriteLine"<name>"&rs("name")&"</name>"
MyFile.WriteLine"<client>"&rs("client")&"</client>"
MyFile.WriteLine"<url>"&rs("url")&"</url>"
MyFile.WriteLine"<markUp1 href=""#"">"&rs("markUp1")&"</markUp1>"
MyFile.WriteLine"<markUp2 href=""#"">"&rs("markUp2")&"</markUp2>"
MyFile.WriteLine"<markUp3 href=""#"">"&rs("markUp3")&"</markUp3>"
MyFile.WriteLine"<markUp4 href=""#"">"&rs("markUp4")&"</markUp4>"
MyFile.WriteLine"<image>"&rs("image")&"</image>"
MyFile.WriteLine"<imgAlt>"&rs("imgAlt")&"</imgAlt>"
MyFile.WriteLine"<content>"&rs("content")&"</content>"
MyFile.WriteLine"<className>"&rs("className")&"</className>"
MyFile.WriteLine("</item>")

rs.movenext
loop

MyFile.WriteLine("</config>")

MyFile.Close

rs.close
conn.close
set rs=nothing
set conn=nothing
end if
%>

<!--网页显示部分 并显示XML文件的链接-->
<p>　</p>
<script language="javascript">
<!--

function ConfirmDel()
{
   if(confirm("确定要更新XML数据吗? 一旦更新将不能恢复!"))
     return true;
   else
     return false;  
}

-->
</script>
<form name="zongmu" method="post" action="?action=zongmu_shengcheng"><input type="submit" name="Submit" value="更新XML数据为最新" onClick="return ConfirmDel();"></form>
<p>　</p>
<p><a href="test.xml">查看XML文件内容</a></p>

<%
'*******************************************
'指定字符截取字符串
'in_str 要截取的字符串
'in_point 指定的字符,如:"/",".","|"
'in_type 截取类型，如:1截取前缀,2截取后缀,3截取后并换行
'*******************************************
Function intercept_str(in_str,in_point,in_type)
On Error Resume Next
Select Case in_type
Case 1
   intercept_str=left(in_str,instr(in_str,""&in_point&"")-1)
Case 2
   intercept_str=mid(in_str,instrRev(in_str,""&in_point&"")+1)
Case 3
   a = Split(in_str,""&in_point&"")
   For i = 0 To UBound(a)
      intercept_str=intercept_str&(a(i)&"<br>")
      Next
Case else
   intercept_str="截取失败,无效的截取类型,请检查参数是否正确!"
End Select
If Err Then Err.Clear: intercept_str="字符串截取失败,请检查指定截取的字符是否正确!"
End Function
strURL ="11111|22222|333333"
response.write intercept_str(strURL,"|",3)
%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <style type="text/css"> <!-- *{ margin:0px; padding:0px; } body { margin:10px; font-size: 13px; } a:link { color: #666; text-decoration: none;/*去除链接下划线*/ } a:visited { color: #666; text-decoration: none; } a:hover { color: #F90; } ul { width: 300px; border-top: 1px solid #F60;/*使其上边有一线条，与标题h3吻合*/ } ul li { padding:5px; border-bottom: 1px solid #CCC; list-style:none;/*去除列表样式，这对于标准浏览很重要*/ } a { position: relative;/*设置其定位方法为相对定位，等一下内部信息面板就可以相对它定位*/ display:block;/*让链接以块状呈现，这样不用点中链接文字就可以响应链接*/ } a div { display: none;/*初始化信息面板不显示*/ } a:hover {background:#fff;}/*IE7以下版本A状态伪类bug*/ a:hover div { position: absolute; padding:5px; display:block; width: 245px;/*只给出宽度，高让它随内容多少自动调整*/ left:150px;/*这是相对父级A的定位*/ top: 20px; border: 1px solid rgb(91,185,233); background-color: rgb(228,246,255); z-index:999;/*把信息面板提到一个较高的位置，使链接文字过长时不会与面板重叠,但这只对FF有效*/ } a img { width:80px; height:80px; border:none;/*去除图片边框，默认情况下，链接内的图片在标准浏览器会出现边框*/ display:block; position: absolute;/*用绝对定位抽离正常文本流，不然在设计的时候考虑到不同浏览器正常显示会更麻烦*/ top:5px;/*这里的5px是与信息面板大盒子的填充一样的*/ left:5px; } dl { width: 160px; float:right; color: #999; line-height:20px; } dl dd span { font-weight: bold; color: #639; } --> </style> <title>无标题文档</title> </head> <body> <ul> <li><a href="#">02 累了 阿信<div><img src="http://imgcache.qq.com/music/photo/singer/47/singerpic_6547_0.jpg" alt="" /> <dl> <dd><span>歌名:</span>累了</dd> <dd><span>歌手:</span>阿信</dd> <dd><span>介绍:</span>青春校园偶像剧----【熱情仲夏】片尾曲</dd> </dl></div></a></li> <li><a href="#">03 漫漫 慢慢 阿朵<div><img src="http://imgcache.qq.com/music/photo/singer/61/singerpic_6361_0.jpg" alt="" /> <dl> <dd><span>歌名:</span>漫漫 慢慢</dd> <dd><span>歌手:</span>阿朵</dd> <dd><span>介绍:</span>阿朵抢听版最新单曲《漫漫 慢慢》让你认识阿朵柔情的一面，展现阿朵百变的风格。</dd> </dl></div></a></li> <li><a href="#">04 我怀念的 孙燕姿<div><img src="http://imgcache.qq.com/music/photo/singer/9/singerpic_109_0.jpg" alt="" /> <dl> <dd><span>歌名:</span>我怀念的</dd> <dd><span>歌手:</span>孙燕姿</dd> <dd><span>介绍:</span>令人感同身受的抒情歌，在故事性的架构中，有着平凡但又能扣人心弦的情感，是一首高度共鸣的抒情歌。</dd> </dl></div></a></li> <li><a href="#">05 听,花期越来越近 后弦<div><img src="http://imgcache.qq.com/music/photo/singer/33/singerpic_4733_0.jpg" alt="" /> <dl> <dd><span>歌名:</span>花期越来越近</dd> <dd><span>歌手:</span>后弦</dd> <dd><span>介绍:</span>后弦参与《花开的声音》这个舞台剧里的一部分，邀请了后弦去演唱这首歌，此歌就是为舞台剧《花开的声音》而创作。</dd> </dl></div></a></li> </ul> </body> </html>

[Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]