看看这段哪里错了或少了
<%
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>"