救急，看了久也不知道哪错了。

okcat 2005-11-30 04:25:48
<%response.buffer=true%>
<html>
<head>
<title>无标题文档</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF" text="#000000" background="PICTURE/C1.PNG">
<% dim con, rs,rc,pag,pa,rc1,per
select case request.querystring("maker")
case 1
f1=request.form("s1")
f2=request.form("t1")
set rs=con.execute("select * from table1 where "& trim(f1)&"="&"'"&trim(f2)&"'") '
rs.movefirst
while rs.eof<>true
rc1=rc1+1
rs.movenext
wend
if rc1>20 then
value1="下一页"
else
value1=""
end if

case 2
p=request.form("pageno")
per=(p-1)*20
rs.movefirst
for i=1 to per
rs.movenext
next
for i=1 to per+20
rs.movenext
if rs.eof=true then
exit for
end if
next
if rs.eof<>true then
rc1=1
value1="下一页"
else
rc=0
value1=""
end if
case else
set con=server.createobject("adodb.connection")
con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\JKC_WEB1\WEB\database1.mdb;Persist Security Info=False"
set rs=con.execute("select * from table1 ")
while rs.eof<>true
rc=rc+1
rs.movenext
wend
value1="下一页"
pag=rc mod 20
if pag <>0 then
pag=rc\20+1
end if
endselect
%>
<form name="form1" method="post" action="main1.asp?maker=1">
<table width="760" border="0" cellspacing="0" cellpadding="0" height="208" align="center">
<tr>
<td height="131" width="235">
<p><font size="2"><br>

<br>
<br>
<br>
<br>
<br>
<br>
<br>
共<font style='font-size:16px;color:red'><%=rc%> </font>条记录<font style='font-size:16px;color:red'>
<%=pag%></font>页　目前第页</font></p>
</td>
<td height="131" width="453"> </td>
<td height="131" width="72"><br>
<br>
<br>
<br>
<br>
<br>
<font size="2"><br>
<a href="WEB/main.htm">返回 </a></font></td>
</tr>
<tr>
<td colspan="3" height="41"><font face="宋体" color="#996600" size="2"><br>
请选择查询选项： </font> <font size="2">
<select name='s1' class='unnamed2'>
<option value="部门">部门</option>
<option value="单位名称或姓名">单位名称或姓名</option>
<option value="行政电话">行政电话</option>
<option value="直拨电话">直拨电话</option>
</select>
<input type='text' name='t1' size=40 class='unnamed2' value='公司办'>
<input type="submit" name="Submit" value="检索">
</font>
<div align="center"></div>
<div align="center"></div>
</td>
</tr>
<tr>
<td colspan="3" height="36">
<div align="right"><font size="2">  <%=value1%>   到
<input type='text' name='pageno' size=4 class='small1'>
页 <a href="main1.asp?maker=2" target="_self">跳转</a></font></div>
</td>
</tr>
<tr>
<td colspan="3" height="8">
<table width="760" border="0" cellspacing="1" cellpadding="0">
<tr bgcolor="#FFF7FF">
<td bgcolor="#FFF7FF" width="110">
<div align="center"><font size="2" color="#FF0000">部门</font></div>
</td>
<td width="179">
<div align="center"><font size="2" color="#FF0000">单位名称或姓名</font></div>
</td>
<td width="134">
<div align="center"><font size="2" color="#FF0000">行政电话</font></div>
</td>
<td width="126">
<div align="center"><font size="2" color="#FF0000">直拨电话</font></div>
</td>
</tr>
<tr>

<%select case request.querystring("maker")
case 2
for i=1 to 20
rs.moveprevious
next
if rc1= 1 then
for i=1 to per+20%>
<tr bgcolor="#F6F6F6" height="19">
<td height="19">
<div align="center"><font size="2"><%=rs(5)%></font></div >
</td>
<td height="19">
<div align="center"><font size="2"><%=rs(1)%></font></div>
</td>
<td height="19">
<div align="center"><font size="2"><%=rs(2)%></font></div>
</td>
<td height="19">
<div align="center"><font size="2"><%=rs(4)%></font></div>
</td>
</tr>
<% next
else
while rs.eof<>true%>
<tr bgcolor="#F6F6F6" >
<td height="19">
<div align="center"><font size="2"><%=rs(5)%></font></div >
</td>
<td height="19">
<div align="center"><font size="2"><%=rs(1)%></font></div>
</td>
<td height="19">
<div align="center"><font size="2"><%=rs(2)%></font></div>
</td>
<td height="19">
<div align="center"><font size="2"><%=rs(4)%></font></div>
</td>
</tr>
<% rs.movenext
wend
end if

