<%@LANGUAGE="VBSCRIPT"%><%
Dim Rs
Dim Rs_numRows
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.ActiveConnection = MM_conn_STRING
Rs.Source = "SELECT max(year) as ymax FROM 年"
Rs.CursorType = 0
Rs.CursorLocation = 2
Rs.LockType = 1
Rs.Open()
Rs_numRows = 0
if not rs.eof then
session("g_year")=rs.fields.item("ymax").value
end if
%><%
Dim Rs1
Dim Rs1_numRows
Set Rs1 = Server.CreateObject("ADODB.Recordset")
Rs1.ActiveConnection = MM_conn_STRING
Rs1.Source = "SELECT max(总期数) as 总期数 FROM 科技报"
Rs1.CursorType = 0
Rs1.CursorLocation = 2
Rs1.LockType = 1
Rs1.Open()
Rs1_numRows = 0
if not rs1.eof then
session("g_total")=rs1.fields.item("总期数").value
end if
%>科技先导报
