\u628a\u65e0\u9650\u7ea7\u5206\u7c7b\u5faa\u73af\u51fa\u6765\u786e\u5b9e\u662f\u4e00\u4ef6\u5934\u75bc\u7684\u4e8b\u60c5\u3002
\n\u6bd4\u5982\uff0c\u6211\u4eec\u8981\u5faa\u73af\u51fa\u4e00\u4e2aSELECT,\u6216\u4e00\u4e2aTABLE\uff0c\u8981\u5199\u4e00\u5927\u5806\u5224\u65ad\u3002
\n\u6709\u6ca1\u597d\u70b9\u7684\u529e\u6cd5\u5462\uff1f
\n\u6211\u7684\u505a\u6cd5\u662f\u751f\u6210\u6570\u7ec4\uff0c\u53ef\u4ee5\u91cd\u590d\u8c03\u7528\uff0c\u76f4\u63a5\u5faa\u73af\u6570\u7ec4\u5c31\u884c\u4e86\u3002
\n\u4e3a\u4e86\u65b9\u4fbf\uff0c\u6211\u628a\u5b83\u5199\u6210\u4e86\u7c7b\u3002<\/p>\n
class.asp<\/b><\/p>\n
\u8fd4\u56de\u6240\u6709\u5206\u7c7b\u7684\u6570\u7ec4,\u5e76\u6309\u987a\u5e8f\u6392\u5217
\n\u67094\u4e2a\u5c5e\u6027\uff1a
\nset aa=new classlist
\naa.id="id"\/\/\u7f16\u53f7\u7684\u540d\u79f0
\naa.classname="classname"\/\/\u5206\u7c7b\u540d\u79f0
\naa.pid="pid"\/\/\u7236ID\u540d\u79f0
\naa.db_name="class"\/\/\u8868\u540d
\nlist=aa.arrylist()<\/p>\n
<%
\nclass classlist
\nprivate c_id
\nprivate c_db_name
\nprivate c_pid
\nprivate c_classname
\npublic property let id(str)
\n c_id = str
\nend property
\npublic property let db_name(str)
\n c_db_name = str
\nend property
\npublic property let pid(str)
\n c_pid = str
\nend property
\npublic property let classname(str)
\n c_classname = str
\nend property<\/p>\n
dim list()<\/p>\n
dim i,n
\nPrivate Sub Class_Initialize()’\u521d\u59cb\u5316\u53d8\u91cf
\ni=0
\nn=0
\nEnd Sub<\/p>\n
\npublic function classarry(thisid,pid)’\u53d6\u5f97\u4e0b\u7ea7ID
\nif pid>0 then
\nsql="select * from "&c_db_name&" where "&c_pid&"="&thisid
\nelse
\nsql="select * from "&c_db_name&" where "&c_id&"="&thisid
\nend if
\nset rs_c=conn.execute(sql)
\nn=n+1<\/p>\n
do while not rs_c.eof<\/p>\n
list(0,i)=rs_c(c_id)’\u88c5\u5165\u6570\u7ec4\u4e2d
\nlist(1,i)=rs_c(c_classname)
\nlist(2,i)=n
\n‘n=n+1
\ni=i+1
\nthisid=classarry(rs_c(c_id),1)’\u8fd9\u91cc\u9012\u5f52\u8c03\u7528,\u76f4\u5230\u6700\u540e\u4e00\u4e2a\u5b50\u7c7b<\/p>\n
rs_c.movenext
\nloop
\nn=n-1
\nrs_c.close<\/p>\n
end function<\/p>\n
public function arrylist()’\u5faa\u73af\u51fa\u6240\u6709\u6839\u7c7b
\nset rs_c=conn.execute("select count("&c_id&") from "&c_db_name)
\nlenght=rs_c(0)
\nrs_c.close
\nredim list(2,lenght)’\u8bbe\u7f6e\u6570\u7ec4
\nset rs1=conn.execute("select "&c_id&" from "&c_db_name&" where "&c_pid&"=0")
\ndo while not rs1.eof
\ncall classarry(rs1(c_id),0)
\n‘n=1
\nrs1.movenext
\nloop
\nrs1.close
\narrylist=list
\nend function<\/p>\n
end class
\n%><\/p>\n
\u5b9e\u4f8b\u6d4b\u8bd5\uff1a<\/p>\n
\u8868CLASS<\/b><\/p>\n
\u5b57\u6bb5
\nid\uff1a\u81ea\u52a8\u7f16\u53f7
\nclassname\uff1a\u540d\u79f0
\npid\uff1a\u7236ID<\/p>\n
test.asp<\/b><\/p>\n
<\/p>\n
<!–#include file="class.asp"–>
\n<%
\nSet conn=Server.CreateObject("ADODB.connection")
\nSet Rs = Server.CreateObject("ADODB.Recordset")
\nStrDSN = "Driver={Microsoft Access Driver (*.mdb)}; DBQ="
\nStrDSN = StrDSN & Server.MapPath("test.mdb")
\nconn.Open strDSN<\/p>\n
function ins(num)
\nstr=""
\nfor ii=1 to num
\nstr=str&"|-"
\nnext
\nins=str
\nend function<\/p>\n
set aa=new classlist
\naa.id="id"
\naa.classname="classname"
\naa.pid="pid"
\naa.db_name="class"
\nlist=aa.arrylist()<\/p>\n
response.write "<table border=1><tr><td>ID<\/td><td>\u540d\u79f0<\/td><td>\u7b2c\u51e0\u7c7b<\/td><\/tr>"
\nfor j=0 to ubound(list,2)
\nresponse.write "<tr><td>"&list(0,j)&"<\/td><td>"&list(1,j)&"<\/td><td>"&list(2,j)&"<\/td><\/tr>"
\nnext
\nresponse.write "<\/table>"
\n‘response.write list(1,3)
\n%>
\n<select name="">
\n<% for i=0 to ubound(list,2)%>
\n<option value=""><%
\nresponse.write ins(list(2,i))
\nresponse.write list(1,i)%><\/option>
\n<%next%>
\n<\/select><\/p>\n","protected":false},"excerpt":{"rendered":"
\u628a\u65e0\u9650\u7ea7\u5206\u7c7b\u5faa\u73af\u51fa\u6765\u786e\u5b9e\u662f\u4e00\u4ef6\u5934\u75bc\u7684\u4e8b\u60c5\u3002 \u6bd4\u5982\uff0c\u6211\u4eec\u8981\u5faa\u73af\u51fa\u4e00\u4e2aSELECT,\u6216\u4e00\u4e2aTABLE\uff0c\u8981\u5199\u4e00\u5927\u5806\u5224\u65ad\u3002 \u6709\u6ca1\u597d\u70b9\u7684\u529e\u6cd5\u5462\uff1f \u6211\u7684\u505a\u6cd5\u662f\u751f\u6210\u6570\u7ec4\uff0c\u53ef\u4ee5\u91cd\u590d\u8c03\u7528\uff0c\u76f4\u63a5\u5faa\u73af\u6570\u7ec4\u5c31\u884c\u4e86\u3002 \u4e3a\u4e86\u65b9\u4fbf\uff0c\u6211\u628a\u5b83\u5199\u6210\u4e86\u7c7b\u3002 class.asp …<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[],"topic":[],"class_list":["post-187","post","type-post","status-publish","format-standard","hentry","category-technology"],"_links":{"self":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/187","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/comments?post=187"}],"version-history":[{"count":1,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/187\/revisions"}],"predecessor-version":[{"id":66036,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/187\/revisions\/66036"}],"wp:attachment":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/media?parent=187"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/categories?post=187"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/tags?post=187"},{"taxonomy":"topic","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/topic?post=187"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}