case 1
rs.movefirst
if rc1>20 then
for i=1 to 20%>
<tr bgcolor="#F6F6F6" height="19">
<td height="19">
<div align="center"><font size="2"><%=rs(5)%></font></div >
</td>
<td height="19">
<div align="center"><font size="2"><%=rs(1)%></font></div>
</td>
<td height="19">
<div align="center"><font size="2"><%=rs(2)%></font></div>
</td>
<td height="19">
<div align="center"><font size="2"><%=rs(4)%></font></div>
</td>
</tr>
<%rs.movenext
next
else
while rs.eof<>true%>
<tr bgcolor="#F6F6F6" >
<td height="19">
<div align="center"><font size="2"><%=rs(5)%></font></div >
</td>
<td height="19">
<div align="center"><font size="2"><%=rs(1)%></font></div>
</td>
<td height="19">
<div align="center"><font size="2"><%=rs(2)%></font></div>
</td>
<td height="19">
<div align="center"><font size="2"><%=rs(4)%></font></div>
</td>
</tr>
<% rs.movenext
wend
end if

case else
rs.movefirst
for i=1 to 20%>
<tr bgcolor="#F6F6F6" height="19">
<td height="27">
<div align="center"><font size="2"><%=rs(5)%></font></div >
</td>
<td height="27">
<div align="center"><font size="2"><%=rs(1)%></font></div>
</td>
<td height="27">
<div align="center"><font size="2"><%=rs(2)%></font></div>
</td>
<td height="27">
<div align="center"><font size="2"><%=rs(4)%></font></div>
</td>
</tr>
<%rs.movenext
next
endselect
%>

</table>
</td>
</tr>
</table>
</form>
</body>
</html>
...全文
143 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
okcat 2005-11-30
  • 打赏
  • 举报
 回复
做的过程，也放在这个SAP页上吗？我刚学的，多多指教
showlin 2005-11-30
  • 打赏
  • 举报
 回复
真够长的，你为什么不把for循环里面的做个过程呢？代码看起来也好些
okcat 2005-11-30
  • 打赏
  • 举报
 回复
大哥，就是因为这个。谢了
竹林听雨2005 2005-11-30
  • 打赏
  • 举报
 回复
没仔细看，但明确指出其中一点，endselect 中间空格加上， end select
okcat 2005-11-30
  • 打赏
  • 举报
 回复
提示的错误：
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/jkc/main1.asp，行229
手机远程救急哪家强？ToDesk、向日葵、网易UU“打工人”的生存考验
无论是职场还是生活中，我们总是会遇到一些"突发情况"，比如：刚回到家才想起有份重要文件忘记发给领导；家里长辈不熟悉手机电脑设备操作。正当不知所措时，作为打工人及子女，常常由于无法克服物理距离或电话指导效率低效，导致事情无法得到很好的结局。
Xcode遇到程序崩溃时调试方法救急！！！
转来的，我觉得很不错，精品！ 有这样一种情形：当我们正在快乐的致力于我们的app时，并且什么看都是无比顺利，但是突然，坑爹啊，它崩溃了。（悲伤地音乐响起） 我们需要做的第一件事就是：不要惊慌。 修复崩溃不是很困难的。假如你崩溃了，并且胡乱的改些东西，而且还在不停的念着咒语希望bug神奇的自动消失，你大多数情况下都会使情况更麻烦。相反的，你需要知道一些系统的方法，并且学习怎么找到崩溃和他的
日更第10期-2015-3-25-processing教程-基础篇-第一讲-一个极其简单的图片显示工具...
---恢复内容开始--- Hi，今天我又来日更了！恩，已经三天了，不知道哪天就要结束了.......我还是尽量多持久。话说，博客园上的博客基本 都是属于大体量但是数量少的，大部分人的数量都小于10篇......看来我已经打败了30%以上（自己瞎猜的）博客了！ 值得庆贺的第十一篇博客，那么我就开个新坑好了。 这一次我要开的坑是processing。虽然之前做of时就说过要做proces...
如何在工作中快速成长？致工程师的10个简单技巧
阿里妹导读：阿里有句非常经典的土话，“今天的最好表现，是明天的最低要求。”如何挖掘潜能、发现更好的自己？今天，阿里巴巴高级无线开发专家江建明将认知升级的方法总结出来，帮助你获得快速成长的秘诀（本文内容稍长但值得细细阅读哦）。 一、如何阅读本文？ 找一个固定不被打扰时间仔细阅读。 在碎片化的时间中，每次读完一段内容。 最重要的是每次做到只字不差的阅读，然后停下，带着批判性思维从本文中提...
野生程序员的折腾—残酷的磨砺让我更加锋利(二)
吐槽自己 嘿孙子！！！ 注意：不是装孙子。我就真是一个孙子！         正式上班的第一天，老大就甩给我一个100多页的文档，纯英文的，让我“先看看”。“先看看”是什么意思？不懂啊，更不敢问——怕露馅，我简历上说我已经有三年开发工作经验了。三年的开发经验还不知道“先看看”的意思？         于是我就从第一页开始看吧。真心看不懂，不是英文看不懂，是里面的逻辑搞不懂；而且是纯看文档，没有可...
ASP

28,406

社区成员

356,946

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章