Question

ASP中随机加入关键字

我用asp做了个网站，想实现在文章内容中随机插入一些关键词，防止别人直接复制，应该怎么设置，麻烦高手帮我实现一下！
我看到别人写了这个函数：
<%
function insertWord(getWord,putWord)
getWord=cstr(getWord) 'getWord为要抓取字符的字符串，转换String
putWord=cstr(putWord) 'putWord为要放置字符的字符串，转换String
str1_len=len(getWord) '得到getWord字符串长度
str2_len=len(putWord) '得到putWord字符串长度
randomize
str1_rnd=cint(round(rnd*(str1_len-1)+1)) '获得getWord的随机位置
wordGet=mid(getWord,str1_rnd,1) '截取随机位置的值
str2_rnd=cint(round(rnd*(str2_len-1)+1))
leftStr=left(putWord,str2_rnd) '截断取得插入字符串的左边的值
rightStr=right(putWord,(str2_len-str2_rnd)) '截断取得插入字符串的右边的值
resultStr=leftStr&wordGet&rightStr '拼接字符串
response.Write resultStr
end function
%>
<%
splitStr="HelloWorld"
insertWord splitStr,splitStr
%>

但是不知道怎么用，麻烦高手帮我看看！

Answer 1

<%
function insertWord(getWord,putWord)
getWord=cstr(getWord) 'getWord为要抓取字符的字符串，转换String
putWord=cstr(putWord) 'putWord为要放置字符的字符串，转换String
str1_len=len(getWord) '得到getWord字符串长度
str2_len=len(putWord) '得到putWord字符串长度
randomize
str1_rnd=cint(round(rnd*(str1_len-1)+1)) '获得getWord的随机位置
'wordGet=mid(getWord,str1_rnd,3) '截取随机位置的值,也就是显示几个字,这里设置3个字
wordGet="关键词" '截取随机位置的值,也就是显示几个字,这里设置3个字
str2_rnd=cint(round(rnd*(str2_len-1)+1))
leftStr=left(putWord,str2_rnd) '截断取得插入字符串的左边的值
rightStr=right(putWord,(str2_len-str2_rnd)) '截断取得插入字符串的右边的值
resultStr=leftStr&"【"&wordGet&"】"&rightStr '拼接字符串,也就是输出的内容
response.Write resultStr
end function%>
<%
splitStr="我用asp做了个网站，想实现在文章内容中随机插入一些关键词，防止别人直接复制，应该怎么设置，麻烦高手帮我实现一下！" '要显示的内容,这种不能设置关键词,随机加入的内容为原有内容的截取
insertWord splitStr,splitStr
%>
'要设置关键词需下面这种
<%
function insertWord(getWord,putWord)
getWord=cstr(getWord) 'getWord为要抓取字符的字符串，转换String
putWord=cstr(putWord) 'putWord为要放置字符的字符串，转换String
str1_len=len(getWord) '得到getWord字符串长度
str2_len=len(putWord) '得到putWord字符串长度
randomize
str1_rnd=cint(round(rnd*(str1_len-1)+1)) '获得getWord的随机位置
wordGet="关键词" '关键词,自行设置
str2_rnd=cint(round(rnd*(str2_len-1)+1))
leftStr=left(putWord,str2_rnd) '截断取得插入字符串的左边的值
rightStr=right(putWord,(str2_len-str2_rnd)) '截断取得插入字符串的右边的值
resultStr=leftStr&"【"&wordGet&"】"&rightStr '拼接字符串,也就是输出的内容
response.Write resultStr
end function%>
<%
splitStr="我用asp做了个网站，想实现在文章内容中随机插入一些关键词，防止别人直接复制，应该怎么设置，麻烦高手帮我实现一下！" '要显示的内容
insertWord splitStr,splitStr
%>

追问

谢谢，用第二个方法已经达到效果了，请问下如果有多个关键词怎么操作？

追答

多个关键词 会无规则显示(参见第一种),好象失去了关键词的意义

追问

wordGet="关键词"
如果这个【关键词】是一个连接关键词这种形式的，中间的那个连接上的引号应该怎么处理？
还有第一种方法中：无效的过程调用或参数: 'mid'

追答

关键词 应为 关键词 用单引号替换双引号

第一种方法中
'wordGet=mid(getWord,str1_rnd,3) '截取随机位置的值,也就是显示几个字,这里设置3个字
wordGet="关键词" '截取随机位置的值,也就是显示几个字,这里设置3个字
应为
wordGet=mid(getWord,str1_rnd,3) '截取随机位置的值,也就是显示几个字,这里设置3个字

追问

正如您所说：多个关键词 会无规则显示，这个确实就没有意义了，如何才能控制截取的字符，比如用“|”分开，谢谢高手了，不甚感激！

追答

用“|”分开可以,在随机(无序)显示中再套嵌数组循环,截取值又必须附加随机显示次数,是否太繁杂了些?

因数组不能超过其上下界

以不同ip为例
若一个人浏览10篇文章,数组在10之内
若浏览N*10篇文章,数组值则达N*10=要设置N*10个关键词(达不到这个值,显示会出错)