相关代码 |
|
'┌─ 风云ASP在线 ────────────────────────┐
'│ │
'│ 作者：赵振波. http://www.fyasp.com │
'│ │
'│ Q Q：176189168 │
'│ │
'│ Email：fy96@163.com │
'│ │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│ │
'│ │
'└─────────────────── http://www.fyasp.com ──┘
%>
if instr(session("manager"),"manager")=0 then
response.redirect "manage.asp"
response.end
end if
%>
后台管理系统
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
//-->
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
//-->
请选择：
全部类型
已批准
未批准
所有评估师
房产评估师信息
状态
姓名
性别
电话
发布时间
dim curpage
if request("curpage")="" then
curpage=1
else
curpage=request("curpage")
end if
const numperpage=15
sort=trim(request("sort"))
opendataconn
set rs=server.createobject("adodb.recordset")
sql="select * from pinguren "
if sort"" then
sql=sql & " where ok="&sort&""
end if
sql=sql & " order by dateandtime desc "
rs.open sql,conn,1,1
if rs.eof then
' response.write "现在还没有记录！"
' response.end
end if
if not rs.eof then
rs.pagesize=numperpage
dim totalpages
totalpages=rs.pagecount
rs.absolutepage=curpage
end if
dim count
count=0
do while not rs.eof and count %>
--
[修改]
rs.movenext
count=count+1
loop
rs.close
set rs=nothing
closedataconn
%>
首页
首页
1 then %>
上一页
上一页
下一页
下一页
末页
末页
第页/共页
请选择
k=1
do while k %>
k=1
do while k %>
k=1
do while k %>
第页
k=k+1
loop
%>
k=k+1
loop
%>
k=k+1
loop
%>
function openwin(url)
{
window.open(url,"_blank","height=320,width=500,resizable=no,scrollbars=yes,statue=no,toolbar=no,menubar=no,location=no,left=150,top=80");
}
//-->
相关资源 |
|