본문바로가기 주메뉴 바로가기 하단정보 바로가기
공지사항/뉴스

국제이주 소식과 각종 정보를 알려드립니다.

<% 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)%>
작성자
<%=name%>
<%=content%>
<% dim jang jang = Request("jang") ' response.write jang ' response.End If jang="j" then %> 글쓰기 수정 삭제 <% end If %>