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