main

security & hacking

Wed, 10 Dec 2008 10:36:50 +0900

http://impcompfacts.blogspot.com/search/label/Hacking%20Tools

무선인터넷 해킹툴

http://ko.wikipedia.org/wiki/%EC%9E%98_%EC%95%8C%EB%A0%A4%EC%A7%84_%ED%8F%AC%ED%8A%B8

알려진포트

잘 알려진 포트(well-known port)는 특정한 쓰임새를 위해서 IANA에서 할당한 TCP 및 UDP 포트 번호이다.

일반적으로 포트 번호는 다음과 같이 세 가지로 나눌 수 있다.

0번 ~ 1023번: 잘 알려진 포트 (well-known port)
1024번 ~ 49151번: 등록된 포트 (registered port)
49152번 ~ 65535번: 동적 포트 (dynamic port)

8강_asp 게시판

Wed, 26 Nov 2008 20:24:26 +0900

//list.asp
<%
If request("qpagenum")="" Then
currentpage=1
Else
currentpage=CInt(request("qpagenum"))
End If
If request("qstartpage")="" Then
startpage=1
Else
startpage=CInt(request("qstartpage"))
End If

Set objconn=server.CreateObject("adodb.connection")
objconn.open"provider=sqloledb; data source=(local); initial catalog=board; user id=shopmanager; password=qwer1234"
Set objrs=server.CreateObject("adodb.recordset")
strsql="select num, subject, uid, regdate, hits from btable order by num desc"
objrs.open strsql, objconn, 1
totcount=objrs.recordcount
If totcount>0 Then
objrs.pagesize=5
objrs.absolutepage=currentpage
cpagenumlist=5
End If
%>

<html>
<head>
<title>게시판</title>
<style type=text/css>

</style>
</head>

<body>
<center><h2>게시판</h2></center>
<table align="center" width=600 border="0" cellspacing="1" cellpadding="0">
<tr bgcolor=gray align=center>
<td width=50><font color="white">번호</font></td>
<td width=320><font color="white">제목</font></td>
<td width=80><font color="white">작성자</font></td>
<td width=100><font color="white">날짜</font></td>
<td width=50><font color="white">조회</font></td>
</tr>

<%
If totcount=0 Then
%>

<tr align="center">
<td colspan=5>등록된 게시물이 없음</td>
</tr>

<%
Else
If objrs.pagecount=currentpage Then
itemcount=totcount Mod objrs.pagesize
If itemcount=0 Then itemcount=objrs.pagesize
Else
itemcount=objrs.pagesize
End If
For i=1 To itemcount
%>

<tr align="center">
<td><%=objrs("num")%></td>
<td align="left">
<a href="list_view.asp?num=<%=objrs("num")%>&qpagenum=<%=currentpage%>&qstartpage=<%=startpage%>"><%=objrs("subject")%></a>
</td>
<td><%=objrs("uid")%></td>
<td><%=Left(objrs("regdate"),10)%></td>
<td align="center"><%=objrs("hits")%></td>
</tr>

<%
objrs.movenext
Next
End If
%>

<tr bgcolor="gray" height=1 valign=top>
<td colspan=5></td>
</tr>
</table>
<br>
<table align="center" width="600" border="0">
<tr valign=middle>
<td width=20% align="left"><a href="list_reg.asp">게시물등록</a></td>
<td width=50% align="center">

<%
If objrs.pagecount>cpagenumlist Then
If startpage-cpagenumlist > 0 Then
%>

<a href="list.asp?qpagenum=<%=startpage-cpagenumlist%>&qstartpage=<%=startpage-cpagenumlist%>">[이전]</a>

<%
End If
For pagenum=startpage To startpage+cpagenumlist-1
If pagenum=currentpage Then
%>

<b><%=pagenum%></b>
<%Else%>
<a herf="list.asp?qpagenum=<%=pagenum%>&qstartpage=<%=startpage%>">[ <%=pagenum%>]</a>

<%
End If
If pagenum>=objrs.pagecount Then
Exit For
End If
Next
If qstartpage+cpagenumlist<=objrs.pagecount Then
%>

<a href="list.asp?qpagenum<%=startpage+cpagenumlist%>qstartpage=<%=startpage+cpagenumlist%>">[다음]</a>

<%
End If
Else
%>

<%
For pagenum=startpage To objrs.pagecount
If pagenum=currentpage Then
%>
<b><%=pagenum%></b>
<% else %>
<a href="list.asp?qpagenum=<%=pagenum%>"><%=pagenum%></a>
<%
End If
Next
%>
<%End if%>
</td>
<td width=30% align="right">
[<a href="list.asp">latest</a>]
<%
If currentpage>1 Then
If(currentpage Mod cpagenumlist)=a And startpage <> 1 Then
%>
[<a href="list.asp?qpagenum=<%=currentpage-1%>&qstartpage=<%startpage-cpagenumlist%>">prev</a>]
<% Else %>
[<a href="list.asp?qpagenum=<%=currentpage-1%>&qstartpage=<%=startpage %>">prev</a>]

<%
End If
Else
%>

