管理资源吧首页>>>教程>>>编程>>>ASP教程>>>

asp下根据标题生成关键字的代码

<img src="/_New/_cj/myeditor/sysimage/space.gif" class="ewebeditor__script" _ewebeditor_fake_tag="script" _ewebeditor_fake_value="%3Cscript%20language%3D%22vbs%22%3E%20%0D%0A'Function%20CreateKeyWords(KeyWords)%20%0D%0A'%E5%85%B3%E9%94%AE%E5%AD%97%E7%94%9F%E6%88%90%E7%B3%BB%E7%BB%9F%20%0D%0A%20%20%20%20Dim%20i%2CL%2CTempStr%20%0D%0A%20%20%20%20KeyWords_Temp%3DreReplace(KeyWords%2C%20%22%5B%5Cx00-%5Cxff%5D%7C%5Cn%7C%20%7C%E3%80%80%7C%EF%BC%8C%7C%E3%80%82%7C%E3%80%81%7C%EF%BC%81%7C%EF%BC%9F%7C%EF%BC%9A%7C%22%7C%22%7C%EF%BC%BB%7C%EF%BC%BD%7C%E2%80%94%7C%E2%80%94%7C%EF%BC%88%7C%EF%BC%89%7C%E2%80%A6%22%2C%20%22%22)%20%0D%0A%20%20%20%20L%3DLen(KeyWords_Temp)%20%0D%0A%20%20%20%20For%20i%3D1%20To%20L-1%20%0D%0A%20%20%20%20%20%20%20%20TempStr%3DTempStr%20%26%20%22%2C%22%20%26%20Mid(KeyWords_Temp%2Ci%2C2)%20%0D%0A%20%20%20%20Next%20%0D%0A%20%20%20%20CreateKeyWords%3DKeyWords%20%26%20TempStr%20%0D%0AEnd%20Function%20%0D%0A%0D%0A%0D%0AFunction%20reReplace(Str%2C%20restrS%2C%20restrD)%20%0D%0A'%E6%AD%A3%E5%88%99%E8%A1%A8%E8%BE%BE%E5%BC%8F%E5%86%99%E7%9A%84%E6%9B%BF%E6%8D%A2%20%0D%0A'Made%20by%20www.yongfa365.com%20%0D%0A%20%20%20%20Set%20re%20%3D%20New%20RegExp%20%0D%0A%20%20%20%20re.IgnoreCase%20%3D%20True%20%0D%0A%20%20%20%20re.Global%20%3D%20True%20%0D%0A%20%20%20%20re.Pattern%20%3D%20restrS%20%0D%0A%20%20%20%20reReplace%20%3D%20re.Replace(Str%2C%20restrD)%20%0D%0AEnd%20Function%20%0D%0A%0D%0AMsgBox%20CreateKeyWords(%22hello%20%E4%BD%A0%E5%A5%BD%E5%95%8A%EF%BC%8C%20%E4%BD%A0%E7%9F%A5%E9%81%93%20%E6%88%91%E6%98%AF%E8%B0%81%E4%B8%8D%EF%BC%9F%20%20%EF%BC%8C%E5%91%B5%E5%91%B5%EF%BC%8C%E6%88%91%E6%98%AF%E6%9F%B3%E6%B0%B8%E6%B3%95()%20yongfa365%20%E7%9F%A5%E9%81%93%E4%B8%8D%22)%20%0D%0A%3C%2Fscript%3E">

　　 [Ctrl+A 全选注:如需引入外部Js需刷新才能执行]

教程首页更多教程