这样改就可以了(从开始到结束这几行,425行附近），希望此代码对你有用

'系统整合
   '-----------------------------------------------------------------
   If API_Enable Then
    Response.Write API_SaveCookie
    Response.Flush
    If API_ReguserUrl <> "0" Then
     Response.Write "<script language=JavaScript>"
     Response.Write "setTimeout(""window.location='"& API_ReguserUrl &"'"",1000);"
     Response.Write "</script>"
    End If

   End If
   '--------------------------------代码加入开始---------------------------------
   Dim MsgTitle:MsgTitle="欢迎您来到十方瞬间摄影网！"
   Dim MsgInfo:MsgInfo="    　　欢迎您来到十方瞬间摄影网，这里为您开辟了<font colr=""#ff0000"">个人博客</font>专栏，您可以在登录网站后，在您个人“<a href=""/User/index.asp"">管理中心</a>”－－“博客管理”－－“模板设置”栏目中修改您的个人空间风格。十方瞬间为您提供了10个不同风格的模板，同时我们还将对模板进行不断的更新和完善，希望您能从中找到自己喜爱的模板式样。如果对博客模板和网站功能有什么好的建议，请给管理员(xxxxxx)发送消息留言，我们会持续改进、不断完善。<br>　　您还可以在个人设置中设置您的真实姓名,并会出现在网站首页(如不设置,首页作家姓名将无显示)。<br>　　更多网站使用说明请点击<a href=""http://www.she-ying.net/plus/Announce.asp?AnnounceID=43"" target=""_blank""><font color=""ff0000"">网站使用帮助</font></a>。"
   Call KS.SendInfo(UserName,"qzphoto",MsgTitle,MsgInfo)
   '-----------------------代码加入结束-------------------------------------------
   Call ShowRegResult(ReturnInfo)