[prev]
<%
End If
If currentpage>=objrs.pagecount Then
%>
[next]
<%
Else
If (currentpage Mod cpagenumlist)=0 Then
%>
[<a href="list.asp?qpagenum=<%=currentpage+1%>&qstartpage=<%=cpagenumlist+startpage%>">next</a>]
<%else%>
[<a href="list.asp?qpagenum=<%=currentpage+1%>&qstartpage=<%=startpage%>">next</a>]

<%
End If
End If
%>
</td>
</tr>
</table>
<center>
<form action="list_search.asp" method="post">
<select name="keytype">
<option value="subject">제목</option>
<option value="contents">내용</option>
<option value="uid">작성자</option>
</select>

<input type="text" name="keyword" size="25">
<input type=submit value="검색">
</form>
</center>
</body>
</html>

<%
objrs.close
Set objrs=Nothing
objconn.close
Set objconn=Nothing
%>

//list_delete.asp
<%
itemnum=CInt(request("num"))
currentpage=request("qpagenum")
startpage=request("qstartpage")
Set objconn=server.CreateObject("adodb.connection")
objconn.open "provider=sqloledb; data source=(local); initial catalog=board; user id=sa; password=1234"
strsql="delete from btable where num =" & itemnum
objconn.execute strsql
response.redirect"list.asp?qpagenum=" & currentpage & "&qstartpage=" & startpage
objconn.close
Set objconn=Nothing
%>

//list_reg.asp
<html>
<head>
<title>게시물 등록</title>
<style type=text/css>


</style>
</head>
<body>
<center>
<h2>게시물 등록</h2>
<form action="list_regproc.asp" method="post">
<table align="center" width=500 border="0">
<tr>
<td bgcolor="gray" align=center width=15%>
<font color="white">작성자</font>
</td>
<td width=85%><input type="text" name="user"></td>
</tr>
<tr>
<td bgcolor="gray" align=center width=15%>
<font color="white">제목</font>
</td>
<td width=85%><input type="text" name="title"></td>
</tr>
<tr>
<td bgcolor="gray" align=center width=15%>
<font color="white">내용</font>
</td>
<td width=85%>
<textarea name="contents" rows="10" cols="60"></textarea>
</td>
</tr>
</table>
<br>
<p align="center">
<input type="submit" value="등록">
<input type="reset" value="취소">
</p>
</form>
</body>
</html>

//list_regproc.asp
<%
user=request("user")
title=Trim(request("title"))
title=Replace(title, "'", "''")
contents=Trim(request("contents"))
contents=Replace(contents,"'","''")
regdate=Date
hits=0

Set objconn=server.CreateObject("adodb.connection")
objconn.open "provider=sqloledb; data source=(local); initial catalog=board; user id=shopmanager; password=qwer1234"
strsql="insert into btable(subject, uid, regdate, hits, contents) values('"
strsql=strsql & title &"','"
strsql=strsql & user &"','"
strsql=strsql & regdate &"','"
strsql=strsql & hits &"','"
strsql=strsql & contents &"')"
objconn.execute strsql
response.redirect "list.asp"
objconn.close
Set objconn=Nothing
%>

//list_search.asp
<%
keytype=request("keytype")
keyword=request("keyword")

If request("qpagenum")="" Then
currentpage=1
Else
currentpage=CInt(request("qpagenum"))
End If
If request("qstartpage")="" Then
startpage=1
Else
startpage=CInt(request("qstartpage"))
End If
Set objconn=server.CreateObject("adodb.connection")
objconn.open "provider=sqloledb; data source=(local); initial catalog=board; user id=sa; password=1234"
Set objrs=server.CreateObject("adodb.recordset")
strsql="select num, subject, uid, regdate, hits from btable where " & keytype & " like '%" & keyword & "%'"
objrs.open strsql, objconn, 1
totcount=objrs.recordcount
If totcount>0 Then
objrs.pagesize=5
objrs.absolutepage=currentpage
cpagenumlist=5
Else
currentpage=0
End If
%>

<html>
<head>
<title>검색 결과</title>
<style type=text/css>

</style>
</head>
<body>
<center><h2>검색결과</h2></center>
<table align=center width=600>
<tr>
<td>
검색어 : <%=keyword%>(총 <%=totcount%> 개의 항목을 검색했습니다)
</td>
<td align=right>[<%=currentpage%>/<%=objrs.pagecount%>]pages</td>
</tr>
</table>
<table align="center" width=600 border="0" cellspacing="1" cellpadding="0">
<tr bgcolor=gray align=center>
<td width=50><font color="white">번호</font></td>
<td width=320><font color="white">제목</font></td>
<td width=80><font color="white">작성자</font></td>
<td width=100><font color="white">날짜</font></td>
<td width=50><font color="white">조회</font></td>
</tr>

<%
If totcount=0 Then
%>

<tr align="center">
<td colspan=5>
검색된 게시물이 없음
</td>
</tr>

<%
Else
If objrs.pagecount=currentpage Then
itemcount=totcount Mod objrs.pagesize
If itemcount=0 Then itemcount=objrs.pagesize
Else
itemcount=objrs.pagesize
End If
For i=1 To itemcount
subject=objrs("subject")
If keytype="subject" Then
subject=Replace(subject, keyword,"<b>" & keyword & "</b>")
End If
%>

