<% Dim ErrMsg'此句非常重要，定义变量的作用域，如果不定义，则什么都不显示，也就是说不能访问sub中的变量
Mytest'调用下面定义的过程，过程里面给变量ErrMsg赋值 response.Write ErrMsg '显示变量的值Sub Mytest() ErrMsg="xxoo"End Sub
%>
