#12002/2/6 17:21:05
                            
                                运行后,打开一个空白页面?不是“editmain.htm"
<%
  Set Cn=Server.CreateObject("ADODB.Connection")
   Cn.open"DSN=sqlwwl;uid=eee;pwd=eee;database=wwl"
  set rs=server.CreateObject ("ADODB.recordset")
   rs.Open "select * from usertable",cn,1,3
        %>
<%   if  rs("user")=request.form("user") and rs("password")=request.form("password") then
          Response.Redirect "editmain.htm"
     else
       if rs("user")=request.form("user") then
          Response.Write " 密码不对!"
       
       else
          Response.Write " 用户名不对!"
      end if
    end if
              %>