<%
dim username,pwd,age,sex,email
username=request.Form("username")
pwd=request.Form("pwd")
age=request.Form("age")
sex=request.Form("sex")
email=request.Form("email")
'自定义一个判断数据是否为空的子程序
'子程序名称kong
'参数var代表将来，要进行判断的变量名称-----例如 username,pwd,age……
'参数info代表将来，显示的提示汉字-----例如 用户名,密码,年龄……
function kong(var,info)
 if var="" then
  kong=info&"不为能空<p>"
 else
  kong=info&"是："& var &"<p>"
 end if 
end function

response.write(kong(username,"用户名"))
response.write(kong(pwd,"密码"))
response.write(kong(age,"年龄"))
response.write(kong(email,"邮箱"))
 
'if username="" then
 'response.write("用户名不为能空<p>")
'else
 'response.Write("姓名是："& username &"<p>")
'end if
'if pwd="" then
 'response.write("密码不为能空<p>")
'else
 'response.Write("密码是："& pwd &"<p>")
'end if
 
%>