WebBrowser与session的问题，请求帮助

procedure TForm1.Button1Click(Sender: TObject);
var
   o : Olevariant;
begin
  o := WebBrowser1.OleObject.document.all.item('Userid',0);
  o.value := 'cheng';
  o := WebBrowser1.oleobject.document.all.item('Password',0);
  o.value := 'windchan';
  o :=WebBrowser1.oleobject.document.all.item('submit',0); 
  o.Click; 
end;
procedure TForm1.FormShow(Sender: TObject);
begin
WebBrowser1.Navigate(url);
end;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
现在在WebBrowser中已经可以看见我要去的界面了，但是为什么登陆这个网站中，不可以在上面注册SESSION。该怎么写可以注册上SESSION？
这个页面的实际ASP是这样的：
<%
dim userid
dim password
userid=replace(trim(request("userid")),"'","")
password=replace(trim(Request("password")),"'","")
set Conn=server.CreateObject("adodb.Connection")
Conn.Open(application("ee"))
set rs=server.createobject("adodb.recordset")
sql="select * from table1 where password='"&password&"' and userid='"&userid&"'"
'如果登陆成功将参数写进session
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
if password=rs("password") then
session("username")=rs("username")
session("userid")=rs("userid")
  else
Response.Redirect "error.asp?id=002"
  end if
else
Response.Redirect "error.asp?id=002"
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
%>

