锘??xml version="1.0" encoding="utf-8" standalone="yes"?>亚洲精品视频在线看,亚洲欧洲日韩综合,亚洲6080yy久久无码产自国产http://www2.blogjava.net/jackstudio/category/9251.htmlzh-cnWed, 28 Feb 2007 19:47:26 GMTWed, 28 Feb 2007 19:47:26 GMT60鎿嶄綔蹇呴』浣跨敤涓涓彲鏇存柊鐨勬煡璇⑩濈殑瑙ｅ喅鍔炴硶 http://www.tkk7.com/jackstudio/archive/2007/02/08/98885.htmljackstudiojackstudioThu, 08 Feb 2007 15:30:00 GMThttp://www.tkk7.com/jackstudio/archive/2007/02/08/98885.htmlhttp://www.tkk7.com/jackstudio/comments/98885.htmlhttp://www.tkk7.com/jackstudio/archive/2007/02/08/98885.html#Feedback0http://www.tkk7.com/jackstudio/comments/commentRss/98885.htmlhttp://www.tkk7.com/jackstudio/services/trackbacks/98885.html
鏈夊嚑涓富瑕佺殑閿欒鍘熷洜錛?
榪欎釜閿欒鍙戠敓鍦ㄥ綋浣犵殑紼嬪簭璇曞浘鎵ц鏇存柊鏁版嵁搴撴垨鍏跺畠綾諱技鎿嶄綔鏃躲傝繖鏄洜涓?
ADO鐢變簬浠ヤ笅鐨勫嚑涓師鍥犺屼笉鑳藉鍐欐暟鎹簱閫犳垚鐨勩?

1銆備竴鑸殑鍘熷洜閮芥槸鍖垮悕鐢ㄦ埛甯愬彿(IUSR_MACHINE)瀵硅鏁版嵁搴撴枃浠舵病鏈夊啓鏉冮檺銆?
瑕佽В鍐寵繖涓棶棰橈紝鍦ㄧ鐞嗗櫒涓皟鏁存暟鎹簱鏂囦歡鐨勫睘鎬э紝璁╁尶鍚嶇敤鎴鋒湁姝ｇ‘鐨勬潈闄愩?
褰撲嬌鐢ˋCCESS鏁版嵁搴撴椂錛屼笉浠呰緇欐枃浠跺啓鐨勬潈闄愶紝榪樿緇欒鐩綍鍐欑殑鏉冮檺錛屽洜涓?
Jet闇瑕佸湪璇ョ洰褰曞緩绔嬩竴涓?ldb鏂囦歡[NTFS紜洏鏍煎紡鎵嶄細(xì)鍑虹幇,FAT鏍煎紡鐨勪笉浼?xì)鍑虹幇鏉冮檺闂]銆?br />鎴栨槸鍦↖IS涓緗竴涓湁璇誨彇鍐欏叆鏉冮檺鐨勫尶鍚嶅笎鎴?

2銆傜浜屼釜鍘熷洜鏄暟鎹簱娌℃湁浣跨敤姝ｇ‘鐨勬ā寮忔墦寮銆傚簲璇ヤ嬌鐢ㄤ笅闈㈢殑鏂規(guī)硶鎵撳紑銆?
SQL = "UPDATE Products Set UnitPrice = 2;"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Mode = 3 ''3 = adModeReadWrite
Conn.Open "myDSN"
Conn.Execute(SQL)
Conn.Close

娉ㄦ剰榛樿鐨凪ode鏄緗?(adModeUnknown),瀹冩槸鍏佽鏇存柊鐨勩?

3銆傝繕鏈夊彲鑳芥槸鍦∣DBC綆＄悊鍣ㄤ腑灝嗚DSN鐨勫彧璇婚夐」閫変腑銆?

4銆備綘鏄湪鍚屾椂鏇存柊涓や釜琛ㄤ腑鐨勫瓧孌碉紝涔熶細(xì)鍑虹幇榪欎釜閿欒淇℃伅錛岃В鍐沖姙娉曟槸鍒嗗紑鏉ユ洿鏂?
榪欎袱涓〃涓悇鑷瓧孌點(diǎn)?

