⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 inc_create_forum_sql7.asp

📁 一个不错的ASP论坛源码
💻 ASP
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
' strSql = strSql & "  BEGIN "
' strSql = strSql & "    RAISERROR 44446 'The record can''t be deleted or changed. Since related records exist in table ''" & strTablePrefix & "TOPICS'', referential integrity rules would be violated.' "
' strSql = strSql & "    ROLLBACK TRANSACTION "
' strSql = strSql & "  END "
' strSql = strSql & "END "
' ## PREVENT UPDATES IF DEPENDENT RECORDS IN FORUM_MODERATOR
' strSql = strSql & "IF UPDATE(MEMBER_ID) "
' strSql = strSql & "BEGIN "
' strSql = strSql & "  IF (SELECT COUNT(*) FROM deleted, " & strTablePrefix & "MODERATOR WHERE (deleted.MEMBER_ID = " & strTablePrefix & "MODERATOR.MEMBER_ID)) > 0 "
' strSql = strSql & "  BEGIN "
' strSql = strSql & "    RAISERROR 44446 'The record can''t be deleted or changed. Since related records exist in table ''" & strTablePrefix & "MODERATOR'', referential integrity rules would be violated.' "
' strSql = strSql & "    ROLLBACK TRANSACTION "
' strSql = strSql & "  END "
' strSql = strSql & "END "

' my_Conn.Execute strSql
' ChkDBInstall()

' strSql = "CREATE TRIGGER " & strMemberTablePrefix & "MEMBERS_DeleteTrigger ON " & strMemberTablePrefix & "MEMBERS FOR DELETE AS "
' ## PREVENT DELETES IF DEPENDENT RECORDS IN FORUM_REPLY
' strSql = strSql & "IF (SELECT COUNT(*) FROM deleted, " & strTablePrefix & "REPLY WHERE (deleted.MEMBER_ID = " & strTablePrefix & "REPLY.R_AUTHOR)) > 0 "
' strSql = strSql & "BEGIN "
' strSql = strSql & "  RAISERROR 44445 'The record can''t be deleted or changed. Since related records exist in table ''" & strTablePrefix & "REPLY'', referential integrity rules would be violated.' "
' strSql = strSql & "  ROLLBACK TRANSACTION " 
' strSql = strSql & "END "
' ## PREVENT DELETES IF DEPENDENT RECORDS IN FORUM_TOPICS
' strSql = strSql & "IF (SELECT COUNT(*) FROM deleted, " & strTablePrefix & "TOPICS WHERE (deleted.MEMBER_ID = " & strTablePrefix & "TOPICS.T_AUTHOR)) > 0 "
' strSql = strSql & "BEGIN "
' strSql = strSql & "  RAISERROR 44445 'The record can''t be deleted or changed. Since related records exist in table ''" & strTablePrefix & "TOPICS'', referential integrity rules would be violated.' "
' strSql = strSql & "  ROLLBACK TRANSACTION "
' strSql = strSql & "END "
' ## PREVENT DELETES IF DEPENDENT RECORDS IN FORUM_MODERATOR
' strSql = strSql & "IF (SELECT COUNT(*) FROM deleted, " & strTablePrefix & "MODERATOR WHERE (deleted.MEMBER_ID = " & strTablePrefix & "MODERATOR.MEMBER_ID)) > 0 "
' strSql = strSql & "BEGIN "
' strSql = strSql & "  RAISERROR 44445 'The record can''t be deleted or changed. Since related records exist in table ''" & strTablePrefix & "MODERATOR'', referential integrity rules would be violated.' "
' strSql = strSql & "  ROLLBACK TRANSACTION "
' strSql = strSql & "END "

' my_Conn.Execute strSql
' ChkDBInstall()

