<%
dim resign
resign=request("resign")
%>
<%
dim db,rs,strsql
set db=server.CreateObject("adodb.connection")
db.open "Provider=MSDASQL.1;Driver={SQL Server};Server=192.168.10.2;Database=njw_db;Uid=njw;Pwd=;"
set rs=server.CreateObject("adodb.recordset")
strsql="select * from news where typeid=5 and resign='"&resign&"' and shenhe is not null order by id desc"
rs.open strsql,db,1
dim page_no
if request.QueryString("page_no")="" then
page_no=1
else
page_no=cint(request.QueryString("page_no"))
end if
rs.pagesize=20
rs.absolutepage=page_no
%>
西藏农经网阿里分中心