5銆傚綋浣犱嬌鐢ㄤ簡(jiǎn)涓涓粠浣庣増鏈腑錛堝ACCESS2.0,ACCESS7.0錛夎澆鍏ュ埌楂樼増鏈?ACCESS 2000)
涓殑鏌ヨ鏃訛紝鍦ㄦ墽琛岃繖涓煡璇㈡槸浼?xì)鍑虹幇璇ラ敊璇?

濡傛灉鏄痺inXP緋葷粺
鍦ㄦ枃浠跺す閫夐」閲岄潰榛樿浣跨敤綆鍗曞叡浜?鎺ㄨ崘)錛屾妸榪欎釜閫夐」鍘繪帀錛?br />鍐嶅湪鏂囦歡澶逛笂鍙抽敭鐐瑰嚮錛屽氨浼?xì)鍑虹幇瀹夊叏杩欎釜閫夐」鍗★紝
鍘熸潵榛樿鐨勬病鏈夛紝鐒跺悗鍦ㄥ畨鍏ㄩ夐」鍗￠噷闈㈠彲浠ヨ緗敤鎴風(fēng)殑鍐欏叆鏉冮檺浜?br />鍙沖嚮鏁版嵁搴?gt;瀹夊叏>everyone>灝嗛渶瑕佺殑鍕句笂

鏌ョ湅鏇村綺懼僵鍥劇墖聽(tīng)

閬囧埌綾諱技鐨勯棶棰樿繕鏈?
Microsoft OLE DB Provider for ODBC Drivers 閿欒 '80004005'
[Microsoft][ODBC Microsoft Access Driver] 鏃犳硶浠庢寚瀹氱殑鏁版嵁琛ㄤ腑鍒犻櫎銆?/div>

]]>鍒嗛〉綾?璋冪敤寰堢畝鍗? ........http://www.tkk7.com/jackstudio/archive/2006/10/26/77425.htmljackstudiojackstudioThu, 26 Oct 2006 08:27:00 GMThttp://www.tkk7.com/jackstudio/archive/2006/10/26/77425.htmlhttp://www.tkk7.com/jackstudio/comments/77425.htmlhttp://www.tkk7.com/jackstudio/archive/2006/10/26/77425.html#Feedback0http://www.tkk7.com/jackstudio/comments/commentRss/77425.htmlhttp://www.tkk7.com/jackstudio/services/trackbacks/77425.html 聽(tīng)聽(tīng)1 < %聽(tīng) 聽(tīng)聽(tīng)2 ...  闃呰鍏ㄦ枃

]]>asp 鐢熸垚闈?rùn)鎬侀〉闈㈢殑綾?http://www.tkk7.com/jackstudio/archive/2006/06/26/55087.htmljackstudiojackstudioMon, 26 Jun 2006 03:00:00 GMThttp://www.tkk7.com/jackstudio/archive/2006/06/26/55087.htmlhttp://www.tkk7.com/jackstudio/comments/55087.htmlhttp://www.tkk7.com/jackstudio/archive/2006/06/26/55087.html#Feedback0http://www.tkk7.com/jackstudio/comments/commentRss/55087.htmlhttp://www.tkk7.com/jackstudio/services/trackbacks/55087.html聽(tīng)

