Dimsql,sql2,tishi
Dim day1
day1 = Date()-1
sql="select * from cl_feed where usercode='00004084' and appcode = 'album' and creationDate > '"&day1&"'"
sql2="delete from cl_feed where usercode='00004084' and appcode = 'album' and creationDate > '"&day1&"'"
tishi="主页之照片"
Call deleteTestInfo(sql,sql2,tishi)
Function deleteTestInfo(sql,sql2,tishi)
Dim rs,conn,strconn,rsdel
Set rs=createobject("ADODB.recordset")
Set rsdel=createobject("ADODB.recordset")
Set conn=createobject("ADODB.Connection")
conn.ConnectionString ="DRIVER=SQLServer;SERVER=ADSERVER;UID=Customer;PWD=Customer;APP=QuickTest Professional;WSID=995D5369A65743E"
conn.Open
Set rs.ActiveConnection = conn
Set rsdel.ActiveConnection = conn
rs.CursorType = adOpenDynamic
rsdel.CursorType = adOpenDynamic
rs.Open sql
If rs.eof=false Then
reporter.ReportEvent micPass,tishi,"测试通过!"
rsdel.Open sql2
If rs.eof=false Then
reporter.ReportEvent micPass,tishi,"清除数据成功!"
else
reporter.ReportEvent micFail,tishi,"清除数据失败!"
End If
else
reporter.ReportEvent micFail,tishi,"测试失败!"
End If
Set rs=nothing
Set rsdel=nothing
conn.Close
End Function