<%@LANGUAGE = VBSCRIPT%>
<%Option Explicit%>
<!-- #include virtual = "/Dbconnect/Dbconnect.asp"-->
<!-- #include virtual = "/Library/Function.asp" -->
<OBJECT RUNAT="Server" PROGID="ADODB.Connection" id="Function_Main_Con"></OBJECT>
<%
Function Index_List_Ok(Function_Board_Text,Function_Board_Name,Function_Board_Count,Function_Board_Img,Function_Left_Cut,Function_New_Img)
Function_Main_Con.Open DbConnect
Dim Function_Main_Rs, Function_Main_Sql, Function_Main_C, Function_Main_C_For
Dim Function_dateRegDate, Function_GetCutSubject, Function_strSubject
Function_Main_Sql = "Select Top " & Function_Board_Count & " "&_
"intSeq, strSubject, dateRegDate " &_
"from mplus_board " &_
"where " &_
"strBoardID = '" & Function_Board_Name & "' AND [bitDelete] = 0 AND [bitnotice] = 0 " &_
"order by dateRegDate desc"
'[bitBad] = 0 AND [bitCheck] = 1 order by dateRegDate desc")
set Function_Main_Rs = Server.CreateObject("Adodb.Recordset")
Function_Main_Rs.Open Function_Main_Sql,Function_Main_Con,1
If Function_Main_Rs.Eof Then
response.write "<tr><td align='center'>등록 된 " & Function_Board_Text & "이 없습니다.</td></tr>"
For Function_Main_C_For = 2 To Function_Board_Count
response.write "<tr><td> </td></tr>"
Next
Else
Function_Main_C = 0
Do Until Function_Main_Rs.Eof
Function_Main_C = Function_Main_C + 1
response.write "<tr><td width='12' height='18' align='center' valign='middle'>"
response.write "<img src='" & Function_Board_Img & "' border='0' /></td>"
response.write "<td width='*' height='18'>"
response.write "<a href=java**:Function_View_Go('" & Function_Board_Name & "','" & Function_Main_Rs("intSeq") & "');>" & GetCutSubject(Function_Main_Rs("strSubject"), Function_Left_Cut) & "</a>"
If Function_New_Img <> "" Then
IF GetNewBoardTime(24, Function_Main_Rs("dateRegDate")) = True Then
response.write "<img src='" & Function_New_Img & "' border='0' align='absmiddle' />"
End if
End if
response.write "</td>"
response.write "<td width='23%'>" & Right(GetDateType(1, Function_Main_Rs("dateRegDate")),8) & "</td></tr>"
Function_Main_Rs.MoveNext()
Loop
If Function_Main_C < Function_Board_Count Then
For Function_Main_C_For = Function_Main_C To Function_Board_Count
response.write "<tr><td colspan='3'> </td></tr>"
Next
End if
End If
Function_Main_Rs.close
Set Function_Main_Rs = Nothing
Function_Main_Con.Close
End Function
%><
번호 | 제목 | 닉네임 | 조회수 | 작성일 | |
---|---|---|---|---|---|
15 | TABS Upload 4.3 x86 - 4.0 x86 버전 입니다. .. | 최백호 | 3958 | 2011.12.20 | |
메인에 글뽑기;;; 함수로 만들어봤는데;;; [3] | 조성범 | 4040 | 2007.12.12 | ||
13 | 윈도우 2003 IIS 셋팅 및 권한부여 방법 [1] | 웹아티 | 4055 | 2006.04.06 | |
12 | SQL Injection 의 대응법 2탄 [프로그램 EXE] [4] | 최백호 | 4166 | 2008.11.27 | |
11 | ABC 업로드 컴포넌트 4.1 ^^ [3] | 김통령 | 4190 | 2007.01.31 | |
10 | 로그인 iframe 넣는 방법 [3] | 김통령 | 4246 | 2006.01.03 | |
9 | 아티보드 최신글 뽑기 추가 입니다.^^ [2] | 웹아티 | 4437 | 2005.12.23 | |
8 | 로그인 후 이전 페이지로 이동하는 팁입니다. [2] | 웹아티 | 4700 | 2008.12.10 | |
7 | 아티보드 최근 게시글 뽑기 소스 입니다. [4] | 웹아티 | 4719 | 2006.05.26 | |
6 | 아티보드 최신글 뽑기 강좌? 입니다. [3] | 웹아티 | 4866 | 2005.12.22 | |
5 | 게시판id를 인식하여 게시판마다 다른 태그를 넣는 방법 [7] | 김정만 | 4876 | 2009.03.03 | |
4 | 아티보드 처음 설치하시는 분들께 저의 설치기를 알려드립니다. [1] | 김태원 | 4964 | 2005.12.28 | |
3 | SQL Express 버전에서의 OLEDB 연결 [3] | 이재원 | 5088 | 2009.11.16 | |
2 | 회원 로그인 설치하기 (초보자용) [8] | 에버클럽 | 5118 | 2006.06.09 | |
1 | 공개웹방화벽을 이용한 홈페이지 보안 [6] | 최백호 | 5641 | 2008.05.19 |
댓글 3