聽(tīng)聽(tīng)1
聽(tīng)聽(tīng)2 ' author聽(tīng):聽(tīng)jack
聽(tīng)聽(tīng)3 ' date聽(tīng)聽(tīng)聽(tīng):聽(tīng)2005-11-12
聽(tīng)聽(tīng)4 ' email聽(tīng)聽(tīng):聽(tīng)jieck422@163.com
聽(tīng)聽(tīng)5 ' 鏂囦歡瀛樻斁瑙ｅ喅鍔炴硶錛?/span>
聽(tīng)聽(tīng)6 ' 鎶婃枃浠跺叏閮ㄥ瓨鏀懼湪saveFolder涓紝姣忎釜鏂囦歡澶瑰瓨鏀炬暟閲弒aveCount涓?000涓枃浠訛紝鐢ㄨ褰曢泦鐨刬d鏁撮櫎saveCount錛坕d\saveCount錛?/span>
聽(tīng)聽(tīng)7 ' 鎵寰楁暣鏁板畾涓鴻鏂囦歡鎵鍦ㄧ洰褰曪紝鏂囦歡鍚嶅氨鏄id鍙楓備緥濡傦細(xì)saveFolder="F:\test",saveCount=2000錛屽湪琛ㄤ腑鏈変竴璁板綍錛屽叾id涓?7錛?7\2000=0錛?璇?/span>
聽(tīng)聽(tīng)8 ' 鏂囦歡鐢熸垚鍚庡瓨鏀劇殑鐩綍涓篎:\test\0\47.shtml
聽(tīng)聽(tīng)9 dim 聽(tīng)I(yíng)D,myconn,zhli
 聽(tīng)10 ' ''''''''''''''''''''''''''''''''''''''鍦ㄦ娣誨姞榪囨護(hù)鍣?/span>
聽(tīng)11 ID = request.querystring( " id " )
 聽(tīng)12 set 聽(tīng)myconn = new 聽(tīng)GetConnection
 聽(tīng)13 if 聽(tīng)myconn.openRS( " select聽(tīng)a.E_name,a.E_date,a.E_zhouqi,a.E_changban,a.E_begindate,a.E_enddate,a.E_address,a.E_zhanguan,a.E_content,case聽(tīng)a.E_xingzhi聽(tīng)when聽(tīng)0聽(tīng)then聽(tīng)'鍥介檯灞曚細(xì)'聽(tīng)when聽(tīng)1聽(tīng)then聽(tīng)'鍥藉唴灞曚細(xì)'聽(tīng)else聽(tīng)'鍥藉唴灞曚細(xì)'聽(tīng)end聽(tīng)as聽(tīng)xiangzhi,a.E_company,a.E_chengban,a.E_beizhu,b.[name],b.Phone,b.Fax,b.Email,b.Qymc聽(tīng)from聽(tīng)zhanhui聽(tīng)a,qiang_qyml聽(tīng)b聽(tīng)where聽(tīng)a.Exhib_ID= " & ID & " 聽(tīng)and聽(tīng)a.gsid=b.id " ) = false 聽(tīng) then
聽(tīng)14 myconn.errMassege聽(tīng) " 璁板綍闆嗕負(fù)絀猴紝璇鋒鏌D鏄惁姝ｇ‘錛乛_^ "
聽(tīng)15 response.end
 聽(tīng)16 else
聽(tīng)17 set 聽(tīng)zhli = new 聽(tīng)ZhanHui_listinfo
 聽(tīng)18 zhli.letModAddress = " F:\test\li.shtml "
