link.asp

一个不错的ASP论坛源码

<%
'########## Snitz Forums 2000 Version 3.1 SR4 ####################
'#                                                               #
'#  汉化修改: 资源搜罗站                                         #
'#  电子邮件: [e-mail]                                     #
'#  主页地址: http://www.sdsea.com                               #
'#            http://www.99ss.net                                #
'#            http://www.cdown.net                               #
'#	     http://www.wzdown.com                               #
'#	     http://www.13888.net                                #
'#  论坛地址:http://ubb.yesky.net                                #
'#  最后修改日期: 2001/03/12    中文版本：Version 3.1 SR4        #
'#################################################################
'# 原始来源                                                      #
'# Snitz Forums 2000 Version 3.1 SR4                             #
'# Copyright 2000 http://forum.snitz.com - All Rights Reserved   #
'#################################################################
'#【版权声明】                                                   #
'#                                                               #
'# 本软体为共享软体(shareware)提供个人网站免费使用，请勿非法修改,#
'# 转载，散播，或用于其他图利行为，并请勿删除版权声明。          #
'# 如果您的网站正式起用了这个脚本，请您通知我们，以便我们能够知晓#
'# 如果可能，请在您的网站做上我们的链接，希望能给予合作。谢谢！  #
'#################################################################
'# 请您尊重我们的劳动和版权，不要删除以上的版权声明部分，谢谢合作#
'# 如有任何问题请到我们的论坛告诉我们                            #
'#################################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_functions.asp" -->
<%

if Request.QueryString("TOPIC_ID") <> "" then

	set my_Conn = Server.CreateObject("ADODB.Connection") 
	my_Conn.Open strConnString
	        	
	if (strAuthType = "nt") then
		set my_Conn = Server.CreateObject("ADODB.Connection")
		my_Conn.Open strConnString
		call NTauthenticate()
		if (ChkAccountReg() = "1") then
			call NTUser()
		end if
	end if

	'## Forum_SQL - Find out if the Topic is Locked or Un-Locked and if it Exists
	strSql = "SELECT " & strTablePrefix & "TOPICS.CAT_ID, " & strTablePrefix & "TOPICS.FORUM_ID, " & strTablePrefix & "TOPICS.TOPIC_ID, " & strTablePrefix & "TOPICS.T_SUBJECT, " & strTablePrefix & "FORUM.F_SUBJECT " 
	strSql = strSql & " FROM " & strTablePrefix & "TOPICS, " & strTablePrefix & "FORUM "
	strSql = strSql & " WHERE " & strTablePrefix & "TOPICS.TOPIC_ID = " & Request.QueryString("TOPIC_ID")
	strSql = strSql & " AND " & strTablePrefix & "TOPICS.FORUM_ID = " & strTablePrefix & "FORUM.FORUM_ID"

	set rsTopicInfo = my_Conn.Execute (StrSql)

	if (rsTopicInfo.EOF and rsTopicInfo.BOF) then
		Response.Redirect "default.asp"
	else
		Response.Redirect "topic.asp?TOPIC_ID=" & RsTopicInfo("TOPIC_ID") & "&FORUM_ID=" & RsTopicInfo("FORUM_ID") & "&CAT_ID=" & RsTopicInfo("CAT_ID") & "&Forum_Title=" & ChkString(RsTopicInfo("F_SUBJECT"),"urlpath") & "&Topic_Title=" & ChkString(RsTopicInfo("T_SUBJECT"),"urlpath")
	end if

elseif Request.QueryString("FORUM_ID") <> "" then

	set my_Conn = Server.CreateObject("ADODB.Connection") 
	my_Conn.Open strConnString
	        	
	if (strAuthType = "nt") then
		set my_Conn = Server.CreateObject("ADODB.Connection")
		my_Conn.Open strConnString
		call NTauthenticate()
		if (ChkAccountReg() = "1") then
			call NTUser()
		end if
	end if

	'## Forum_SQL - Find out if the Topic is Locked or Un-Locked and if it Exists
	strSql = "SELECT " & strTablePrefix & "FORUM.FORUM_ID, " & strTablePrefix & "FORUM.CAT_ID, " & strTablePrefix & "FORUM.F_SUBJECT, " & strTablePrefix & "FORUM.CAT_ID, " & strTablePrefix & "FORUM.F_SUBJECT " 
	strSql = strSql & " FROM " & strTablePrefix & "FORUM "
	strSql = strSql & " WHERE " & strTablePrefix & "FORUM.FORUM_ID = " & Request.QueryString("FORUM_ID")

	set rsForumInfo = my_Conn.Execute (StrSql)

	if (rsForumInfo.EOF and rsForumInfo.BOF) then
		Response.Redirect "default.asp"
	else
		Response.Redirect "forum.asp?FORUM_ID=" & rsForumInfo("FORUM_ID") & "&CAT_ID=" & rsForumInfo("CAT_ID") & "&Forum_Title=" & ChkString(rsForumInfo("F_SUBJECT"),"urlpath")
	end if
else
	Response.Redirect "default.asp"
	Response.End
end if
%>