|
<% set rst=server.createobject("ADODB.Recordset")
if ThisDate<>"" then
strSQL="select * from [Guest] where Times='"& ThisDate &"'"
else
strSQL="select * from [Guest] where Times='"& date() &"'"
end if
response.write strSQL
rst.open strSQL,conn,3,1
if not(rst.bof and rst.eof) then
if rst.RecordCount>0 then
sumcount=rst.RecordCount
rst.MoveFirst
end if
'rst.PageSize=20
intPageCount=rst.PageCount
if Len(strPage)=0 then strPage="1"
if Len(strPage)<1 then strPage="1"
'rst.absolutepage=cint(strPage)
'x=1
do while not rst.eof
%>
<%if rst("Remark")<>"" then%>
<%end if%>
|
<%
set rst=server.createobject("ADODB.Recordset")
if His="true" then
strSQL="select * from [Guest] where Deleted=False and IsInclude=true and name='"& Name &"' and Mobil='"& Mobil &"'"
else
strSQL="select * from [Guest] where Deleted=False and IsInclude=true"
end if
if Search="true" then
if Sel="名称" then
strSQL="select * from Guest where Deleted=False and IsInclude=true and name='"& TxtCode &"' order by AddTime desc"
end if
if Sel="日期" then
strSQL="select * from Guest where Deleted=False and IsInclude=true and Times='"& TxtCode &"'"
end if
if Sel="内容" then
strSQL="select * from Guest where Deleted=False and IsInclude=true and Content like '%"& TxtCode &"%' order by AddTime desc"
end if
end if
rst.open strSQL,conn,3,1
'response.write strSQL
if not(rst.bof and rst.eof) then
if rst.RecordCount>0 then
sumcount=rst.RecordCount
rst.MoveFirst
end if
rst.PageSize=20
intPageCount=rst.PageCount
if Len(strPage)=0 then strPage="1"
if Len(strPage)<1 then strPage="1"
'strPage=0
rst.absolutepage=cint(strPage)
x=1
%>
<%end if%>
|
|
|
|