聽(tīng)19 zhli.letSaveFolder = " F:\test\ "
聽(tīng)20 zhli.letSaveCount = 2000
聽(tīng)21 zhli.letContent = zhli.readContent
 聽(tīng)22 zhli.replaceContent聽(tīng) " {$E_name$} " ,myconn.rs( 0 )
 聽(tīng)23 zhli.replaceContent聽(tīng) " {$E_date$} " ,myconn.rs( 1 )
 聽(tīng)24 zhli.replaceContent聽(tīng) " {$E_zhouqi$} " ,myconn.rs( 2 )
 聽(tīng)25 zhli.replaceContent聽(tīng) " {$E_changban$} " ,myconn.rs( 3 )
 聽(tīng)26 zhli.replaceContent聽(tīng) " {$E_begindate$} " ,myconn.rs( 4 )
 聽(tīng)27 zhli.replaceContent聽(tīng) " {$E_enddate$} " ,myconn.rs( 5 )
 聽(tīng)28 zhli.replaceContent聽(tīng) " {$E_address$} " ,myconn.rs( 6 )
 聽(tīng)29 zhli.replaceContent聽(tīng) " {$E_zhanguan$} " ,myconn.rs( 7 )
 聽(tīng)30 zhli.replaceContent聽(tīng) " {$E_content$} " ,myconn.rs( 8 )
 聽(tīng)31 zhli.replaceContent聽(tīng) " {$E_xingzhi$} " ,myconn.rs( 9 )
 聽(tīng)32 zhli.replaceContent聽(tīng) " {$E_company$} " ,myconn.rs( 10 )
 聽(tīng)33 zhli.replaceContent聽(tīng) " {$E_chengban$} " ,myconn.rs( 11 )
 聽(tīng)34 zhli.replaceContent聽(tīng) " {$E_beizhu$} " ,myconn.rs( 12 )
 聽(tīng)35 zhli.replaceContent聽(tīng) " {$linkman$} " ,myconn.rs( 13 )
 聽(tīng)36 zhli.replaceContent聽(tīng) " {$linkphone$} " ,myconn.rs( 14 )
 聽(tīng)37 zhli.replaceContent聽(tīng) " {$linkfax$} " ,myconn.rs( 15 )
 聽(tīng)38 zhli.replaceContent聽(tīng) " {$linkemail$} " ,myconn.rs( 16 )
 聽(tīng)39 zhli.replaceContent聽(tīng) " {$companyname$} " ,myconn.rs( 17 )
 聽(tīng)40 zhli.asp2html聽(tīng)zhli.makefilename(ID),zhli.getContent
 聽(tīng)41 end 聽(tīng) if
聽(tīng)42
聽(tīng)43 class聽(tīng)ZhanHui_listinfo
 聽(tīng)44 聽(tīng) ' 鏂囦歡鐢熸垚綾?/span>
聽(tīng)45 聽(tīng) private 聽(tīng)modAddress,saveFolder,fso,ts,content,saveCount
 聽(tīng)46 聽(tīng) ' modAddress---------鎽哥彮鍦板潃
聽(tīng)47 聽(tīng) ' saveFolder---------瀛樻斁鐩綍
聽(tīng)48 聽(tīng) ' content------------妯＄増鍐呭
聽(tīng)49 聽(tīng) ' saveCount----------瀛樻斁鏁伴噺
聽(tīng)50 聽(tīng) private 聽(tīng) sub 聽(tīng)class_initialize() ' 綾誨垵濮嬪寲
聽(tīng)51 聽(tīng) set 聽(tīng)fso = Server.CreateObject( " SCRIPTING.FILESYSTEMOBJECT " )
 聽(tīng)52 聽(tīng) end聽(tīng)sub
聽(tīng)53
聽(tīng)54 聽(tīng) public 聽(tīng) property 聽(tīng) let 聽(tīng)letSaveCount(str)
 聽(tīng)55 聽(tīng)saveCount = str
 聽(tīng)56 聽(tīng) end聽(tīng)property
聽(tīng)57
聽(tīng)58 聽(tīng) ' let聽(tīng)saveFolder
聽(tīng)59 聽(tīng) public 聽(tīng) property 聽(tīng) let 聽(tīng)letSaveFolder(str)
 聽(tīng)60 聽(tīng)saveFolder = str
 聽(tīng)61 聽(tīng) end聽(tīng)property
聽(tīng)62
聽(tīng)63 聽(tīng) ' let聽(tīng)modAddress
聽(tīng)64 聽(tīng) public 聽(tīng) property 聽(tīng) let 聽(tīng)letModAddress(str)
 聽(tīng)65 聽(tīng)modAddress = str
 聽(tīng)66 聽(tīng) end聽(tīng)property
聽(tīng)67
聽(tīng)68 聽(tīng) ' let聽(tīng)Content
聽(tīng)69 聽(tīng) public 聽(tīng) property 聽(tīng) let 聽(tīng)letContent(str)
 聽(tīng)70 聽(tīng)content = str
 聽(tīng)71 聽(tīng) end聽(tīng)property
