ASP3.0 기초 강의실

시삽: 레드플러스 님 
게시판 이동:
 제목 : /Upload/BoardView.asp
글번호: 213
작성자: 레드플러스
작성일: 2004/10/11 오후 12:55:00
조회수: 9360
<%
'변수
Dim objCon: Dim objCmd: Dim objRs
'커넥션
Set objCon = Server.CreateObject("ADODB.Connection")
'오픈
objCon.Open(Application("CONNECTION_STRING"))
    '커멘드
    Set objCmd = Server.CreateObject("ADODB.Command")
    '액티브커넥션
    objCmd.ActiveConnection = objCon
    '커멘드 텍스트 1
    objCmd.CommandText = "Update Upload Set ReadCount = ReadCount + 1 Where Num = " & Request("Num")
    '명령 실행
    objCmd.Execute()
        '커멘드 텍스트 2
        objCmd.CommandText = "Select * From Upload Where Num = " & Request("Num")
        '명령 실행 및 레코드셋 반환
        Set objRs = objCmd.Execute()
            '모양 만들어 출력
            Call ShowRecordSet(objRs)
        '레코드셋 닫기
        objRs.Close()
        '레코드셋 해제
        Set objRs = Nothing
    '해제
    Set objCmd = Nothing
'닫기
objCon.Close()
'해제
Set objCon = Nothing
%>
<%
Sub ShowRecordSet(objRs)
%>
    <table border="1" width="100%">
<%
    If objRs.BOF Or objRs.EOF Then
%>
    <tr><td>입력된 데이터가 없습니다.</td></tr>
<%        
    Else
%>
    <tr><td>제목 : </td><td><%=objRs("Title")%></td></tr>
    <tr><td>작성자 : </td><td><%=objRs("Name")%></td></tr>
    <tr><td>작성일 : </td><td><%=objRs("PostDate")%></td></tr>
    <tr><td>다운횟수 : </td><td><%=objRs("DownCount")%></td></tr>
    
    <tr><td>파일 : </td>
    <td>
        <!--파일명만 출력-->
        <%=objRs("FileName")%>(<%=objRs("FileSize")%>)
    </td></tr>
    <tr><td>파일 : </td>
    <td>
        <!--일반 다운로드:이미지/HTML/TEXT는 웹브라우저에서 바로실행-->
        <a href="./files/<%=objRs("FileName")%>">
        <%=objRs("FileName")%>(<%=objRs("FileSize")%>)
        </a>
    </td></tr>
    <tr><td>파일 : </td>
    <td>
        <!--강제 다운로드:어떤 파일이든 무조건 다운로드 창 뜬다.-->
    <a href="./BoardDown.asp?strFileName=<%=objRs("FileName")%>">
    <%=objRs("FileName")%>(<%=objRs("FileSize")%>)
    </a>
    </td></tr>
    
    
    <tr><td colspan="2">
    <%
    Dim strContent: strContent = objRs("Content")
    'Text로 저장
    If objRs("Encoding") = "Text" Then
        'HTML 태그 제한
        strContent = Replace(strContent, "&", "&amp;")
        strContent = Replace(strContent, "<", "&lt;")
        strContent = Replace(strContent, ">", "&gt;")
        '엔터 처리
        strContent = Replace(strContent, Chr(13) & Chr(10), "<br>")
        'strContent = Replace(strContent, vbCrLf, "<br>")
    ElseIf objRs("Encoding") = "Mixed" Then
        '엔터 처리
        strContent = Replace(strContent, Chr(13) & Chr(10), "<br>")
    Else
        '//strContent = objRs("Content")
    End If    
    '출력
    Response.Write(strContent)
    %>    
    </td></tr>
<%
    End If
%>
    <tr><td colspan="2" align="center">
    
    <a href="BoardModify.asp?Num=<%=Request("Num")%>">수정</a>
    <a href="BoardDelete.asp?Num=<%=Request("Num")%>">삭제</a>
    <a href="BoardList.asp">리스트</a>
    
    </td></tr>
    </table>
<%
End Sub
%>
 
이전 글   다음 글 삭제 수정 답변 글쓰기 리스트

(댓글을 남기려면 로그인이 필요합니다.)

관련 아티클 리스트
  제       목 파일 작성자 작성일 조회
이전글 23. 쿠키 실습 예제 RequestResponseCookies.asp(860 Byte(s)) 레드플러스 2002-11-07 6873
  22. 자료실 게시판 작성 프로젝트 - Red+ 2002-05-12 7097
  1. 자료실 게시판 테이블 설계 및 환경 설정 Upload.sql(2 KB) 레드플러스 2004-04-26 5954
  Upload.sql - 레드플러스 2004-10-05 5479
  /Upload/Global.asa - 레드플러스 2004-10-05 5583
  2. 입력 페이지 설계 - 레드플러스 2004-04-27 5199
  /Upload/BoardWrite.asp - 레드플러스 2004-10-05 5386
  3. 출력 페이지 설계 - 레드플러스 2004-04-27 4943
  /Upload/BoardList.asp - 레드플러스 2004-10-05 5079
  4. 세부 출력 페이지 설계 - 레드플러스 2004-04-27 5076
현재글 /Upload/BoardView.asp - 레드플러스 2004-10-11 9360
  5. 수정 페이지 설계 - 레드플러스 2004-04-27 5048
  6. 삭제 페이지 설계 - 레드플러스 2004-04-27 4997
  7. 검색 페이지 설계 - 레드플러스 2004-04-27 5053
  8. 다운로드 페이지 설계 - 레드플러스 2004-04-27 5182
  boarddown.asp : 파일 강제 다운로드 페이지 boarddown.asp(813 Byte(s)) 레드플러스 2004-04-27 8543
  9. Windows Server 2003에서 파일 업로드 용량 제한 문제 해결 방법 - 레드플러스 2004-11-01 8930
다음글 21. 파일 업로드 연습 - 관리자 2002-03-21 7271
 
손님 사용자 Anonymous (손님)
로그인 Home