我用的3.0版本的。..但是会员登陆 横版的不能使用...竖版的可以正常使用。......

  Sub Login1()
   If KSUser.UserLoginChecked() = False Then%>
    document.writeln("   <table cellspacing=\"0\" cellpadding=\"0\" width=\"99%\" border=\"0\">");
    document.writeln("     <tbody>");
    document.writeln("    <tr>");
    document.writeln("      <form name=\"myform\" action=\"<%=KSCMS.GetDomain%>User/CheckUserLogin.asp?From=Top\" method=\"post\">");
    document.writeln("     <td width=\"17%\">&nbsp; 用户名：<\/td>");
    document.writeln("     <td width=\"20%\"><input class=\"textbox\" size=\"10\" name=\"Username\" \/><\/td>");
    document.writeln("     <td width=\"12%\">密 码：<\/td>");
    document.writeln("     <td width=\"21%\"><input class=\"textbox\" type=\"Password\" size=\"10\" name=\"Password\" \/><\/td>");
    document.writeln("     <td class=\"2\" width=\"15%\"><input class=\"ImagePlayerArea2\" type=\"image\" src=\"<%=KSCMS.GetDomain%>images\/login.gif\" name=\"loginsubmit\" \/>");
    document.writeln("     <\/td>");
    document.writeln("     <td width=\"15%\"><a href=\"<%=KSCMS.GetDomain%>Member\/UserReg.asp\" target=\"_blank\"><img src=\"<%=KSCMS.GetDomain%>images\/reg.gif\"  border=\"0\" twffan=\"done\" \/><\/a><\/td>");
    document.writeln("      <\/form>");
    document.writeln("    <\/tr>");
    document.writeln("     <\/tbody>");
    document.writeln("   <\/table>");
   <%Else
   Dim MyMailTotal:MyMailTotal=Conn.Execute("Select Count(ID) From KS_Message Where Incept='" &KSUser.UserName &"' And Flag=0 and IsSend=1 and delR=0")(0)
    IF MyMailTotal>0 Then MyMailTotal="<font color=red>" & MyMailTotal & "</font>":Response.Write "document.writeln('<bgsound src=""" & KSCMS.GetDomain & "User/images/mail.wav"" border=0>')"
   %>
   document.writeln('<table cellspacing="0" cellpadding="0" width="99%" border="0">');
   document.writeln('  <tbody>');
   document.writeln(' <tr>');
   document.writeln('<td align="center">您好!<font color=red><%=KSUser.UserName%></font>,欢迎来到会员中心!&nbsp;【<a href="<%=KSCMS.GetDomain%>User?ComeUrl=User_Message.asp&action=inbox">收信箱 <%=MyMailTotal%></a>】&nbsp;【<a href="<%=KSCMS.GetDomain%>User/">会员中心</a>】&nbsp;【<a href="<%=KSCMS.GetDomain%>User/UserLogout.asp">退出登录</a>】</td></tr>');
   document.writeln('</table>');
<%End IF
  End Sub

这写应该是 竖版的代码....里面有很多  多余 "\"  但是我都删了 还是不能使用。.清高手帮忙。 ..

谢谢楼上.