<tr align="center">
<td><%=objrs("num")%></td>
<td align="left">
<a href="list_searchproc.asp?num=<%=objrs("num")%>&qpagenum=<%=currentpage%>&qstartpage=<%=startpage%>&keytype=<%=keytype%>&keyword=<%=keyword%>"><%=objrs("subject")%></a>
</td>
<td><%=objrs("uid")%></td>
<td><%=Left(objrs("regdate"),10)%></td>
<td align="center"><%=objrs("hits")%></td>
</tr>

<%
objrs.movenext
Next
end If
%>

<tr bgcolor="gray" height=1 valign=top>
<td colspan=5></td>
</tr>
</table>
<br>
<table align="center" width="600" border="0">
<tr valign=middle>
<td width=20% align="left"><a href="list_reg.asp">게시물 등록</a></td>
<td width=50% align="center">

<%
If objrs.pagecount>cpagenumlist Then
If startpage-cpagenumlist>0 Then
%>
<a href="list_serch.asp?qpagenum=<%=startpage-cpagenumlist%>&qstartpage=<%=startpage-cpagenumlist%>&keytype=<%=keytype%>&keyword=<%=keyword%>">[이전]</a>

<%
End If
For pagenum=startpage To startpage+cpagenumlist-1
If pagenum=currentpage Then
%>
<b><%=pagenum%></b>
<%
Else
%>
<a href="list_serch.asp?qpagenum=<%=pagenum%>&qstartpage=<%=startpage%>&keytype=<%=keytype%>&keyword=<%=keyword%>">[<%=pagenum%>]</a>
<%
End If
If pagenum >=objrs.pgaecount Then
Exit For
End If
Next
If startpage+cpagenumlist <= objrs.pagecount Then
%>
<a href="list_serch.asp?qpagenum=<%startpage+cpagenumlist%>&qstartpage=<%=startpage+cpagenumlist%>&keytype=<%=keytype%>&keyword=<%=keyword%>">[다음]</a>

<%
End If
Else
%>
<%
For pagenum=startpage To objrs.pagecount
If pagenum=currentpage Then
%>
<b><%=pagenum%></b>
<%
Else
%>

<a href="list_search.asp?qpagenum=<%=pagenum%>&keytype=<%keytype%>&keyword=<%=keyword%>"><%=pagenum%></a>

<%
End If
Next
%>

<%
End If
%>
</td>

<td width=30% align="right">
[<a href="list.asp">list</a>]

<%
If currentpage>1 Then
If(currentpage Mod cpagenumlist)=1 And startpage<>1 Then
%>
[<a href="list_search.asp?qpagenum=<%=currentpage-1%>&qstartpage=<%=startpage-cpagenumlist%>&keytype=<%=keytype%>&keyword=<%keyword%>">prev</a>]
<%else%>
[<a href="list_search.asp?qpagenum=<%=currentpag-1%>&qstartpage=<%startpage%>&keytype=<%=keytype%>&keyword=<%=keyword%>">prev</a>]

<%
End If
Else
%>
[prev]
<%
End If
If currentpage>=objrs.pagecount Then
%>
[next]
<%
else
If(currentpage Mod cpagenumlist)=0 Then
%>
[<a href="list_search.asp?qpagenum<%=currentpage+1%>&qstartpage=<%=cpagenumlist+startpage%>&keytype=<%=keytype%>&keyword=<%=keyword%>">next</a>]
<%else%>
[<a href="list_search.asp?qpagenum=<%=currentpage+1%>&qstartpage=<%=startpage%>&keytype=<%=keytype%>&keyword=<%keywod%>">next</a>]
<%
End If
End If
%>
</td>
</tr>
</table>
</body>
</html>
<%
objrs.close
Set objrs=Nothing
objconn.close
Set objconn=Nothing
%>

//list_searchproc.asp
<%
keytype=request("keytype")
keyword=request("keyword")
itemnum=CInt(request("num"))
currentpage=request("qpagenum")
startpage=request("qstartpage")
Set objconn=server.CreateObject("adodb.connection")
objconn.open "provider=sqloledb; data source=(local); initial catalog=board; user id=sa; password=1234"
strsql="select num, subject, uid, regdate, hits, contents from btable where num="& itemnum
Set rs=objconn.execute(strsql)
contents=Replace(rs("contents"), Chr(13)&Chr(10),"<br>")
itemhits=rs("hits")
subject=rs("subject")
If keytype="subject" Then
subject=Replace(subject, keyword,"<b>" & keyword & "</b>")
ElseIf keytype="contents" Then
contents=Replace(contents, keyword, "<b>" & keyword & "</b>")
End If
%>

<html>
<head>
<title>검색 게시물 보기</title>
<style type=text/css>

</style>
</head>

