?? 03_08.asp
字號:
<html>
<head>
<title>字符串函數應用實例</title>
</head>
<body>
<%
Dim str1,str2,str3,str4
Dim i
'用string函數構建str1,str2
str1 = String(10, "a")
str2 = String(10, "A")
'用str1,str2構建str3,str4，
str3 = Mid(str1,1,5)&Mid(str2,1,5)
str4 = " "&Mid(str2,1,5)&Mid(str1,1,5)& " "
'輸出字符串初始化結果
Response.Write "str1被賦值為："&str1&"<br>"
Response.Write "str2被賦值為："&str2&"<br>"
Response.Write "str3被賦值為："&str3&"<br>"
Response.Write "str4被賦值為："&str4&"<br>"
Response.Write "<br>"
'Len函數用法
Response.Write "str1的長度為"&Len(str1)& "<br>"
'Left函數，Right函數用法
Response.Write "str3左起第六位字符為"&Right(Left(str3,6),1)& "<br>"
'LCase函數與UCase函數用法
Response.Write "str3的全大寫形式為"&Ucase(str3)& "<br>"
Response.Write "str3的全小寫形式為"&Lcase(str3)& "<br>"
Response.Write "<br>"
'LTrim函數、RTrim函數與Trim函數用法
Response.Write "str4去前導空格后為："<rim(str4)& "<br>"
Response.Write "str4去后續空格后為："&RTrim(str4)& "<br>"
Response.Write "str4去前后空格后為："&Trim(str4)&"<br>"
'字符串比較函數用法
i = StrComp(str1,str2)
If i = -1 Then
Response.Write str1&"小于"&str2&"<br>"
ElseIf i = 0 Then
Response.Write str1&"等于"&str2&"<br>"
ElseIf i = 1 Then
Response.Write str1&"大于"&str2&"<br>"
End If
%>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -