问题描述
<%@LANGUAGE=VBScript.Encode%><!--#includefile="Conn.ASP"--><html><head><metahttp-equiv="Content-Type"content="text/html;charset=gb2312"><linkhref="style.css"rel="stylesheet"type="text/css"><stylemedia=print>.Noprint{display:none;}.PageNext{page-break-after:always;}</style><title>无标题文档</title></head><bodytopmargin="0"><tablewidth="100%"border="0"cellspacing="0"cellpadding="0"><tr><tdalign="center"><tablewidth="780"border="0"cellspacing="0"cellpadding="0"><tralign="center"><td><tablewidth="100%"border="0"cellpadding="3"cellspacing="1"bgcolor="#333333"><tralign="center"><tdwidth="100%"height="25"colspan="5"bgcolor="#CCCCCC"><b>销售管理</b></td></tr><tralign="center"bgcolor="#FFFFFF"><tdcolspan="5"><tablewidth="100%"border="0"cellpadding="3"cellspacing="1"bgcolor="#333333"><tralign="center"bgcolor="#FFFFFF"><tdbgcolor="#FFFFFF">客户名称</td><td>产品名称</td><td>产品规格</td><td>销售单价(元)</td><td>数量</td><td>金额</td><td>销售时间</td><td>备注)</td><td>操作</td></tr><%SetRs=Server.CreateObject("ADODB.Recordset")IfRequest("action")="Find"Thenkey=Trim(Request("key"))Sql="Select*FromgoodWherecpmcLike'%"&session("key")&"%'OrderByidDesc"ElseSql="Select*From[good]OrderBytimeDesc"endifRs.OpenSql,conn,3,3IfIsNumeric(Request("Page"))=falseOrRequest("Page")=""ThenPage=1ElsePage=CInt(Request("Page"))Endif'每页显示的记录条数Rs.PageSize=10IfRs.EofAndRs.BofThenResponse.Write"<tralign='center'bgcolor='#FFFFFF'><tdheight='25'colspan='9'>暂无此类信息!</td></tr>"Response.Write"<tralign='center'bgcolor='#FFFFFF'><tdheight='25'colspan='9'><ahref='JavaScript:history.go(-1);'><imgsrc='Images/back.gif'width='45'height='18'border='0'></a></td></tr></table>"Response.EndElsemyPageSize=Rs.PageSizeRs.AbsolutePage=PageDoWhilenotRs.EofAndmyPageSize>0%><trbgcolor="#FFFFFF"><tdalign="center"bgcolor="#FFFFFF"><%=Rs("khmc")%></td><tdalign="center"><ahref="ViewGoods.asp?cpmc=<%=Rs("cpmc")%>"><%=Rs("cpmc")%></a></td><td><%=Rs("cpgg")%></td><tdalign="center"><%=Rs("price")%></td><tdalign="center"><%=Rs("amount")%></td><tdalign="center"><%=Rs("total")%></td><tdalign="center"><%=Rs("year")%>-<%=Rs("month")%>-<%=Rs("day")%></td><td><%=Rs("memo")%></td><tdalign="center"><ahref="EditSale.asp?id=<%=Rs("id")%>"><imgsrc="Img/edit.jpg"width="15"height="15"border="0"alt="修改"></a> <ahref="javascript:if(window.confirm('你确实要删除此项记录吗?')==true){window.location='Delete.asp?action=DelSale&id=<%=Rs("id")%>';}"><imgsrc="Img/delete.jpg"width="15"height="15"border="0"alt="删除"></a></td></tr><%myPageSize=myPageSize-1i=i+1Rs.MoveNextLoop%></table></td></tr><tralign="right"bgcolor="#FFFFFF"><tdcolspan="5">总共 <b><%=Rs.RecordCount%></b> 条 每页 <b><%=Rs.PageSize%></b> 条 <b><%=Page%>/<%=Rs.PageCount%></b> <%IfPage>1ThenResponse.Write"<ahref='Sale.asp?action=find&cpmc="&key&"&Page=1'title='首页'><fontface=webdings>"&9&"</font></a>"Response.Write" <ahref='Sale.asp?action=find&cpmc="&key&"&Page="&Page-1&"'title='上一页'><fontface=webdings>"&7&"</font></a>"EndIfIfRs.PageCount<=4ThenForj=1ToRs.PageCountResponse.Write" <ahref='Sale.asp?action=find&cpmc="&key&"&Page="&j&"'>"&j&"</a>"NextElseForj=1To4Response.Write" <ahref='Sale.asp?action=find&cpmc="&key&"&Page="&j&"'>"&j&"</a>"NextIfPage<Rs.PageCountThenResponse.Write" <ahref='Sale.asp?action=find&cpmc="&key&"&Page="&Page+1&"'title='下一页'><fontface=webdings>"&"8"&"</a></font>"EndIfResponse.Write" <ahref='Sale.asp?action=find&cpmc="&key&"&Page="&Rs.PageCount&"'title='尾页'><fontface=webdings>:</font></a>"EndIf%> </td></tr><tralign="right"bgcolor="#FFFFFF"><tdcolspan="5"align="center"><inputtype="button"name="Submit3"value="添加产品"onClick="window.location='AddSale.asp'"> <inputtype="button"value="返回"name="B42"onclick="javascript:window.history.go(-1)"></td></tr><tralign="right"bgcolor="#FFFFFF"><tdcolspan="5"align="center"><formname="form1"method="post"action="sellstat.asp"target="_blank"><tablewidth="100%"border="0"cellspacing="0"cellpadding="0"><tr><td><spanclass="tableHeaderText">统计报表</span></td><td><spanclass="forumRowHighlight">开始日期:</span></td><td><spanclass="forumRowHighlight"><selectname="year1"><%fori=2004to2100%><optionvalue="<%=i%>"<%ifyear(now())=ithen%>selected<%endif%>><%=i%></option><%next%></select>年<selectname="month1"><%fori=1to12%><optionvalue="<%=i%>"<%ifmonth(date())=ithen%>selected<%endif%>><%=i%></option><%next%></select>月<selectname="day1"><%fori=1to31%><optionvalue="<%=i%>"><%=i%></option><%next%></select>日</span></td><td><spanclass="forumRowHighlight">结束日期:</span></td><td><spanclass="forumRowHighlight"><selectname="year2"><%fori=2004to2100%><optionvalue="<%=i%>"<%ifyear(now())=ithen%>selected<%endif%>><%=i%></option><%next%></select>年<selectname="month2"><%fori=1to12%><optionvalue="<%=i%>"<%ifmonth(date())=ithen%>selected<%endif%>><%=i%></option><%next%></select>月<selectname="day2"><%fori=1to31%><optionvalue="<%=i%>"<%ifday(date())=ithen%>selected<%endif%>><%=i%></option><%next%></select>日</span></td><td><spanclass="forumRowHighlight"><inputclass=buttontype="submit"name="Submit2"value=" 统 计 "></span></td></tr></table></form></td></tr><trbgcolor="#FFFFFF"><formname="form1"method="post"action="Sale.asp?action=Find"ID="Form1"><tdcolspan="5"bgcolor="#FFFFFF"><imgsrc="Images/find.gif"width="12"height="13">选择查询方式:产品名称<inputname="key"type="text"size="12"><inputtype="submit"name="Submit"value="查询">(请先输入查询关键字)</td></form></tr></table></td></tr></table></td></tr><%EndIfRs.CloseSetRs=nothing%></table></body></html>——————————————————————————————conn.asp<%DimconnDimconnstrDimdbdb="db1.mdb"SetConn=Server.CreateObject("ADODB.Connection")connstr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath("db1.mdb")Conn.Openconnstr%>
解决方案
解决方案二:
每人回答么。。。。
解决方案三:
跪求高人指点啊。。。。。。。。。。。。。。。。。。。