<%
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
%>
디비백업
<%
'response.write "게시물 수:" & ListCount & "
"
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")
User_Point=List("User_Point")
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&"User_Point='"&User_Point&"' where num=" & List("num")
SQL=Replace(SQL, "&", "&")
SQL=Replace(SQL, "<", "<")
SQL=Replace(SQL, ">", ">")
SQL=Replace(SQL, chr(13), "
")
response.write SQL & "
"
SQL=""
List.MoveNext
Next
'response.write SQL & "
"
%>
<%
%>