VB6er常见错误:
<script language="vbscript">
dim function ShowMsg() as string '根据提交form的来源给这个函数不同的返回值
select a=request.Form("FormName")
case "LogIn"
ShowMsg="Successfully longin"
case "Register"
ShowMsg="Successfully registration"
end select
end function
</script>
改成:
<%
'你犯了常见错误,服务器和客户端要分清楚
function ShowMsg()
a=request.Form("FormName")
select a
case "LogIn"
ShowMsg="Successfully longin"
case "Register"
ShowMsg="Successfully registration"
end select
end function
%>