为啥这段代码运行不了

为什么这段代码运行不了？
<%
If request.Form("soutext")!=Empty then
Response.Write request.Form("soutext")
end if
If Server.HTMLEncode(Request("reserch")!=Empty then
Response.Write Server.HtmlEncode(Request("reseach"))
end if
%>

[解决办法]

VB.NET code

!=Empty'改為is not null
[解决办法]
VB.NET code
'應是,寫習慣了Not request.Form("soutext") Is Nothing
[解决办法]
vbscript 中 不等于 是 <>
[解决办法]
如果Request("reserch")=null是不能使用Server.HTMLEncode(),对于以上代码，我建议写成：
VB code
<%dim soutext,reserchsoutext=trim(request.Form("soutext"))&""reserch=trim(Request("reserch"))&""'添加&""可避免值出现布尔、null类型If soutext<>"" then    Response.Write soutextend ifIf reserch<>"" then    Response.Write Server.HtmlEncode(reserch)end if%>