www.gusucode.com > 站长俱乐部新闻发布系统精简版 1.01源码程序 > admin/admin_lang.asp

    <%
'this file loads language variables from a text file
'get current directory name
dim myStr
myStr = request.servervariables("url")
dim aParts
aParts = Split(myStr, "/")
dim i, bParts
for i = 1 to UBound(aParts)-2
	bParts = bParts & aParts(i) & "\"
next

'set path to language file 
dim myDir
myDir = Server.Mappath("\" & bParts & "admin\lang\Resources." & Site_language & ".txt")
'myDir = Server.Mappath("\" & Site_folder & "\lang\" & "Resources." & Site_language & ".txt")

Const FORREADING = 1 
Dim fso: Set fso = CreateObject("Scripting.FileSystemObject") 
Dim ts ' textstream 
'Open text file for reading via a TextStream 
Set ts = fso.OpenTextFile(myDir, FORREADING,false,-1) 

Do Until ts.AtEndOfStream 
        dim aLine
        aLine = Split(ts.ReadLine, "=")
        If UBound(aLine) > 0 Then ' not a blank line and aLine(1) exists
   		'write the variables
		execute("dim " & aLine(0) & VBCrLf)
		execute(aLine(0) & "=" & """" & cStr(aLine(1)) & """" & VBCrLf)
		'response.write(aLine(0) & "=" & aLine(1)&"<br>")
        End If
Loop 
ts.close 
%>