<body>
<center><h2>검색 게시물 보기</h2></center>
<table width="600" border="0" cellspacing=0>
<tr>
<td align="left" bgcolor="gray">
<font color="white">번호:<%=rs("num")%>   
작성자 : <%=rs("uid")%>   
날짜 : <%=rs("regdate")%></font>
</td>
<td align="right" bgcolor="gray">
<font color="white">조회수:<%=itemhits+1%></font>
</td>
</tr>
</table>
<table border="0" height="200" width="600">
<tr>
<td> 제목 : <%=subject%></td>
</tr>
<tr valign="top">
<td height=190><%=contents%></td>
</tr>
<tr bgcolor="gray" height="1">
<td></td>
</tr>
</table>
<br>
<table border="0" width="600">
<tr>
<td align="center">
[<a href="list_search.asp?qpagenum=<%=currentpage%>&qstartpage=<%=startpage%>&keytype=<%=keytype%>&keyword=<%=keyword%>">search list</a>]
[<a href="list_update.asp?num=<%=rs("num")%>&qpagenum=<%=currentpage%>&qstartpage=<%=startpage%>">modify</a>]
[<a href="list_delete.asp?num=<%=rs("num")%>&qpagenum=<%=currentpage%>&qstartpage=<%=startpage%>">delete</a>]
</td>
</tr>
</table>
</body>
</html>
<%
strsql="update btable set hits=hits+1 where num =" & itemnum
objconn.execute strsql
objconn.close
Set objconn=Nothing
%>

//list_update.asp
<%
itemnum=CInt(request("num"))
currentpage=request("qpagenum")
startpage=request("qstartpage")
Set objconn=server.CreateObject("adodb.connection")
objconn.open "provider=sqloledb; data source=(local); initial catalog=board; user id=shopmanager; password=qwer1234"
strsql="select num, subject, uid, regdate, hits, contents from btable where num=" & itemnum
Set rs=objconn.execute(strsql)
%>

<html>
<head>
<title>게시물 수정</title>
<style type=text/css>

</style>
</head>
<body>
<center><h2>게시물 수정</h2></center><br>
<form action="list_updateproc.asp" method="post">
<table align="center" width=500 border="0">
<tr>
<td bgcolor="gray" align=center width=15%>
<font color="white">작성자</font>
</td>
<td width=85%>
<input type="text" name="user" value="<%=rs("uid")%>">
</td>
</tr>
<tr>
<td bgcolor="gray" align=center width=15%>
<font color="white">제목</font>
</td>
<td width=85%>
<input type="text" name="title" value="<%=rs("subject")%>">
</td>
</tr>
<tr>
<td bgcolor="gray" align=center width=15%>
<font color="white">내용</font>
</td>
<td width=85%>
<textarea name="contents" rows="10" cols="60"><%=rs("contents")%></textarea>
</td>
</tr>
</table>
<input type="hidden" name="num" value="<%=itemnum%>">
<input type="hidden" name="qpagenum" value="<%=currentpage%>">
<input type="hidden" name="qstartpage" value="<%=startpage%>">
<br>
<p align="center">
[<a href="list.asp?qpagenum=<%=currentpage%>&qstartpage=<%=startpage%>">list</a>]
<input type="submit" value="수정">
<input type="reset" value="취소">
</p>
</form>
</body>
</html>

<%
objconn.close
Set objconn=Nothing
%>

//list_updateproc.asp
<%
itemnum=CInt(request("num"))
currentpage=request("qpagenum")
startpage=request("qstartpage")
title=Trim(request("title"))
title=Replace(title,"'","''")
userid=request("user")
contents=request("contents")
contents=Replace(contents,"'","''")
Set objconn = server.CreateObject("adodb.connection")
objconn.open "provider=sqloledb; data source=(local); initial catalog=board; user id=shopmanager; password=qwer1234"
strsql="update btable set "
strsql=strsql&"subject='"&title&"',"
strsql=strsql&"uid='"&userid&"',"
strsql=strsql&"regdate=getdate(),"
strsql=strsql&"contents='"&contents&"'"
strsql=strsql&"where num="&itemnum
objconn.execute strsql
response.redirect"list.asp?qpagenum="&currentpage&"&qstartpage="&startpage

objconn.close
Set objconn=Nothing
%>

//list_view.asp
<%
itemnum=CInt(request("num"))
currentpage=request("qpagenum")
startpage=request("qstartpage")
Set objconn=server.CreateObject("adodb.connection")
objconn.open "provider=sqloledb; data source=(local); initial catalog=board; user id=shopmanager; password=qwer1234"
strsql="select num, subject, uid, regdate, hits, contents from btable where num="&itemnum
Set rs=objconn.execute(strsql)
contents=Replace(rs("contents"), Chr(13)&Chr(10),"<br>")
itemhits=rs("hits")
%>

<html>
<head>
<title>게시물보기</title>
<style type=text/css>

</style>
</head>
<body>
<center><h2>게시물 보기</h2></center>
<table width="600" border="0" cellspacing=0>
<tr>
<td align="left" bgcolor="gray">
<font color="white">번호 : <%=rs("num")%>   
작성자: <%=rs("uid")%>   
날짜 : <%=rs("regdate")%></font>
</td>
<td align="right" bgcolor="gray">
<font color="white">조회수 : <%=itemhits+1%></font>
</td>
</tr>
</table>

<table border="0" hight="200" width="600">
<tr><td><b>제목: <%=rs("subject")%></b></td></tr>
<tr valign="top"><td height=190><%=contents%></td></tr>
</table>
<br>
<table border="0" width="600">
<tr>
<td align="center">
[<a href="list.asp?qpagenum=<%=currentpage%>&qstartpage=<%=startoage%>">list</a>]
[<a href="list_update.asp?num=<%=rs("num")%>&qpagenum=<%=currentpage%>&qstartpage=<%=startpage%>">modify</a>]
[<a href="list_delete.asp?num=<%=rs("num")%>&qpagenum=<%=currentpage%>&qstartpage=<%=startpage%>">delete</a>]
</td>
</tr>
</table>
</body>
</html>
<%
strsql="update btable set hits = hits+1 where num = " & itemnum
objconn.execute strsql
objconn.close
Set objconn=Nothing
%>

