我的首页点击登陆之后总是出错！然后转到登陆文件然后再登陆就可以成功！我首页的登陆框是拷贝的另一个文件char.asp中的源码！我把文件发上来！请各位高手大哥帮忙！
<td width="194" height="90" valign="bottom"> <% if not founduser then
response.Write "<td class=tableBody1 align=center valign=middle>"&_
"<table cellspacing=1 cellpadding=3 align=center border=0><tr>"&_
"<td class=tableBody1 align=center valign=middle<a href=reg.asp class=cblue>注册</a></font>或<font color=red>［<a href=login.asp class=cblue>登录</a>］</font></td>"&_
"</tr><form action=login.asp?action=chk method=post><tr>"&_
"<td class=tablebody1 height=40>"&_
"用户姓名：<input maxLength=20 name=username size=12>"
if Cint(Codeshow(0))=1 then
response.Write "&nbsp;<input type=text name=codestr maxlength=4 size=4>&nbsp;"
response.Write (GetCode())
end if
response.Write "<br>用户密码：<input maxLength=20 name=password size=12 type=password>"&_
"<select name=CookieDate><option selected value=0>不保存</option><option value=1>保存一天</option><option value=2>保存一月</option><option value=3>保存一年</option></select>&nbsp;"&_
"<input type=submit name=submit value=登录>"&_
"</td></tr></form></table></td>"
else
response.Write "<td class=tableBody1 align=center valign=middle width=80>"
response.Write("<IFrame src=visual_show2.asp?username="&membername&"&boardid=0&type=1&bgcolor=tablebody1 width=90 height=115 marginwidth=0 marginheight=0 hspace=0 vspace=0 frameborder=0 scrolling=NO allowtransparency=true></iframe></td>")&_
"<td class=tableBody1 valign=middle>"
%>
<div align="center">
<TABLE border=0 width=190 align="left">
<TR>
<td align="center" width=194><a href="JavaScript:openScript('messanger.asp?action=new',500,400)">发短信</a>
※
<%
if Cint(newincept())>Cint(0) then
if Cint(Msgautoopen)=1 then%> <script language=JavaScript>openScript('messanger.asp?action=read&id=<%=inceptid(1)%>&sender=<%=inceptid(2)%>',500,400)</script>
<%end if%> <bgsound src="images/mail.wav" border=0>
<a href="usersms.asp?action=inbox">我的收件箱</a> (<a href="javascript:openScript('messanger.asp?action=read&id=<%=inceptid(1)%>&sender=<%=inceptid(2)%>',500,400)"><font color="#ff0000"><%=newincept()%> 新</font></a>)
<% else %> <a href="usersms.asp?action=inbox">我的收件箱</a>
(<font color=gray>0 新</font>)
<%
end if
%> <font face=Wingdings color=blue>v</font>
<font color="red"><%=myClass%></font></td>
</TR>
<tr>
<td bgcolor=#6595D6 colspan="2" width="194" align="center"></td>
</tr>
<TR>
<td align="center" width="194"><a href="userdiary.asp">我的日记</a> ※ <a href="UserArticle.asp">我的文章</a>
※ <a href="Userphoto.asp">我的相册</a></td>
</TR>
<TR>
<td align="center" width="194">魅力：<%=myuserep%> ※ 现金：<%=mymoney%> ※ 威望：<font color="red"><%=mypower%></font></td>
</TR>
<TR>
<td align="center" width="194">您最后一次登录是在：<%=Now()%></td>
</TR>
</TABLE>
</div>
<%end if%></td>
<%dim UserNum,lastUser,Uploadph,Marrynum,Partynum,UserArt,Userdiary
sql="select UserNum,LastUser,Uploadph,Marrynum,Partynum,UserArt,Userdiary from Ms_setup where Cid=1"
set rs=conn.execute(sql)
UserNum=rs(0)
lastUser=rs(1)
Uploadph=rs(2)
Marrynum=rs(3)
Partynum=rs(4)
UserArt=rs(5)
Userdiary=rs(6)
rs.close
%></td>
</tr>
</table>这是首页的登陆框代码
char.txt就是源文件