＋设为首页 ＋添加到收藏夹
我用的是mysql数据库。
我的asp页面总显示“没有数据”。
set conn=server.CreateObject("ADODB.connection")
conn.open "dsn=xxx;uid=xxx;pwd=xxx"
msgdsp=0
imsg=request("msg")
if len(trim(imsg))>0 then msgdsp=1
ifIO=trim(request("fIO"))
ifPO=trim(request("fPO"))
ifbooker=trim(request("fbooker"))
ifvender=trim(request("fvender"))
icomp=request("comp")
bl_pz=0
bl_sh=0
if checkpass("*","BPU3") then bl_sh=1
if checkpass("*","BPU4") then bl_pz=1
icomp=Trim(request("comp"))
if len(icomp)<3 then icomp="ALL"
Set conn = OpenOrGet_Database("item_conn")
dim sql
sql="Select company_code from company where id in (select company_id from userauth where employee_id=" & session("dh") & _
" and authority like %,BPU%) order by company_code "
set crs=conn.Execute( sql)
Page = trim(Request("Page"))
If len(Page) < 1 Then
Page = 1
else
page=cLng( page )
end if
If Page > rs.PageCount Then Page = rs.PageCount
Sub ShowOnePage( rs, Page, sh, pz )
Response.Write "<CENTER><TABLE BORDER=1 cellspacing=0 cellpadding=0>"
Response.Write "<TR BGCOLOR=#00FFFF>"
Response.WRITE "<TD align=center>No.</TD>"
For i=2 to rs.Fields.Count-1
Response.WRITE "<TD align=center> " & rs.Fields(i).Name & " </TD>"
Next
Response.Write "</TR>"
rs.AbsolutePage = Page
For iPage = 1 To rs.PageSize
Response.Write "<TR>"
RecNo = (Page - 1) * rs.PageSize + iPage
Response.Write "<TD align=right>" & RecNo & " </TD>"
For i=2 to rs.Fields.Count-1
bl1=rs("id")
Response.WRITE "<TD align=center> " & rs.Fields(i).Value & " </TD>"
end if
Next
Response.Write "</TR>"
rs.MoveNext
If rs.EOF Then Exit For
Next
Response.Write "</TABLE></CENTER>"
End Sub
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>采购单列表</title>
<style>table { font-size: 13; border-collapse: collapse }
a:link { color: #003399; text-decoration: none; font-size: 13 }
a:visited { color: #003399; text-decoration: none; font-size: 13 }
a:hover { text-decoration: underline; font-size: 13; color: #FF0000 }
</style>
<script language="vbscript" src="PO_List.vbs"></script>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta name="Microsoft Border" content="tb, default">
</head>
<body bgcolor="#C0C0C0">
<form action="PO_List.asp" method="GET" name="DSP">
<p align="center"><input type="hidden" name="Send" value="Send"><input type="hidden" name="Tmsg" value="<%=imsg%>"><font color="#000080" face="楷体_GB2312"><b><font size="4">采购单列表</font></b><br>
</font> <input type="hidden" name="msgdsp" value="<%=msgdsp%>">
<%
if not rs.Eof then
ShowOnePage rs, Page, bl_sh, bl_pz
else
response.Write "<br>"
end if
%><br>
<%
If Page <> 1 Then
Response.Write "<A HREF=PO_List.asp?Page=1&fIO=" & ifIO & "&fPO=" & ifPO & "&fBooker=" & iFBooker & "&fVender=" & iFVender & ">[首页]</A> "
Response.Write "<A HREF=PO_List.asp?Page=" & (Page-1) & "&fIO=" & ifIO & "&fPO=" & ifPO & "&fBooker=" & iFBooker & "&fVender=" & iFVender & ">[前一页]</A> "
End If
If Page <> rs.PageCount Then
Response.Write "<A HREF=PO_List.asp?Page=" & (Page+1) & "&fIO=" & ifIO & "&fPO=" & ifPO & "&fBooker=" & iFBooker & "&fVender=" & iFVender & ">[下页]</A> "
Response.Write "<A HREF=PO_List.asp?Page=" & rs.PageCount & "&fIO=" & ifIO & "&fPO=" & ifPO & "&fBooker=" & iFBooker & "&fVender=" & iFVender & ">[尾页]</A> "
End If
%>
选页:<input type="text" size="3" name="sPage" onchange="DSPRefresh()">
页：<font color="#FF0000"><%=Page%>/<%=rs.PageCount%></font> </font></p>
</form>
</table>
</body>
