%@ 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 > °øÁö»çÇ× |
|
|
|
|