|
|
|
<%
'Dim idx : idx = sqlCheck(request("idx"))
Dim NewGetTable , GetSeq
Dim GetPage, GetSearchPart, GetSearchStr
NewGetTable = "notices"
GetSeq = stripTag(request("seq"))
GetPage = stripTag(request("page"))
GetSearchPart = stripTag(request("SearchPart"))
GetSearchStr = stripTag(request("SearchStr"))
'³»¿ë Ãâ·Â
sql = "SELECT * FROM " & NewGetTable
sql = sql & " where p_idx = " & GetSeq
'sql = "SELECT * FROM dbo.syscolumns WHERE (id = OBJECT_ID('"&NewGetTable&"'))"
'response.write sql
set Rs = Con.execute(sql)
'response.write rs(0)
Dim GetBD_SEQ : GetBD_SEQ = Rs("p_idx")
Dim GetBD_NAME : GetBD_NAME = Rs("name")
Dim GetBD_EMAIL : GetBD_EMAIL = Rs("mailaddress")
Dim GetBD_SUBJECT : GetBD_SUBJECT = Rs("titles")
Dim GetBD_CONTENT : GetBD_CONTENT = Rs("content")
Dim GetBD_URL : GetBD_URL = Rs("websites")
Dim GetBD_BD_INPUTDATE: GetBD_BD_INPUTDATE = Rs("p_date")
Dim GetBD_READCOUNT : GetBD_READCOUNT = Rs("counts")
Dim Getbd_top : Getbd_top = Rs("bd_top")
Rs.close
'response.write GetBD_CONTENT
'ÆÄÀÏ Á¤º¸ Ãâ·ÂnoticesofBoard_pds
Sql = "select * from "& NewGetTable &"_pds"
Sql = Sql & " where FILE_BD_SEQ = '" & GetBD_SEQ & "' and FILE_BD_TABLE = '" & NewGetTable & "'"
'response.write sql
Set Rs = Con.Execute(Sql)
Dim GetFILE_NAME , GetFILE_SIZE , GetFileImage
if not (Rs.BOF or Rs.EOF) then
GetFILE_NAME = ""&Rs(3)
GetFILE=Rs(3)
GetFILE_SIZE = Rs(4)
GetFileImage = ""
Else
GetFILE_NAME = " "
GetFILE_SIZE = " "
GetFileImage = " "
end if
Rs.close
If Trim(GetFILE)<>"" Then
strext = mid(GetFILE_NAME,instrrev(GetFILE_NAME,".")+1)
If trim(strext) <> "" Then
Select Case trim(strext)
Case "zip"
icon_1 = " "
Case "xls"
icon_1 = " "
Case "txt"
icon_1 = " "
Case "pdf"
icon_1 = " "
Case "ppt"
icon_1 = " "
Case "hwp"
icon_1 = " "
Case "doc"
icon_1 = " "
Case "bmp"
icon_1 = " "
Case "gif"
icon_1 = " "
Case "jpg"
icon_1 = " "
Case "png"
icon_1 = " "
Case "GIF"
icon_1 = " "
Case "JPG"
icon_1 = " "
Case "JPEG"
icon_1 = " "
Case "jpeg"
icon_1 = " "
Case "PNG"
icon_1 = " "
Case Else
icon_1 = " "
End Select
End If
End If
Sql = "update " & NewGetTable & " set counts = counts + 1 where p_idx = " & GetSeq
Con.Execute(Sql)
Dim query
'response.write sql
query = ""
query = "select top 1 p_idx from "
query = query & NewGetTable & " where p_idx < "& GetBD_SEQ &" and bd_top <> '1' order by p_idx desc"
'response.write query
Set Rs = Con.Execute(query)
if not (Rs.BOF or Rs.EOF) then
Dim BD_SEQ_f : BD_SEQ_f = Rs(0)
End If
Rs.close
query = "select top 1 p_idx from "
query = query & NewGetTable & " where p_idx > "& GetBD_SEQ &" and bd_top <> '1' order by p_idx asc"
'response.write query
Set Rs = Con.Execute(query)
if not (Rs.BOF or Rs.EOF) then
Dim BD_SEQ_n : BD_SEQ_n = Rs(0)
End If
Rs.close
'response.write bd_seq_n
re_con = stripTag(GetBD_CONTENT)
Dim loc
loc = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("URL") & "?" & Request.ServerVariables("QUERY_STRING")
Dim new_contents
new_contents = Trim(Left(re_con,150))
Dim tURL_sns,tTitle_sns,tThumbN_sns,tSummary_sns,tSummary_sns_CY,tWriter_sns,tWriter_sns_CY
Dim tt_t_param,tt_u_param,m2_t_param,m2_u_param,fb_t_param,fb_u_param
tURL_sns = loc
tTitle_sns = GetBD_SUBJECT
tTitle_sns_CY = Server.URLEncode(strAnsi2Unicode(Base64encode(strUnicode2Ansi(sns_title))))
tThumbN_sns = "http://" & Request.ServerVariables("HTTP_HOST") & sns_thumbn
tSummary_sns = sns_summary
tSummary_sns_CY = Server.URLEncode(strAnsi2Unicode(Base64encode(strUnicode2Ansi(sns_summary))))
tWriter_sns = sns_writer
tWriter_sns_CY = Server.URLEncode(sns_writer)
tt_t_param = escape(tTitle_sns)
tt_u_param = escape(tURL_sns)
m2_t_param = escape(tTitle_sns)
m2_u_param = escape(tURL_sns)
fb_t_param = escape(tTitle_sns)
fb_u_param = escape(tURL_sns)
%>
<%
Dim tmp_time
tmp_time = Split(GetBD_BD_INPUTDATE,":")
If Trim(GetSearchStr) <> "" Then
re_subject = Replace(title,GetSearchStr,""&GetSearchStr&"")
re_content = Replace(GetBD_CONTENT,GetSearchStr,""&GetSearchStr&"")
Else
re_subject = title
re_content = GetBD_CONTENT
End If
'response.write "re_subject : " & re_content & " "
%>
<%= GetBD_SUBJECT %> |
<%= re_content %> |
|
<% If GetFILE_NAME <> "" Then %>
÷ºÎÆÄÀÏ |
<%=icon_1%> |
<% If Trim(GetFILE)<>"" then%><%=GetFILE_NAME%>(<% response.write Round(GetFILE_SIZE/1048576,3) & "Mbyte"%>) <%End if%> |
|
|
<% End If %>
|
|