% If gradenumber > 1 then '########################## '## 2009-09-02 ·Î±×ÀΠüũ Ãß°¡(°Àϼ±) If session.contents("uid") = "" Then response.write "" response.End End If End If %> <% if headerfile<>"" then if isfile(headerfile) then Server.Execute (headerfile) end if end if if gradenumber>1 and int(gradenumber)>int(Session("member_grade")) then response.write "" Response.end end if Dim number,gopage,find,findstring,subject,writer,content if trim(Request("find")) <> "" then find = trim(Request("find")) findstring = trim(Request("findstring")) end if if trim(Request("number")) <> "" then number = trim(Request("number")) gopage = Request("gopage") end if if number <> "" then sql_b = "select * from bbs_" & bbs_id sql_b = sql_b & " where number = " & number Rs_b.open sql_b, Conn_b if Rs_b.eof or Rs_b.bof then errmsg("ÇØ´ç ±ÛÀÌ Á¸ÀçÇÏÁö ¾Ê½À´Ï´Ù.") Response.end else subject = ChangeTag(Rs_b("subject")) writer = ChangeTag(Rs_b("writer")) content = Rs_b("content") end if Rs_b.Close end if Dim uname, email, mobile, arr_mobile, mobile_1, mobile_2, mobile_3, birth, birth_year If session("uid")<>"" Then conn.open set rs=server.createobject("adodb.recordset") sql = "select * from member where uid='"&session("uid")&"'" rs.open sql,conn If Not rs.eof Then uname = rs("uname") email = rs("email") mobile = rs("mobile") birth = rs("birth") '³ªÀÌ Setting birth_year = Split(birth, "-") uage = Year(now)-birth_year(0)+1 'ÀüȹøÈ£(ÈÞ´ëÀüÈ) Setting If Not IsNull(mobile) And Len(mobile) > 0 Then arr_mobile = split(mobile,"-") mobile_1 = arr_mobile(0) mobile_2 = arr_mobile(1) mobile_3 = arr_mobile(2) Else mobile_1 = "" mobile_2 = "" mobile_3 = "" End If End If rs.close End If if mode="pds" then %> <% end if %>
|
|
|
|||||||||||||