相关代码 |
|
采购商管理页面
function check()
{
if (isnan(go2to.page.value))
alert("请正确填写转到页数！");
else if (go2to.page.value=="")
{
alert("请输入转到页数！");
}
else
go2to.submit();
}
//-->
'--------------------------------------
%>
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open(sqlOpenDB) '打开数据库
Set Rs=Server.CreateObject("ADODB.RecordSet")
Key=Request("Findcarrier")
If Key="" Then
Sql="Select * From Carrier"
Else
Sql="Select * From Carrier Where CompanyName Like '"&Key&"' "
End If
Rs.Open Sql,Conn,1,3
If Rs.Eof And Rs.Bof Then
Response.Write""
Response.Write"=== 暂无 ==="
%>
添加新的采购商
Response.Write""
%>
返回
Response.End
End If
%>
Rs.PageSize=10
If Not IsEmpty(Request("Page")) Then
PageCount=Cint(Request("Page"))
Else
PageCount=1
End If
If PageCount>Rs.PageCount Or PageCount PageCount=1
End If
Rs.AbsolutePage=PageCount %>
共有[]用户帐号
以下是[1～]个
Page_Start=(PageCount-1)*Rs.PageSize
If PageCount=1 Then Page_Start=1
Page_End=Rs.PageSize*PageCount
If PageCount*Rs.PageSize=>Rs.Recordcount Then Page_End=Rs.Recordcount End If%>
共有[]用户帐号 以下是[～]
Response.Write "◆ "
If PageCount=1 Then
Response.Write "首页 上一页 "
Else
Response.Write "首页 "
Response.Write "上一页 "
End If
If Rs.PageCount-PageCount Response.Write "下一页 末页"
Else
Response.Write "下一页 "
Response.Write "末页"
End If
Response.Write " 页次:"&PageCount&"/"&Rs.PageCount&"页"
Response.Write " 转到第页 "
Response.Write ""
%>
查询采购商
添加新的采购商
注意：如需填写详细信息，请重新编辑！
序号
姓名
地址
城市
邮编
国家
电话
传真
电子邮件
编辑/删除
【编辑】【删除】
Rs.MoveNext
If i>=Rs.PageSize Then Exit Do
Loop
Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
%>
相关资源 |
|