asp+access£¡=ÍøÒ³²úÆ··ÖÀà
ÄãÂèµÄ˵ÀÏ×Ó×Ö·ûÌ«³¤±àÁ˰ëÌ컹²»ÐУ¡
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<!--#include file="conn.asp"-->
<%
dim rs, rs_count, sql, arr, sqls(),rss(),arrs(), rs_counts()
sql="select bigclassname from bigclassbook "
set rs=server.CreateObject("adodb.recordset")
rs.open sql, conn, 1,1
rs_count=rs.recordcount
if rs_count <>0 then
arr = rs.GetRows
end if
rs.close
set rs=nothing
redim sqls(rs_count)
redim rss(rs_count)
redim arrs(rs_count)
redim rs_counts(rs_count)
for i=0 to rs_count-1
sqls(i)="select smlclassname from smlclassbook where bigclassindex="+CStr(i+1)+""
rss(i)=CStr(i+1)
set rss(i) = server.CreateObject("adodb.recordset")
rss(i).open sqls(i), conn, 1,1
rs_counts(i)=rss(i).recordcount
if not rss(i).eof then
arrs(i)=rss(i).GetRows
end if
rss(i).close
set rss(i)=nothing
next
conn.close
set conn=nothing
%>
Ïà¹ØÎÊ´ð£º
ÎÒÕÒÁËÒ»¸öα¾²Ì¬´úÂ룬ÈçÏ£º
index.asp
<!--#include file="config.asp"-->
<ol>
<%
Set rs=server.CreateObject("adodb.recordset") & ......
aspÏÂÃæ£¬µ±Òª¸ù¾Ý²»Í¬µÄȨÏÞÏÔʾһЩ¹¦Äܰ´Å¥µÄ»°»áд³É
<%
if ȨÏÞ=1 then
%>
<input type="submit" name="Submit" value="Ìá½»" />
<%
end i ......
ÓÐËÄܸø½²½²£¬Ôõô×öÂð£¿
ллÀ²£¡
¸ÊÌØÍ¼ ÊÇɶ£¿
½âÌâ˼·.¿´Ò»Ï½ø¶ÈÌõµÄÏÔʾ..
ÆäʵÄã¾ÍŪһ¶Ñtable ÿ¸ötableµÄ¿í¶È²»Í¬.µ×É«²»Í¬¼´¿É
µ±È»ÓÃdiv¿ØÖÆÎ»ÖøüºÃ
ÄãŪ100¸ötable¸ù¾Ý½ø¶ÈÆäÖÐǰ20¸ö·Ö¸øµ ......
ÔÏÈÓÐÒ»¸öÏîÄ¿ÊÇÓÃaspдµÄ£¬ÒòΪϵͳÀ©Õ¹£¬ÎÒÏëÌí¼ÓһЩģ¿é»òÍøÒ³£¬ÏëÓÃasp.netд£¬È»ºóÔÚaspÖÐredirectµ½aspxÎļþÖУ¬ÇëÎÊÊÇ·ñ¿ÉÒÔ×öµ½£¬ÈçºÎÔÚIISÖнøÐÐÅäÖá£
ÕâÑù¿ÉÒÔʡȥºÜ¶à¹¤×÷Á¿£¬ÒòΪϵͳÒÔǰÊDZðÈËдµÄ ......
Imports System.ComponentModel
Imports System.Web.UI
Imports System.Web.UI.Design
Imports System.Web.UI.WebControls
Namespace CBDAspNet.WebControls.HTML
''' <summary>
'' ......