看看这段哪里错了或少了
<%
if session("yonhu")<>"" then
  response.Write("<table width='100%' border='0' cellspacing='0'><tr><td height='25'><div align='center'>欢迎"&session("yonghu")&"用户</div></td></table>")
else
%>

------解决方案--------------------
dim a=session("yonghu")
response.Write("<table width='100%' border='0' cellspacing='0'><tr><td height='25'><div align='center'>欢迎"+a+"用户</div></td></table>")
采用这样的方式试试
------解决方案--------------------
如果不是少了个end if检查一下编码。
------解决方案--------------------
dim a=session("yonghu")不能这样写，你可以
dim a
a=session("yonghu")
response.Write "<table width='100%' border='0' cellspacing='0'><tr><td height='25'><div align='center'>欢迎" & a & "用户</div></td></table>"