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
%>
Title ="标题";这应该很简单。关键字和描述可以使用
HtmlMeta metaKeywords = new HtmlMeta()
metaKeywords.Name = "keywords"
metaKeywords.Content = “关键字”
Header.Controls.AddAt(1, metaKeywords)
HtmlMeta metaDes = new HtmlMeta()
metaDes.Name = "description"
metaDes.Content = “描述”
Header.Controls.AddAt(1, metaDes)
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)