<%@ Language=VBScript %> <% Option Explicit %> <% '디비 커넥션 %> <% '/디비 커넥션 %> <% Dim NewGetTable : NewGetTable = "noticesofBoard1" Dim GetPage : GetPage = request("page") Dim GetSearchPart : GetSearchPart = request("SearchPart") Dim GetSearchStr : GetSearchStr = request("SearchStr") Dim GetSeq : GetSeq = request("seq") '내용 출력 Sql = "select BD_SEQ, BD_THREAD , BD_DEPTH , BD_NAME, BD_EMAIL ,BD_SUBJECT, BD_CONTENT,BD_URL, BD_PASSWD , BD_INPUTDATE, BD_IP, BD_READCOUNT ,BD_STATE from " Sql = Sql & NewGetTable & " where BD_seq = " & GetSeq Set Rs = Con.Execute(Sql) Dim GetBD_SEQ : GetBD_SEQ = Rs(0) Dim GetBD_THREAD : GetBD_THREAD = Rs(1) Dim GetBD_DEPTH : GetBD_DEPTH = Rs(2) Dim GetBD_NAME : GetBD_NAME = Rs(3) Dim GetBD_EMAIL : GetBD_EMAIL = Rs(4) Dim GetBD_SUBJECT : GetBD_SUBJECT = Rs(5) Dim GetBD_CONTENT GetBD_CONTENT = "====================================================
[" GetBD_CONTENT = GetBD_CONTENT & GetBD_NAME & "님이 작성한 글]
" GetBD_CONTENT = GetBD_CONTENT & replace(Rs(6),"\n","\n>") GetBD_CONTENT = GetBD_CONTENT & "
====================================================
" Dim GetBD_URL : GetBD_URL = Rs(7) Dim GetBD_BD_PASSWORD : GetBD_BD_PASSWORD = Rs(8) Dim GetBD_BD_INPUTDATE: GetBD_BD_INPUTDATE = Rs(9) Dim GetBD_BD_IP : GetBD_BD_IP = Rs(10) Dim GetBD_READCOUNT : GetBD_READCOUNT = Rs(11) Dim GetBS_STATE : GetBS_STATE = Rs(12) Rs.close set rs = nothing %> PLM Best Practice Conference 2008 > PLM Community > 공지사항
현재위치 : HOME >PLM Community > 공지사항
 
제목
작성자 E-Mail
비밀번호 URL
 내 용
파일업로드