7강_asp 회원로그인 학사정보입력

Wed, 26 Nov 2008 20:19:11 +0900

//mckeck.inc
<%
mcheck = session("userid")
if(mcheck = "") then
response.redirect "mlogin.htm"
end if
%>

//mdelete.asp
<%
uid = session("userid")
Set objconn = server.CreateObject("adodb.connection")
objconn.open "provider=sqloledb; data source=(local); initial catalog=member; user id=shopmanager; password=qwer1234"
strsql="delete from mtable where id = '" & uid & "'"
objconn.execute strsql, cnt
If cnt Then
response.write"회원탈퇴<br>"
response.write"3초후"
End If
%>
<meta http-equiv="refresh" content=3; url="mlogin.htm">
<%
objconn.close
Set objconn = Nothing
%>

//member.asp
<html>
<head><title>회원전용페이지</title></head>
<body>
<center><h2>회원전용</h2></center>
<hr>
<p><font size=3><%=session("name")%> 회원님,
회원전용 서비스를 이용가능 </font></p>
회원전용메뉴<br>
[<a href="mupdate.asp">회원 정보 수정</a> | 
<a href="mlogout.asp">로그아웃</a> | 
<a href="mdelete.asp">회원탈퇴</a>]
</body>
</html>

//minsert.htm
<html>
<head><title>회원가입</title></head>
<body>
<font size=3>회원정보 입력</font>
<hr>
<form method="post" action="minsert_proc.asp">
<table border=0 cellpadding=0 cellspacing=0>
<tr>
<td align=right>사용자id:</td>
<td>  <input type="text" name=id size=15</td>
</tr>
<td align=right>비밀번호:</td>
<td>  <input type="password" name=password size=15</td>
</tr>
<td align=right>이름:</td>
<td>  <input type="text" name=mname size=15</td>
</tr>
<td align=right>이멜주소:</td>
<td>  <input type="text" name=email size=30</td>
</tr>
<tr>
<td align=right><input type="reset" value="취소"></td>
<td>  <input type="submit" value="회원등록"></td>
</tr>
</table>
</form>
</body>
</html>

<%
userid = request.Form("id")
pwd = request.Form("password")
username = request.Form("mname")
useremail = request.Form("email")
Set objconn = server.CreateObject("adodb.connection")
objconn.open "provider=sqloledb; data source=(local); initial catalog=member; user id=shopmanager; password=qwer1234"
strsql = "insert into mtable(id,pass,name,email) values('"
strsql = strsql & userid & "','"
strsql = strsql & pwd & "','"
strsql = strsql & username & "','"
strsql = strsql & useremail & "')"
objconn.execute strsql
response.redirect "mlogin.htm"
objconn.close
Set objconn = Nothing
%>

//mlogin.htm
<html>
<head><title>로그인</title></head>
<body>
<font size=3>사용자 id와 비밀번호 입력</font>
<hr>
<form method="post" action="mlogin_proc.asp">
<table border=0 cellpadding=0 cellspacing=0>
<tr>
<td align=right>사용자 id:</td>
<td>  <input type="text" name=id size=15></td>
</tr>
<tr>
<td align=right>비번:</td>
<td>  <input type="password" name=password size=15></td>
</tr>
<tr>
<td><a href="minsert.htm">회원가입</a></td>
<td>  <input type="submit" name="로그인" size=15></td>
</tr>
</table>
</form>
</body>
</html>

//mlogin_proc.asp
<%
userid = request.form("id")
pwd = request.form("password")
set objconn = server.createobject("adodb.connection")
objconn.open "provider=sqloledb; data source=(local); initial catalog=member; user id=shopmanager; password=qwer1234"
set objrs = server.createobject("adodb.recordset")
strsql = "select id, pass, name from mtable where id = '" & userid & "'"
objrs.open strsql, objconn

if not objrs.eof then
if pwd = objrs("pass") then
session("userid")=objrs("id")
session("pwd")=objrs("pass")
session("name")=objrs("name")
response.redirect "member.asp"
else
response.redirect "minsert.htm"
end if
else
response.redirect"minsert.htm"
end if
objrs.close
set objrs = nothing
objconn.close
set objconn = nothing
%>

//mlogout.asp
<%
session("userid") = ""
session("pwd") = ""
session("name") = ""
response.write "로그아웃됨"
%>
<meta http-equiv="refresh" content=3; url="mlogin.htm">

//mupdate.asp
<%
set objconn=server.createobject("adodb.connection")
objconn.open "provider=sqloledb; data source=(local); initial catalog=member; user id=shopmanager; password=qwer1234"
strsql="select * from mtable where id = '" & session("userid") & "'"
set rs=objconn.execute(strsql)
%>

