www.gusucode.com > 站长俱乐部新闻发布系统精简版 1.01源码程序 > admin/admin_lang_login.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)-1
	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 
   		'write the variables
		execute("dim " & aLine(0) & VBCrLf)
		execute(aLine(0) & "=" & """" & cStr(aLine(1)) & """" & VBCrLf)
		'response.write(aLine(0) & "=" & cStr(aLine(1))&"<br>")
   End If 
Loop 
ts.close 
%>