' strSql = "CREATE TRIGGER " & strTablePrefix & "MODERATOR_UpdateTrigger ON " & strTablePrefix & "MODERATOR FOR UPDATE AS "
' ## PREVENT UPDATES IF NO MATCHING KEY IN FORUM_MEMBERS
' strSql = strSql & "IF UPDATE(MEMBER_ID) "
' strSql = strSql & "BEGIN "
' strSql = strSql & "  IF (SELECT COUNT(*) FROM inserted) != "
' strSql = strSql & "  (SELECT COUNT(*) FROM " & strMemberTablePrefix & "MEMBERS, inserted WHERE (" & strMemberTablePrefix & "MEMBERS.MEMBER_ID = inserted.MEMBER_ID)) "
' strSql = strSql & "  BEGIN "
' strSql = strSql & "    RAISERROR 44446 'The record can''t be added or changed. Referential integrity rules require a related record in table ''" &strMemberTablePrefix & "MEMBERS''.' "
' strSql = strSql & "    ROLLBACK TRANSACTION "
' strSql = strSql & "  END "
' strSql = strSql & "END "

' my_Conn.Execute strSql
' ChkDBInstall()

' strSql = "CREATE TRIGGER " & strTablePrefix & "MODERATOR_InsertTrigger ON " & strTablePrefix & "MODERATOR FOR INSERT AS "
' ## PREVENT INSERTS IF NO MATCHING KEY IN FORUM_MEMBERS
' strSql = strSql & "IF (SELECT COUNT(*) FROM inserted) != "
' strSql = strSql & "(SELECT COUNT(*) FROM " & strMemberTablePrefix & "MEMBERS, inserted WHERE (" & strMemberTablePrefix & "MEMBERS.MEMBER_ID = inserted.MEMBER_ID)) "
' strSql = strSql & "BEGIN "
' strSql = strSql & "  RAISERROR 44447 'The record can''t be added or changed. Referential integrity rules require a related record in table ''" &strMemberTablePrefix & "MEMBERS''.' "
' strSql = strSql & "  ROLLBACK TRANSACTION "
' strSql = strSql & "END "

' my_Conn.Execute strSql
' ChkDBInstall()

' strSql = "CREATE TRIGGER " & strTablePrefix & "REPLY_UpdateTrigger ON " & strTablePrefix & "REPLY FOR UPDATE AS "
' ## PREVENT UPDATES IF NO MATCHING KEY IN FORUM_MEMBERS
' strSql = strSql & "IF UPDATE(R_AUTHOR) "
' strSql = strSql & "BEGIN "
' strSql = strSql & "  IF (SELECT COUNT(*) FROM inserted) != "
' strSql = strSql & "  (SELECT COUNT(*) FROM " & strMemberTablePrefix & "MEMBERS, inserted WHERE (" & strMemberTablePrefix & "MEMBERS.MEMBER_ID = inserted.R_AUTHOR)) "
' strSql = strSql & "  BEGIN "
' strSql = strSql & "    RAISERROR 44446 'The record can''t be added or changed. Referential integrity rules require a related record in table ''" &strMemberTablePrefix & "MEMBERS''.' "
' strSql = strSql & "    ROLLBACK TRANSACTION "
' strSql = strSql & "  END "
' strSql = strSql & "END "
' ## PREVENT UPDATES IF NO MATCHING KEY IN " & strTablePrefix & "TOPICS
' strSql = strSql & "IF UPDATE(CAT_ID) OR UPDATE(FORUM_ID) OR UPDATE(TOPIC_ID) "
' strSql = strSql & "BEGIN "
' strSql = strSql & "  IF (SELECT COUNT(*) FROM inserted) != "
' strSql = strSql & "  (SELECT COUNT(*) FROM " & strTablePrefix & "TOPICS, inserted WHERE (" & strTablePrefix & "TOPICS.CAT_ID = inserted.CAT_ID AND " & strTablePrefix & "TOPICS.FORUM_ID = inserted.FORUM_ID AND " & strTablePrefix & "TOPICS.TOPIC_ID = inserted.TOPIC_ID)) "
' strSql = strSql & "  BEGIN "
' strSql = strSql & "    RAISERROR 44446 'The record can''t be added or changed. Referential integrity rules require a related record in table ''" & strTablePrefix & "TOPICS''.' "
' strSql = strSql & "    ROLLBACK TRANSACTION "
' strSql = strSql & "  END "
' strSql = strSql & "END "

' my_Conn.Execute strSql
' ChkDBInstall()

