过期了报废 - 编程论坛

#2

ayue2222007-08-22 09:13

<%set rs=server.CreateObject("adodb.recordset")
rs.Open "select top 1 baomingid,xingming,sex,peixunjigou,kechengtitle,jointime from baoming where datediff("d",jointime,"&now ()&")=0 order by baomingid desc",conn,1,1
if not (rs.EOF and rs.BOF then)
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="97">
<tr>
<td width="25%" align="center">姓名:</td>
<td width="75%"><%=rs(1)%></td>
</tr>
<tr>
<td align="center">性别:</td>
<td><%=rs(2)%> </td>
</tr>
<tr>
<td align="center">学校：</td>
<td><%=rs(3)%> </td>
</tr>
<tr>
<td align="center">专业：</td>
<td><%=rs(4)%> </td>
</tr>
<tr>
<td align="center">时间：</td>
<td><%=rs(5)%> </td>
</tr>
</table>
<%
end if
rs.close
set rs=nothing%>

#3

multiple19022007-08-22 09:32

do while not rs.eof
set xingming=rs("xingming")
set sex=rs("sex")
set peixunjigou=rs("peixunjigou")
set kechengtitle=rs("kechengtitle")
set chushengriqi=rs("chushengriqi")%>

为什么用set?

#4

gz522007-08-22 09:46

过期失效~~

[此贴子已经被作者于2007-8-25 4:22:06编辑过]

#5

hmhz2007-08-22 10:14

<%
Adate=dateAdd("d",-1,date())&" 23:59:59"
Bdate=now()
set rs=server.CreateObject("adodb.recordset")
rs.Open "select xingming,sex,peixunjigou,kechengtitle,jointime from baoming where jointime Between '"&Adate&"' and '"&Bdate&"' order by baomingid desc",conn,1,1
set xingming=rs("xingming")
set sex=rs("sex")
set peixunjigou=rs("peixunjigou")
set kechengtitle=rs("kechengtitle")
set jointime=rs("jointime")
do while not rs.eof
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="97">
<tr>
<td width="25%" align="center">姓名:</td><td width="75%"><%=xingming%></td>
</tr>
<tr>
<td align="center">性别:</td><td><%=sex%></td>
</tr>
<tr>
<td align="center">学校：</td><td><%=peixunjigou%></td>
</tr>
<tr>
<td align="center">专业：</td><td><%=kechengtitle%></td>
</tr>
<tr>
<td align="center">时间：</td><td><%=jointime%></td>
</tr>
</table>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>

#6

ayue2222007-08-22 14:58

冷汗 ....页面显示的问题偶就吃不准了 ...没有进行实际的测试 ...不能保证页面上能正确显示 ...
不过刚刚看了下有个小小的问题 ...因为是直接COPY你的代码 ..所以没有注意 ....

<%set rs=server.CreateObject("adodb.recordset")
rs.Open "select top 1 baomingid,xingming,sex,peixunjigou,kechengtitle,jointime from baoming where datediff("d",jointime,"&now ()&")=0 order by baomingid desc",conn,1,1
if not (rs.EOF and rs.BOF then)
%>

应该是 if not (rs.EOF and rs.BOF) then

#7

gz522007-08-23 12:10

过期失效~~

[此贴子已经被作者于2007-8-25 4:22:58编辑过]

#8

ayue2222007-08-23 13:11

不会是链接数据库都要咱们帮你连吧 ??

#9

gz522007-08-23 23:50

过期失效~~

[此贴子已经被作者于2007-8-25 4:22:28编辑过]