<%@ LANGUAGE="VBSCRIPT" %>
<%
Response.Buffer=true
strConnect = "DSN=patentkimsdb;UID=;PWD=;"
part = request("part")
searchkey = request("searchkey")
page = request("page")
number=cint(Request("number"))
ref=cint(Request("ref"))
Set DbCon=Server.CreateObject("ADODB.Connection")
DbCon.Open (strConnect)
SQL="SELECT * FROM qna WHERE number = " & number
Set rs=Server.CreateObject("ADODB.Recordset")
rs.CursorType=3
rs.Open SQL , DbCon
if not rs.eof then
visited=cint(rs("visited"))
visited=visited+1
SQL="UPDATE qna SET visited= "& visited &" where number= " & number
Set rs2=DbCon.Execute(SQL)
content=rs("content")
content=Replace(content, "&" , "&")
' content=Replace(content, "<" , "<")
' content=Replace(content, ">" , ">")
content=Replace(content,chr(13),"
")
If searchkey = "" then
SQLstmt = "SELECT MAX(ref) as lastnum FROM qna"
Set Rs2 = DbCon.Execute(SQLstmt)
lastnumber = Rs2("lastnum")
rs2.close
SQLstmt = "SELECT MIN(ref) as firstnum FROM qna"
Set Rs2 = DbCon.Execute(SQLstmt)
firstnumber = Rs2("firstnum")
rs2.close
SQLstmt = "SELECT Max(number) as pnumber FROM qna WHERE ansnum < 1 and ref < " & ref
Set Rs2 = DbCon.Execute(SQLstmt)
prevnumber = Rs2("pnumber")
rs2.close
SQLstmt = "SELECT Min(number) as nnumber FROM qna WHERE ansnum < 1 and ref > " & ref
Set Rs2 = DbCon.Execute(SQLstmt)
nextnumber = Rs2("nnumber")
rs2.close
Else
SQLstmt = "SELECT MAX(ref) as lastnum FROM qna where "&part&" like '%"&searchkey&"%'"
Set Rs2 = DbCon.Execute(SQLstmt)
lastnumber = Rs2("lastnum")
rs2.close
SQLstmt = "SELECT MIN(ref) as firstnum FROM qna where "&part&" like '%"&searchkey&"%'"
Set Rs2 = DbCon.Execute(SQLstmt)
firstnumber = Rs2("firstnum")
rs2.close
SQLstmt = "SELECT Max(number) as pnumber FROM qna WHERE ansnum < 1 and ref < " & ref & " and "&part&" like '%"&searchkey&"%'"
Set Rs2 = DbCon.Execute(SQLstmt)
prevnumber = Rs2("pnumber")
rs2.close
SQLstmt = "SELECT Min(number) as nnumber FROM qna WHERE ansnum < 1 and ref > " & ref & " and "&part&" like '%"&searchkey&"%'"
Set Rs2 = DbCon.Execute(SQLstmt)
nextnumber = Rs2("nnumber")
rs2.close
End if
%>
 내용보기
|
| 번호 |
<%=rs("number")%> |
작성자 |
<%if rs("email")="" then%><%=rs("writer")%><%else%>"><%=rs("writer")%><%end if%> |
날짜 |
<%=rs("date")%> |
조회 |
<%=visited%> |
![]() |
| 제 목 : <%=rs("subject")%> |
![]() |
<%=content%> |
|
<%
if rs("tn") > 0 or rs("ansnum") > 0 then
sql = "SELECT * FROM qna where ref= " & ref & " ORDER BY ref DESC, ansnum ASC"
Set rs2=Server.CreateObject("ADODB.Recordset")
rs2.CursorType=3
rs2.Open sql, dbcon
n=1
ncolor=1
%>
관련글보기 |
| 번호 |
제목 |
작성자 |
조회 |
날짜 |
<%
do until rs2.eof
subject = replace(rs2("subject"),""","'")
If Len(subject) > 40 Then
subject = Mid(subject,1,37) & "..."
End If
'바탕색 만들기
if ( ncolor mod 2 ) = 0 then
rscolor1 = "F4FAFF"
rscolor2 = "def1fb"
else
rscolor1 = "F4FAFF"
rscolor2 = "FFFFFF"
end if
'바탕색 만들기
%>
| <%if left(now,10) = left(rs2("date"),10) then%><%=n%><%else%><%=n%><%end if%> |
<%if rs2("step") > 0 then%> " border="0"> <%end if%>
&ref=<%=rs2("ref")%>&page=<%=page%>&part=<%=part%>&searchkey=<%=searchkey%>"><%=subject%> |
<%if rs2("email")="" then%><%=rs2("writer")%><%else%>"><%=rs2("writer")%><%end if%> |
<%=rs2("visited")%> |
<%=left(rs2("date"),10)%> |
<%
n=n+1
rs2.MoveNext
Loop
%>
|
<% end if
end if
rs.Close
DbCon.Close
set rs = nothing
set DbCon = nothing
%>
&page=<%=page%>&part=<%=part%>&searchkey=<%=searchkey%>">
<% else %> 
<% else %>