日期:2014-05-17  浏览次数:20675 次

为什么这段代码运行不了?
<%
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,reserch
soutext=trim(request.Form("soutext"))&""
reserch=trim(Request("reserch"))&""
'添加&""可避免值出现布尔、null类型
If soutext<>"" then
    Response.Write soutext
end if
If reserch<>"" then
    Response.Write Server.HtmlEncode(reserch)
end if
%>