编程狮在线代码实例

Tab
<>
""
''
()
{}
[]
/
:
;
?
,
.
$
输入
运行
xxxxxxxxxx
 
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" type="text/css" href="/statics/demosource/showrazor.css" />
</head>
<body>
<span class="marked">@Code
Dim weekday=DateTime.Now.DayOfWeek
Dim day=weekday.ToString()
Dim message=&quot;&quot;
End Code
</span>
<html>
<body>
​
<span class="marked">@Select Case day
Case &quot;Monday&quot;
&nbsp;&nbsp;&nbsp; message=&quot;This is
the first weekday.&quot;
Case &quot;Thursday&quot;
&nbsp;&nbsp;&nbsp; message=&quot;Only one day before
weekend.&quot;
Case &quot;Friday&quot;
&nbsp;&nbsp;&nbsp; message=&quot;Tomorrow is weekend!&quot;
Case Else
​
&nbsp;&nbsp;&nbsp; message=&quot;Today is &quot; &amp; day
End Select
</span><p><span class="marked">@message</span></p>
</body>
</html>
​
</body>
</html>
实例代码
运行结果