<%@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
%><
번호 | 제목 | 닉네임 | 조회수 | 작성일 |
---|
번호 : 95 |
번호 : 94 모바일에서 글등록이 안되나요? [1] |
번호 : 93 |
번호 : 92 사용자를 위한 팁 적용예... [3] |
번호 : 91 사진첨부 오류 [2] |
번호 : 90 사진청부 오류 도와주세요 [4] |
번호 : 89 |
번호 : 88 |
번호 : 87 |
번호 : 86 설치시 424에러가 뜰 경우 [3] |
번호 : 85 |
번호 : 84 |
번호 : 83 |
번호 : 82 |
번호 : 81 |
번호 : 80 |
번호 : 79 |
번호 : 78 |
번호 : 77 |
번호 : 76 아티보드 스킨제작 1탄 [2] |
댓글 3