当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp 关键词字符串分割如何实现方法

ASP
构建你的网站新闻自动发布系统之三
构建你的网站新闻自动发布系统之四
如何用ASP编写网站统计系统一
如何用ASP编写网站统计系统二
如何用ASP编写网站统计系统三
如何用ASP编写网站统计系统四
ASP Error 0115的一些解决办法
ASP 3.0 新特色先睹为快(一)
ASP 3.0 新特色先睹为快(二)
ASP主件中的安全问题
一个汉字转成拼音的代码
使用w3Sockets组件实现域名查询功能
ASP中实现文件上传方法的研究
构建免受FSO组件威胁虚拟主机
用XMLHTTP做一个自己特色的Google
用asp实现的代码批量修改程序
无组件的数据库的备份与还原
用ASPJPEG组件制作图片的缩略图和加水印
解密ASP源代码
XmlHttp异步获取网站数据的例子

ASP 中的 asp 关键词字符串分割如何实现方法


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-13   浏览: 269 ::
收藏到网摘: n/a

我想做META关键字,比如我的标题显示ASP代码是:<% =objrs("Title")%>
如果<% =objrs("Title")%>最终显示的标题如“字符串分割如何实现?”
我想把字符串按两个汉字分割,如“字符,符串,串分,分割,割如,如何,何实,实现”
那ASP代码如何写?
非常感谢。

复制代码 代码如下:

dim i, title
title = objrs("Title")
for i = 0 to len(Title") step 2
response.write mid(title, i, 2) & ","
next

复制代码 代码如下:

<%
dim objRs,strSql
Set objRs=Server.CreateObject("ADODB.RecordSet")
strSql="select Title,Content from Table"
objRs.Open strSql,strConn,1,3
if objRs.Eof then
response.write "<center>没有此数据</center>"
else
%>
<%
dim i, title
title = objrs("Title")
for i = 1 to len(Title")-2
response.write mid(title, i, 2) & "," '这里只是个示范输出,你要自己把他赋值到META变量啊 汗
next
%>
加在META前面