Sub子過程具體應用

<%
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

 

%>