浙江大学数学中心师资队伍

<%@ LANGUAGE = VBScript.Encode %> <% dim conn,rs UserId=Request("UserId") if not IsNumeric(UserId) then response.end ' 防止SQL注入 sSQLString="Select * from " & PaperTableName & " Where UserId=" & UserId set conn=Server.CreateObject("ADODB.Connection") conn.Open connString set rs=Server.CreateObject("ADODB.RecordSet") rs.Open sSQLString,conn,adOpenDynamic,adLockReadOnly if rs.eof then response.end %> 浙江大学数学中心师资队伍

<% While not rs.eof %> <% sSQLString1="Select * from Attachments Where TabId=16 And DocId=" & rs("PaperId") & " And Deleted='no'" 'Response.Write sSQLString1 'Response.End set rs1=Server.CreateObject("ADODB.Recordset") rs1.Open sSQLString1,conn,adOpenDynamic,adLockReadOnly %> <% rs.movenext %> <% Wend %>
<%=rs("Anthor")%>, <%=rs("Title")%>, <%if rs("zazhi")<>"" then%>发表于<%=rs("zazhi")%>杂志<%end if %> <%if rs("juan")<>"" then%><%=rs("juan")%>卷<%end if %> <%if rs("qi")<>"" then%><%=rs("qi")%>期<%end if %> <%if rs("Page")<>"" then%><%=rs("Page")%>页<%end if %> <%if rs("PapDate")<>"" then%>(<%=rs("PapDate")%>)<%end if %>

<% If not rs1.eof Then %> 附件：<% While not rs1.eof %>" target="_blank" class=linkto><%=rs1("Attachment") %> <% rs1.MoveNext %> <% Wend %> <% End If %>

<%if rs("body")<>"" then%> 摘要：<%=rs("body")%><%end if %>

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