如果你要转换很多这样的问号表达式,最好写一个函数
<%
Function Iif(exp, tv, fv)
If exp Then Iif = tv Else Iif = fv
End Function
%>
"", "&", "") & "id=" & rs1.Fields.Item("id").Value %>>回复
<%
dim aaa
if MM_keepNone<>"" then
aaa=Server.HTMLEncode(MM_keepNone)&"&"
else
aaa=""
end if
%>
" >文字
你看看行不行