<% Dim GetTable : GetTable = "professor" Dim CurrentPage : CurrentPage = request("page") Dim GetSeq : GetSeq = request("seq") Dim GetSearchPart : GetSearchPart = request("SearchPart") Dim GetSearchStr : GetSearchStr = request("SearchStr") Dim GetSearchLevel : GetSearchLevel = request("SearchLevel") '회원구분 GetTable="professor" '/게시물 존재 여부 Sql = "SELECT idx FROM " & GetTable & " where idx = " & GetSeq Set Rs = Con.Execute(Sql) if rs.BOF or rs.EOF then Response.Write("") Response.End else Dim GetPasswd : GetPasswd = Rs(0) Rs.close() end if ' If Session("Admin") = "admin" Or Session("group") = "S" then ' else ' Response.Write("") ' Response.End ' ' End if '내용 출력 Sql = "SELECT idx, name, major, telephone, homepage, email, contents, level, intro, ename, emajor, eintro, econtents FROM " Sql = Sql & GetTable & " where idx = " & GetSeq Set Rs = Con.Execute(Sql) Dim idx : idx = Rs(0) Dim name : name = Rs(1) Dim major : major = Rs(2) Dim telephone : telephone = Rs(3) Dim homepage : homepage = Rs(4) Dim email : email = Rs(5) Dim contents : contents = Rs(6) Dim level : level = Rs(7) Dim intro : intro = Rs(8) Dim ename : ename = Rs(9) Dim emajor : emajor = Rs(10) Dim eintro : eintro = Rs(11) Dim econtents : econtents = Rs(12) Rs.close set rs = nothing Dim Rs1 Sql = "SELECT Right(rname,3) , rname , fileidx ,sname FROM professorfile WHERE idx = " & GetSeq & " and bid ='" & GetTable &"'" Set Rs1 = Con.Execute(Sql) %>

Introduction

Professor

Home > Introduction > Professor

<% If Not IsNull( Rs1(0) ) then Response.Write (""&Rs1(1)&" ") Else Response.Write ("") end if %>

<%=ename%>

Major
<%=emajor%> 
Lab
<%=eintro%> 
Office
<%=telephone%> 
Website
<% if homepage <> "" Then %><%=homepage%><% End If %> 
Email
<%=email%> 
<% If GetSeq = "74" Then %> <% ElseIf GetSeq = "57" Then %> <% ElseIf GetSeq = "307" Then %> <% ElseIf GetSeq = "48" Then %> <% ElseIf GetSeq = "38" Then %> <% ElseIf GetSeq = "324" Then %> <% ElseIf GetSeq = "300" Then %> <% ElseIf GetSeq = "61" Then %> <% ElseIf GetSeq = "40" Then %> <% ElseIf GetSeq = "63" Then %> <% ElseIf GetSeq = "286" Then %> <% ElseIf GetSeq = "203" Then %> <% ElseIf GetSeq = "206" Then %> <% ElseIf GetSeq = "289" Then %> <% ElseIf GetSeq = "41" Then %> <% ElseIf GetSeq = "283" Then %> <% ElseIf GetSeq = "22" Then %> <% ElseIf GetSeq = "64" Then %> <% ElseIf GetSeq = "47" Then %> <% ElseIf GetSeq = "35" Then %> <% ElseIf GetSeq = "50" Then %> <% ElseIf GetSeq = "246" Then %> <% ElseIf GetSeq = "309" Then %> <% ElseIf GetSeq = "199" Then %> <% ElseIf GetSeq = "62" Then %> <% ElseIf GetSeq = "24" Then %> <% ElseIf GetSeq = "200" Then %> <% ElseIf GetSeq = "65" Then %> <% ElseIf GetSeq = "247" Then %> <% ElseIf GetSeq = "296" Then %> <% ElseIf GetSeq = "25" Then %> <% ElseIf GetSeq = "201" Then %> <% ElseIf GetSeq = "66" Then %> <% ElseIf GetSeq = "56" Then %> <% ElseIf GetSeq = "68" Then %> <% ElseIf GetSeq = "26" Then %> <% ElseIf GetSeq = "70" Then %> <% ElseIf GetSeq = "212" Then %> <% ElseIf GetSeq = "27" Then %> <% ElseIf GetSeq = "318" Then %> <% ElseIf GetSeq = "301" Then %> <% ElseIf GetSeq = "187" Then %> <% ElseIf GetSeq = "58" Then %> <% ElseIf GetSeq = "45" Then %> <% ElseIf GetSeq = "31" Then %> <% ElseIf GetSeq = "197" Then %> <% ElseIf GetSeq = "60" Then %> <% ElseIf GetSeq = "34" Then %> <% ElseIf GetSeq = "43" Then %> <% ElseIf GetSeq = "44" Then %> <% ElseIf GetSeq = "33" Then %> <% ElseIf GetSeq = "317" Then %> <% ElseIf GetSeq = "59" Then %> <% ElseIf GetSeq = "71" Then %> <% ElseIf GetSeq = "285" Then %> <% ElseIf GetSeq = "72" Then %> <% ElseIf GetSeq = "288" Then %> <% ElseIf GetSeq = "69" Then %> <% ElseIf GetSeq = "335" Then %> <% ElseIf GetSeq = "337" Then %> <% ElseIf GetSeq = "336" Then %> <% ElseIf GetSeq = "338" Then %> <% ElseIf GetSeq = "362" Then %> <% ElseIf GetSeq = "363" Then %> <% ElseIf GetSeq = "365" Then %> <% ElseIf GetSeq = "366" Then %> <% ElseIf GetSeq = "373" Then %> <% ElseIf GetSeq = "374" Then %> <% ElseIf GetSeq = "375" Then %> <% ElseIf GetSeq = "379" Then %> <% ElseIf GetSeq = "384" Then %> <% ElseIf GetSeq = "393" Then %> <% ElseIf GetSeq = "388" Then %> <% ElseIf GetSeq = "396" Then %> <% ElseIf GetSeq = "397" Then %> <% ElseIf GetSeq = "398" Then %> <% End If %>
LIST