ASP网页设计asp小偷程序中的字符串截取函数
使用filesystemobject，可以对服务器上的文件进行操作，浏览、复制、移动、删除等。有ado的支持，asp对数据库的操作非常得心应手。你甚至可以像使用本地数据库那样，管理远程主机上的数据库，对表格、记录进行各种操作。函数|字符串|小偷程序asp小偷程序中的字符串截取函数以下是函数代码：
’********************************************************************************
’Function（私有）
’称号：字符串截取函数
’感化：按指定首尾字符串截取内容(本函数为从左向右截取)
’参数：sContent----被截取的内容
’sStart------首字符串
’iStartNo----当首字符串不是独一时取第几个
’bIncStart---是不是包括首字符串(1/True为包括，0/False为不包括)
’iStartCusor-首偏移值(指针单元为字符数目,左偏用负值,右偏用正值,不偏为0)
’sOver-------尾字符串
’iOverNo-----当尾字符串不是独一时取第几个
’bIncOver----是不是包括尾字符串((1/True为包括，0/False为不包括)
’iOverCusor--尾偏移值(指针单元为字符数目,左偏用负值,右偏用正值,不偏为0)
’********************************************************************************
PublicFunctionSenFe_Cut(sContent,sStart,iStartNo,bIncStart,iStartCusor,sOver,iOverNo,bIncOver,iOverCusor)
IfsContent""Then
DimiStartLen,iOverLen,iStart,iOver,iStartCount,iOverCount,I
iStartLen=Len(sStart)’首字符串长度
iOverLen=Len(sOver)’尾字符串长度
’首字符串第一次呈现的地位
iStart=InStr(sContent,sStart)
’尾字符串在首字符串的右侧第一次呈现的地位
iOver=InStr(iStart+iStartLen,sContent,sOver)
IfiStart>0AndiOver>0Then
IfiStartNo<1OrIsNumeric(iStartNo)=FalseTheniStartNo=1
IfiOverNo<1OrIsNumeric(iOverNo)=FalseTheniOverNo=1
’获得首字符串呈现的次数
iStartCount=UBound(Split(sContent,sStart))
IfiStartNo>1AndiStartCount>0Then
IfiStartNo>iStartCountTheniStartNo=iStartCount
ForI=1ToiStartNo
iStart=InStr(iStart,sContent,sStart)+iStartLen
Next
iOver=InStr(iStart,sContent,sOver)
iStart=iStart-iStartLen’复原默许形态：包括首字符串
EndIf
’获得尾字符串呈现的次数
iOverCount=UBound(Split(Mid(sContent,iStart+iStartLen),sOver))
IfiOverNo>1AndiOverCount>0Then
IfiOverNo>iOverCountTheniOverNo=iOverCount
ForI=1ToiOverNo
iOver=InStr(iOver,sContent,sOver)+iOverLen
Next
iOver=iOver-iOverLen’复原默许形态：不包括尾字符串
EndIf
IfCBool(bIncStart)=FalseTheniStart=iStart+iStartLen’不包括首字符串
IfCBool(bIncOver)TheniOver=iOver+iOverLen’包括尾字符串
iStart=iStart+iStartCusor’加上首偏移值
iOver=iOver+iOverCusor’加上尾偏移值
IfiStart<1TheniStart=1
IfiOver<=iStartTheniOver=iStart+1
’按指定的入手下手和停止地位截取内容
SenFe_Cut=Mid(sContent,iStart,iOver-iStart)
Else
’SenFe_Cut=sContent
SenFe_Cut="没有找到您想要的内容，大概您设定的首尾字符串不存在！"
EndIf
Else
SenFe_Cut="没有内容！"
EndIf
EndFunction
以下是示例代码：
<!DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<htmlxmlns="http://www.w3.org/1999/xhtml"lang="zh-CN">
<head>
<title>阿里西西www.alixixi.com字符串截取函数（按指定首尾字符串截取内容）</title>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312"/>
<metahttp-equiv="Content-Language"content="zh-CN"/>
<metacontent="all"name="robots"/>
<metaname="author"content="阿里西西,alixixi"/>
<metaname="Copyright"content=""/>
<metaname="description"content=""/>
<metacontent=""name="keywords"/>
<styletype="text/css"><!--
*{
font-size:12px;
}
#test{
border-top:1px#000solid;
border-left:1px#000solid;
}
#testtd,#testth{
border-right:1px#000solid;
border-bottom:1px#000solid;
line-height:200%;
}
--></style>
<scriptlanguage="vbscript"><!--
’********************************************************************************
’Function（私有）
’称号：盛飞字符串截取函数
’感化：按指定首尾字符串截取内容(本函数为从左向右截取)
’参数：sContent----被截取的内容
’sStart------首字符串
’iStartNo----当首字符串不是独一时取第几个
’bIncStart---是不是包括首字符串(1/True为包括，0/False为不包括)
’iStartCusor-首偏移值(指针单元为字符数目,左偏用负值,右偏用正值,不偏为0)
’sOver-------尾字符串
’iOverNo-----当尾字符串不是独一时取第几个
’bIncOver----是不是包括尾字符串((1/True为包括，0/False为不包括)
’iOverCusor--尾偏移值(指针单元为字符数目,左偏用负值,右偏用正值,不偏为0)
’********************************************************************************
PublicFunctionSenFe_Cut(sContent,sStart,iStartNo,bIncStart,iStartCusor,sOver,iOverNo,bIncOver,iOverCusor)
IfsContent""Then
DimiStartLen,iOverLen,iStart,iOver,iStartCount,iOverCount,I
iStartLen=Len(sStart)’首字符串长度
iOverLen=Len(sOver)’尾字符串长度
’首字符串第一次呈现的地位
iStart=InStr(sContent,sStart)
’尾字符串在首字符串的右侧第一次呈现的地位
iOver=InStr(iStart+iStartLen,sContent,sOver)
IfiStart>0AndiOver>0Then
IfiStartNo<1OrIsNumeric(iStartNo)=FalseTheniStartNo=1
IfiOverNo<1OrIsNumeric(iOverNo)=FalseTheniOverNo=1
’获得首字符串呈现的次数
iStartCount=UBound(Split(sContent,sStart))
IfiStartNo>1AndiStartCount>0Then
IfiStartNo>iStartCountTheniStartNo=iStartCount
ForI=1ToiStartNo
iStart=InStr(iStart,sContent,sStart)+iStartLen
Next
iOver=InStr(iStart,sContent,sOver)
iStart=iStart-iStartLen’复原默许形态：包括首字符串
EndIf
’获得尾字符串呈现的次数
iOverCount=UBound(Split(Mid(sContent,iStart+iStartLen),sOver))
IfiOverNo>1AndiOverCount>0Then
IfiOverNo>iOverCountTheniOverNo=iOverCount
ForI=1ToiOverNo
iOver=InStr(iOver,sContent,sOver)+iOverLen
Next
iOver=iOver-iOverLen’复原默许形态：不包括尾字符串
EndIf
IfCBool(bIncStart)=FalseTheniStart=iStart+iStartLen’不包括首字符串
IfCBool(bIncOver)TheniOver=iOver+iOverLen’包括尾字符串
iStart=iStart+iStartCusor’加上首偏移值
iOver=iOver+iOverCusor’加上尾偏移值
IfiStart<1TheniStart=1
IfiOver<=iStartTheniOver=iStart+1
’按指定的入手下手和停止地位截取内容
SenFe_Cut=Mid(sContent,iStart,iOver-iStart)
Else
’SenFe_Cut=sContent
SenFe_Cut="没有找到您想要的内容，大概您设定的首尾字符串不存在！"
EndIf
Else
SenFe_Cut="没有内容！"
EndIf
EndFunction
--></script>
<scriptlanguage="javascript"><!--
//returnHTMLobjectbyobjectid
function$(id){
varobj=document.getElementById(id);
returnobj?obj:undefined;
}
functionTest(){
varcontent=$("content").value;
varsStart=$("sStart").value;
variStartNo=$("iStartNo").value;
varbIncStart=$("bIncStart").checked;
variStartCusor=$("iStartCusor").value;
varsOver=$("sOver").value;
variOverNo=$("iOverNo").value;
varbIncOver=$("bIncOver").checked;
variOverCusor=$("iOverCusor").value;
if(content==""){
alert("请输出待截取的内容！");
$("content").focus();
returnfalse;
}
if(sStart==""){
alert("请输出首字符串！");
$("sStart").focus();
returnfalse;
}
if(sOver==""){
alert("请输出尾字符串！");
$("sOver").focus();
returnfalse;
}
if(iStartNo==""||isNaN(iStartNo))iStartNo=1;
if(iOverNo==""||isNaN(iOverNo))iOverNo=1;
if(iStartCusor==""||isNaN(iStartCusor))iStartCusor=0;
if(iOverCusor==""||isNaN(iOverCusor))iOverCusor=0;
$("results").value=SenFe_Cut(content,sStart,parseInt(iStartNo),bIncStart,parseInt(iStartCusor),sOver,parseInt(iOverNo),bIncOver,parseInt(iOverCusor));
$("example").value="sContent=SenFe_Cut("内容","首字符串","+iStartNo+","+bIncStart+","+iStartCusor+","尾字符串","+iOverNo+","+bIncOver+","+iOverCusor+")";
}
--></script>
</head>
<body>
<tableid="test"cellspacing="0"cellpadding="0"align="center">
<tr><th>盛飞字符串截取函数</th></tr>
<tr><td>待截取的内容：</td></tr>
<tr><td><textareaname="content"id="content"rows="10"cols="80"></textarea></td></tr>
<tr><td>首字符串：</td></tr>
<tr><td><textareaname="sStart"id="sStart"rows="2"cols="80"></textarea></td></tr>
<tr><td>取第<inputtype="text"name="iStartNo"id="iStartNo"value="1"size="2"/>个<inputtype="checkbox"name="bIncStart"id="bIncStart"value="1"/>包括首字符串？偏移值：<inputtype="text"name="iStartCusor"id="iStartCusor"value="0"size="2"/></td></tr>
<tr><td>尾字符串：</td></tr>
<tr><td><textareaname="sOver"id="sOver"rows="2"cols="80"></textarea></td></tr>
<tr><td>取第<inputtype="text"name="iOverNo"id="iOverNo"value="1"size="2"/>个<inputtype="checkbox"name="bIncOver"id="bIncOver"value="1"/>包括首字符串？偏移值：<inputtype="text"name="iOverCusor"id="iOverCusor"value="0"size="2"/></td></tr>
<tr><td><inputtype="button"name="submit"value=" 测 试 "/></td></tr>
<tr><td>前往了局：</td></tr>
<tr><td><textareaname="results"id="results"rows="10"cols="80"></textarea></td></tr>
<tr><td>挪用示例：</td></tr>
<tr><td><textareaname="example"id="example"rows="2"cols="80"></textarea></td></tr>
</table>
</body>
</html>
写软件都是想的时间比写的时间要长的.如果反过来了就得看看是什么原因了.另外大家可以回去问问公司里的小MM.(一般企业里,跟你们交付软件接触得最多的是她们) 代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。 如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助: 封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。 Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名") 它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。 你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。 另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件) ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。 因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。
页:
[1]