|
근데 프런트페이지 작성할때 왜 ASP 파일을 쓰는거죠???
<html>
<head>
<title>글 쓰기</title>
</head>
<body>
<p>---<!-- inputdb1.asp --> </p>
<form method="post" action="InsertDB1.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>
<form method="post" action="EditDB1.asp">
<input type="hidden" name="name" value="<%=name%>"><p>이름 : <%=rs("name")%><br>
주소 : <input type="text" name="address" value="<%=rs("address")%>" size="20"><br>
소개 : <textarea name="comment" cols="60" rows="14"><%=rs("comment")%></textarea><br>
<input type="submit" value="수정"> </p>
</form>
<p>성공적으로 수정되었습니다. </p>
<p>성공적으로 삭제되었습니다. </p>
<p>자료가 없습니다. <%
else
rs.MoveLast
count = rs.RecordCount
rs.MoveFirst
%> </p>
<p>레코드 갯수 : <%=count%>개<br>
<br>
<%
rs.AbsolutePage = page
i = 1
DO WHILE NOT rs.EOF AND i <= rs.PageSize
%>이름 : <%=Rs("name")%><br>
주소 : <%=Rs("address")%><br>
입력시간 : <%=Rs("date")%><br>
설명 : <%=Rs("comment")%><br>
[<a href="PreEditDB1.asp?name=<%=Rs("name")%>">수정</a> / <a
href="DelDB1.asp?name=<%=Rs("name")%>">삭제</a>]<br>
<br>
<%
i = i + 1
rs.MoveNext
LOOP
%><br>
<br>
<font size="-1">[ <% If page > 1 Then %> <a HREF="ViewDB1.asp?page=<%= page - 1 %>">이전으로</a> <% Else %>
이전으로 <% End If %> | <% If page < rs.PageCount Then %> <a HREF="ViewDB1.asp?page=<%= page + 1 %>">다음으로</a> <% Else %> 다음으로
<% End If %>] <%
end if
rs.Close
Set rs = Nothing
%> </p>
</font>
</body>
</html>
<!-- insertdb1.asp -->
<%@ LANGUAGE="VBSCRIPT" %>
<%
name = Request("name")
address = Request("address")
comment = Request("comment")
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open "table3", "DSN=testdb;UID=sa;PWD=",1,2,2
rs.Addnew
rs("name") = name
rs("address") = address
rs("date") = now()
rs("comment") = comment
rs.Update
rs.Close
Set rs = Nothing
%>
<!-- preeditdb.asp -->
<%
name = Request("name")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM table3 WHERE name='" & name & "'" , "DSN=testdb;UID=sa;PWD=" , 2
%>
<!-- editdb1.asp -->
<%
name = Request("name")
address = Request("address")
comment = Request("comment")
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open "SELECT * FROM table3 WHERE name='" & name & "'" , "DSN=testdb;UID=sa;PWD=",1,2
rs("name") = name
rs("address") = address
rs("date") = now()
rs("comment") = comment
rs.Update
rs.Close
Set rs = Nothing
%>
<!-- deldb1.asp -->
<%@ LANGUAGE="VBSCRIPT" %>
<%
name = Request("name")
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open "SELECT * FROM table3 WHERE name='" & name & "'" , "DSN=testdb;UID=;PWD=",1,2
rs.Delete
rs.Close
Set rs = Nothing
%>
<!-- view1.asp -->
<%
page = Request("page")
If page="" Then
page = 1
else
page = Cint(Request("page"))
End If
Set rs = CreateObject("ADODB.Recordset") ' Recordset 개체를 생성한다.
rs.PageSize = 2
rs.Open "SELECT * FROM table3" , "DSN=testdb;UID=sa;PWD=17glsi" , 3
if rs.EOF = TRUE AND rs.BOF = TRUE then
%>
|
