求在ASP小写转大写

求在ASP小写转大写

你是要FSO的代码还是要小写转大写？？？
ASP（特指VBS）里自带了两个函数：
LCase：转成小写
UCase：转成大写

例子：
<%
dim str,str1,str2
str="AbCdEfGHiJkLmnOpQ"
str1=LCase(str)
str2=UCase(str)
Response.write(str1 & "," & str2)
%>

完整的代码（含FSO）
<%
Dim fso,r,content,w
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set r=fso.OpenTextFile(Server.MapPath("text1.txt"))
content = r.ReadAll
Response.Write("

---

原文：" & content)
r.close
set r=nothing
Set w=fso.CreateTextFile(Server.MapPath("text2.txt"))
content = UCase(content)
w.Write content
w.close
set w=nothing
set fso=nothing
Response.Write("

---

大写：" & content)
Response.Write("

---

以上内容已保存到text2.txt")
%>

ASCII值+32

Sub convert(filename, filename2 )
Dim fso, ts ,str

set fso=server.createobject("scriptting.filesystemobject")
If Not fso.FileExists(filename) Then
Exit Sub
End If

str = fso.OpenTextFile(filename, ForReading).ReadAll
Set ts = fso.CreateTextFile(filename2, True)
ts.Write UCase(str) '大写转换
ts.Close
Set ts = Nothing
Set fso = ntohing
End Sub