jeg har ikke lavet noget på mit eget endnu. men feks. den chat der kan jeg give lidt fra :)
inc.config.asp
' Defines used language for all messages shown. Change this value to
' a language of your chat and create a new message file in the 'messages'
' directory called: "messages.<language code>", i.e. if you want to
' create one for danish use "messages.da" and change the setting below
' to "da".
'
' Default Value: "en"
'
Const MESSAGE_LANGUAGE = "en"
inc.loader.asp
<%
'
' $Id: inc.loader.asp,v 1.1.1.1 2003/03/09 22:45:58 peter Exp $
'
' Loads all messages used in chat -- this function should be OPTIMIZED!
'
' @author Peter Theill peter@theill.com
'
Dim all_messages
Set all_messages = CreateObject("Scripting.Dictionary")
readMessages()
Sub readMessages()
Dim messageFile
messageFile = Server.MapPath("messages/messages." & MESSAGE_LANGUAGE)
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
If (fs.FileExists(messageFile)) Then
Dim a
Set a = fs.OpenTextFile(messageFile)
Dim line, msg
Do While Not (a.AtEndOfStream)
line = Trim(a.ReadLine)
If (Len(line) > 0 AND Left(line, 1) <> "#" AND Left(line, 1) <> "'") Then
' get messages by spliting where the = is located; notice the second
' parameter which is used to split the line in two parts only and
' thus allowing users to type = in the localized message
msg = Split(line, "=", 2)
If (UBound(msg) = 1) Then
all_messages.Add Trim(msg(0)), Trim(msg(1))
End If
End If
Loop
End If
End Sub
%><!-- #include file="inc.utility.asp" -->
inc.utility.asp
<script language="JScript" runat="Server">
/**
* Need to use JScript for this since I want to have optional parameters
* in my 'getMsg' function call.
*
*/
/**
* Returns message and replaces arguments with dynamic text if the function
* may be called with:
*
* getMsg("I'm pretty sure {0} taste better than {1}.", "coke", "sprite")
*
* Which will result in a line saying:
*
* I'm pretty sure coke taste better than sprite.
*
* @param name Name with text string and optional {} tags
* @param ... Optional arguments to replace tags
* @return String with replaced parameter
*
*/
function getMsg(name) {
if (!all_messages.Exists(name)) {
return "[" + name + "]";
}
var message = all_messages.Item(name);
for (var i = 0; i < arguments.length; i++) {
message = message.replace("\{" + i + "\}", arguments[i+1]);
}
return message;
} // > function getMsg(name)
function gettext(name) {
if (!all_messages.Exists(name)) {
return name;
}
var message = all_messages.Item(name);
for (var i = 0; i < arguments.length; i++) {
message = message.replace("\{" + i + "\}", arguments[i+1]);
}
return message;
}
</script>
index.asp
<!-- #include file="inc.config.asp" -->
<!-- #include file="inc.loader.asp" -->
<table width=100% border=0 cellspacing=0 cellpadding=4 style="border-right: 3px double #003300">
<tr>
<td colspan=3 class=uocap><%= getMsg("login.users_online") %></td>
</tr>
<% If (countUsers() <> 0) Then %>
<tr>
<th class=uo> </th>
<th class=uo><%= getMsg("login.header.username") %></th>
<th class=uo><%= getMsg("login.header.room") %></th>
</tr>
