|
| <%
if version=empty then %>
<%
end if %>
|
<%
If Version=empty then %>
|
|
浙江大学数学科学研究中心创建于2002年8月，是一个立足中国、面向世界的国际数学研究中心，直属于浙江大学。浙江大学数学中心以大力开展高层次学术活动、从事国际一流的原始创新研究和培养杰出青年数学人才为第一要务，力争尽早建设成为世界第一流的数学研究中心。
|
|
联系电话：0571-87953030
0571-87953108
传 真：0571-87953035
信 址：中国杭州市浙江大学数学科学研究中心
邮 编：310027
|
|
欢迎第 <% =GCounter(kjFileCounter("img/counter.txt")) %> 位访问者
|
<%
else %>
|
|
Center of Mathematical Sciences at Zhejiang University established in August 2002.
It is an institution facing the whole country and abroad and directly subordinate to Zhejiang University.
CMS takes organizing high-leveled academic activities,
doing world first-class original innovative research and training young math talents as its main task with the goal to establish a research center of first class in the world.
|
| <%
end if%>
|
|
|
|
<%
SQLString1="Select * From " & NewsTableName & " Where Sort='其它' and Title Like '** %'"
set rs1=Server.CreateObject("ADODB.Recordset")
rs1.Open SQLString1,conn,3,3
if not rs1.eof then %>
|
<% =rs1("Body") %>
|
<%
end if %>
|
<%
dim m
if Version=empty then m=10 else m=10
'response.write totalItem
'if totalItem<=m then %>
<%
if rsIacti.recordcount>0 then
'for i=1 to rsIacti.recordcount
if Version=empty then num=10 else num=8
for i=1 to num
if not rsIacti.eof then %>
 
|
<%=rsIacti("body")%> | <%
rsIacti.movenext
end if
next
end if %>
|
<%
SQLString1="Select * From " & NewsTableName & " Where Sort='其它' and Title Like '* %'"
set rs1=Server.CreateObject("ADODB.Recordset")
rs1.Open SQLString1,conn,3,3 %>
| <% if not rs1.eof then response.write rs1("body") else response.write " " %> |
|
|
|
|
|
|
| <% ShowRecentActivity "学术报告", 4, Version, "Lecture" %> |
|
| <% ShowRecentActivity "学术会议", 4, Version, "Conference" %> |
|
| <% ShowRecentActivity "讨论班", 4, Version, "Seminar" %> |
|
|
|
empty then response.write "E"%>.gif valign=top>
|
cellPadding=0 cellSpacing=0 border=0> <%
sqlActi="select * from Links where Sort='学术之窗'"
if Version<>empty then sqlActi=sqlActi&" and CE='英文版'" else sqlActi=sqlActi&" and CE='中文版'"
sqlActi=sqlActi&" and Status='使用' order by ItemOrder"
set rsActi=server.createobject("ADODB.recordset")
rsActi.open sqlActi,conn,3,2
dim l
for l=1 to rsActi.recordcount
if not rsActi.eof then %>
>
 |
" target="_blank" class=frontcata<%If Version<>empty then response.write "en"%>><%=rsActi("LinkName")%>
|
<%
rsActi.movenext
end if
next %>
|
|
empty then response.write "E"%>.gif> |
empty then response.write "E"%>.gif valign=top>
|
cellPadding=0 cellSpacing=0 border=0> <%
sqlActi="select * from Links where Sort='近期活动'"
if Version<>empty then sqlActi=sqlActi&" and CE='英文版'" else sqlActi=sqlActi&" and CE='中文版'"
sqlActi=sqlActi&" and Status='使用' order by ItemOrder"
set rsActi=server.createobject("ADODB.recordset")
rsActi.open sqlActi,conn,3,2
'dim l
'response.write Month(Date())
m1=Month(Date())+1
m2=m1+1
if m1>12 then m1=1
if m2>12 then m2=1
'response.write "m1="&m1&"
"&"m2="&m2&"
"
'response.write DateValue(Year(Date())&"-"&m2&"-1")-1
'response.end
MyWeekDay = DatePart("w", Date() )
StartWeekDay = Date()-MyWeekDay+1
EndWeekDay = Date()+(7-MyWeekDay )
NextStartWeekDay = EndWeekDay+1
NextEndWeekDay = EndWeekDay+7
StartMonthDay=DateValue(Year(Date())&"-"&Month(Date())&"-1")
EndMonthDay=DateValue(Year(Date())&"-"&m1&"-1")-1
NextStartMonthDay=DateValue(Year(Date())&"-"&m1&"-1")
NextEndMonthDay=DateValue(Year(Date())&"-"&m2&"-1")-1
if Month(Date())+1>12 then
m1=1
m2=2
yy=left(NextStartMonthDay,4)+1
EndMonthDay=DateValue(yy&"-"&m1&"-1")-1
NextStartMonthDay=DateValue(yy&"-"&m1&"-1")
NextEndMonthDay=DateValue(yy&"-"&m2&"-1")-1
end if
'response.write StartMonthDay&"
"&EndMonthDay&"
"&NextStartMonthDay&"
"&NextEndMonthDay
'response.end
for l=1 to rsActi.recordcount
if not rsActi.eof then %>
>
|
" target="_blank" class=frontcata<%If Version<>empty then response.write "en"%>><%=rsActi("LinkName")%> <%
Select Case l
Case 1
PeriodStart=StartWeekDay
PeriodEnd=EndWeekDay
Case 2
PeriodStart=NextStartWeekDay
PeriodEnd=NextEndWeekDay
Case 3
PeriodStart=StartMonthDay
PeriodEnd=EndMonthDay
Case 4
PeriodStart=NextStartMonthDay
PeriodEnd=NextEndMonthDay
End Select
'response.write "("&shortenDate(PeriodStart)&"-"&shortenDate(PeriodEnd)&")" %>
|
<%
rsActi.movenext
end if
next %>
|
|
empty then response.write "E"%>.gif> |
empty then response.write "E"%>.gif valign=top>
| |
cellPadding=0 cellSpacing=0 border=0> <%
sqlActi="select * from Links where Sort='服务信息'"
if Version<>empty then sqlActi=sqlActi&" and CE='英文版'" else sqlActi=sqlActi&" and CE='中文版'"
sqlActi=sqlActi&" and Status='使用' order by ItemOrder"
set rsActi=server.createobject("ADODB.recordset")
rsActi.open sqlActi,conn,3,2
'dim l
for l=1 to rsActi.recordcount
if not rsActi.eof then %>
>
|
" target="_blank" class=frontcata<%If Version<>empty then response.write "en"%>><%=rsActi("LinkName")%>
|
<%
rsActi.movenext
end if
next %>
|
|
empty then response.write "E"%>.gif> |
|
|
|
信址:中国杭州市浙江大学数学科学研究中心
邮编：310027