public property get sql() sql = m_strsql end property
public property let sql(strsql) m_strsql = strsql end property
public property get conn() conn = m_strconn end property
public property let conn(strconn) m_strconn = strconn end property
public property get rowcolor1() if isnull(m_strrowcolor1) or len(m_strrowcolor1) = 0 then rowcolor1 = "#ffffff" else rowcolor1 = m_strrowcolor1 end if end property
public property let rowcolor1(strrowcolor1) m_strrowcolor1 = strrowcolor1 end property
public property get rowcolor2() if isnull(m_strrowcolor2) or len(m_strrowcolor2) = 0 then rowcolor2 = "#00ffff" else rowcolor2 = m_strrowcolor2 end if end property
public property let rowcolor2(strrowcolor2) m_strrowcolor2 = strrowcolor2 end property
public property get mode() if isnull(m_strmode) or len(m_strmode) = 0 then mode = "view" else mode = m_strmode end if end property
public property let mode(strmode) if strmode <> "view" and strmode <> "edit" then response.write ("模式錯(cuò)誤——只允許使用view和edit<br>") response.end else m_strmode = strmode end if end property
public property get processpage() processpage = m_strprocesspage end property
public property let processpage(strprocesspage) m_strprocesspage = strprocesspage end property
public property get title() if isnull(m_strtitle) or len(m_strtitle) = 0 then title = "data grid" else title = m_strtitle end if end property
public property let title(strtitle) m_strtitle = strtitle end property
public property get rsname() if isnull(m_strrsname) or len(m_strrsname) = 0 then rsname = "grid" else rsname = m_strrsname end if end property
public property let rsname(strrsname) m_strrsname = strrsname end property
public property get findfields() findfields = m_strfindfields end property
public property let findfields(strfindfields) m_strfindfields = strfindfields end property
sub showdatagrid()
dim intpagenum dim objconn dim objrs dim intabs dim intcurrentpage dim intfindcol dim intpagesize dim introw dim intcol dim i dim intpos dim intdisplayrows dim strsort dim strsortdir dim strlastsort dim strlastsortdir dim strcolor dim strfind dim boolfind dim boolfound