<html>
<head><title>회원정보수정</title></head>
<body>
<font size=3>회원정보 수정</font>
<hr>
<form method="post" action="mupdate_proc.asp">
<table border=0 cellpadding=0 cellsoacing=0>
<tr>
<td align=right>사용자 ID:</td>
<td>  <input type="text" name=id size=15 value="<%=rs("id")%>"></td>
</tr>
<tr>
<td align=right>비밀번호:</td>
<td>  <input type="password" name=password size=15 value="<%=rs("pass")%>"></td>
</tr>
<tr>
<td align=right>이름:</td>
<td>  <input type="text" name=mname size=15 value="<%=rs("name")%>"></td>
</tr>
<tr>
<td align=right>이메일주소:</td>
<td>  <input type="text" name=email size=30 value="<%=rs("email")%>"></td>
</tr>
<tr>
<td align=right><input type="reset" value="취소"></td>
<td>  <input type="submit" value="수정"></td>
</tr>
<table>
</form>
</body></html>
<%
rs.close
set rs=nothing
objconn.close
set objconn=nothing
%>

//mupdate_proc.asp
<%
userid=request.Form("id")
pwd=request.Form("password")
username=request.Form("mname")
useremail=request.Form("email")
Set objconn=server.CreateObject("adodb.connection")
objconn.open "provider=sqloledb; data source=(local); initial catalog=member; user id=shopmanager; password=qwer1234"
strsql="update mtable set "
strsql=strsql&"id='"&userid&"',"
strsql=strsql&"pass='"&pwd&"',"
strsql=strsql&"name='"&username&"',"
strsql=strsql&"email='"&useremail&"'"
strsql=strsql&"where id='"&userid&"'"
//response.Write strsql
objconn.execute strsql, cnt

If cnt Then
response.write "회원 정보가 수정되었습니다.<br>"
response.write "3초"
End If
%>
<meta http-equiv="refresh"content=3;url="member.asp">
<%
objconn.close
Set objconn=Nothing
%>

//stform.html
<html>
<head>
<title>학사정보검색</title>
<style type=text/css>

</style>
</head>

<body>
<center><h2>검색정보</h2></center>
<form action="stsea.asp" method="get">
<table align="center" width=580 border="0">
<tr><td colspan=2> 검색할 학생의 정보 </td></tr>
<tr bgcolor="lightgreen">
<td align=center width="20%">이름</td>
<td width="80%"><input type="text" name="name" size=60></td>
</tr>
<tr bgcolor="lightgreen">
<td align=center width="20%">학과</td>
<td width="80%"><input type="text" name="dept" size=10></td>
</tr>
</table>
<br>
<p align="center">
<input type=hidden name=totsum value="<%=totsum%>">
<input type="submit" value="입력">
<input type="reset" value="취소">
</p>
</form>
</body>
</html>

//stsea.asp
<%
name = request.querystring("name")
dept = request.querystring("dept")
set objconn = server.createobject("adodb.connection")
objconn.open"provider=sqloledb; data source=(local); initial catalog=testdb; user id=asp_user; password=1234"
set objrs = server.createobject("adodb.recordset")
strsql = "select num, name, dept, credit from freshman where name = '" & name & "' and dept = '"& dept &"'"
objrs.open strsql, objconn
set strnum = objrs("num")
set strname = objrs("name")
set strdept = objrs("dept")
set strcredit = objrs("credit")

do until objrs.eof
response.write strnum & " : " & strname & "학생의 학과는 " & strdept & " 이고 학점은 " &strcredit & " " & "<br>"
objrs.movenext
loop

objrs.close
set objrs = nothing
objconn.close
set objconn = nothing
%>

6강_asp

Wed, 26 Nov 2008 19:49:27 +0900

//acon.asp
<%
application("globaldept") = "연습"
application("globalemail") = "user1@a.com"
application("globalcount") = "12345"
for each i in application.contents
response.write i & "의 값은" & " = " & application.contents(i) & "<br>"
next
%>

//acon2.asp
<%
application("acount")=10
application("bcount")=20
for each i in application.contents
response.write i & "의 값은" & " = " & application.contents(i) & "<br>"
next
response.write"--정상출력<br><br><br>"

application("acount")=10
application("bcount")=20
appliction.contents.remove("acount")
for each i in application.contents
response.write i & "의 값은" & " = " & application.contents(i) & "<br>"
next
response.write"--acount해제후출력<br><br><br>"

application("acount")=10
application("bcount")=20
appliction.contents.removeall()
for each i in application.contents
response.write i & "의 값은" & " = " & application.contents(i) & "<br><br>"
next
response.write" 모두해제후출력<br><br><br>"
%>

//aobj.asp
<%
application("count")=application("count")+1
response.write"현재 app변수인 count값은" & application("count") & "입니다."
%>

<% response.write"<h1>asp 인식성공</h1>" %>

//global.asa
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
    Application("VisitUser")=0
End sub
Sub Session_OnStart
    Application.Lock
    Application("VisitUser") = Application("VisitUser") +1
    Application.Unlock
End sub
Sub Session_OnEnd
    Application.Lock
    Application("VisitUser") = Application("VisitUser") -1
    Application.Unlock
   End Sub
</SCRIPT>

//globaltest.asp
<%
Response.Write "SessionID : "& Session.SessionID & "<BR>"
Response.Write "현재 방문자 수는 " & Application("VisitUser")
Session.Abandon
'Response.Abandon
%>

