急，属性问题

[复制链接]

火之雄狮

电梯直达

1^#

发表于 2010-1-14 02:49:03 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

<link href="../text.css" rel="stylesheet" type="text/css">
<style type="text/css">

</style><body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" >
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<p> </p>
<p align="center"><strong>招聘信息列表</strong></p>
<table width="599" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<%
set rs=server.createobject("adodb.recordset")
sql= "SELECT * FROM zpxx order by zpid Desc "
rs.open sql,conn,1,1
if rs.eof and rs.bof then %>
<p align="center"> </p>
<p align="center">还没有信息！<br>
</p>
<%
else
dim MaxPerPage
dim sql
dim rs
dim gstBookID
dim totalPut
dim CurrentPage
dim TotalPages
filename="zpxx.asp"
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
rs.pagesize=10
totalPut=rs.recordcount '记录总数
totalPage=rs.pagecount
MaxPerPage=rs.pagesize
if currentpage<1 then
currentpage=1
end if
if currentpage>totalPage then
currentpage=totalPage
end if
if currentPage=1 then
showContent
showpages1
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark '移动到开始显示的记录位置
showContent
showpages1
end if
end if
rs.close
end if

set conn=nothing
sub showContent
dim i,j
%>
<table width="570" border="0" align="center" cellpadding="0" cellspacing="0" class="default">
<tr align="center">
<td width="41" height="28">序号</td>
<td width="137">信息标题</td>
<td width="96">发布人</td>
<td width="62" align="right">发布日期</td>
<td width="29">修改</td>
<td width="30">删除</td>
</tr>
<%
i=1
do while not (rs.eof or err)%>
<tr bgcolor="<%If (i Mod 2) Then%>#F6F6F6<%Else%>#FFFFFF<%End If%>">
<td height="25" align="center"><%=rs("zpid")%></td>
<td style="padding-left:10px"><a href="new_info.asp?id=<%=rs("zpid")%>" target="_blank"><%=rs("xxbt")%></a></td>
<td align="center"><%=rs("addname")%></td>
<td align="center"><%=rs("datetime")%></td>
<td align="center"><a href="newsm.asp?id=<%=rs("zpid")%>&page=<%=currentPage%>">修改</a></td>
<td align="center"><a href="delnews.asp?id=<%=rs("zpid")%>&page=<%=currentPage%>">删除</a></td>
</tr>
<%
if i>=MaxPerPage then exit do
i=i+1
rs.movenext
loop
%>
<tr>
<td height="30" colspan="7" align="center">
<%
end sub
%>
<%
sub showpages1()
dim n
n=totalPage
%>
<form action="<%=filename%>" method="post" align="right">
<table width="100%" height="30" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td height="30">
<div align="right"> <span style="font-size:9pt"> 共<font color="#FF0000"><%=totalPage%></font>页/<font color="red"><%=totalPut%></font>条信息 </span>
<% If currentPage <> 1 Then %>
<a href=<%=filename%>><font color="#FF6600"><span style="font-size:9pt">[首页]</span></font></a> <a href=<%=filename%>?Page=<%=(currentPage-1)%>><font color="#FF6600"><span style="font-size:9pt">[上一页]</span></font></a>
<% End If %>
<% If currentPage <> rs.PageCount Then %>
<a href=<%=filename%>?Page=<%=(currentPage+1)%>><font color="#FF6600"><span style="font-size:9pt">[下一页]</span></font></a> <a href=<%=filename%>?Page=<%=totalPage%>><font color="#FF6600"><span style="font-size:9pt">[尾页]</span></font></a>
<% End If %>
<span style="font-size:9pt"> 第<font color="#FF0000"><%=currentPage%></font>页/共<font color="#FF0000"><%=totalPage%></font>页
<%
response.write " 转到：<select name='page' size=1 class=smallselsect style='font-family: 宋体; font-size: 9pt;'>"
for i=1 to n
response.write "<option value="& i
if currentpage=i then
response.write " selected"
end if
response.write ">"& i &"</option>"
next
response.write "</select>"
response.write"<input name='types' type='hidden' value='"&request("types")&"'>"
response.write " <input class=buttonface type='submit' value='go' style='font-family: 宋体; font-size: 9pt;'>"
%>
</span> </div></td>
</tr>
</table>
</form></td>
</tr>
</table>
<%end sub%>
<p></p></td>
</tr>
</table>
</td>
</tr>
</table>
运行提示：
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e21'
ODBC 驱动程序不支持所需的属性。
/admin/zpxx.asp，行 20
红字是第20行

收藏0

使用道具举报

返回列表

		自动登录	找回密码
密码			注册