<% Set Conntemp=Server.CreateObject("ADODB.Connection") Connstrtemp="DBQ="+server.mappath("persons.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;" Conntemp.Open connstrtemp set rstemp=Server.CreateObject("ADODB.Recordset") sqlsql="select * from persons order by id desc" rstemp.open sqlsql,Conntemp,3 Set Conntempcolumn=Server.CreateObject("ADODB.Connection") Connstrtempcolumn="DBQ="+server.mappath("album.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;" Conntempcolumn.Open connstrtempcolumn set rstempcolumn=Server.CreateObject("ADODB.Recordset") sqlsql="select * from persons order by id desc" rstempcolumn.open sqlsql,Conntempcolumn,3 sql="select * from topic " set rs=Server.CreateObject("ADODB.Recordset") begincolumn() %>

	您的位置：　首页 > 个人专栏 >

专家文章最新更新

<% else %> <% end if rs.movenext next rs.close %>

<% sqltemp=sql & " where display like '%金广君%' and newsort='论文' order by id desc" rs.open sqltemp,Conn,3 for i = 0 to 9 if rs.eof then exit for pi=split(rs("title"),"
") if len(pi(0))>10 then wtitle=replace(rs("title"),"'","’") %>

● " onMouseOver="window.status='<%=wtitle%>';return true;" onMouseOut="window.status=' ';" target="_blank"><%=left(pi(0),10) & "..."%>

● " onMouseOver="window.status='<%=wtitle%>';return true;" onMouseOut="window.status=' ';" target="_blank"><%=pi(0)%>

个人专栏年终盘点

　　2006年为31位学者做了个人专栏，其中有建设部副部长仇保兴，中国科学院和中国工程院院士吴良镛和周干峙，中国科学院院士郑时龄和齐康......

<% for i = 1 to 2 %> <% rstempcolumn.movenext next %>

图片库　　　　　进入

.jpg" target="_blank">

s.jpg" width="156" height="100" border="0" style="border: 1px solid #8E8E8E; padding: 1">

<%=rstempcolumn("pname")%>
　　" target="_blank"><%=rstempcolumn("shortresume")%>

“摄影天地”论坛专区入口


	会员登陆

<% url=Request.ServerVariables("HTTP_REFERER") %>

登陆名
密　码	>


注册　忘记密码

.jpg" target="_blank">

l.jpg" width="161" height="176" border=0>

个人介绍
　　.htm" target="_blank" class="white12px"><%=rstemp("resume")%>

<%=rstemp("pname")%>论文集
<% sqltemp=sql & rstemp("sql") & " and show=1 order by issue desc" rs.open sqltemp,Conn,3 for i = 0 to 4 if rs.eof then exit for pi=split(rs("title"),"
") if len(pi(0))>16 then wtitle=replace(rs("title"),"'","’") %> <% else %> <% end if rs.movenext next rs.close %>

●	" onMouseOver="window.status='<%=wtitle%>';return true;" onMouseOut="window.status=' ';" target="_blank"" class="white12px"><%=left(pi(0),15) & "..."%>
●	" onMouseOver="window.status='<%=wtitle%>';return true;" onMouseOut="window.status=' ';" target="_blank"" class="white12px"><%=pi(0)%>

	" class="white12px">更多

<% rstemp.close sqlsql="select * from persons where id <> " & temp & " order by id desc" rstemp.open sqlsql,Conntemp,3 no=rstemp.recordcount rstemp.pagesize=10 if IsNumeric(request("page")) then pg=clng(request("page")) else pg=1 end if if pg<1 then pg=1 if pg>rstemp.pagecount then pg=rstemp.pagecount rstemp.absolutepage=pg ipage=1 do while ipage<=5 pname=replace(rstemp("pname"),"、","") %> <% rstemp.movenext if rstemp.eof then %>

	<%=pname%>

.jpg" target="_blank">

s.jpg" width="120" height="77" border="0">

　　.htm" target="_blank"><%=rstemp("resume")%>

<% sqltemp=sql & rstemp("sql") & " and show=1 order by issue desc" rs.open sqltemp,Conn,3 for i = 0 to 4 if rs.eof then exit for pi=split(rs("title"),"
") if len(pi(0))>19 then %> <% else %> <% end if rs.movenext next rs.close %>

●	" onMouseOver="window.status='<%=rs("title")%>';return true;" onMouseOut="window.status=' ';" target="_blank""><%=left(pi(0),19) & "..."%>
●	" onMouseOver="window.status='<%=rs("title")%>';return true;" onMouseOut="window.status=' ';" target="_blank""><%=pi(0)%>

	">更多

<% exit do else pname=replace(rstemp("pname"),"、","") %>

	<%=pname%>

.jpg" target="_blank">

s.jpg" width="120" height="77" border="0">

　　.htm" target="_blank"><%=rstemp("resume")%>

●	" onMouseOver="window.status='<%=rs("title")%>';return true;" onMouseOut="window.status=' ';" target="_blank""><%=left(pi(0),19) & "..."%>
●	" onMouseOver="window.status='<%=rs("title")%>';return true;" onMouseOut="window.status=' ';" target="_blank""><%=pi(0)%>

	">更多

<% rstemp.movenext if rstemp.eof then exit do end if ipage=ipage+1 loop %> <% end if if rstemp.recordcount>10 then %>

共 <%=no%> 条，当前第 <%=pg%>/<%=rstemp.pagecount%> 页，每页 10 条 <% if pg<>1 then %> 首页上页 <% end if if pg<>rstemp.pagecount then %> 下页尾页

<% end if %>

<%endhtml%>