信息怎么才能像http://www.strc.com.cn/一样排例呢?

时间:2022-12-28 22:16:21
怎样才能做到这样呢?
       汕头市达濠海湾实业有限公司(02-06-21) 
       诚聘:熟练模工/注塑班长/工业会计                 


我做的这样子:
       汕头市达濠海湾实业有限公司(02-06-21) 
       诚聘:熟练模工

       汕头市达濠海湾实业有限公司(02-06-21) 
       诚聘:注塑班长

       汕头市达濠海湾实业有限公司(02-06-21) 
       诚聘:工业会计                 

我做的源码?送给大家帮忙指导几下
         asp.6to23.com/w1w/help.zip

帮忙改一下。只改首页显示就行了.
在些表示感谢。

7 个解决方案

#1


把你的显示代码贴出来让大家改,还要去下载你的代码,太累

#2


不知道你的数据库是怎么设计的,给你一个思路:

汕头市达濠海湾实业有限公司(02-06-21) --这些信息存放在一个表中,
熟练模工/注塑班长/工业会计--这些信息存放在另外一个表中,
诚聘内容根据公司名称(汕头市达濠海湾实业有限公司)从数据库调
2 可以用sql语句控制

#3



楼上的老兄,我的数据库是你说的那种形式,但我不知道代码怎么写。我的数据库和源码大部分都是用别我的。帮帮忙改一下吧!如果有机会的话我请你们吃饭。



<% Response.Buffer=True %>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("jobshao.mdb")%>

<% 
set rs=server.createobject("adodb.recordset")
sql="select * from company"  '------公司信息存放的表
rs.open sql,conn,1,1
r1=rs.recordcount
rs.close                                                                    
set rs=nothing
set rs=server.createobject("adodb.recordset")
sql="select * from zp order by id desc" ---招聘信息存放的表          
rs.open sql,conn,1,1 
jobnum=rs.recordcount %> 



<% set rs=server.createobject("adodb.recordset")
            sql="select * from zp order by id desc" 
                            rs.open sql,conn,1,1 %>
--------------------下面的就是公司名称
<a href="job.asp?uid=<%=rs("uname")%>&id=<%=rs("id")%>">
<% if len(rs("cname"))>20 then%>
<%=Left(rs("cname"),20)%>... 
<% else%>
<%=rs("cname")%> 
<%end if%>
</font> </a><br>
诚聘: 
<%=rs("job")%> ---显示出来的招聘信息 

 <% c=c+1                                                               rs.movenext                                                         if c>=15 then exit 
do  loop      rs.close                                                            
set rs=nothing %>



详细观看地址:http://asp.6to23.com/w1w/help.zip

#4


把你要显示的东东,放在循环内布拉
<% c=c+1                                                               rs.movenext                                                         if c>=15 then exit %>
<%=rs("job")%> 
<%
do  loop      rs.close                                                            
set rs=nothing %>

#5


把你要显示的东东,放在循环内布出现下面错误信息!

Microsoft VBScript 编译器错误 错误 '800a040f' 

无效的 'exit' 语句 

/help/Default.asp,行381 

if c>=15 then exit

#6


sql="select * from zp order by id desc" ---招聘信息存放的表  
我觉得这具有问题,应该有条件的,不应该去全部数据,而是取某个company的

#7


exit后面要有东西的
你想exit一个for还是do啊?

#1


把你的显示代码贴出来让大家改,还要去下载你的代码,太累

#2


不知道你的数据库是怎么设计的,给你一个思路:

汕头市达濠海湾实业有限公司(02-06-21) --这些信息存放在一个表中,
熟练模工/注塑班长/工业会计--这些信息存放在另外一个表中,
诚聘内容根据公司名称(汕头市达濠海湾实业有限公司)从数据库调
2 可以用sql语句控制

#3



楼上的老兄,我的数据库是你说的那种形式,但我不知道代码怎么写。我的数据库和源码大部分都是用别我的。帮帮忙改一下吧!如果有机会的话我请你们吃饭。



<% Response.Buffer=True %>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("jobshao.mdb")%>

<% 
set rs=server.createobject("adodb.recordset")
sql="select * from company"  '------公司信息存放的表
rs.open sql,conn,1,1
r1=rs.recordcount
rs.close                                                                    
set rs=nothing
set rs=server.createobject("adodb.recordset")
sql="select * from zp order by id desc" ---招聘信息存放的表          
rs.open sql,conn,1,1 
jobnum=rs.recordcount %> 



<% set rs=server.createobject("adodb.recordset")
            sql="select * from zp order by id desc" 
                            rs.open sql,conn,1,1 %>
--------------------下面的就是公司名称
<a href="job.asp?uid=<%=rs("uname")%>&id=<%=rs("id")%>">
<% if len(rs("cname"))>20 then%>
<%=Left(rs("cname"),20)%>... 
<% else%>
<%=rs("cname")%> 
<%end if%>
</font> </a><br>
诚聘: 
<%=rs("job")%> ---显示出来的招聘信息 

 <% c=c+1                                                               rs.movenext                                                         if c>=15 then exit 
do  loop      rs.close                                                            
set rs=nothing %>



详细观看地址:http://asp.6to23.com/w1w/help.zip

#4


把你要显示的东东,放在循环内布拉
<% c=c+1                                                               rs.movenext                                                         if c>=15 then exit %>
<%=rs("job")%> 
<%
do  loop      rs.close                                                            
set rs=nothing %>

#5


把你要显示的东东,放在循环内布出现下面错误信息!

Microsoft VBScript 编译器错误 错误 '800a040f' 

无效的 'exit' 语句 

/help/Default.asp,行381 

if c>=15 then exit

#6


sql="select * from zp order by id desc" ---招聘信息存放的表  
我觉得这具有问题,应该有条件的,不应该去全部数据,而是取某个company的

#7


exit后面要有东西的
你想exit一个for还是do啊?