聽(tīng)72 聽(tīng) ' get聽(tīng)Content
聽(tīng)73 聽(tīng) public 聽(tīng) property 聽(tīng) get 聽(tīng)getContent
 聽(tīng)74 聽(tīng)getContent = content
 聽(tīng)75 聽(tīng) end聽(tīng)property
聽(tīng)76
聽(tīng)77 聽(tīng) public 聽(tīng) function 聽(tīng)makefilename(ID) ' 鏂囦歡鍚嶄互鍙?qiáng)璧\寰?/span>
聽(tīng)78 聽(tīng)foldername = ID \ saveCount
 聽(tīng)79 聽(tīng) if 聽(tīng) not 聽(tīng)fso.FolderExists(saveFolder & foldername)聽(tīng) then
聽(tīng)80 聽(tīng)fso.createfolder(saveFolder & foldername)
 聽(tīng)81 聽(tīng) end 聽(tīng) if
聽(tīng)82 聽(tīng)makefilename = saveFolder & foldername & " \ " & ID & " .shtml "
聽(tīng)83 聽(tīng) end聽(tīng)function
聽(tīng)84
聽(tīng)85 聽(tīng) public 聽(tīng) function 聽(tīng)readContent() ' 璇誨彇鎽哥彮鍐呭
聽(tīng)86 聽(tīng) set 聽(tīng)readts = fso.OpenTextFile(modAddress, 1 )
 聽(tīng)87 聽(tīng)readcontent = readts.ReadAll()
 聽(tīng)88 聽(tīng)readts.close
 聽(tīng)89 聽(tīng) end聽(tīng)function
聽(tīng)90
聽(tīng)91 聽(tīng) public 聽(tīng) function 聽(tīng)replaceContent(strOne,strTwo) ' 鏇挎崲鍐呭
聽(tīng)92 聽(tīng)content = replace (content,strOne,strTwo)
 聽(tīng)93 聽(tīng) end聽(tīng)function
聽(tīng)94
聽(tīng)95 聽(tīng) public 聽(tīng) sub 聽(tīng)asp2html(filename,filecontent) ' 鐢熸垚shtml鏂囦歡
聽(tīng)96 聽(tīng) set 聽(tīng)writets = fso.CreateTextFile(filename, true )
 聽(tīng)97 聽(tīng)writets.Write(filecontent)
 聽(tīng)98 聽(tīng)writets.close
 聽(tīng)99 聽(tīng) end聽(tīng)sub
100
101 end 聽(tīng)class
 102
103 class聽(tīng)GetConnection
 104 ' 聽(tīng)聽(tīng)榪炴帴鏁版嵁搴撶被
105 ' 聽(tīng)聽(tīng)璋冪敤鏂規(guī)硶錛?/span>
106 ' 聽(tīng)聽(tīng)dim聽(tīng)myconn
107 ' 聽(tīng)聽(tīng)set聽(tīng)myconn=new聽(tīng)GetConnection
108 '
 109 聽(tīng) private 聽(tīng)conn,connStr
 110 聽(tīng) public 聽(tīng)rs
 111 聽(tīng) private 聽(tīng) sub 聽(tīng)class_initialize() ' 綾誨垵濮嬪寲
112 聽(tīng)connStr = " Provider=SQLOLEDB.1;聽(tīng)Data聽(tīng)Source=(local);聽(tīng)I(yíng)nitial聽(tīng)Catalog=myDATABASE;聽(tīng)User聽(tīng)I(yíng)D=sa;聽(tīng)Password= "
113 聽(tīng) ' 鍦ㄦ淇敼鏁版嵁搴撹繛鎺?/span>
114 聽(tīng) set 聽(tīng)conn = Server.CreateObject( " ADODB.Connection " )
 115 聽(tīng)conn.open聽(tīng)connStr
 116 聽(tīng) end聽(tīng)sub
117
118 聽(tīng) public 聽(tīng) function 聽(tīng)openRS(sql)
 119 聽(tīng) set 聽(tīng)rs = conn.execute(sql)
 120 聽(tīng) if 聽(tīng)rs.eof聽(tīng) and 聽(tīng)rs.bof聽(tīng) then
