%@LANGUAGE="VBSCRIPT"%>
<%
Dim Rst_zhx
Dim Rst_zhx_cmd
Dim Rst_zhx_numRows
Set Rst_zhx_cmd = Server.CreateObject ("ADODB.Command")
Rst_zhx_cmd.ActiveConnection = MM_cnnuser_STRING
Rst_zhx_cmd.CommandText = "SELECT * FROM news_page WHERE xishi='综合系' ORDER BY getdate desc"
Rst_zhx_cmd.Prepared = true
Set Rst_zhx = Rst_zhx_cmd.Execute
Rst_zhx_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 6
Repeat1__index = 0
Rst_zhx_numRows = Rst_zhx_numRows + Repeat1__numRows
%>
<%
function newlocate(new_position)
dim strlen
dim count
strlen=len(new_position)
newlocate=""
for count = 9 to strlen
newlocate=newlocate&Mid(new_position,count,1)
next
newlocate="../"&newlocate
end function
%>