全角英文转为半角
<html><head>
<title>将全角转为半角，半角转为全角</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF">
<%
'---------------------------------------
'编写：johnsun Email:zjs@dagongbao.com
'语言：ASP+VBScript 转摘请保留版权说明
'direction:"1"大写转小写；"-1"小写转大写
'---------------------------------------
dim contentA,contentB
contentA=request.form("contentA")
if contentA<>"" then
CALL contentstr(contentA,"1")
end if
contentB=request.form("contentB")
if contentB<>"" then
CALL contentstr(contentB,"-1")
end if
function contentstr(content,direction)
dim strbig,tstrbig,strsma,tstrsma
strbig="ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ＇"
tstrbig="ABCDEFGHIJKLMNOPQRSTUVWXYZ'"
strsma="ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ"
tstrsma="abcdefghijklmnopqrstuvwxyz"
dim b(26),tb(26),s(25),ts(25)
for i=1 to 26
b(i-1)=mid(strbig,i,1)
tb(i-1)=mid(tstrbig,i,1)
if direction="1" then
content=replace(content,b(i-1),tb(i-1))
elseif direction="-1" then
content=replace(content,tb(i-1),b(i-1))
end if
s(i-1)=mid(strsma,i,1)
补充：asp教程,技巧与性能优化
