topic_icon_inc.asp

简单的asp论坛源码系统,很适用于初学者!界面简洁,功能齐全

<%
'****************************************************************************************
'**  Copyright Notice    
'**
'**  Web Wiz Forums(TM)
'**  http://www.webwizforums.com
'**                            
'**  Copyright (C)2001-2008 Web Wiz(TM). All Rights Reserved.
'**  
'**  THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS UNDER LICENSE FROM 'WEB WIZ'.
'**  
'**  IF YOU DO NOT AGREE TO THE LICENSE AGREEMENT THEN 'WEB WIZ' IS UNWILLING TO LICENSE 
'**  THE SOFTWARE TO YOU, AND YOU SHOULD DESTROY ALL COPIES YOU HOLD OF 'WEB WIZ' SOFTWARE
'**  AND DERIVATIVE WORKS IMMEDIATELY.
'**  
'**  If you have not received a copy of the license with this work then a copy of the latest
'**  license contract can be found at:-
'**
'**  http://www.webwizguide.com/license
'**
'**  For more information about this software and for licensing information please contact
'**  'Web Wiz' at the address and website below:-
'**
'**  Web Wiz, Unit 10E, Dawkins Road Industrial Estate, Poole, Dorset, BH15 4JD, England
'**  http://www.webwizguide.com
'**
'**  Removal or modification of this copyright notice will violate the license contract.
'**
'****************************************************************************************



'*************************** SOFTWARE AND CODE MODIFICATIONS **************************** 
'**
'** MODIFICATION OF THE FREE EDITIONS OF THIS SOFTWARE IS A VIOLATION OF THE LICENSE  
'** AGREEMENT AND IS STRICTLY PROHIBITED
'**
'** If you wish to modify any part of this software a license must be purchased
'**
'****************************************************************************************



'Dimension variables
Dim saryTopicIcon(15,2)	 'If you add more topic icons increase the first number to the number of emoticons you have in the array below


saryTopicIcon(1,1) = "Thumbs Up"		'Topic Icon Name
saryTopicIcon(1,2) = "smileys/smiley20.gif"	'URL/path to Topic Icon

saryTopicIcon(2,1) = "Thumbs Down"
saryTopicIcon(2,2) = "smileys/smiley21.gif"

saryTopicIcon(3,1) = "Question"
saryTopicIcon(3,2) = "smileys/smiley25.gif"

saryTopicIcon(4,1) = "Exclamation"
saryTopicIcon(4,2) = "smileys/smiley37.gif"

saryTopicIcon(5,1) = "Lamp"
saryTopicIcon(5,2) = "smileys/smiley38.gif"

saryTopicIcon(6,1) = "Nuke"
saryTopicIcon(6,2) = "smileys/smiley34.gif"

saryTopicIcon(7,1) = "Smile"						
saryTopicIcon(7,2) = "smileys/smiley1.gif"	

saryTopicIcon(8,1) = "Big smile"
saryTopicIcon(8,2) = "smileys/smiley4.gif"

saryTopicIcon(9,1) = "Wink"
saryTopicIcon(9,2) = "smileys/smiley2.gif"

saryTopicIcon(10,1) = "Cry"
saryTopicIcon(10,2) = "smileys/smiley19.gif"

saryTopicIcon(11,1) = "LOL"
saryTopicIcon(11,2) = "smileys/smiley36.gif"

saryTopicIcon(12,1) = "Confused"
saryTopicIcon(12,2) = "smileys/smiley5.gif"

saryTopicIcon(13,1) = "Angry"
saryTopicIcon(13,2) = "smileys/smiley7.gif"

saryTopicIcon(14,1) = "Unhappy"
saryTopicIcon(14,2) = "smileys/smiley6.gif"

saryTopicIcon(15,1) = "Clap"
saryTopicIcon(15,2) = "smileys/smiley32.gif"





'If you add more emoticons don't forget to increase the number in the Dim statement at the top!
%>