<% ConnectionString = "Provider=SQLOLEDB;Data Source=sql60.enterhost.com;Initial Catalog=BA321;user ID=BA321;password=walkerhilladm90 ;" Set GetDBConn = Server.CreateObject("ADODB.Connection") GetDBConn.Open(ConnectionString) Set List = Server.CreateObject("ADODB.Recordset") List.Open "SELECT * FROM E_Member ORDER BY num ASC", GetDBConn, 1 ListCount = List.RecordCount %> ȸ¿øµðºñ¹é¾÷
Àüü¼±ÅÃ(Ctrl+A)ÇÏ½Ã°í º¹»çÇÏ¿© ¸Þ¸ðÀå¿¡ ºÙÇô³Ö±â ÇϽðųª ÀúÀåÇϱâ¹öưÀ» Ŭ¸¯ÇÏ¿© ÅØ½ºÆ®ÆÄÀÏ·Î ÀúÀåÇϽñ⠹ٶø´Ï´Ù.
<% For i=1 To ListCount num=List("num") Login_GUID=List("Login_GUID") Login_ID=List("Login_ID") Pass_word=List("Pass_word") User_Group=List("User_Group") Nick_Name=List("Nick_Name") Name_First=List("Name_First") Name_Mid=List("Name_Mid") Name_Last=List("Name_Last") Addr1=List("Addr1") Addr2=List("Addr2") City=List("City") State=List("State") Zip=List("Zip") Country=List("Country") Tel_1=List("Tel_1") Tel_2=List("Tel_2") Tel_3=List("Tel_3") Email=List("Email") Birth_MM=List("Birth_MM") Birth_DD=List("Birth_DD") Birth_YYYY=List("Birth_YYYY") Gender=List("Gender") Favorite_Verse=List("Favorite_Verse") Newsletter_YN=List("Newsletter_YN") Showemail_YN=List("Showemail_YN") HowHear=List("HowHear") Register_Date=List("Register_Date") Update_Date=List("Update_Date") Visit_Cnt=List("Visit_Cnt") Write_Cnt=List("Write_Cnt") NearVisit_Date=List("NearVisit_Date") Active_YN=List("Active_YN") MyPhoto_img=List("MyPhoto_img") User_Level=List("User_Level") User_Type=List("User_Type") SQL=SQL&"UPDATE E_Member SET " SQL=SQL&"Login_GUID='"&List("Login_GUID")&"'," SQL=SQL&"Login_ID='"&Login_ID&"'," SQL=SQL&"Pass_word='"&Pass_word&"'," SQL=SQL&"User_Group='"&User_Group&"'," SQL=SQL&"Nick_Name='"&Nick_Name&"'," SQL=SQL&"Name_First='"&Name_First&"'," SQL=SQL&"Name_Mid='"&Name_Mid&"'," SQL=SQL&"Name_Last='"&Name_Last&"'," SQL=SQL&"Addr1='"&Addr1&"'," SQL=SQL&"Addr2='"&Addr2&"'," SQL=SQL&"City='"&City&"'," SQL=SQL&"State='"&State&"'," SQL=SQL&"Zip='"&Zip&"'," SQL=SQL&"Country='"&Country&"'," SQL=SQL&"Tel_1='"&Tel_1&"'," SQL=SQL&"Tel_2='"&Tel_2&"'," SQL=SQL&"Tel_3='"&Tel_3&"'," SQL=SQL&"Email='"&Email&"'," SQL=SQL&"Birth_MM='"&Birth_MM&"'," SQL=SQL&"Birth_DD='"&Birth_DD&"'," SQL=SQL&"Birth_YYYY='"&Birth_YYYY&"'," SQL=SQL&"Gender='"&Gender&"'," SQL=SQL&"Favorite_Verse='"&Favorite_Verse&"'," SQL=SQL&"Newsletter_YN='"&Newsletter_YN&"'," SQL=SQL&"Showemail_YN='"&Showemail_YN&"'," SQL=SQL&"HowHear='"&HowHear&"'," SQL=SQL&"Register_Date='"&Register_Date&"'," SQL=SQL&"Update_Date='"&Update_Date&"'," SQL=SQL&"Visit_Cnt='"&Visit_Cnt&"'," SQL=SQL&"Write_Cnt='"&Write_Cnt&"'," SQL=SQL&"NearVisit_Date='"&NearVisit_Date&"'," SQL=SQL&"Active_YN='"&Active_YN&"'," SQL=SQL&"MyPhoto_img='"&MyPhoto_img&"'," SQL=SQL&"User_Level='"&User_Level&"'," SQL=SQL&"User_Type='"&User_Type&"' " SQL=SQL&" where num=" & List("num") 'SQL=Replace(SQL, "&", "&") 'SQL=Replace(SQL, "<", "<") 'SQL=Replace(SQL, ">", ">") 'SQL=Replace(SQL, chr(13), "
") SQL = SQL & Chr(10) 'response.write SQL & "
" 'SQL="" List.MoveNext Next %>


<% For j=1 To 15 %> <% Next %>