lang.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<%
function lang(langType,nodeName)
set xmlDoc=Server.CreateObject("microsoft.xmldom")
xmlDoc.load(server.mappath("lang.xml"))
lang=xmlDoc.documentElement.selectSingleNode("//" & langType & "/" & nodeName).text
end function
if request("lang")="ch" then langType="ch" else langType="en"
%>
<a href='javascript:location.href="?lang=<%if langType="ch" then response.Write "en" else response.Write "ch"%>"'>切换语言</a>
<table width="50%" border="0" cellspacing="0" cellpadding="0" align='center'>
<tr>
<td><%=lang(langType,"username")%></td>
<td><input type="text" name="textfield" /></td>
</tr>
<tr>
<td><%=lang(langType,"password")%></td>
<td><input type="text" name="textfield" /></td>
</tr>
<tr align="center" valign="middle">
<td><input type="submit" name="Submit" value="<%=lang(langType,"btnSubmit")%>" /></td>
<td><input type="reset" name="Submit" value="<%=lang(langType,"btnReset")%>" /></td>
</tr>
</table>
</body>
</html>
lang.xml
<?xml version="1.0" encoding="utf-8" ?>
<lang>
<ch>
<username>用户名</username>
<password>密码</password>
<btnSubmit>提交</btnSubmit>
<btnReset>重置</btnReset>
</ch>
<en>
<username>username</username>
<password>password</password>
<btnSubmit>submit</btnSubmit>
<btnReset>reset</btnReset>
</en>
</lang>