' strSql = "CREATE TRIGGER " & strTablePrefix & "REPLY_InsertTrigger ON " & strTablePrefix & "REPLY FOR INSERT AS "
' ## PREVENT INSERTS IF NO MATCHING KEY IN FORUM_MEMBERS
' strSql = strSql & "IF (SELECT COUNT(*) FROM inserted) != "
' strSql = strSql & "(SELECT COUNT(*) FROM " & strMemberTablePrefix & "MEMBERS, inserted WHERE (" & strMemberTablePrefix & "MEMBERS.MEMBER_ID = inserted.R_AUTHOR)) "
' strSql = strSql & "BEGIN "
' strSql = strSql & "  RAISERROR 44447 'The record can''t be added or changed. Referential integrity rules require a related record in table ''" & strMemberTablePrefix & "MEMBERS''.' "
' strSql = strSql & "  ROLLBACK TRANSACTION "
' strSql = strSql & "END "
' ## PREVENT INSERTS IF NO MATCHING KEY IN FORUM_TOPICS
' strSql = strSql & "IF (SELECT COUNT(*) FROM inserted) != "
' strSql = strSql & "(SELECT COUNT(*) FROM " & strTablePrefix & "TOPICS, inserted WHERE (" & strTablePrefix & "TOPICS.CAT_ID = inserted.CAT_ID AND " & strTablePrefix & "TOPICS.FORUM_ID = inserted.FORUM_ID AND " & strTablePrefix & "TOPICS.TOPIC_ID = inserted.TOPIC_ID)) "
' strSql = strSql & "BEGIN "
' strSql = strSql & "  RAISERROR 44447 'The record can''t be added or changed. Referential integrity rules require a related record in table ''" & strTablePrefix & "TOPICS''.' "
' strSql = strSql & "  ROLLBACK TRANSACTION "
' strSql = strSql & "END "

' my_Conn.Execute strSql
' ChkDBInstall()

' strSql = "CREATE TRIGGER " & strTablePrefix & "TOPICS_UpdateTrigger ON " & strTablePrefix & "TOPICS FOR UPDATE AS "
' ## PREVENT UPDATES IF NO MATCHING KEY IN FORUM_FORUM
' strSql = strSql & "IF UPDATE(CAT_ID) OR UPDATE(FORUM_ID) "
' strSql = strSql & "BEGIN "
' strSql = strSql & "  IF (SELECT COUNT(*) FROM inserted) != "
' strSql = strSql & "  (SELECT COUNT(*) FROM " & strTablePrefix & "FORUM, inserted WHERE (" & strTablePrefix & "FORUM.CAT_ID = inserted.CAT_ID AND " & strTablePrefix & "FORUM.FORUM_ID = inserted.FORUM_ID)) "
' strSql = strSql & "  BEGIN "
' strSql = strSql & "    RAISERROR 44446 'The record can''t be added or changed. Referential integrity rules require a related record in table ''" & strTablePrefix & "FORUM''.' "
' strSql = strSql & "    ROLLBACK TRANSACTION "
' strSql = strSql & "  END "
' strSql = strSql & "END "
' ## PREVENT UPDATES IF NO MATCHING KEY IN FORUM_MEMBERS
' strSql = strSql & "IF UPDATE(T_AUTHOR) "
' strSql = strSql & "BEGIN "
' strSql = strSql & "  IF (SELECT COUNT(*) FROM inserted) != "
' strSql = strSql & "  (SELECT COUNT(*) FROM " & strMemberTablePrefix & "MEMBERS, inserted WHERE (" & strMemberTablePrefix & "MEMBERS.MEMBER_ID = inserted.T_AUTHOR)) "
' strSql = strSql & "  BEGIN "
' strSql = strSql & "    RAISERROR 44446 'The record can''t be added or changed. Referential integrity rules require a related record in table ''" & strMemberTablePrefix & "MEMBERS''.' "
' strSql = strSql & "    ROLLBACK TRANSACTION "
' strSql = strSql & "  END "
' strSql = strSql & "END "
' ## CASCADE UPDATES TO FORUM_REPLY
' strSql = strSql & "IF UPDATE(CAT_ID) OR UPDATE(FORUM_ID) OR UPDATE(TOPIC_ID) "
' strSql = strSql & "BEGIN "
' strSql = strSql & "  UPDATE " & strTablePrefix & "REPLY "
' strSql = strSql & "  SET " & strTablePrefix & "REPLY.CAT_ID = inserted.CAT_ID , " & strTablePrefix & "REPLY.FORUM_ID = inserted.FORUM_ID , " & strTablePrefix & "REPLY.TOPIC_ID = inserted.TOPIC_ID "
' strSql = strSql & "  FROM " & strTablePrefix & "REPLY, deleted, inserted "
' strSql = strSql & "  WHERE deleted.CAT_ID = " & strTablePrefix & "REPLY.CAT_ID AND deleted.FORUM_ID = " & strTablePrefix & "REPLY.FORUM_ID AND deleted.TOPIC_ID = " & strTablePrefix & "REPLY.TOPIC_ID "
' strSql = strSql & "END "

