2006-11-30 08:02
2006-11-30 08:27
2006-11-30 08:41
2006-11-30 08:54
2006-11-30 08:56
你能保证颜色部分正确吗？
table、tr都少了结束标记…………
<html>
<body>
<table border="1">
<%
Set OBJConn = Server.CreateObject("ADODB.Connection")
OBJConn.Open "dhyx","sa","123456"
sersql="select bdh,xz,js,bf,bb,sdr,qt,sj from sqzz_2 b where sj>=convert(varchar,year(getdate()))+convert(varchar,month(getdate()))+convert(varchar,day(getdate())) and sj<getdate() order by sj desc"
Set rs=OBJConn.Execute (sersql)
%>
<tr>
<td>产品号</td>
<td>产品</td>
<td>件数</td>
<td>批发价</td>
<td>售价</td>
<td>发货人</td>
<td>其他</td>
<td>录入时间</td>
<tr>
<%do while not rs.eof%>
<tr>
<td><%=rs("bdh")%></td>
<td><%=rs("xz")%></td>
<td><%=rs("js")%></td>
<td><%=rs("bf")%></td>
<td><%=rs("bb")%></td>
<td><%=rs("sdr")%></td>
<td><%=rs("qt")%></td>
<td><%=rs("sj")%></td>
</tr>
<%
rs.Movenext
loop
%>
<br>
<%
OBJConn.Close
Set rs = Nothing
Set OBJConn = Nothing
%>
</body>
</html>
2006-11-30 12:04
2006-11-30 16:05
2006-11-30 16:07
2006-11-30 16:17
2006-11-30 16:22
epP7kyrg.rar