51Testing软件测试论坛

标题: 参数化登录名验证是否在lr执行时使用了这些参数的问题 [打印本页]

作者: lingcool    时间: 2006-7-13 17:36
标题: 参数化登录名验证是否在lr执行时使用了这些参数的问题
我有一个页面,需要输入登录名和密码,录制的脚本中参数化了登录名,list 从“t200201001” 到 "t200201100",共有100个,所有登录名都没有密码。另外,还有一个页面,这个页面除了验证登录名正确与否,我还在里面另外加了一些内容,就是,用户点击登录按钮后,在某个目录下建立以此登录名为文件名的文件。
这是验证页面
<%@ Language=VBScript %>
<% Option Explicit %>
<OBJECT RUNAT=server PROGID=UserManage_Bus.User id=objUser VIEWASTEXT></OBJECT>
<%
        'Response.Write session("UserID")
        'Response.End
       
        'if isnumeric(session("UserID")) then        '如果已登录就不用打开新窗口了
        '        if session("UserID")>0 then
        '                Response.Write "<script>"
        '                Response.Write "alert('"& session("UserID") &"');"
        '                Response.Write "</script>"
        '                Response.End
        '        end if
        'end if       
       
                dim LoginName
                dim PassWord
                dim VerifyLogin
                dim strSchoolID
               
                dim fso
                dim path
                dim file
                dim fso1
                dim path1
                dim file1
               
                strSchoolID = trim(request.Form("selSchool"))
                LoginName=trim(cstr(Request.Form("LoginName")))
                PassWord=trim(cstr(Request.Form("PassWord")))
                objUser.setSchoolID strSchoolID
                VerifyLogin= objUser.VerifyLogin(LoginName,PassWord)
               
                set fso1=server.CreateObject("Scripting.FileSystemObject")
                path1="c:\login\login@" & LoginName & ".txt"
                set file1=fso1.OpenTextFile(path1,8,TRUE)
                file1.writeline(LoginName)
                file1.close
                set file1=nothing
                set fso1=nothing

                'Response.Write verifylogin
                'Response.End
                if VerifyLogin=-1 then
                        response.write "<script>alert('密码或登录名错误');</script>"
                        response.end
                end if
       
                set fso=server.CreateObject("Scripting.FileSystemObject")
                path="c:\login\" & LoginName & ".txt"
                set file=fso.OpenTextFile(path,8,TRUE)
                file.writeline(LoginName)
                file.close
                set file=nothing
                set fso=nothing
               
                session("UserID")= VerifyLogin
                session("SchoolID") = strSchoolID
                session("LoginName") = LoginName
                '将登录的学校写入cookie,以便下次登录直接将该校第一个显示
                Response.Cookies("LoginSchool")=strSchoolID
                Response.Cookies("LoginSchool").expires=DateAdd("yyyy",5,now())
                Response.Write "<script>"
               
        response.write "window.open('/apps/SchoolMis','eSchool40cmis','top=0,left=0,height='+(screen.availHeight-20)+',width='+(screen.availWidth-10)+',resizable=yes,status=no,toolbar=no,scrollbars=no,menubar=no,location=no,titlebar=no','true');"
        Response.Write "parent.LoginForm.LoginName.value='';"
        Response.Write "parent.LoginForm.PassWord.value='';"
        Response.Write "</script>"

%>
现在的问题时,我用10个虚拟用户,但是这10个虚拟用户全都时用't200201001'登录的,怎么回事呢?

[ 本帖最后由 lingcool 于 2006-7-13 17:39 编辑 ]
作者: lingcool    时间: 2006-7-13 17:37
标题: 这是录制的脚本文件
#include "web_api.h"


Action()
{
        web_add_cookie("LoginSchool=8EB265B4%2D11DB%2D47A7%2D9A8B%2D3175C65D41B0; DOMAIN=test70");

        web_url("test70:805",
                "URL=http://test70:805/",
                "Resource=0",
                "RecContentType=text/html",
                "Referer=",
                "Snapshot=t1.inf",
                "Mode=HTML",
                EXTRARES,
                "URL=/apps/schoolmis/portal/images/03.gif", "Referer=http://test70:805/apps/schoolmis/portal/", ENDITEM,
                "URL=/apps/schoolmis/portal/images/33.gif", "Referer=http://test70:805/apps/schoolmis/portal/", ENDITEM,
                "URL=/apps/schoolmis/portal/images/12.gif", "Referer=http://test70:805/apps/schoolmis/portal/", ENDITEM,
                "URL=/apps/schoolmis/portal/images/21.gif", "Referer=http://test70:805/apps/schoolmis/portal/", ENDITEM,
                LAST);

        web_submit_form("login.asp",
                "Snapshot=t2.inf",
                ITEMDATA,
                "Name=selSchool", "Value=演示学校", ENDITEM,
                "Name=LoginName", "Value={UsName}", ENDITEM,
                "Name=PassWord", "Value=", ENDITEM,
                LAST);

        web_url("SchoolMis",
                "URL=http://test70:805/apps/SchoolMis",
                "Resource=0",
                "RecContentType=text/html",
                "Referer=",
                "Snapshot=t3.inf",
                "Mode=HTML",
                EXTRARES,
                "URL=SchoolMis/images/a003.gif", "Referer=http://test70:805/apps/SchoolMis/", ENDITEM,
                LAST);

        web_url("welcome.asp",
                "URL=http://test70:805/apps/SchoolMis/welcome.asp",
                "Resource=0",
                "RecContentType=text/html",
                "Referer=http://test70:805/apps/SchoolMis/",
                "Snapshot=t4.inf",
                "Mode=HTML",
                LAST);

        web_url("logout.asp",
                "URL=http://test70:805/apps/SchoolMis/portal/logout.asp",
                "Resource=0",
                "RecContentType=text/html",
                "Referer=",
                "Snapshot=t5.inf",
                "Mode=HTML",
                LAST);

        return 0;
}
作者: Zee    时间: 2006-7-13 18:32
把参数化设置帖出来看看。
作者: baitest    时间: 2006-7-13 20:04
参数化设置的时候,你的用户名读取顺序没设置对!
作者: lingcool    时间: 2006-7-14 08:50
这是使用的参数属性
作者: lingcool    时间: 2006-7-14 08:51
原帖由 baitest 于 2006-7-13 20:04 发表
参数化设置的时候,你的用户名读取顺序没设置对!


那么请问该怎么设置呢?谢谢
作者: lingcool    时间: 2006-7-14 10:33
急 啊,大家帮帮忙吧
作者: liyanhui    时间: 2006-7-14 17:33
虚拟用户设置多点看看,比如60个
作者: wzb521    时间: 2006-7-14 17:42
用UNIQUE
作者: 小丁    时间: 2006-7-14 21:03
本论坛里搜索“参数选值详解”,里面有详细说明
作者: xyanbin    时间: 2006-7-16 14:22
select next row ,update value on, 这两相在做参数化的时候很重要, 建议查看一下LR的帮助文档,里面有很详细的描述




欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2