asp识别网页编码转成.net代码，在线等高手帮忙！

2008-07-07 03:49:38 133 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

告别编译臃肿！手把手教你为Arduino UNO打造超轻量级U8g2中文字库（附完整工具链）本文详细介绍了如何为Arduino UNO打造超轻量级U8g2中文字库，解决默认字库占用大量存储空间的问题。通过自定义字体工具链，提取项目所需汉字并生成精简字库，显著减少程序体积。文章包含完整实现步骤、优化技巧及实战经验，帮助开发者在资源受限的微控制器上高效显示中文。阅读详情

asp代码
'---------------------------------------
<%
Function RegExpTest(patrn, strng)
Dim regEx,Match,Matches'
Set regEx = New RegExp'
regEx.Pattern = patrn'
regEx.IgnoreCase = True'
regEx.Global = True'
Set Matches = regEx.Execute(strng)'
For Each Match in Matches'
RetStr = RetStr&Match.Value
Next
RegExpTest = RetStr
End Function
AL = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")'
LG = RegExpTest("^[a-z\-]+",AL)'
select case LG
case "zh-cn"
RESPONSE.REDIRECT "index.aspx"
case "zh-tw"
RESPONSE.REDIRECT "index.aspx"
case "zh-mo"
RESPONSE.REDIRECT "index.aspx"
case "zh-hk"
RESPONSE.REDIRECT "index.aspx"
case "zh-sg"
RESPONSE.REDIRECT "indexE.aspx"
case "en-us"
RESPONSE.REDIRECT "indexE.aspx"
case "en-gb"
RESPONSE.REDIRECT "indexE.aspx"
case "en-au"
RESPONSE.REDIRECT "indexE.aspx"
case "ja"
RESPONSE.REDIRECT "indexE.aspx"
case "ko"
RESPONSE.REDIRECT "indexE.aspx"
end select
'---------------------------------------
%>

移植到asp.net上一个空白index.aspx，
要求打开时就会执行上面的asp代码并根据相应的判断自动跳转，而且还要将select case 转换成if then elseif......end if

在线等，望路见不平的大侠帮忙，先说声谢谢了~

...全文