publicweek.asp

一个很好的在线购物系统

<%

'显示星期几
sub  show(aa)
       select case aa
       case  "1"
           response.write ("星期一")
           
       case  "2"
           response.write ("星期二")
           
       case  "3"
           response.write ("星期三")
           
       case  "4"
            response.write ("星期四")
            
       case  "5"
           response.write ("星期五")
            
      case  "6"
           response.write ("星期六")
          
       case "7"
           response.write ("星期日")
           
     end select
 end sub
%>