参数化登录名验证是否在lr执行时使用了这些参数的问题

lingcool

我有一个页面，需要输入登录名和密码，录制的脚本中参数化了登录名，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

#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

把参数化设置帖出来看看。

baitest

参数化设置的时候，你的用户名读取顺序没设置对！

lingcool

这是使用的参数属性

lingcool

原帖由 baitest 于 2006-7-13 20:04 发表
参数化设置的时候，你的用户名读取顺序没设置对！

那么请问该怎么设置呢？谢谢

lingcool

急 啊，大家帮帮忙吧

liyanhui

虚拟用户设置多点看看，比如60个

wzb521

用UNIQUE

小丁

本论坛里搜索“参数选值详解”，里面有详细说明

xyanbin

select next row ,update value on, 这两相在做参数化的时候很重要， 建议查看一下LR的帮助文档,里面有很详细的描述