121 聽(tīng)openRS = false
122 聽(tīng) else
123 聽(tīng)openRS = true
124 聽(tīng) end 聽(tīng) if
125 聽(tīng) end聽(tīng)function
126
127 聽(tīng) public 聽(tīng) sub 聽(tīng)errMassege(mm)聽(tīng)
 128 聽(tīng)response.write( " <center><p><font聽(tīng)size=7聽(tīng)color=red> " & mm & " </font></p><center> " )聽(tīng)
 129 聽(tīng) end聽(tīng)sub
130
131 聽(tīng) private 聽(tīng) sub 聽(tīng)class_terminate() ' 閿姣佺被
132 聽(tīng)conn.close
 133 聽(tīng) set 聽(tīng)conn = nothing
134 聽(tīng) end聽(tīng)sub
135
136 end 聽(tīng)class
 137
138


]]>NextRecordset 鍜?GetRows http://www.tkk7.com/jackstudio/archive/2006/05/26/48317.htmljackstudiojackstudioFri, 26 May 2006 05:55:00 GMThttp://www.tkk7.com/jackstudio/archive/2006/05/26/48317.htmlhttp://www.tkk7.com/jackstudio/comments/48317.htmlhttp://www.tkk7.com/jackstudio/archive/2006/05/26/48317.html#Feedback0http://www.tkk7.com/jackstudio/comments/commentRss/48317.htmlhttp://www.tkk7.com/jackstudio/services/trackbacks/48317.html鏈榪戜嬌鐢ㄤ嬌鐢紝涓嶉敊鐨勫ソ涓滀笢錛?br />瀵規(guī)彁楂樻壒閲忔煡璇紝鏌ヨ綰綍闆嗕笉鏄法嫻烽噺鐨勬儏鍐靛緢鏈夋晥鏋?br />NextRecordset聽(tīng)鍜屄?tīng)GetRows聽(tīng)鏄疪ecordset鐨勪袱涓睘鎬э紙灞炴ц繕鏄柟娉曟垜鏄父娣鋒穯鏄潪#$#$錛屽紕涓嶆竻鍥涗笅浜旈櫎涓錛?

GetRows聽(tīng)--->聽(tīng)灝唕ecordset璁板綍闆嗘彁鍙栧埌涓涓簩緇存暟緇勪腑錛屾垜浠recordset鏁版嵁鐨勮涓哄氨杞Щ鍒拌鏁扮粍錛屽彲浠ユ棭鏃╃殑鏂紑綰綍闆嗭紝涓嶇敤鍐嶄嬌鐢ㄥ厓鏁版嵁鎿嶄綔錛宺s.movnext,聽(tīng)while聽(tīng)not聽(tīng)rs.eof絳夊彲浠ョ渷鎺?/p>

NextRecordset聽(tīng)---->聽(tīng)灝辨槸鍦ㄤ竴嬈℃彁浜ゅ涓煡璇紝褰㈡垚澶氫釜reordset緇撴灉闆嗙殑鎯呭喌涓嬶紝鎻愪緵涓涓寮褰撳墠宸ヤ綔鐨剅ecordset錛岃漿縐誨埌絎簩涓猺ecordset鐨勬柟娉曪紒
涓昏鏄敤鍦ㄥ涓猄ELECT褰㈡垚鐨勭粨鏋滈泦鐨勬儏鍐?/p>

紺轟緥濡備笅錛?/p>

dim聽(tīng)SQL,Rs,arrA,arrB,rowsA,rowsB

''======鎻愬彇鏁版嵁搴撳簱璁板綍====

錛坅dodb.connection聽(tīng)鐨勮繛鎺ラ儴鍒嗙渷鐣?鍋囧畾CONN.open聽(tīng)CONNstr錛?br />SQL="聽(tīng)select聽(tīng)Ca1,Ca2,Ca3,Ca4聽(tīng)from聽(tīng)TableA聽(tīng)"聽(tīng)''---------------SELECTa
SQL=SQL&"聽(tīng)select聽(tīng)Cb1,Cb2,Cb3,Cb4,Cb5聽(tīng)from聽(tīng)TableB聽(tīng)"聽(tīng)''-------------SELECTb

