<%
'option explicit
dim pidNum,dbcon,rs,getSQL,contents,num,userip,findname,ip,sql,prev_idx, next_idx,pid,rsne,group,rs2,pageNum,totalpage,uname
pidNum = request("pid")
g_id = request("g_id")
if pidNum = "" then
response.redirect "list.asp"
end if
Set dbcon = Server.CreateObject("ADODB.Connection")
dbcon.provider = "sqloledb"
dbcon.Open Session("ConnectString")
getSQL = "select * from com_gallery where pid=" & pidNum
set rs = dbcon.execute (getSQL)
'response.write rs("imgcnt")
'response.end
getSQL ="Update com_gallery set hitnum = hitnum + 1 where pid=" & pidNum
dbcon.execute(getSQL)
'=================================================
' 개행기능 추가
'=================================================
contents = replace(rs("contents"),chr(13) & chr(10)," ")
contents = replace(contents,"chr(124)_pipe","|")
SQL = "Select Min(pid) from com_gallery where pid > " & pidNum
Set rsne = dbcon.Execute(SQL)
if Not rsne.EOF then
prev_idx = rsne(0)
end if
SQL = "Select Max(pid) from com_gallery where pid < " & pidNum
Set rsne = dbcon.Execute(SQL)
if Not rsne.EOF then
next_idx = rsne(0)
end if
'sql2 = "select wname,contents,ip,wdate,uid from comment where pid=" & pidNum
'response.write sql2
'response.end
'set com = dbcon.execute (sql2)
Set uploadform = Server.CreateObject("DEXT.FileUpload")
'uploadform.DefaultPath = "e:\w007735\www\prodimage" '+주의+ 물리적 경로로 적어주어야 한다.
uploadform.DefaultPath = Server.MapPath("/")
sub ExistsImage(filename)
filepath = uploadform.DefaultPath & "\board\gallery_turkey\upimg\" & filename
if uploadform.FileExists(filepath) then
response.write ""
else
response.write " "
end if
end sub
%>
터키 피플 [INSIDE TURKEYPEOPLE]
<%
rs.close
'com.close
dbcon.close
set rs = nothing
'set com = nothing
set dbcon = nothing
%>