客户策划要求列表

<% y=session("vip") if session("vip")="" then response.write "" response.end end if %> 客户策划要求列表

<% set rs=server.createobject("adodb.recordset") sql="select * from chyq where vip_username='"&session("vip")&"'"&" order by tjsj desc" rs.open sql,conn,3 if not rs.eof then topage=request("page") if not isnumeric(topage) or topage="" then topage=1 rs.pagesize=12 page=clng(topage) if page<1 then page=1 if page>rs.pagecount then page=rs.pagecount rs.absolutepage=page pagecount=rs.pagecount infonum=rs.recordcount pagesize=rs.pagesize for i=0 to rs.pagesize-1 %> <% rs.movenext if rs.eof then exit for 'exit for 终止for循环 next 'for 语句结束 end if set rs=nothing %>

用户名	单位名称	提交时间	策划内容	策划要求
" ttarget="mainFrame"> <% =rs("vip_username")%>	" ttarget="mainFrame"> <% =rs("vip_nicheng")%>	" ttarget="mainFrame"> <% =rs("tjsj")%>	" ttarget="mainFrame"> <% if len(rs("chnr"))>12 then%><%=Left(rs("chnr"),12)%>.. <% else Response.Write(rs("chnr"))%> <%end if%>	" ttarget="mainFrame"> <% if len(rs("chyq"))>12 then%><%=Left(rs("chyq"),12)%>.. <% else Response.Write(rs("chyq"))%> <%end if%>

信息数:<%=infonum%> 页次:<%=page%>/<%=pagecount%> 每页信息:<%=pagesize%>

<%if page<>1 and page<>"" then%> [首页] [上一页] <%end if%> <%if page<>pagecount and page<>"" then%> [下一页] [尾页] <%end if%> <%if page<>"" then%> 目前是第: size="2" style="position: relative; height: 18; background-color: #FFFFFF; color: #000080; width: 22; border: 1 solid #000080" onMouseOver = "this.style.backgroundColor = '#E5F0FF'" onMouseOut = "this.style.backgroundColor = ''"> 页 <%end if%>

【返回】