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 %>