让你的动易SW6自动生成站内链接
提示：让你的动易SW6自动生成站内链接？当你写一篇文章，想要向访客介绍其他文章的时候你会怎么做？是把该文章的地址先复制下来，然后在编辑器中使用超链接，把这个链接手动添加上去？
本文为hangxj原创，转载请注明出处以及文章地址！
当你写一篇文章，想要向访客介绍其他文章的时候你会怎么做？是把该文章的地址先复制下来，然后在编辑器中使用超链接，把这个链接手动添加上去？
如果是的话，那么你就然后了，来吧，把双手解放出来，让动易的替换站内链接功能自动控制帮你做这些繁杂的事情吧，让你有更多的精力去想想这篇文章如何写得更好！
在今天的动易修改系统文章中，我要介绍的主题是，自己写一个函数，让动易在你保存该文章的时候自动创建一个以该文章标题为替换目标的站内链接，对就是这样，不要觉得很难，其实很简单，因为部分程序是使用了动易原本的，只是经过我的修改变成了我想要的罢了。然后自己再写点小函数就OK了，就是这么简单，来吧，跟着我做。
说明：因为我不想把动易的程序改得太多，所以我写的大部分功能函数都是独立在一个文件中的，我的文件名是 Include/Hangxj.Function.asp ，你可以按照自己的习惯来处理。不过自己创建一个文件的话，记得要把该文件包含进来就是了，什么？不知道如何进行？
好吧，为了帮助一下那些完全的拿来主义的家伙们，我把我的做法也写出来吧。因为我这个文件 Include/Hangxj.Function.asp ，是网站全局使用的，所以我是在根目录下的 Start.asp 文件中把它包含进来的。
<!--#include file="Conn.asp"-->
<!--#include file="Config.asp"-->
<!--#include file="Include/PowerEasy.Common.All.asp"-->
<!--#include file="Include/PowerEasy.Common.Security.asp"-->
<!--#include file="Include/Hangxj.Function.asp"-->
好了，现在进入主题。
第一步：增加自动创建站内链接功能函数
代码如下：
Function CreatKeyLink(tmpSource, tmpUrl, IsCreat)
Dim arrSource,i
If InStr(tmpSource, "、") > 1 Then
arrSource = Split(tmpSource, "、")
For i = 0 To UBound(arrSource)
Call AddKeyLink(arrSource(i), tmpUrl, IsCreat)
Next
Else
Call AddKeyLink(tmpSource, tmpUrl, IsCreat)
End If
End Function
Function AddKeyLink(tmpSource, tmpUrl, IsCreat)
Dim rs,SqlStr
set rs = server.CreateObject("Adodb.recordset")
SqlStr = "Select * From PE_KeyLink Where Source='"&tmpSource&"' And LinkType=0 And isUse=1"
rs.open SqlStr,conn,1,3
If (Not rs.bof) And (Not rs.eof) Then
If IsCreat = 1 Then
rs("ReplaceText") = SiteUrl &tmpUrl
rs("Priority") = len(tmpSource)
rs("ReplaceType") = 1
rs("LinkType") = 0
rs("isUse") = 1
rs.update
Response.Write "<li>已更新 <font color='#0000FF'>"&tmpSource&" </font> 的站内链接 "&tmpUrl&"</li><br>" & vbCrLf
Response.Flush
End If
Else
rs.addnew
rs("Source") = tmpSource
rs("ReplaceText") = SiteUrl & tmpUrl
rs("Priority") = len(tmpSource)
rs("ReplaceType") = 1
rs("LinkType") = 0
rs("isUse") = 1
rs.update
Response.Write "<li>成功生成 <font color='#0000FF'>"&tmpSource&" </font> 的站内链接 "&tmpUrl&"</li><br>" & vbCrLf
Response.Flush
End if
rs.Close
Set rs = Nothing
End Function
说明：该函数为全站任意模块通用的。
第二步：在文章生成页面增加函数
找到Admin/Admin_CreateArticle.asp 文件，做以下修改（找到“生成内容结束”这段话，在它的前面增加以下语句）：
Call CreatKeyLink(ArticleTitle, tmpFileName, 1)
End If
'生成内容结束，更新内容的生成时间
好了，现在已经完成了，你修改或者新加文章看下效果？
PS：CreatKeyLink(ArticleTitle, tmpFileName, 1) 后面那个 1 代表是更新，0代表不更新。如果为1，如果数据中已经存在该站内链接（以“链接目标”来处理），则更新，如果为0，则不更新。如果你有更好的方式，欢迎Email给我，或者QQ联系。请注明：我爱晒！
这还有动易的其他修改文章，有兴趣的可以看下：
