<%
Response.Expires = -1
Response.Expiresabsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
'스펨처리 list.asp에서 쿠키 설정----------------------------------
SpPass = request.cookies("SpPass")
If SpPass <> ")(*&^%$#@!" Then
response.redirect "http://"
End If
'스펨처리 list.asp에서 쿠키 설정----------------------------------
strCode = ReplaceString(Request("Code"))
mode = ReplaceString(Request("mode"))
sid = ReplaceString(Request("sid"))
page = ReplaceString(Request("page"))
clumn_name = ReplaceString(Request("sKey"))
strText = ReplaceString(Request("sText"))
sp = "!@#$%^"
Page_Color = ""
Font_Color = "#FFFFFF"
If sid <> "" Then
Set Rs=Server.CreateObject("ADODB.RecordSet")
strSQL="Select * from "& strCode &" Where sid= "&sid
RS.Open strSQL,db,1
if Not(Rs.Eof or Rs.Bof) Then
sid = Rs("sid")
subject = Rs("subject")
name = Rs("name")
notice = Rs("notice")
contents = Rs("contents")
password = Rs("password")
ip= Rs("ip")
visited = Rs("visited")
writeday = Rs("writeday")
filename = Rs("filename")
filesize = Rs("filesize")
contents = replace(contents,"&","&")
contents = replace(contents,"<","<")
contents = replace(contents,">",">")
End If
if notice = "1" Then
notice_checked = "checked"
else
notice_checked = ""
End IF
End If
If ip <> "" Then
ip_ = Split(ip,".")
ip = ip_(0)&"."&ip_(1)&".xxx."&ip_(3)
Else
ip = ""
End If
If mode = "edit" Then
Response.cookies("board_cookie")="" 'num값대신쓰닝 쿠키 지운다
response.cookies("C_Cont_num") = sid '글쓰기하고 답변하기는 넘을 넘기지 않고 쿠키를 넘긴다 ,수정입력은 num을 넘긴다
response.cookies("C_strCode") = strCode
elseif mode="answer" then
Randomize '렌덤을 초기화 한다 '사진새로입력시 랜덤값을 넘긴다
rnd_mx = Int((100000000 * Rnd) + 1)
If Request.cookies("board_cookie") = "" Then
response.cookies("board_cookie")=rnd_mx
End If
Response.cookies("C_Cont_num")="" 'num값대신쓰닝 쿠키 지운다
Response.cookies("C_strCode") = strCode
if sort = "1" Then '게시판 top에 올라가는 색
notice_checked = "checked"
else
notice_checked = ""
End IF
'===========================================================================
'===========================================================================
name = ""
subject = "[Re]"&subject
contents = Replace(contents,Chr(13) & Chr(10),"> ")
contents = Replace(contents," "," > ")
contents = Replace(contents,"","> ")
contents = contents&"
"&ip&"
"
Rs.close
set Rs=nothing
'=============================================================================================
else
Randomize '렌덤을 초기화 한다 '사진새로입력시 랜덤값을 넘긴다
rnd_mx = Int((100000000 * Rnd) + 1)
If Request.cookies("board_cookie") = "" Then
response.cookies("board_cookie")=rnd_mx
End If
Response.cookies("C_Cont_num")="" 'num값대신쓰닝 쿠키 지운다
Response.cookies("C_strCode") = strCode
End if
%>
board