//gtest.asp
<%
response.write "sessionid : " & session.sessionid & "<br>"
response.write "현접속자" & application("visituser")
session.abandon
'response.abandon
%>

//inform.html
<html>
<head>
<title>학사정보</title>
<style type=txt/css>



</style>
</head>

<body>
<center><h2>학사 정보</h2></center>
<form action="insert.asp" method="post">
<table align="center" width=580 border="0">
<tr><td colspan=2> 학사 정보를 입력해 주세요 </td></tr>
<tr bgcolor="lightgreen">
<td align=center width\"20%"> 학번</td>
<td width="80%"><input type="text" name\"num" size=50></td>
</tr>
<tr bgcolor="lightgreen">
<td align=center width="20%"> 이름</td>
<td width="80%"><input type="text" name="name" size=60></td>
</tr>
<tr bgcolor="lightgreen">
<td align = center width="20%">학과</td>
<td width="80%"><input type="text" name="dept" size=10></td>
</tr>
<tr bgcolor="lightgreen">
<td align = center width="20%">학점</td>
<td width="80%"><input type="text" name="credit" size=20></td>
</tr>
</table>

<br>
<p align="center">
<input type=hidden name=totsum value="<%=totsum%>">
<input type="submit" value="입력">
<input type="reset" value="취소">
</p>
</form>
</body>
</html>

//insert.asp
<%
dept=request("dept")
name=request("name")
num=request("num")
credit=request("credit")
set objconn=server.createobject("adodb.connection")
objconn.open "provider=sqloledb;data source=(local);initial catalog=testdb;user id=asp_user;password=1234"

strsql="insert into freshman values('"
strsql=strsql & num & "','"
strsql=strsql & name & "','"
strsql=strsql & dept & "','"
strsql=strsql & credit & "')"
objconn.execute strsql

objconn.close
set objconn = nothing
%>

<html>
<head>
<title> 입력화면</title>
<style tpye=text/css>

</style>
</head>

<body>
<center><h2>입력완료</h2></center>
<table align="center" width=600 border="0" cellspacing="2" cellpadding="1">
<tr>
<td bgcolor="gray" height=2></td>
</tr>
<tr>
<td><%=name%> 학사정보 입력완료<br>
<p><b>확인정보</b><br>
수정해
</p>
</td>
</tr>
<tr>
<td bgcolor="gray" height=2></td>
</tr>
</table>
</body>
</html>

//lock.asp
<%
if application("count") = "" then application("count") = 0
end if

application.lock
application("count") = apllication("count")+1
application.unlock
response.write"방문자수는" & application("count") & "명입니다."
%>

//sess2.asp
<%
response.write "당신의 sid는" & session.sessionid& "입니다.<br>"
session("globaldept")="연습"
response.write session("globaldept") & "<br>"
session.abandon
%>

<%
response.write "당신의 sessionid는" & session.sessionid & "입니다.<br>"
response.write session("globaldept") & "<br>"
session.abandon
%>

//sess.asp
<%
response.write"당신의 sid는" & session.sessionid& "이다.<br>"
response.write"현재 timeout:" & session.timeout &"(분)<br>"
session.timeout = 1
response.write session.timeout & "(분) 뒤에 세션이 끊어집니다.<br>"
session.abandon
%>

//sobj.asp
<%
session("count")=session("count")+1
response.write"현재 session 변수인 count의 값은" & session("count") &"입니다."
%>

//sql_ole.asp
<html>
<body>
<h2>레코드검색하기</h2>
<hr><br>

<%
strcon = "Provider=SQLOLEDB; Data Source=(local); User id=asp_user; \
Initial Catalog=testdb; Password=1234"
set objconn = server.createobject("adodb.connection")
objconn.open strcon
set objrs = server.createobject("adodb.recordset")
strsql = "select name, credit from freshman where dept = '컴퓨터공학'"
objrs.open strsql, objconn
set strname = objrs("name")
set strcredit = objrs("credit")

do until objrs.eof
response.write strname & " " & strcredit & "<br>"
objrs.movenext
loop

objrs.close
set objrs=nothing
objconn.close
set objconn=nothing
%>

</body>
</html>

//sqlodbc.asp
<html>
<body>
<h2>레코드 추가</h2>
<hr><br>

<%
set objconn = server.createobject("adodb.connection")
objconn.open "dsn=sqlgrade;uid=asp_user;pwd=1234"
strsql = "insert into freshman(num,name,dept,credit)values('20060003','천재','전산학과',3.00)"
objconn.execute strsql, resinsert, adcmdtext+adexecutenorecords
response.write "데이터 원본에" & resinsert & "개의 레코드를 추가했습니다."
objconn.close
set objconn=nothing
%>

</body>
</html>

//sqlole.asp
<html>
<body>
<h2>레코드검색하기</h2>
<hr><br>

<%
strCon = "Provider=SQLOLEDB; Data Source=(local); User id=asp_user; Initial Catalog=testdb; Password=1234"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strCon
set objRs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT name, credit FROM freshman WHERE dept = '컴공'"
objRs.Open strSQL, objConn
Set strName = objRs("name")
Set strCredit = objRs("credit")

