1.将代码二放在/login/regist.asp文件中，放在代码三之上。

2.在代码四之上加上代码一，有几个代码四就加几个代码一。

提示：代码三代码四都位于/login/regist.asp文件中。默认代码不含推帖，如需要可去掉代码二中3、4、5行最前面的'。

代码一：
AutoAddTopic MyId,name

代码二：
Sub AutoAddTopic(ByVal UserId,ByVal UserName)
Conn.Execute("INSERT INTO [wap_topic] ([bid],[pid],[uid],[tags],[name],[dtext]) VALUES (1,7,10000,'','欢迎"&UserName&"("&UserId&")入驻"&SiteAbbr&"','帖子内容')")
'dim toid
'toid=Int(Trim(Conn.Execute("SELECT @@IDENTITY")(0)))
'MessageSend UserId,10000,"
您的好友向您推荐一篇帖子：
{l tid="&toid&"}欢迎"&UserName&"("&UserId&")入驻"&SiteAbbr&"{/l}
"&SiteAbbr&"欢迎你,有什么需要帮忙的请联系我们的管理！
"
End Sub

代码三：
Response.write "----------
"

代码四：
Response.write "恭喜~~注册成功！
"

代码五：
用来替换代码二的。
需要先发个欢迎模板帖，发后记住帖子编号，该帖可以在前台删除，不可在后台删除。
Sub AutoAddTopic(ByVal UserId,ByVal UserName)
Conn.Execute("INSERT INTO [wap_topic] ([bid],[pid],[uid],[tags],[name],[dtext]) SELECT [bid],[pid],[uid],[tags],'欢迎"&UserName&"("&UserId&")入驻"&SiteAbbr&"',[dtext] FROM [wap_topic] WHERE [id]=帖子编号")
'dim toid
'toid=Int(Trim(Conn.Execute("SELECT @@IDENTITY")(0)))
'MessageSend UserId,10000,"
您的好友向您推荐一篇帖子：
{l tid="&toid&"}欢迎"&UserName&"("&UserId&")入驻"&SiteAbbr&"{/l}
"&SiteAbbr&"欢迎你，有什么需要帮忙的请联系我们的管理！
"
End Sub