' my_Conn.Execute strSql
' ChkDBInstall()

' strSql = "CREATE TRIGGER " & strTablePrefix & "TOPICS_InsertTrigger ON " & strTablePrefix & "TOPICS FOR INSERT AS "
' ## PREVENT INSERTS IF NO MATCHING KEY IN FORUM_FORUM
' strSql = strSql & "IF (SELECT COUNT(*) FROM inserted) != "
' strSql = strSql & "(SELECT COUNT(*) FROM " & strTablePrefix & "FORUM, inserted WHERE (" & strTablePrefix & "FORUM.CAT_ID = inserted.CAT_ID AND " & strTablePrefix & "FORUM.FORUM_ID = inserted.FORUM_ID)) "
' strSql = strSql & "BEGIN "
' strSql = strSql & "  RAISERROR 44447 'The record can''t be added or changed. Referential integrity rules require a related record in table ''" & strTablePrefix & "FORUM''.' "
' strSql = strSql & "  ROLLBACK TRANSACTION "
' strSql = strSql & "END "
' ## PREVENT INSERTS IF NO MATCHING KEY IN FORUM_MEMBERS
' strSql = strSql & "IF (SELECT COUNT(*) FROM inserted) != "
' strSql = strSql & "(SELECT COUNT(*) FROM " & strMemberTablePrefix & "MEMBERS, inserted WHERE (" & strMemberTablePrefix & "MEMBERS.MEMBER_ID = inserted.T_AUTHOR)) "
' strSql = strSql & "BEGIN "
' strSql = strSql & "  RAISERROR 44447 'The record can''t be added or changed. Referential integrity rules require a related record in table ''" &strMemberTablePrefix & "MEMBERS''.' "
' strSql = strSql & "  ROLLBACK TRANSACTION "
' strSql = strSql & "END "

'my_Conn.Execute strSql
'ChkDBInstall()

' strSql = "CREATE TRIGGER " & strTablePrefix & "TOPICS_DeleteTrigger ON " & strTablePrefix & "TOPICS FOR DELETE AS "
' ## CASCADE DELETES TO FORUM_REPLY
' strSql = strSql & "DELETE " & strTablePrefix & "REPLY FROM deleted, " & strTablePrefix & "REPLY WHERE deleted.CAT_ID = " & strTablePrefix & "REPLY.CAT_ID AND deleted.FORUM_ID = " & strTablePrefix & "REPLY.FORUM_ID AND deleted.TOPIC_ID = " & strTablePrefix & "REPLY.TOPIC_ID "

'my_Conn.Execute strSql
'ChkDBInstall()

' strSql = "SET QUOTED_IDENTIFIER  OFF    SET ANSI_NULLS  ON "

'my_Conn.Execute strSql
'ChkDBInstall()

if (strDBType = "sqlserver") then

	strSql = "INSERT " & strTablePrefix & "CONFIG DEFAULT VALUES "

	my_Conn.Execute strSql
	ChkDBInstall()

end if

strSql = "INSERT " & strTablePrefix & "CATEGORY(CAT_STATUS, CAT_NAME) VALUES(1, 'Snitz Forums 2000')"

my_Conn.Execute strSql
ChkDBInstall()

