|
사실 인터넷활용이라는 수업을 듣는데
전혀 몰겠더라구요 마지막으로
여기서 묻는건데 하나두 몰겠는데
제가 소스 올릴테니까 제말 설명 좀 해주세요
<!-- inputdb.asp -->
<html>
<head>
<title>글 쓰기</title>
</head>
<body>
<form method="post" action="InsertDB.asp">
<p>이름 : <input type="text" name="name" size="20"><br>
주소 : <input type="text" name="address" size="20"><br>
소개 : <textarea name="comment" cols="60" rows="14"></textarea><br>
<input type="submit" value="저장"> </p>
</form>
<p>성공적으로 입력되었습니다. </p>
<% Do While Not Result.EOF %>
<p>이름 : <%=Result("name")%><br>
주소 : <%=Result("address")%><br>
입력시간 : <%=Result("date")%><br>
설명 : <%=Result("comment")%><br>
[<a href="PreEditDB.asp?name=<%=Result("name")%>">수정</a> / <a
href="DelDB.asp?name=<%=Result("name")%>">삭제</a>]<br>
<br>
<%
Result.Movenext
LOOP
Result.Close
Set Result = Nothing
DbCon.Close
Set DbCon = Nothing
%></p>
<form method="post" action="EditDB.asp">
<input type="hidden" name="name" value="<%=name%>"><p>이름 : <%=Result("name")%><br>
주소 : <input type="text" name="address" value="<%=Result("address")%>" size="20"><br>
소개 : <textarea name="comment" cols="60" rows="14"><%=Result("comment")%></textarea><br>
<input type="submit" value="수정"> </p>
</form>
<p>성공적으로 수정되었습니다. </p>
<p>성공적으로 삭제되었습니다. </p>
</body>
</html>
<!-- insertdb.asp -->
<%
name = Request("name")
address = Request("address")
comment = Request("comment")
Set DbCon=Server.CreateObject("ADODB.Connection")
DbCon.Open ("DSN=testdb;UID=sa;PWD=")
sqlstr = "INSERT INTO table3 (name,address,date,comment) VALUES ('" & name & "','" & address & "',getdate(),'" & comment & "')"
DbCon.Execute(sqlstr)
DbCon.Close
Set DbCon = Nothing
%>
<!-- viewdb.asp -->
<%
Set DbCon = Server.CreateObject("ADODB.Connection")
DbCon.Open ("DSN=testdb;UID=sa;PWD=")
Set Result = DbCon.Execute("SELECT * FROM table3")
%>
<!-- preeditdb.asp -->
<%
name = Request("name")
Set DbCon = Server.CreateObject("ADODB.Connection")
DbCon.Open ("DSN=testdb;UID=sa;PWD=")
Set Result = DbCon.Execute("SELECT * FROM table3 WHERE name='" & name & "'")
%>
<!-- editdb.asp -->
<%
name = Request("name")
address = Request("address")
comment = Request("comment")
Set DbCon=Server.CreateObject("ADODB.Connection")
DbCon.Open ("DSN=testdb;UID=sa;PWD=17glsi")
sqlstr = "UPDATE table3 SET address = '" & address & "', date = getdate(), comment = '" & comment & "'"
sqlstr = sqlstr + " WHERE name = '" & name & "'"
DbCon.Execute(sqlstr)
DbCon.Close
Set DbCon = Nothing
%>
<!-- deldb.asp -->
<%@ LANGUAGE="VBSCRIPT" %>
<%
name = Request("name")
Set DbCon=Server.CreateObject("ADODB.Connection")
DbCon.Open ("DSN=testdb;UID=sa;PWD=")
sqlstr = "DELETE table3 WHERE name='" & name & "'"
DbCon.Execute(sqlstr)
DbCon.Close
Set DbCon = Nothing
%>
|