Do Until objrs.EOF
Response.Write strName & " " & strCredit & "<br>"
objRs.MoveNext
Loop

objRs.Close
set objRs=Nothing
objConn.Close
set objConn=Nothing
%>

</body>
</html>

5강_asp

Wed, 26 Nov 2008 19:39:47 +0900

<html>
<body>

<%
dim stringvar, intvar
`stringvar = "1004"
`response.write stringvar & "<br>"
`intvar = "1000"
`response.write stringvar+intvar

<br>
<br>
<br>
stringvar = 1004
intvar = 1000
response.write stringvar+intvar
<br>
<br>
<br>
`stringvar = 1004
`intvar = "1000"
`response.write stringvar+intvar
%>

</body>
</html>

<html>
<body>

<%
dim babo1, babo2, babo3
babo1 = "영구"
babo2 = "맹구"
babo3 = "땡구"
babo4 = "만구"
babo5 = "명구"

response.write babo1 & "<br>"
response.write babo2 & "<br>"
response.write babo3 & "<br>"
response.write babo4 & "<br>"
response.write babo5 & "<br>"
%>

</body>
</html>

<html>
<body>

<%
dim babo(4)
babo(0) = "영구"
babo(1) = "맹구"
babo(2) = "땡구"
babo(3) = "만구"
babo(4) = "명구"

for i=0 to 4
response.write babo(i) & "<br>"
next
%>

</body>
</html>

<html>
<body>

<%

dim score, greade
score = 76
if score >=90 then
    grade = "a"
elseif score >=80 then
    grade = "b"
elseif score >=70 then
    grade = "c"
elseif score >=60 then
    grade = "d"
elseif score <60 then
    grade = "꺼져!"
end if
response.write "당신의 학점은 "& grade&" 입니다."

%>

</body>
</html>

<html>
<body>

<%

dim score, greade
score = 70
select case score
    case 100,99,98,97,96,95
    grade = "a+"
    case 94,93,92,91,90
    grade = "a"
    case 89,88,87,86,85
    grade = "b+"
    case 84,83,82,81,80
    grade = "b"
    case else
    grade = "꺼져!"
end select
response.write "당신의 학점은 "& grade&" 입니다."

%>

</body>
</html>

<html>
<body>

<%

dim sum,i
do while i <= 10
response.write "더하기전 i 변수의 값 =" &i& "<br>"&"더하기전 sum변수의 값 = "&sum&"<br>"
sum = sum + i
i = i+1
response.write "더한후 i 변수의 값 =" &i& "<br>"&"더한후 sum변수의 값 = "&sum&"<br>"
loop

%>

</body>
</html>

<html>
<body>

<%

dim i
response.write "카운트다운<br>"
for i = 1 to 10 step 2
response.write "숫자" & i & "은 홀수입니다<br>"
next

%>

</body>
</html>

<html>
<body>

<%

dim ad(3)
ad(0) = "뭐임"
ad(1) = "뭥미"
ad(2) = "쓰렐키"
for each i in ad
response.write i & "<br>"
next

%>

</body>
</html>

<html>
<body>

<h3> 아이디랑 비번넣어 </h3>
<form method=post action="setcookie.asp">
아이디 : <input type=text name=userid value="<%=request.cookies("userid")%>">
<br> <input type = submit value = "로그인">
<br> <input type = reset value = "취소">
</form>
</body>
</html>

<%
strname=request.form("name")
strdept=request.form("dept")
%>

<html>
<body>
<table border=0>
<tr><td>이름:</td><td><%=strname%></td></tr>
<tr><td>학과:</td><td><%=strdept%></td></tr>
</table>
</body>
</html>

<html>

<body>
<center><h2> form </h2></center>
<br>
<form method = "post" action = "form.asp">
이름 : <input type ="text" name="name" size="20"><br>
학과명 : <input type ="text" name ="dept" size="20"><br>
<input type=submit value="전송">
<input type=reset value="취소">
</form>
</body>
</html>

<html>
<body>
<script>document.write(document.cookie)</script></br>
<%
response.write userid & "왔구나?."
response.cookies("userid").expires=date+1
%>

</form>
</body>
</html>

<html>
<body>

<%
userid = request.form("userid")
response.cookies("userid")=userid
response.write userid & "왔구나?."
response.cookies("userid").expires=date+1
'response.redirect"cookie.asp"
%>

</form>
</body>
</html>

4강_asp

Wed, 19 Nov 2008 19:58:04 +0900

ASP
- 마이크로 소프트에서 개발한 웹페이지 개발환경
- jscript 또는 vbscript 사용
- ADO 컴포넌트 사용

//ccs1.html
<html>
<body>
<h2>클라이언트 사이드 스크립트 예제1 </h2>
<hr> 오른쪽버튼을 누르세요
<input type="button" name="test1" value="눌러">
<script language="vbscript">
sub test1_onclick
alert "클릭이벤트발생"
end sub
</script>
</body>
</html>

<html>
<body>
<h2> 클라이언트 사이드 스크립트2 </h2>
<script language=vbscript>
document.write"<p>vbscript :"
document.write time
</script>
</body>
</html>

<html>
<body>

<h2> 서버사이드 스크립트 예제1 </h2>
<%
response.write"<p>vbscript:"
response.write time
%>
</body>
</html>