<%@ LANGUAGE = VBScript.Encode %> <% Version=Request("Version") %> <% if Version=empty then %> <% Else %> <% End if%> <% ColumnName=trim(Request("ColumnName")) myColumn=trim(Request("myColumn")) KeyWord=trim(Request("KeyWord")) Version=Request("Version") if ColumnName=empty and KeyWord=empty then ColumnName="news" end if select case ColumnName case "people" Sort="'人员机构'" PSort="人员机构" ESort="Organization" sSQLString="Select * from " & UsersTableName & " where Institution<>'' order by UserName" case "teacher" Sort="'导师介绍'" PSort="研究生培养 -> 导师介绍" ESort="Graduate -> Advisor" sSQLString="Select * from " & UsersTableName & " where User_Class like '%导师%' order by UserName" case "scholar" Sort="'访问学者'" PSort="访问学者" ESort="Visitor" sSQLString="Select * from " & UsersTableName & " where User_Class like '%访问学者%' order by StartDate Desc,UserName Asc" Case Else ColumnName="search" If KeyWord="" Then Response.write "error" Response.end Else if myColumn="" then RColumn="所有栏目" RColumn="All Columns" elseif myColumn="'新闻'" then RColumn="新闻动态" RColumn="News" else RColumn=mid(myColumn,2,4) end if PSort="文档搜索 关键字："&KeyWord&"" Range="搜索范围："&RColumn&"" end if end select %>

<%if Version=empty then%> <% dim n,i,j,t,q dim conn,rs if Version=empty then n=6 else n=5 end if set conn=Server.CreateObject("ADODB.Connection") conn.Open connString set rs=Server.CreateObject("ADODB.RecordSet") rs.open sSQLString,conn,3,3 if rs.recordcount=0 then %> <% else 'response.write ColumnName if ColumnName="people" then %> <% FOR i=0 TO 7 %> <% rs.movefirst %> <% NEXT %> <% else %> <% end if %> <% end if %>   您的位置：首页 -> <%=PSort%> <%=Range%> <%else%>   Your Location: >Homepage -> <%=ESort%>  <%=ERange%> <%end if%> >  <% if Version=empty then response.write "对不起，没有找到相关信息。" else response.write "Sorry, no information has been found." end if%> > <% if Version=empty then response.write inst(i) else response.write insten(i) end if%> <% j=0 %> <% while not rs.eof %> <% if not rs.eof and instr(rs("Institution"),inst(i))<>0 then %> <% j=j+1 %> <% if j=n then %> <% j=0 %> <% end if %> <% end if %> <% rs.movenext %> <% wend %> height=18> &Version=<%=Version%>" class=linkto<%=left(Version,2)%> target=_blank><% if Version=empty then Response.write getName(rs("UserName"),"") else if rs("UserNameEn")<>empty then Response.write rs("UserNameEn") else Response.write getName(rs("UserName"),"english") end if end if%> <% If ColumnName="scholar" and version=empty then sql="select body from " & NewsTableName & " where newsid=379" set rs1=Server.CreateObject("ADODB.RecordSet") rs1.open sql,conn,3,3 response.write rs1("body") End if %> <%if ColumnName="scholar" then %> <%end if%> <% a=0 tempDate="1900-1-1" While not rs.eof %> Year(tempDate) and ColumnName="scholar" then a=a+1 if a mod 2=0 then response.write "bgcolor=#E1F7E8" else response.write "bgcolor=#F6DDFE" end if else if a mod 2=0 then response.write "bgcolor=#E1F7E8" else response.write "bgcolor=#F6DDFE" end if end if %> > <%if ColumnName="scholar" then %> <%end if%> <% if Version=empty then Response.write " <% if Version = empty then %> <% else %> <% end if %> <% tempDate=rs("startdate") rs.movenext%> <% Wend %> 学者姓名" else response.write " class=en>Name" end if %> 访问时间" else response.write "class=en>Visiting Period" end if %> 工作单位" else response.write "class=en>Workplace" end if %> 研究方向" else response.write "class=en>Research Areas" end if %> &Version=<%=Version%>" class=linkto<%=left(Version,2)%> target=_blank><% if Version=empty then Response.write getName(rs("UserName")," ") else if rs("UserNameEn")<>empty then Response.write rs("UserNameEn") else Response.write getName(rs("UserName"),"english") end if end if%> empty then response.write "class=en"%>><% if Version=empty then if (rs("startdate")<>empty or rs("enddate")<>empty) then response.write rs("startdate") & "至" & rs("enddate") else response.write " " end if end if if Version<>empty then if (rs("startdate")<>empty or rs("enddate")<>empty) then response.write rs("startdate") & " To " & rs("enddate") else response.write " " end if end if %>  "&rs("Workplace") else Response.write " " if rs("WorkPlaceEn")<>empty then Response.write rs("WorkPlaceEn") else if rs("WorkPlace")<>empty then Response.write getName(rs("WorkPlace"),"") end if end if end if%>   <% =rs("ResearchAreas") %>  <% =rs("ResearchAreasEn") %>