<%@ LANGUAGE = VBScript.Encode %> <% dim conn,rs UserId=Request("UserId") if not IsNumeric(UserId) then response.end ' 防止SQL注入 sSQLString1="Select * from " & UsersTableName & " Where UserId=" & UserId sSQLString2="Select * from " & PaperTableName & " Where UserId=" & UserId set conn=Server.CreateObject("ADODB.Connection") ' Response.Write sSQLString ' Response.End conn.Open connString set rs2=Server.CreateObject("ADODB.RecordSet") set rs=Server.CreateObject("ADODB.RecordSet") rs.Open sSQLString1,conn,adOpenDynamic,adLockReadOnly rs2.Open sSQLString2,conn,adOpenDynamic,adLockReadOnly if rs.eof then response.end %> <% Version=Request("Version") if not (Version=empty or Version="en") then response.end if Version=empty then %> <% Else %> <% End if%> <% if rs("Photo")<>"" then %> <% else %> <% end if %>

	" target=_blank>" onload="javascript:DrawImage(this);" border="0">			<%' if rs("Institution")<>"" and Version=empty then%> <%' end if%> <% dim i,temp if Version=empty then for i=0 to 7 temp=rs(getName(Tinfo(i),"en")) temp1=rs(getName(Tinfo(i),"en")&"En") if (temp<>empty) or (temp1<>empty) then %> <% end if next else for j=0 to 7 'response.write "english versiondfsf" 'response.end temp=rs(getName(Tinfo(j),"en")&"En") 'response.write temp 'response.end if temp<>empty then %> <% end if next end if %> <% if rs("Office_phone")<>"" then%> <% if Version=empty then response.write " <% end if%> <% if rs("Email")<>"" then%> <% if Version=empty then response.write " <% end if%> <% if rs("Home_Page")<>"" then%> <% if Version=empty then response.write " <% end if%> <% if not rs2.eof then%> <% if Version=empty then %> <%end if%> <% if Version=empty then if trim(rs("Introduction")&"")<>"" or trim(rs("IntroductionEn")&"")<>"" then%> <% end if else if rs("IntroductionEn")<>"" then%> <% end if end if %> <% 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%> <%=rs("Technical_Post"&left(Version,2))%> <%=getName(Tinfo(i),"")%> <% if (temp<>empty) then response.write(toHTML(temp)) else response.write(toHTML(temp1)) end if %> <%=TinfoEn(j)%> <%=toHTML(temp)%> 办公电话" else response.write " Phone" end if%> empty then response.write "class=en"%>><%=toHTML(rs("Office_phone"))%> 电子邮件" else response.write " E-mail" end if%> empty then response.write "class=en"%>> " class=categuide><%=toHTML(rs("Email"))%> 个人主页" else response.write " HomePage" end if%> class=linkto<%=left(Version,2)%>><%=rs("Home_Page")%> target=_blank >主要论著 <%else%> target=_blank >Treatise <%end if%> 个人简介 <% if trim(rs("Introduction")&"")="" then response.write(toHTML(rs("IntroductionEn"))) else response.write(toHTML(rs("Introduction"))) end if %> Introduction <%=toHTML(rs("IntroductionEn"))%>

<% 'rs.close 'set rs=nothing 'conn.close 'set conn=nothing %>