一个显示Grid的VBScript对象_动网_社区论坛·开发者网络源动力

是根据ms提供的代码修改而成，目前还不支持编辑，可以排序、查询、分页显示
<%@ language=vbscript %>
<% option explicit %>
<%
class classdatagrid

private m_strsql
private m_strconn
private m_strrowcolor1
private m_strrowcolor2
private m_strmode
private m_strprocesspage

private m_strtitle
private m_strrsname
private m_strfindfields

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 ("模式错误——只允许使用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
dim strfindfields
dim strcurrentpage

const aduseclient = 3
const adopendynamic = 2
const adasyncfetchnonblocking = &h40
const adsearchforward = 1
const adchar = 129
const advarchar = 200

if isarray(findfields) then
strfindfields = findfields
end if

if not isobject(session(rsname)) and (isnull(sql) or len(sql) = 0) then
response.write ("你必须设置sql属性以得到结果集<br>")
response.end
end if
if not isobject(session(rsname)) and (isnull(conn) or len(conn) = 0) then
response.write ("你必须设置sql属性以连接数据库<br>")
response.end
end if

if mode = "edit" and (isnull(processpage) or len(processpage) = 0) then
response.write ("你必须设置processpage属性以运行edit模式<br>")
response.end
end if

strcurrentpage = request.servervariables("path_info")
if instr(1, strcurrentpage, "/") > 0 then strcurrentpage = right(strcurrentpage, len(strcurrentpage) - instrrev(strcurrentpage, "/"))
if isobject(session(rsname)) and request.querystring("reload") <> "y" then
set objrs = session(rsname)
else
set objconn = server.createobject("adodb.connection")
set objrs = server.createobject("adodb.recordset")
set session(rsname) = objrs
objconn.open conn
objrs.cursorlocation = aduseclient
objrs.source = sql
objrs.cursortype = adopendynamic
objrs.properties("initial fetch size") = 11
set objrs.activeconnection = objconn
objrs.open , , , , adasyncfetchnonblocking
set objrs.activeconnection = nothing
objconn.close
end if
if trim(request("sortby")) <> "" and trim(request("resort")) <> "" then
strsort = request("sortby")
intpos = instr(2, objrs.sort, "]")
if intpos > 0 then
strlastsort = left(objrs.sort, intpos)
strlastsortdir = trim(mid(objrs.sort, intpos + 2))
end if
if trim(strsort) <> trim(strlastsort) then
strsortdir = "asc"
else
if strlastsortdir = "asc" then
strsortdir = "desc"
else
strsortdir = "asc"
end if
end if
objrs.sort = strsort & " " & strsortdir
end if
intpagesize = 10
if trim(request("txtpagesize")) <> "" then
intpagesize = request("txtpagesize")
end if
intpagenum = trim(request.querystring("pagenum"))
if (trim(request("lstpages")) <> "" or intpagenum <> "") and trim(request("allrecs")) = "" then
if intpagenum <> "" then
intcurrentpage = intpagenum
else
intcurrentpage = request("lstpages")
end if
else
intcurrentpage = 1
end if

if not (objrs.bof and objrs.eof) then
objrs.pagesize = intpagesize
if cint(intcurrentpage) > cint(objrs.pagecount) then
intcurrentpage = objrs.pagecount
end if
end if
session("pagenum") = intcurrentpage
boolfind = false
if trim(request("findcol")) <> "" and _
trim(request("findit")) <> "" and _
trim(request("find" & request("findcol"))) <> "" and _
(objrs.recordcount > objrs.pagesize) then
boolfind = true
intfindcol = cint(request("findcol"))
strfind = "[" & objrs(intfindcol).name & "] like '%" & _
request("find" & intfindcol) & "%'"
intabs = objrs.absoluteposition
objrs.filter = strfind
boolfound = false
if objrs.absoluteposition < 1 then
objrs.absoluteposition = intabs
else
boolfound = true
intcurrentpage = int(objrs.absoluteposition / objrs.pagesize)
if objrs.absoluteposition mod objrs.pagesize <> 0 then
intcurrentpage = intcurrentpage + 1
end if
intabs = objrs.absoluteposition
session("pagenum") = intcurrentpage
end if
else
objrs.filter = ""
if not (objrs.bof and objrs.eof) then objrs.absolutepage = intcurrentpage
end if
%>
<script language="javascript">
<% if boolfind and not boolfound then %>
window.status='** 字符串未找到 **'
<% end if %>
function refresh()
{
document.frmreport.submit();
}

function movetopage(pagenumber)
{
if (pagenumber != -1)
{document.frmreport.lstpages[pagenumber].selected = true;}
else
{document.frmreport.lstpages[0].selected = true;}
refresh();
}

function showallrecs()
{
document.frmreport.txtpagesize.value = <%=objrs.recordcount%>;
document.frmreport.allrecs.value = "yes"
refresh();
}

function resort(sortstring)
{
document.frmreport.sortby.value = sortstring;
document.frmreport.resort.value = "yes";
refresh();
}

function dofind(colnum)
{
document.frmreport.findcol.value = colnum;
document.frmreport.findit.value = "yes";
refresh();
}
</script>

<table cellspacing="2" cellpadding="2" border="0" width="100%">
<tr>
<td align="center" nowrap>

<a href="javascript:refresh()" title="应用新的设置" onmouseover="window.status='刷新'; return true" onmouseout="window.status=''; return true">
刷新</a>

</td>
<td nowrap>

</td>
<td align="center" nowrap>

<a href="javascript:showallrecs()" title="在一屏显示所有纪录" onmouseover="window.status='显示所有纪录'; return true" onmouseout="window.status=''; return true">
显示所有纪录</a>

</td>
<td align="right" valign="top" width="100%" nowrap>
<%if not (objrs.bof and objrs.eof) then%>
<b>每页
<input type="text" size="3" name="txtpagesize" value="<%=intpagesize%>">
条纪录 </b>
<%if objrs.pagecount > 1 then%>
<b>转到第

<select size="1" name="lstpages" onchange="refresh();">
<%for introw=1 to objrs.pagecount%>
<%if cint(intcurrentpage) = cint(introw) then%>
<option selected value="<%=introw%>"><%=introw%>
<%else%>
<option value="<%=introw%>"><%=introw%>
<%end if%>
<%next%>
</select>页</b>
<%end if%>
<%else%>
<input type="hidden" name="txtpagesize" value="<%=intpagesize%>">
<%end if%>
</td>
</tr>
</table>

<%if not (objrs.bof and objrs.eof) then%>
<table border="1" cellpadding="0" width="100%">
<tr>
<td>
<table border="0" cellpadding="2" cellspacing="0" width="100%">
<tr>
<%for intcol = 0 to objrs.fields.count - 1%>
<th nowrap valign="top" align="left">
<b>
<%
if isarray(findfields) then
boolfound = false
for i = 0 to ubound(strfindfields)
if ucase(objrs(intcol).name) = ucase(strfindfields(i)) then
%>
<input type="button" value="查询" onclick="javascript:dofind('<%=intcol%>')" onmouseover="window.status='在<%=objrs(intcol).name%>中查询指定字符串'" onmouseout="window.status=''">
<input type="text" name="find<%=intcol%>" size="5" maxlength="5" value="<%if boolfind then response.write(request("find" & intcol))%>"><br>
<%
boolfound = true
exit for
end if
next
if not boolfound then
response.write("<br>")
end if
end if
%>
<a href="javascript:resort('[<%=objrs(intcol).name%>]')" onmouseover="window.status='按照<%=objrs(intcol).name%>排序'" onmouseout="window.status='';" title="按照<%=objrs(intcol).name%>排序">
<%=objrs(intcol).name%></a></b>
</th>
<%next%>
</tr>
<%intdisplayrows = objrs.absoluteposition + objrs.pagesize - 1%>
<%for introw = objrs.absoluteposition to intdisplayrows%>
<tr>
<%if cbool( instr(1, cstr(introw / 2), ".") > 0) then
strcolor = rowcolor1
else
strcolor = rowcolor2
end if%>
<%for intcol = 0 to objrs.fields.count - 1%>
<td nowrap style="background:<%=strcolor%>">
<%=objrs.fields(intcol).value%></td>
<%next%>
</tr>
<%objrs.movenext%>
<%if objrs.eof then exit for%>
<%next%>
<%
if objrs.recordcount > objrs.pagesize then
if boolfind then
objrs.absoluteposition = intabs
else
if objrs.eof then
objrs.absoluteposition = objrs.recordcount - objrs.pagesize
else
objrs.absoluteposition = objrs.absoluteposition - objrs.pagesize
end if
end if
end if
%>
</table>
</td>
</tr>
</table>

<table border="0" cellspacing="2" cellpadding="2" align="left">
<tr>
<%
if (intcurrentpage > 1) then%>
<td align="center" width="55">
<a href="javascript:movetopage(document.frmreport.lstpages.selectedindex - 1)" onmouseover="window.status='上一页';" onmouseout="window.status='';" title="上一页">
上一页</a>
</td>
<%end if%>
<%
if cint(intcurrentpage) < cint(objrs.pagecount) then%>
<td align="center" width="55">
<a href="javascript:movetopage(document.frmreport.lstpages.selectedindex + 1)" onmouseover="window.status='下一页';" onmouseout="window.status='';" title="下一页">
下一页</a>
</td>
<%end if%>
</tr>
</table>
<%else%>
<center>
<table border="0" cellpadding="2">
<tr>
<td align="center">
没找到匹配的纪录。
</td>
</tr>
</table>
</center>
<%end if%>

</form>

<%
set objrs = nothing

end sub

end class
%>

<%
dim mydatagrid
set mydatagrid = new classdatagrid

mydatagrid.sql = "yoursql"
mydatagrid.conn = "yourconnstr"
mydatagrid.rowcolor1 = "silver"
mydatagrid.rowcolor2 = "gray"
mydatagrid.mode = "view"
mydatagrid.title = "title"
mydatagrid.rsname = "grid"
mydatagrid.findfields = array("允许查询的字段1","允许查询的字段2")

mydatagrid.showdatagrid
%>
补充一点
class classdatagrid到end class一段建议放inc里面去
还有，require script engine 5.0 or higher