| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 715 人关注过本帖
标题:高手帮忙?谢谢!
只看楼主 加入收藏
w136290854
Rank: 1
等 级:新手上路
帖 子:138
专家分:0
注 册:2008-10-11
结帖率:96.3%
收藏
 问题点数:0 回复次数:4 
高手帮忙?谢谢!
<!-- #include file="Include/Chk.asp" -->
<!-- #include file="Conn.asp" -->
<%
dim name,sid
name=Trim(Request.Form("name"))
sid=Trim(Request.Form("sid"))
cate=Request.Form("cate")

if   sid="" or name="" or cate=""  then
    Response.Write "<script language='javascript'>alert('请填写完所有项目!');history.go(-1);</script>"
    Response.End()
end if

set rs=server.createobject("Adodb.Recordset")
sql="Select * from Staff "
rs.open sql,conn,1,3

    bid=rs("bid")
    name=rs("name")
    sid=rs("sid")
    cate=rs("cate")
    dep=rs("dep")
    source=rs("source")
    bs=rs("bs")
    sj=rs("sj")
    cname=rs("cname")
    pingzhong=rs("pingzhong")
    fhtime=rs("fhtime")
    rs.update


%>    
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.
<html xmlns="http://www.
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>查询结果</title>
<link href="Images/default.css" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--
.STYLE1 {color: #FFFFFF}
.STYLE2 {
    font-size: 36px;
    font-weight: bold;
}
.STYLE3 {
    color: #FF0000;
    font-weight: bold;
}
.STYLE4 {color: #FF0000}
.STYLE5 {color: #000000}
-->
</style>
</head>

<body>
<form id="form1" name="form1" method="post" action="">
  <div align="center">
    <table width="259" border="0">
      <tr>
        <td width="84"><img src="Images/l20071016131943.jpg" width="84" height="61" /></td>
        <td width="165"><span class="STYLE2">查询结果</span></td>
      </tr>
    </table>
    <table width="842" height="57" border="1">
      <tr>

        <td align="center">公司编号</td>
        <td align="center"><span class="STYLE5">公司名称</span></td>
        <td align="center"><span class="STYLE1 STYLE5">发贷时间</span></td>
        <td align="center"><span class="STYLE1 STYLE5">发片时间</span></td>
        <td align="center"><span class="STYLE1 STYLE5">是否发贷</span></td>
        <td align="center"><span class="STYLE1 STYLE5">快递公司</span></td>
        <td align="center">查贷电话</td>
        <td align="center">查看详细</td>
      </tr>

<%set rs=server.createobject("adodb.recordset")
sql="Select * from Staff where name='"&name&"' and sid='"&sid&"' and cate="&cate
rs.open sql,conn,1,3
if rs.eof then
  response.write "没有记录!"
end if

rs.pagesize = 2
if request("page")=""  or isempty(request("page")) then
page = 1
else
page=int(request("page"))
end if
if page>rs.pagecount then
page=rs.pagecount
end if
if not rs.BOF then
Rs.Move Rs.PageSize*(page-1)
end if
i=1
do while not rs.eof and i<=rs.pagesize
%>

      <tr>
        <td align="center"><%=rs("sid")%></td>
        <td align="center"><%=rs("name")%></td>
        <td align="center"><%=rs("fhtime")%></td>
        <td align="center"><%=rs("source")%></td>
        <td align="center"><span class="STYLE3"><%=rs("dep")%></span></td>
        <td align="center"><%=rs("cname")%></td>
        <td align="center"><%=rs("bs")%></td>
        <td align="center"><a href="Staff_View.asp?id=<%=Trim(rs("id"))%>">查看</a></td>
      </tr>
<%
i=i+1
rs.MoveNext                                             
loop
%>
    
      <tr>
        <td colspan="8" align="center">分页:&nbsp;
        <%
if rs.recordcount<>0 then
if page-1 mod 10=0 then
p=(page-1) \ 10
else
p=(page-1) \ 10
end if

response.write "页次:"& page &"/"& rs.pagecount &"页 每页"& rs.pagesize &" 共"& rs.recordcount &"条记录"&_
" 分页:"

if p*10>0 then response.write "<a href='?keywords="&keywords&"&keywords2="&keywords2&"&xs="&xs&"&page="&p*10&"' title=上十页>[<<]</a>  "
    uming_i=1
for ii=p*10+1 to P*10+10
  if ii=page then
          response.write "<font color=#ff0000>["+Cstr(ii)+"]</font> "
  else
      response.write "<a href='?keywords="&keywords&"&keywords2="&keywords2&"&xs="&xs&"&page="&ii&"'>["+Cstr(ii)+"]</a>  "
  end if
if ii=rs.pagecount then exit for
uming_i=uming_i+1
next
if ii<=rs.pagecount and uming_i=11 then response.write "<a href='?keywords="&keywords&"&keywords2="&keywords2&"&xs="&xs&"&page="&ii&"' title=下十页>[>>]</a>  "
response.write("  跳页:<input type=text name=page size=2 maxlength=3 class=wenbenkuang> <input type=submit name=Submit value=Go class=go-wenbenkuang>")
end if
%> </td>
      </tr>
    </table>
    <p>&nbsp;</p>
    <p>         杭州摩格科技有限公司</p>
  </div>
</form>
</body>
</html>
为什么我点击第二页的时候,并没有跳转到第二页,而是执行“if   sid="" or name="" or cate=""  then
    Response.Write "<script language='javascript'>alert('请填写完所有项目!');history.go(-1);</script>"
    Response.End()
end if
”这段代码了,出现了一个提示框,应该怎么解决啊?
搜索更多相关主题的帖子: asp 
2008-11-27 16:04
chinasj
Rank: 2
等 级:论坛游民
威 望:1
帖 子:62
专家分:74
注 册:2008-4-26
收藏
得分:0 
从这页面代码上看,你上面那一段代码没用。删除就OK了。

如果要用可以放到case 或者 if 里面,来个判断,只有要执行那段代码的时候才调用,就OK啦。
2008-11-27 16:23
w136290854
Rank: 1
等 级:新手上路
帖 子:138
专家分:0
注 册:2008-10-11
收藏
得分:0 
关于排序?
<%set rs=server.createobject("adodb.recordset")
sql="Select top 30 * from Staff  where name='"&name&"' and sid='"&sid&"' and cate="&cate
rs.open sql,conn,1,1
if not rs.eof then
do while not rs.eof
%>这段代码我想让内容升序排怎么写啊?

活!就要活的潇洒!管他咚哩个咚!
2008-11-27 16:48
chinasj
Rank: 2
等 级:论坛游民
威 望:1
帖 子:62
专家分:74
注 册:2008-4-26
收藏
得分:0 

sql="Select top 30 * from Staff  where name='"&name&"' and sid='"&sid&"' and cate="&cate&" order by id asc"
也可以这样 ,默认就是升序的。
sql="Select top 30 * from Staff  where name='"&name&"' and sid='"&sid&"' and cate="&cate


sql="Select top 30 * from Staff  where name='"&name&"' and sid='"&sid&"' and cate="&cate&" order by id desc"
2008-11-27 17:50
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
以下是引用w136290854在2008-11-27 16:48的发言:

这段代码我想让内容升序排怎么写啊?

依照哪个字段排序?排序得有参照字段,比如按日期排序就是日期字段为参照字段,按编号排序编号就是参照字段。
2008-11-27 19:40
快速回复:高手帮忙?谢谢!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.052398 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved