function getSex(str)
if str="0" then
getSex="男"
else
getSex="女"
end if
end function

可以用在response里

Response.Write " <option value="&rs("sex")&">"&getSex(rs("sex"))&"</option>"&VbCrLf

--------------------------------------------------------------------------------------------

if <条件> then
<多条语句>
elseif <条件> then
<多条语句>
elseif <条件> then
<多条语句>
……
else
<多条语句>
end if

说明：（１）then必须放在if或elseif语句的后面 　　　（２）else是可选项