Set聽(tīng)Rs=conn.execute(SQL)聽(tīng)
''鎵ц緇撴灉灝嗘湁涓や釜select聽(tīng)鐨勭粨鏋滈泦錛屽綋鍓嶇涓涓猻elect鐨剅ecordset澶勪簬嬋媧葷姸鎬伮?/p>

arrA=rs.GetRows聽(tīng)''----------鍙栧緱SElECTa聽(tīng)Recordset鐨勪簩緇存暟緇?/p>

set聽(tīng)rs=rs.NextRecordset聽(tīng)
''------------鏈鍏抽敭鐨勪竴姝ワ紝浣跨敤Nextrecordset嬋媧諱笅涓涓猺ecordset

arrB=rs.GetRows聽(tīng)''----------鍐嶆鍙栧緱絎簩涓猄ElECTb聽(tīng)Recordset鐨勪簩緇存暟緇劼?/p>

Rs.close
set聽(tīng)rs=nothing聽(tīng)''---------灝芥棭閲婃斁鏁版嵁搴撳璞★紝鍏抽棴璁板綍闆?br />CONN.close
set聽(tīng)CONN=Nothing
榪欐牱錛屾垜浠墍鏈夊叧浜庢暟鎹簱鐨勬暟鎹共騫插噣鍑鐨勬彁鍙栧畬鎴愶紝鐢ㄦ渶鏃╃殑鏃墮棿閲婃斁鏁版嵁搴撹祫婧惵?br />''-----------//

''========鐢ㄥ彇寰楃殑arrA聽(tīng)arrB榪涜欏甸潰澶勭悊,鏄劇ず鏁版嵁緇撴灉======
''娉ㄦ剰錛宎rrA=GetRows聽(tīng)鍚庡緱鍒扮殑鏁扮粍錛岀涓緇存槸浠ｈ〃鍒楋紝絎簩緇翠唬琛ㄨ

rowsA=ubound(arrA,2)聽(tīng)''----鎻愬彇arrA鐨勭浜岀淮涓嬫爣錛岀浉褰撲簬鍙栧緱recordset聽(tīng)鐨勮褰曡鏁?br />rowsB=ubound(arrB,2)聽(tīng)''-----鍚屼笂錛屾彁鍙朼rrB鐨勭浜岀淮涓嬫爣聽(tīng)

''鍋氭暟鎹驚鐜細(xì)

''絎竴涓猻elect琛ㄧ殑寰幆
response.write聽(tīng)"<table>"
For聽(tīng)i=0聽(tīng)to聽(tīng)rowsA
response.write聽(tīng)"<tr>
response.write聽(tīng)"<td>"&arrA(i,0)&"</td>"聽(tīng)''tableA.Ca1聽(tīng)
response.write聽(tīng)"<td>"&arrA(i,1)&"</td>"聽(tīng)''tableA.Ca2聽(tīng)
response.write聽(tīng)"<td>"&arrA(i,2)&"</td>"聽(tīng)''tableA.Ca3聽(tīng)
response.write聽(tīng)"<td>"&arrA(i,3)&"</td>"聽(tīng)''tableA.Ca4聽(tīng)
response.write聽(tīng)"</tr>"
Next
response.write聽(tīng)"</table>

''絎簩涓猻elect琛ㄥ驚鐜?br />response.write聽(tīng)"<table>"
For聽(tīng)i=0聽(tīng)to聽(tīng)rowsB
response.write聽(tīng)"<tr>
response.write聽(tīng)"<td>"&arrB(i,0)&"</td>"聽(tīng)''tableB.Cb1聽(tīng)
response.write聽(tīng)"<td>"&arrB(i,1)&"</td>"聽(tīng)''tableB.Cb2聽(tīng)
response.write聽(tīng)"<td>"&arrB(i,2)&"</td>"聽(tīng)''tableB.Cb3聽(tīng)
response.write聽(tīng)"<td>"&arrB(i,3)&"</td>"聽(tīng)''tableB.Cb4聽(tīng)
response.write聽(tīng)"<td>"&arrB(i,4)&"</td>"聽(tīng)''tableB.Cb5聽(tīng)
response.write聽(tīng)"</tr>"
Next
response.write聽(tīng)"</table>

