参见HJSYS 的 back/ shebei.asp 2020.02.22及以后版本
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../Connections/conn.asp" -->
///////////////////////////////////打开数据库/ 此次注意 MM_conn_STRING ，要与conn中的名字 一致 /注意sql语句 连接的表及 排序字段////////////////////////////////////////////////////////////
<%
dim conn
dim Recordset1,Recordset1_total ,sql,connstr
set conn=server.CreateObject("adodb.connection")
set Recordset1=server.createobject("adodb.recordset")
conn.open MM_conn_STRING
sql="SELECT * FROM dbo.Yinstrument_yq ORDER BY instrument_ID ASC"
Recordset1.open sql,MM_conn_STRING,1,1
Recordset1_total=Recordset1.recordcount
%>
///////////////////////////////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////以下部分为 重复区域/DW自动生成部分//////////////////////////////////////////////////////////
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 10
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
/////////////////////////////////////////////////////////////////////////////////////////////////////
//////////////////////// 自己编写的代码 ////////////////////////////////////////////
<%
dim Repeat_numRows ,dis_long
dis_long =10
Repeat_numRows =Repeat1__numRows
dim Next_Point, now_page_num, Last_Point, Rev_Last_Point
if Recordset1_total < Repeat_numRows then
Last_Point = Recordset1_total
else
Last_Point = 2 * Repeat_numRows' -1
end if
Next_Point=-1
now_page_num = Trim(Request.QueryString("page_num_now"))
now_point = Trim(Request.QueryString("point_now"))
if now_page_num <>"" then
Next_Point=(Cint(now_page_num)) * Repeat_numRows
Last_Point = Next_Point + Repeat_numRows
Rev_Last_Point = -Next_Point + Repeat_numRows
if Next_Point>Repeat_numRows then
Recordset1.absoluteposition=Next_Point-Repeat_numRows
end if
end if
dim m
