asp 如何给指定的文字添加连接

来源:百度知道 编辑:UC知道 时间:2024/09/20 21:45:02
赫赫 标题是不准确的
其实是这样的

我的前台显示页面news.asp显示如下:

例:书,箸也。——《说文》。按说文序云:“著于竹帛谓之书。” 例:五曰六书。——《周礼·保氏》 例:作书。上古以刀录于竹若木,中古以漆画于帛,后世以墨写于纸。——朱骏声《说文通训定声》 例:易之以书契。——《易·系辞》...

我想要
在文章里,只要有书名号《》,里面的字,都加上连接
即:
《说文》的连接为 http://www.baidu.com/baidu?&word=说文
《周礼·保氏》的连接为 http://www.baidu.com/baidu?&word=周礼·保氏
《说文通训定声》的连接为 http://www.baidu.com/baidu?&word=说文通训定声

能不能就在news.asp 里面添加语句就可以达到这效果
我可以提供news.asp 源文件
请高手指点,谢谢了
不好意思 我表达能力比较差
表达有误
赫赫

其实我想要这样的语句:
从数据库读取数据,在读取文章数据的时候,如果发现文章里面有书名号《》,就自动给书名加个百度的连接
即:
《说文》转换连接为 《<a href="http://www.baidu.com

看了楼主给出的问题觉得挺有意思,便自己尝试写了下。代码如下,希望对楼主有帮助。 这样可以达到楼主的效果,但是代码质量就不咋滴了,呵呵。。。
<%

str="书,箸也。——《说文》。按说文序云:“著于竹帛谓之书。” 例:五曰六书。——《周礼·保氏》 例:作书。上古以刀录于竹若木,中古以漆画于帛,后世以墨写于纸。——朱骏声《说文通训定声》 例:易之以书契。——《易·系辞》... "

'小心使用,容易造成死循环的哦!
do while true
if instr(str,"《")<>0 or instr(str,"》")<>0 then
'取《前面的字符串
ss1=mid(str,1,instr(str,"《")-1)
'取《》里面的内容
instr1=instr(str,"《")+1
instr2=instr(str,"》")-instr1
ss2=mid(str,instr1,instr2)
'给《》里面的内容加上链接,并把《用[代替
ss2="[<a href='
http://www.baidu.com/baidu?&word="&ss2&"'>"&ss2&"</a>]"
'取》后面的内容
ss3=mid(str,instr(str,"》")+1,len(str))
'重新组合字符串
str=ss1+ss2+ss3
'response.Write(str&"<br>")
else