strSql = "INSERT " & strMemberTablePrefix & "MEMBERS (M_STATUS, M_NAME, M_USERNAME, M_PASSWORD, M_EMAIL, M_COUNTRY, "
strSql = strSql & "M_HOMEPAGE, M_SIG, M_DEFAULT_VIEW, M_LEVEL, M_AIM, M_YAHOO, M_ICQ, "
strSql = strSql & "M_POSTS, M_DATE, M_LASTHEREDATE, M_LASTPOSTDATE, M_TITLE, M_SUBSCRIPTION, "
strSql = strSql & "M_HIDE_EMAIL, M_RECEIVE_EMAIL, M_LAST_IP, M_IP) "
strSql = strSql & " VALUES(1, 'Admin', 'Admin', 'admin', 'yourmail@server.com', ' ', ' ', ' ', 1, 3, ' ', ' ', ' ', "
strSql = strSql & " 1, '20001119000000', '20001119000000', '20001119000000', 'Forum Admin', 0, 0, 1, '000.000.000.000', '000.000.000.000')"

my_Conn.Execute strSql
ChkDBInstall()

strSql = "INSERT " & strTablePrefix & "FORUM(CAT_ID, F_STATUS, F_MAIL, F_SUBJECT, F_URL, F_DESCRIPTION, F_TOPICS, F_COUNT, F_LAST_POST, "
strSql = strSql & " F_PASSWORD_NEW, F_USERLIST, F_PRIVATEFORUMS, F_TYPE, F_IP, F_LAST_POST_AUTHOR) "
strSql = strSql & "VALUES(1, 1, 0, 'Testing Forums', '', 'This forum gives you a chance to become more familiar with how this product responds to different features and keeps testing in one place instead of posting tests all over. Happy Posting! <img src=icon_smile.gif border=0 align=middle>', "
strSql = strSql & " 1, 1, '20001119000000', '', '', 0, 0, '000.000.000.000', 1) "

my_Conn.Execute strSql
ChkDBInstall()

strSql = "INSERT " & strTablePrefix & "TOPICS (CAT_ID, FORUM_ID, T_STATUS, T_MAIL, T_SUBJECT, T_MESSAGE, T_AUTHOR, "
strSql = strSql & "T_REPLIES, T_VIEW_COUNT, T_LAST_POST, T_DATE, T_LAST_POSTER, T_IP, T_LAST_POST_AUTHOR) "
strSql = strSql & "VALUES(1, 1, 1, 0, 'Welcome to Snitz Forums 2000', 'Thank you for downloading the Snitz Forums 2000. We hope you enjoy this great tool to support your organization!" & CHR(13) & CHR(10) & CHR(13) & CHR(10) &"Many thanks go out to John Penfold &lt;asp@asp-dev.com&gt; and Tim Teal &lt;tteal@tealnet.com&gt; for the original source code and to all the people of Snitz Forums 2000 at http://forum.snitz.com for continued support of this product.', "
strSql = strSql & "1, 0, 0, '20001119000000', '20001119000000', 0, '000.000.000.000', 1)"

my_Conn.Execute strSql
ChkDBInstall()

strSql = "INSERT " & strTablePrefix & "TOTALS (COUNT_ID, P_COUNT, T_COUNT, U_COUNT) "
strSql = strSql & "VALUES(1,1,1,1)"

my_Conn.Execute strSql
ChkDBInstall()

sub ChkDBInstall()

for counter = 0 to my_conn.Errors.Count -1
	ConnErrorNumber = my_conn.Errors(counter).Number
	ConnErrorDescription = my_conn.Errors(counter).Description
	
	if ConnErrorNumber <> 0 then 
		Err_Msg = "<tr><td bgColor=red align=""left"" width=""30%""><font face=""宋体, Arial, Helvetica"" size=""2""><b>Error: " & ConnErrorNumber & "</b></font></td>"
		Err_Msg = Err_Msg & "<td bgColor=navyblue align=""left""><font face=""宋体, Arial, Helvetica"" size=""2"">" & ConnErrorDescription & "</font></td></tr>"
		Err_Msg = Err_Msg & "<tr><td bgColor=red align=""left"" width=""30%""><font face=""宋体, Arial, Helvetica"" size=""2""><b>strSql: </b></font></td>"
		Err_Msg = Err_Msg & "<td bgColor=navyblue align=""left""><font face=""宋体, Arial, Helvetica"" size=""2"">" & strSql & "</font></td></tr>"	
		
		Response.Write(Err_Msg)
		intCriticalErrors = intCriticalErrors + 1
	end if
next
my_conn.Errors.Clear 

end sub

%>
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -