为啥这段代码运行不了
为什么这段代码运行不了？
<%
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
%>
------解决方案--------------------
<%
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
%>