link.asp

此程序是一个个人主页创造程序,该程序无插件,无任何恶意程序.

<%
'#############################################################
'#      中国在线--极酷论坛 ver.2001 3.0
'#
'#  版权所有: 中国在线 (ChinaXP.Net)
'#
'#  制作人  : 周周 (SeeYa!)
'#
'#
'#  主页地址: http://www.ChinaXP.net/    中国在线
'#	      http://www.ChinaXP.Net/bbs/    中国在线--极酷论坛
'#
'#############################################################
%>
<!--#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")
	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")
	end if
else
	Response.Redirect "default.asp"
	Response.End
end if
%>