'产生唯一姓名 username y=split(date,-) y(1)=right(0y(1),2) y(2)=right(0y(2),2) y1=y(1)y(2) t=split(time,:) t1=t(1)t(2) function rand(k,n) randomize n=int((k-1)*rnd+1) rand=n end function dim n n=rand(9,n) username=李y1t1n browser
 '产生唯一姓名 username
y=split(date,-)
y(1)=right(0&y(1),2)
y(2)=right(0&y(2),2)
y1=y(1)&y(2)
t=split(time,:)
t1=t(1)&t(2)
function rand(k,n)
   randomize
   n=int((k-1)*rnd+1)
  rand=n
end function
dim n
n=rand(9,n)
username=李&y1&t1&n
browser(电子政务).page(电子政务).webedit(user_code).set admin
browser(电子政务).page(电子政务).webedit(user_pass).setsecure4927cb503cee9942d160e58f
browser(电子政务).page(电子政务).image(dl-9).click
browser(电子政务).page(::::行政审批系统::::).sync
wait 5
browser(电子政务).page(::::行政审批系统::::).webelement(业务办理).click
browser(电子政务).page(::::行政审批系统::::).webelement(系统管理).click
browser(电子政务).page(::::行政审批系统::::).link(用户权限管理).click
browser(电子政务).page(::::行政审批系统::::).frame(33).webelement(用户管理).click
browser(电子政务).page(::::行政审批系统::::).frame(33_2).weblist(orgid).select    工商局
browser(电子政务).page(::::行政审批系统::::).frame(33_2).webbutton(搜索).click
'增加用户开始---------------------------------------------------
browser(电子政务).page(::::行政审批系统::::).frame(33_3).webbutton(增加用户).click
browser(电子政务).page(::::行政审批系统::::).frame(33_4).webedit(user.user_name).set&username
browser(电子政务).page(::::行政审批系统::::).frame(33_4).webedit(user.user_code).set&username
browser(电子政务).page(::::行政审批系统::::).frame(33_4).webedit(user.user_pass).setsecure4927d4079175cb072cf32883
browser(电子政务).page(::::行政审批系统::::).frame(33_4).webedit(conpassword).setsecure4927d40a5a602d544577ec1d
browser(电子政务).page(::::行政审批系统::::).frame(33_4).weblist(user.dictcode).select地、厅、局级
browser(电子政务).page(::::行政审批系统::::).frame(33_4).weblist(user.dictcode).select省级
browser(电子政务).page(::::行政审批系统::::).frame(33_4).webcheckbox(groupid).seton
browser(电子政务).page(::::行政审批系统::::).frame(33_4).weblist(user.returnindexid).select领导操作工作台
browser(电子政务).page(::::行政审批系统::::).frame(33_4).weblist(user.returnindexid).select普用户工作台
browser(电子政务).page(::::行政审批系统::::).frame(33_4).weblist(user.user_organid).select    工商局
browser(电子政务).page(::::行政审批系统::::).frame(33_4).webradiogroup(user.user_gender).selectf
browser(电子政务).page(::::行政审批系统::::).frame(33_4).webradiogroup(user.user_gender).selectm
browser(电子政务).page(::::行政审批系统::::).frame(33_4).webedit(user.user_tel).set13661703163
browser(电子政务).page(::::行政审批系统::::).frame(33_4).webedit(user.user_address).set上海市浦东新区
browser(电子政务).page(::::行政审批系统::::).frame(33_4).webedit(user.user_email).sethuichanglee@163.com
browser(电子政务).page(::::行政审批系统::::).frame(33_4).webedit(user.user_remark).set暂无备注
browser(电子政务).page(::::行政审批系统::::).frame(33_4).webradiogroup(user.user_status).select0
browser(电子政务).page(::::行政审批系统::::).frame(33_4).webradiogroup(user.user_status).select1
browser(电子政务).page(::::行政审批系统::::).frame(33_4).webbutton(增加).click
'增加用户-结束-----------------------------------------
'下边代码验证：增加后搜索新添加的用户是否存在，并打印出结果--开始--------
browser(电子政务).page(::::行政审批系统::::).frame(33_3).webedit(username).set&username
browser(电子政务).page(::::行政审批系统::::).frame(33_3).webbutton(搜索).click
setuser_table=browser(电子政务).page(::::行政审批系统::::).frame(33_7).webtable(编号)
 user_table_cols=user_table.columncount(1)
 user_table_rows=user_table.rowcount
username1=user_table.getcelldata(2,2)
username2=trim(username)'这里获取添加用户的用户名，并去掉左右空格
if trim(username)=trim(username1) then
 reporter.reporteventmicpass,添加用户测试,用户添加成功！
 else
 reporter.reporteventmicfail,添加用户测试,用户添加失败！
end if
'验证增加用户后，搜索新添加的用户是否存在并打印出结果----结束----------
'自定义数据库检查点----------开始----------------------
dim rs,cmd,sql
set rs=createobject(adodb.recordset)
set cmd=createobject(adodb.command)
cmd.activeconnection=provider=sqloledb.1;password=sa;persistsecurity info=true;user id=sa;initial catalog=xzfw_chibi;datasource=192.168.8.9
cmd.commandtype=1
'sql=select * fromsys_user  where user_code='用户名'  这是sql格式需要者一样一个格式，一下为转化方法。
sql1=select * fromsys_user  where user_code=
sql2='
sql3=&username2
sql4='
sql=sql1&sql2&sql3&sql4
cmd.commandtext=sql
set rs =cmd.execute()
if rs.eof=falsethen  ’false意为记录到最后，及为符合sql查询结果的记录
 reporter.reportevent micpass,用户添加数据库检查点测试,测试通过！
 else
 reporter.reportevent micfail,用户添加数据库检查点测试,测试失败！
end if
set rs=nothing
set cmd.activeconnection=nothing
set cmd=nothing
'自定义数据库检查点---------结束-----------------------