''--------OVER

REM聽(tīng)''============灝忕粨========

榪欐牱鐨勭粨鏋滐紝鍐嶆竻妤氫笉榪囷紒
錛?錛変嬌鐢∟extrecordset,鍙互澶勭悊澶氫釜select璇彞涓嬈″彂閫佸艦鎴愮殑緇撴灉闆嗭紝鍑忓皯緗戠粶嫻侀噺錛屽繀瀹氬姞蹇熷害錛?br />涓嶄嬌鐢∟extRecordset聽(tīng)鍒欎細(xì)榪欐牱鎿嶄綔錛?br />SQL="select聽(tīng)Ca1,Ca2,Ca3,聽(tīng)Ca4聽(tīng)From聽(tīng)TableA聽(tīng)"
set聽(tīng)Rs=CONN.execute聽(tīng)(SQL)
SQL="聽(tīng)select聽(tīng)Cb1,Cb2,Cb3,Cb4,Cb5聽(tīng)from聽(tīng)TableB聽(tīng)"
Set聽(tīng)Rs=CONN.execute聽(tīng)(SQL)
錛?錛変嬌鐢℅etRows灝嗚褰曢泦鎻愬彇鍒版暟緇勪腑錛堟斁鍒板唴瀛橈紝鎵浠ヨ姹傝褰曢泦涓嶈嫻峰ぇ鍟︼級(jí)
鐢ㄥ唴瀛樼殑鏁扮粍宸ヤ綔錛岃屼笖鐪佹帀EOF,movenext絳夌殑鍒ゆ柇錛岃皝鏇村揩錛佽嚜涓嶅繀璇達(dá)紒
錛?錛夋渶鏈涓昏鐨勶紝鎴戜滑鍒╃敤涓婁簩鑰咃紝涓嬈℃у皢鎵鏈夌殑鏁版嵁鎻愬畬錛屽揩閫熸柇寮鏁版嵁搴撹繛鎺ュ拰鎽ф瘉寤虹珛recordset鏁版嵁搴撳璞★紝澶уぇ鍑忓皯緗戠粶嫻侀噺錛佹ц兘鑷劧瑕佹彁楂樺緢澶氾紒

聽(tīng)



]]> 主站蜘蛛池模板： 一级女性全黄生活片免费看| 四虎永久在线免费观看| 老妇激情毛片免费| 91亚洲自偷在线观看国产馆| 浮力影院亚洲国产第一页| 女人张开腿等男人桶免费视频| 成av免费大片黄在线观看| 久久亚洲欧美国产精品| 亚洲卡一卡2卡三卡4麻豆| 亚洲成色WWW久久网站| 亚洲另类激情专区小说图片| 午夜免费不卡毛片完整版| 精品无码免费专区毛片| 久久一本岛在免费线观看2020| sihu国产精品永久免费| 国产精品自拍亚洲| 亚洲一区二区影视| 久久久久亚洲AV无码专区首JN| 亚洲人成色77777| 国产成人毛片亚洲精品| 亚洲国产成人久久综合野外| 国产精品冒白浆免费视频| 操美女视频免费网站| 国产在线a免费观看| 免费A级毛片无码专区| 可以免费观看的毛片| a视频在线免费观看| 国产午夜无码片免费| 中文在线观看国语高清免费| 国产va免费精品| 精品一区二区三区高清免费观看 | 日韩亚洲人成在线综合| 亚洲经典千人经典日产| 亚洲精品GV天堂无码男同| 亚洲成a∧人片在线观看无码| 亚洲精品无码av中文字幕| 亚洲色成人网站WWW永久四虎 | 久久精品无码专区免费青青| 99视频精品全部免费观看| 99在线免费观看视频| 99无码人妻一区二区三区免费|