실시간 수속현황
국가별 이민수속현황, 향후 전망 등에 대해 안내해 드립니다.
<%
dim strKeyField
dim strKeyContent
strKeyField = Request.Form("KeyField")
strKeyContent = Request.Form("KeyContent")
If len(strKeyField) = 0 then
strKeyField = Request.QueryString("KeyField")
strKeyContent = Request.QueryString("KeyContent")
End if
Set Rs = Server.CreateObject("ADODB.RecordSet")
num=request.QueryString("Seqno")
page=request.QueryString("page")
if request("gubun")="" then
gubun=0
else
gubun=int(request("gubun"))
end if
%>
<%
strSQL = "Select Gm_Code, numbe, readnum, subject, content, " & _
"UserId, email, name, writedate, baseno, " & _
"levelno, stepno, filesize, filedir, filename, KongType, n_goods, n_tel, use_tag, tag_index " & _
"from Gesipan " & _
"where numbe = " & num & _
"And d_sts <> '-' And Gm_Code = '"& strGmCode &"' And levelno='0' "
Rs.Open strSQL,strConn
If Not (Rs Is Nothing Or (Rs.BOF And Rs.EOF)) then
num=rs("numbe")
readnum=rs("readnum")
KongType=rs("KongType")
If len(ReadNum) = 0 or IsNull(ReadNum) = True then
ReadNum = 0
End if
subject=rs("subject")
use_tag=rs("use_tag")
If rs("use_tag")="Y" Then
content=replace(rs("content"),"murphy_player_jang.gif","murphy_player_young.gif")
content=replace(content,"'","")
content=replace(content,chr(10),"")
content=replace(content,chr(13),"")
ELSEIf rs("use_tag")="N" Then
content=replace(rs("content"),"murphy_player_jang.gif","murphy_player_young.gif")
content=replace(content,"'","")
content=replace(content,chr(10),"")
content=replace(content,chr(13),"
")
ELSE
content=replace(rs("content"),"murphy_player_jang.gif","murphy_player_young.gif")
content=replace(content,"'","")
content=replace(content,chr(10),"")
content=replace(content,chr(13),"
")
End if
email=rs("email")
name=rs("name")
writedate=rs("writedate")
Userid=rs("UserID")
baseno=rs("baseno")
levelno=rs("levelno")
stepno=rs("stepno")
filesize=rs("filesize")
filedir=rs("filedir")
filename=rs("filename")
if rs("n_goods") <> "" then
n_goods=rs("n_goods")
else
n_goods=""
end if
if rs("n_tel") <> "" then
n_tel=rs("n_tel")
else
n_tel = ""
end if
use_t=rs("use_tag")
tag_index=rs("tag_index")
If readnum < 32760 Then ''' 데이터 형식 smallint에 산술 오버플로
strsql = "update Gesipan set readnum= " & readnum + 1 & _
" where numbe = " & num & _
" And Gm_Code = '"& strGmCode &"' "
strConn.execute(strsql)
End If
End if
rs.close
%>
실시간 수속현황
본문
<%=subject%>
- 조회수
- <%=Readnum%>
- 등록일
- <%=Left(writedate,11)%>