📄 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 + -