发表于 2009-1-5 19:48
| 
ASP绋嬪簭涓娇鐢ㄦ柇寮鐨勬暟鎹褰曢泦
鍙戝竷: 2008-6-27 11:51 | 浣滆: admin | 鏌ョ湅: 3娆
銆銆鎴戜滑鍦ㄤ娇鐢ˋSP 鍐呯疆鐨凙DO缁勪欢杩涜鏁版嵁搴撶紪绋嬫椂锛岄氬父鏄湪鑴氭湰鐨勫紑澶存墦寮涓涓繛鎺ワ紝骞跺湪鑴氭湰鐨勬渶鍚庡叧闂畠锛屼絾鏄氨杈冨ぇ鑴氭湰鑰岃█锛屽湪澶氭暟鎯呭喌涓嬭繛鎺ユ墦寮鐨勬椂闂磋姣斿畠闇瑕佹墦寮鐨勬椂闂撮暱寰楀銆傚洜姝や负浜嗚妭鐪佹湇鍔″櫒璧勬簮锛屽簲璇ュ敖鍙兘鍏抽棴杩炴帴浠ラ噴鏀捐繛鎺ユ墍鍗犳湁鐨勮祫婧愶紝杩欑鍏抽棴璁板綍闆嗙殑杩炴帴鑰屼笉鍏抽棴璁板綍闆嗙殑鎶鏈彨鍋氭柇寮璁板綍闆嗭紝杩欎釜璁板綍闆嗘湰韬垯绉颁负鏂紑鐨勮褰曢泦銆
銆銆涓嬮潰鎴戜滑灏遍氳繃涓涓疄渚嬫潵璇存槑杩欑鎶鏈殑浣跨敤鏂规硶(NorthWind.mdb鏄疢icrosoft Access97鑷甫鐨勪竴涓暟鎹簱锛屾枃浠禷doVBs.inc鍙湪C:\Program Files\Common Files\System\ADO涓嬫壘鍒)锛
锛% @LANGUAGE = VBScript %锛
锛!--#include file="adovbs.inc"--锛
锛%
銆Response.Expires = 0
銆Dim Cnn,objRS, strOut, strQ, strC
銆StrC= "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\asp24") & "\NorthWind.mdb;"
銆'寤虹珛杩炴帴
銆Set Cnn = Server.CreateObject("ADODB.Connection")
銆Cnn.Open StrC
銆'鍒涘缓Recordset瀵硅薄
銆Set objRS = Server.CreateObject("ADODB.Recordset")
銆objRS.CursorLocation =adUseClient
銆objRS.CursorType = adOpenStatic
銆objRS.LockType = adLockOptimistic
銆strQ = "SELECT 杩愯揣鍟咺D, 鍏徃鍚嶇О, 鐢佃瘽 FROM 杩愯揣鍟 "
銆objRS.Open strQ, Cnn, , , adCmdText
銆Set objRS.ActiveConnection = Nothing銆銆 '鏂紑璁板綍闆
銆Cnn.Close銆銆銆銆銆銆銆銆銆銆銆銆銆銆銆銆 '鍏抽棴杩炴帴
銆Set Cnn = Nothing
銆Response.Write "锛淗TML锛烇紲BODY锛"
銆'涓嬮潰浣跨敤鏂紑鐨勮褰曢泦
銆Do While (Not objRS.EOF)
銆銆strOut = objRS("杩愯揣鍟咺D") & ", " & objRS("鍏徃鍚嶇О") & ", " & objRS("鐢佃瘽")
銆銆Response.Write Server.HTMLEncode(strOut) & "锛淏R锛"
銆銆objRS.MoveNext
銆Loop
銆Response.Write "锛淏R锛炲噯澶囨柊澧炴垨鎻掑叆璁板綍: "
銆'鑻ラ渶瑕佹洿鏂版暟鎹簱, 鍒欒閲嶆柊寤虹珛杩炴帴
銆Set Cnn = Server.CreateObject("ADODB.Connection")
銆Cnn.Open strC
銆Set objRS.ActiveConnection = Cnn
銆objRS.Filter = "鍏徃鍚嶇О = '鍚翠赴'"
銆If objRS.EOF Then
銆銆objRS.AddNew
銆銆objRS("鍏徃鍚嶇О") = "鍚翠赴"
銆銆objRS("鐢佃瘽") = "571-7227298"
銆銆objRS.Update
銆銆Response.Write "绗﹀悎璇ユ潯浠剁殑璁板綍涓嶅瓨鍦, 鍒欐柊澧.锛淏R锛"
銆Else
銆銆objRS("鐢佃瘽") = "571-7227071"
銆銆Response.Write "绗﹀悎璇ユ潯浠剁殑璁板綍瀛樺湪, 鍒 Update.锛淏R锛"
銆銆objRS.Update
銆End If
銆Set objRS.ActiveConnection = Nothing
銆Cnn.close
銆Set Cnn = Nothing
銆objRS.Close
銆Set objRS = Nothing
銆Response.Write "锛/BODY锛烇紲/HTML锛"
%锛