解决方案 »

  1.   

    session 是服務器端的生成的,用webbrowser可以生成session的,但是要修改session,我就不懂了.
      

  2.   

    我就是在webbrowser1中自己填写USERNAME与PASSWORD，也不可以
      

  3.   

    你上面的那個button1click就應該可以了,可以填寫進去,  我沒有試過提交
      

  4.   

    一点不错，提交后可以成功，可以看见以后的界面，但是当有谈出式窗口的时，似乎就会丢失SESSION
      

  5.   

    163得,剛試過可以procedure TForm1.Button2Click(Sender: TObject);
    var
       o : Olevariant;
    begin
      webbrowser1.Navigate('http://www.163.com');
      o := WebBrowser1.OleObject.document.all.item('username',0);
      o.value := 'username';
      o := WebBrowser1.oleobject.document.all.item('Password',0);
      o.value := 'password';
      o :=WebBrowser1.oleobject.document.all.item('login',0);
      o.Click;
    end;
      

  6.   

    彈出得窗體cookie會自動丟失.  可以再WebBrowser1NewWindow2中自己創建webbrowser就可以了.像qq得那個瀏覽器那樣就可以了
      

  7.   

    linzhisong(無聊) ：    您好象误会了我的意思。这个浏览器是可以打开这个页面并且登陆了。但是我这个网站的登陆界面有些东西。~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~`
    <html><head>
    <title>成员登陆</title>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    <link rel="stylesheet" href="style.CSS">
    <SCRIPT LANGUAGE=javascript>
    <!--
    function window_onload() {
    f1.Userid.focus();
    }
    //-->
    </SCRIPT>
    </head>
    <script language="JavaScript">
    //<!--
    //
    //function openWindow(theURL,winName,features) { //v2.0
    //  window.open(theURL,winName,features);
    //}
    //openWindow('temp.txt','Beginpage','width=250,height=400')
    //-->
    </script>
    <!--<script language="javascript" src="snow1.js"></script>
    <body topmargin=0 marginheight=0 bgcolor="#ffffff" onload="fly();">-->
    <body topmargin=0 marginheight=0 bgcolor="#ffffff" onload="return window_onload()">
    <!--<script>
    ns4=(document.layers)?true:false;
    ie4=(document.all)?true:false;
    var shuchang2time=0; function shuchang2over()
    {
    if(ns4){
    document.shuchang2down.document.shuchang2down1.visibility="show";
    }else if(ie4) 
    {
    shuchang2down1.style.top=-54;
    shuchang2down1.style.visibility="visible";
    }
    shuchang2time=setTimeout("shuchang2out()",3000);
    }

    function shuchang2out()
    {
    clearTimeout(shuchang2time);
    if(ns4){
    document.shuchang2down.document.shuchang2down1.visibility="hide";
    }else if(ie4) shuchang2down1.style.visibility="hidden";
    }
    </script>
    <script src="ads.js"></script>-->
    <center><img src=xmas.gif><center>
    <div align="center"><br><br>
    <!--<img src="logo7.jpg" width=500 height=86>-->
    <img src="maslogo.jpg" width=500 height=86>
      <br>
    <img src="image/logo-yd.gif" width=96 height=39>
      <form name="f1" method="post" action="chkadmin.asp">
    <table border="1" align=center width="360" cellspacing="0" cellpadding="3" style="border-collapse: collapse" bordercolor="#111111"> 
          <tr bgcolor="#e8f4ff"> 
            <td colspan="2" height=25> 
              <div align="center">操作: 确认身份</div>
            </td>
          </tr>
          <tr> 
            <td colspan="2"> <br>
              <br>
              <table width="250" border="0" cellspacing="0" cellpadding="0" align="center">
                <tr> 
                  <td>用户名称 
                    <input type="text" name="Userid" style="background-color: #FFFFFF; color: #000000; border: 1 solid #000000" size="20">
                    <br><br>
                    用户密码 
                    <input type="password" style="background-color: #FFFFFF; color: #000000; border: 1 solid #000000" name="Password" size="20">
                    <br>
                    <br>
                  </td>
                </tr>
                <tr> 
                  <td align=center> 
                      <input name="submit" style="BACKGROUND-COLOR: #8EBAE6; BORDER-BOTTOM: 1px ridge; BORDER-LEFT: 1px ridge; BORDER-RIGHT: 1px ridge; BORDER-TOP: 1px ridge; FONT-FAMILY: 宋体; FONT-SIZE: 9pt" type="submit" value="这就进去">
                      <input name="submit" style="BACKGROUND-COLOR: #8EBAE6; BORDER-BOTTOM: 1px ridge; BORDER-LEFT: 1px ridge; BORDER-RIGHT: 1px ridge; BORDER-TOP: 1px ridge; FONT-FAMILY: 宋体; FONT-SIZE: 9pt" type="reset" value="重新来过">
                      <br><br>
                  </td>
                </tr>
              </table>
            </td>
          </tr>
        </table>
      </form><br>您是第　230461　位访问者
      <p><b><font color="#0080ff">版权所有</font></b> Copyright  &copy;  2000-2002  All Rights Reserved </p>
    </div>
    </body>
    </html>
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    登陆后好象就是没有办法安置SESSION
      

  8.   

    是想修改session裡面得內容?還是別的?
      

  9.   

    linzhisong(無聊) ：
    再看看ASP文件的意思，是要写SESSION
    <%
    dim userid
    dim password
    userid=replace(trim(request("userid")),"'","")
    password=replace(trim(Request("password")),"'","")
    set Conn=server.CreateObject("adodb.Connection")
    Conn.Open(application("ee"))
    set rs=server.createobject("adodb.recordset")
    sql="select * from table1 where password='"&password&"' and userid='"&userid&"'"
    '如果登陆成功将参数写进session
    rs.open sql,conn,1,1
    if not(rs.bof and rs.eof) then
    if password=rs("password") then
    session("username")=rs("username")
    session("userid")=rs("userid")
      else
    Response.Redirect "error.asp?id=002"
      end if
    else
    Response.Redirect "error.asp?id=002"
    end if
    rs.close
    conn.close
    set rs=nothing
    set conn=nothing
    %>
      

  10.   

    if not(rs.bof and rs.eof) then 改成這個看看
    if not(rs.eof) then
      

  11.   

    你要我改ASP文件？那是别人的网站，我不可能动的