| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 345 人关注过本帖
标题:[求助]请教不同字段显示问题
只看楼主 加入收藏
玉树临风
Rank: 1
等 级:新手上路
帖 子:49
专家分:0
注 册:2006-11-7
收藏
 问题点数:0 回复次数:0 
[求助]请教不同字段显示问题

大家先看看这个页面 我在数据库里有三个字段 line1 line2 line3 我后台添加数据的时候。会出现如图的错位。当然这是我使用排序造成的,但是我试验很多方法,都不能实现添加数据时候分别显示自己的数据。而不串行。请各位指点。谢谢。

图片附件: 游客没有浏览图片的权限,请 登录注册


这是显示页面代码
<!--#include file="conn.asp"-->

<table width="1000" border="0" cellpadding="0" cellspacing="0" bgcolor="f7f7f7">
<tr>
<td width="330" height="25" bgcolor="f7f7f7" class="redfont"><div align="center">省内短线</div></td>
<td width="330" bgcolor="f7f7f7" class="redfont"><div align="center">国际线路</div></td>
<td width="330" bgcolor="f7f7f7" class="redfont"><div align="center">国内线路</div></td>
</tr>
<tr align="left" valign="top">
<td height="25" colspan="3" bgcolor="f7f7f7">
<%
Const MaxPerPage=20
dim totalPut
dim CurrentPage
dim TotalPages
dim j
dim sql
if Not isempty(request("page")) then
currentPage=Cint(request("page"))
else
currentPage=1
end if
set rs=server.CreateObject("adodb.recordset")
sql="select * from xljss order by lydate desc"
rs.open sql,conn,1,1

a=1
if err.number<>0 then
response.write "数据库中无数据"
end if

if rs.eof And rs.bof then
Response.Write "<p align='center' class='contents'> 暂没信息!</p>"
else
totalPut=rs.recordcount

if currentpage<1 then
currentpage=1
end if

if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if

if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"xljs.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,"xljs.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"xljs.asp"
end if
end if
end if

sub showContent
dim i,j
i=0
do while not rs.eof

%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="xia1">
<tr>
<td width="20" height="25" align="center" bgcolor="ffffff"><div align="center"><img src="images/article_ontop.gif" width="9" height="9"></div></td>
<td width="330" align="center" valign="top" bgcolor="ffffff" class="blank_14font">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center"><a href="xljs_show.asp?id=<%=rs("id")%>" target="_blank"><%=rs("line1")%></a></td>
</tr>
</table></td>
<td width="330" height="25" align="center" valign="top" bgcolor="ffffff" class="blank_14font"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center"><a href="xljs_show.asp?id=<%=rs("id")%>" target="_blank"><%=rs("line2")%></a></td>
</tr>
</table></td>
<td width="330" align="center" valign="top" bgcolor="ffffff" class="blank_14font"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center"><a href="xljs_show.asp?id=<%=rs("id")%>" target="_blank"><%=rs("line3")%></a></td>
</tr>
</table></td>
</tr>
</table>
<%

rs.movenext

i=i+1
j=j+1
if i>=MaxPerPage then Exit Do
loop
rs.close
set rs=nothing

%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="f7f7f7">
<tr>
<td height="25" bgcolor="f7f7f7"><%
End Sub
Function showpage(totalnumber,maxperpage,filename)
Dim n

If totalnumber Mod maxperpage=0 Then
n= totalnumber \ maxperpage
Else
n= totalnumber \ maxperpage+1
End If

Response.Write "<form method=Post action="&filename&">"
Response.Write "<p align='center' class='contents'> "
If CurrentPage<2 Then
Response.Write "<font class='blank_14font'>首页 上一页</font> "
Else
Response.Write "<a href="&filename&"?page=1 class='blank_14font'>首页</a> "
Response.Write "<a href="&filename&"?page="&CurrentPage-1&" class='contents'>上一页</a> "
End If

If n-currentpage<1 Then
Response.Write "<font class='blank_14font'>下一页 尾页</font>"
Else
Response.Write "<a href="&filename&"?page="&(CurrentPage+1)&" class='blank_14font'>"
Response.Write "下一页</a> <a href="&filename&"?page="&n&" class='blank_14font'>尾页</a>"
End If
Response.Write "<font class='blank_14font'> 页次:</font><font class='blank_14font'>"&CurrentPage&"</font><font class='blank_14font'>/"&n&"页</font> "
Response.Write "<font class='blank_14font'> 共有"&totalnumber&"个信息 "
Response.Write "<font class='blank_14font'>转到:</font><input type='text' name='page' size=2 maxlength=10 class=smallInput value="&currentpage&">"
Response.Write "&nbsp;<input type='submit' class='button' value='GO' name='cndok'></form>"
End Function
%></td>
</tr>
</table> </td>
</tr>
</table>

搜索更多相关主题的帖子: 字段 
2006-11-07 20:35
快速回复:[求助]请教不同字段显示问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.012412 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved