<%
'This subroutine must be executed at the first line of each page
sub SetCodePage()
dim sLanguage
sLanguage = Request.QueryString("lan")
if sLanguage <> "" then
SetLanguage sLanguage
else
WriteLocale
end if
end sub
Sub WriteLocale()
Select Case Session.CodePage
Case 936:
Response.CharSet="GB2312"
Case 950:
Response.CharSet="BIG5"
Case Else
Response.CharSet="ISO-8859-1"
End Select
End Sub
Sub SetLanguage(sLanguage)
Select Case UCase(sLanguage)
Case "GB2312":
Session.CodePage = 936
'Session.LCID = 2052
Response.CharSet="GB2312"
Case "BIG5":
Session.CodePage = 950
'Session.LCID = 1028
Response.CharSet="BIG5"
Case Else:
Session.CodePage = 1252
Session.LCID = 1033
Response.CharSet="ISO-8859-1"
End Select
End Sub
function GetCurrentLanguage()
Select Case UCase(Session.CodePage)
Case 936:
GetCurrentLanguage = "GB2312"
Case 950
GetCurrentLanguage = "BIG5"
Case else
GetCurrentLanguage = "ENGLISH"
End Select
end function
Function GetDatabaseColumnName(sEnglighColumnName)
Select Case Session.CodePage
Case 936:
GetDatabaseColumnName= sEnglighColumnName + "_GB2312 as " + sEnglighColumnName
Case 950:
GetDatabaseColumnName= sEnglighColumnName + "_BIG5 as " + sEnglighColumnName
Case Else
GetDatabaseColumnName= sEnglighColumnName
End Select
End Function
function GetStyleSheet()
if Response.CharSet = "GB2312" or Response.CharSet = "BIG5" then
GetStyleSheet = "StyleSheet/stylesheet_cn.css"
else
GetStyleSheet = "StyleSheet/stylesheet.css"
end if
end function
%>
详细的我发邮件给你,我们私下解决