<%@ LANGUAGE="VBSCRIPT" CODEPAGE="936" TRANSACTION="Required" %> <% '--------------------------- 'author:lujing 'ontime:07-06-12 '--------------------------- Option Explicit On Error Resume Next Response.Charset="gb2312" Response.Buffer="true" Response.Expires=0 Response.Expiresabsolute=Now()-1 Response.CacheControl="no-cache" Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" %> <% '--------------------------- 'author:lujing 'ontime:07-06-12 '--------------------------- dim conn '----------------------------------- 'open sqlserver connection '----------------------------------- Function OpenConn() On Error Resume Next Set conn=Server.CreateObject("ADODB.Connection") conn.CursorLocation=3 'conn.open "Provider=SQLOLEDB.1;Persist Security Info=False;Server=.;Database=shops;User ID=sa;Password=;" conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data1.mdb") If Err Then SayErr() End Function '----------------------------------- 'close sqlserver connection '----------------------------------- Function CloseConn() On Error Resume Next If IsObject(conn) Then If conn.state=1 Then conn.close Set conn=Nothing End If End If If Err Then SayErr() End Function '--------------------------------- 'show error '--------------------------------- Function SayErr() Response.Write(FormatDateTime(now,0)&"
") Response.Write(CStr(Hex(Err.Number))&"
") Response.Write(Err.Source&"
") Response.Write(Err.Description&"
") Err.Clear Response.End() End Function '--------------------------------- 'jump next page '--------------------------------- Function SayJump(info,href) Response.Write("") Response.End() End Function '--------------------------------- 'check request word '--------------------------------- Function NoSql(str) If Not isnull(str) Then str=trim(str) str=replace(str,";",";") '分号 str=replace(str,"'","'") '单引号 str=replace(str,"""",""") '双引号 str=replace(str,"chr(9)"," ") '空格 str=replace(str,"chr(10)","
") '回车 str=replace(str,"chr(13)","
") '回车 str=replace(str,"chr(32)"," ") '空格 str=replace(str,"chr(34)",""") '双引号 str=replace(str,"chr(39)","'") '单引号 str=Replace(str, "script", "script")'jscript str=replace(str,"<","<") '左< str=replace(str,">",">") '右> str=replace(str,"(","(") '左( str=replace(str,")",")") '右) str=replace(str,"--","--") 'SQL注释符 nosql=str End If End Function '--------------------------------- 'edit id '--------------------------------- Function GetId() dim fname fname = now() fname = replace(fname,"-","") fname = replace(fname," ","") fname = replace(fname,":","") fname = replace(fname,"PM","") fname = replace(fname,"AM","") fname = replace(fname,"上午","") fname = replace(fname,"下午","") fname = int(fname) + int((10-1+1)*Rnd + 1) dim num randomize num=Int((99-10+1)*Rnd+10) GetId=fname&num End Function '--------------------------------- 'split page '--------------------------------- Sub PageControl(icount,pagecount,page,table_style,font_style) Dim query, a, b, temp,action action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME") query = Split(Request.ServerVariables("QUERY_STRING"), "&") For Each b In query a = Split(b, "=") If StrComp(a(0), "page", vbTextCompare) <> 0 Then temp = temp & a(0) & "=" & a(1) & "&" End If Next Response.Write("" & vbCrLf ) Response.Write("
" & vbCrLf ) if page<=1 then Response.Write ("首页 " & vbCrLf) Response.Write ("上页 " & vbCrLf) else Response.Write("首页 " & vbCrLf) Response.Write("上页 " & vbCrLf) end if if page>=pagecount then Response.Write ("下页 " & vbCrLf) Response.Write ("尾页 " & vbCrLf) else Response.Write("下页 " & vbCrLf) Response.Write("尾页 " & vbCrLf) end if Response.Write(" 页次：" & page & "/" & pageCount & "页" & vbCrLf) Response.Write(" 共有" & icount & "条信息" & vbCrLf) Response.Write("
" & vbCrLf ) End Sub %> 清华大学凝聚态理论研究组
1 1 1 111
1 1
1 1 1
1 1
1 1 1 1
1 1 1
1
顾秉林 院士
段文晖 教授
吴健 研究员
周刚 副研究员
在读学生
以往成员
1 1 1
1 1
1
1

姓 名：段 文 晖
所在单位：清华大学物理系
联系电话：62785577
Email: duanw@tsinghua.edu.cn
1、主要学历
1981年- 1992年
  清华大学物理系学习。1986年获理学学士学位，1988年获理学硕士学位（凝聚态物理专业，导师：顾秉林教授），1992年获理学博士学位（凝聚态物理专业，导师：顾秉林教授）。
2、主要工作经历
1992年 - 1994年
  冶金部钢铁研究总院博士后（合作导师：王崇愚院士）
1994年 - 至  今
  清华大学物理系副教授、教授（2000年起），凝聚态物理研究所主任（2004年起），清华大学材料科学与工程研究院副院长（2007年起）
 
  个人简历
 
 主要学历
 
 主要工作经历
 
 科学研究
 
 学术论文
1 1
1 1
1 1

最 新 动 态
 1 1
1 1 1
1 1
1

<% OpenConn() dim res,psize set res=server.CreateObject("adodb.recordset") psize=3'每页显示的数据条数 %>

<% dim paction,dataTotal,pageTotal,p paction = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME") dataTotal=conn.execute("select count(编号) as total from 新闻")("total") pageTotal=Int((dataTotal+(psize-1))/psize) for p=1 to pageTotal response.Write("[ "&p&" ]") response.Write("   ") next %>
<% dim page,ii res.open "select * from 新闻 order by 编号 desc",conn,1,1 '判断是否存在数据 if res.recordcount=0 then response.write("
暂时没有内容
") response.End() end if '设置每页显示多少条记录 res.pagesize=psize '当前页面的索引 page=request("page") '判断page是否为数字型，如果不是强制将他赋值为1。 if Not IsNumeric(page) or page="" then page=1 else page=clng(page) end if '判断page是否溢出 if page<1 then page=1 if page>res.pagecount then page=res.pagecount '设置当前页 res.absolutepage=page %> <% for ii=1 to res.pagesize if res.eof then exit for %> <% res.movenext next %>
"><%=res("标题")%>                <%=res("时间")%>
<% '生成翻页链接 begin dim icount:icount=res.RecordCount dim maxpage:maxpage=res.PageCount dim table_style:table_style="border='0 'align='left' width='100%' " dim font_style:font_style="style='text-align:center; font-size:13px;text-align:right;'" call PageControl(icount,maxpage,page,table_style,font_style) '生成翻页链接 end %>
<% res.close set res=nothing CloseConn() %>

1

 

清华大学物理系凝聚态理论研究组 版权所有
联系电话：010-62785577   Email: duanw@tsinghua.edu.cn

1 1
1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
>>