[求助]我想做个简单的分页～～～～～～～～～～ - ASP技术论坛

得分:0

我把我的程序改了下，现在贴出来有空的就看看
这个分页问题已经骚扰我好久，快晕了，弄了好多个都不行
<%response.Buffer=true%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>需求单系统处理历史查询</title>
</head>

<script type="text/javascript" src="calendar.js"></script>

<form action="dispose_history.asp" method="post" name="dispose_history">
<table width="852" border="1" align="center">
<td colspan="4" class="titleClass">需求单系统查询画面</td>
<tr>
<td width="115" height="48">需求主旨:</td>
<td colspan="3"><label>
<input type="text" id="MAJOR_IDEA" name="MAJOR_IDEA" size="65" maxlength="65" />
</label></td>
</tr>
<tr>
<td height="43">需求单提出日期:</td>
<td width="305"><label>
<input onFocus="calendar()" name="APPLY_TIME_start" type="text" id="APPLY_TIME_start" />
</label></td>
<td width="87">至: </td>
<td width="317"><label>
<input onFocus="calendar()" name="APPLY_TIME_end" type="text" id="Calendar1" />
</label></td>
</tr>
<tr>
<td height="35">希望上线时间:</td>
<td><label>
<input onFocus="calendar()" name="WISH_FINISH_TIME_start" type="text" id="Calendar1" />
</label></td>
<td>至:</td>
<td><label>
<input onFocus="calendar()" name="WISH_FINISH_TIME_end" type="text" id="Calendar1" />
</label></td>
</tr>
<tr>
<td height="42">资讯主办:</td>
<td><label>
<input name="IT_UNDERTAKER" type="text" size="30" />
</label></td>
<td>需求状态:</td>
<td><label>
<select name="PHASE" >
<option selected="selected">请选择</option>
<option value="提单审核">提单审核</option>
<option value="效益评估">效益评估</option>
<option value＝"需求确认">需求确认</option>
<option value="系统分析">系统分析</option>
<option value="系统开发">系统开发</option>
<option value="系统测试">系统测试</option>
<option value="用户测试">用户测试</option>
<option value="达成目标">达成目标</option>
<option value="正式上线">正式上线</option>
</select>
</label></td>
</tr>
<tr>
<td height="41" colspan="4">查询条件选择
<label>
<input type="button" name="select1" value="查询" />
<input name="reset" type="button" onClick="show(); return false;" value="重置" />
</label></td>
</tr>
</table>
</tr>
</table>
<p> </p>
<tr><td colspan=4 width="600" height="10"><input name=flag type=hidden value=""> </td></tr>

<TABLE cellPadding=1 align="center" cellSpacing=1 align=center border=1 width="900" height="1" >
<%
response.write"<tr>"
response.write"<td width=100> 需求单位 </td>"
response.write"<td width=100> 主旨 </td>"
response.write"<td width=100> 资讯主办</td>"
response.write"<td width=100> 预估完成日期 </td>"
response.write"<td width=100> 需求确认日期</td>"
response.write"<td width=100> 分析完成日期 </td>"
response.write"<td width=100> 开发完成日期 </td>"
response.write"<td width=100> 测试完成日期</td>"
response.write"<td width=100> 正式上线</td></tr>"
dim MAJOR_IDEA,APPLY_TIME_start,APPLY_TIME_end,WISH_FINISH_TIME_start,WISH_FINISH_TIME_end,IT_UNDERTAKER,PHASE
MAJOR_IDEA=Trim(request.form("MAJOR_IDEA"))
APPLY_TIME_start=Trim(request.form("APPLY_TIME_start"))
APPLY_TIME_end=Trim(request.form("APPLY_TIME_end"))
WISH_FINISH_TIME_start=Trim(request.form("WISH_FINISH_TIME_start"))
WISH_FINISH_TIME_end=Trim(request.form("WISH_FINISH_TIME_end"))
IT_UNDERTAKER=Trim(request.form("IT_UNDERTAKER"))
PHASE=Trim(request.form("PHASE"))
Dim Rs,Sql
Set Rs = server.CreateObject("Adodb.Recordset")
if request("flag")="Q" then
sql="select APPLY_DEPARTMENT,MAJOR_IDEA,IT_UNDERTAKER,TOTESTTIME,RequireDate,TOTESTTIME,AnalysDate,CodeDate,TestDate,FINISH_TIME from songzw.REQUIRE_BILL where 1=1"
if len(MAJOR_IDEA)>0 then
sql=sql &" and MAJOR_IDEA like '%"& MAJOR_IDEA &"%'"
end if
if len(APPLY_TIME_start)>1 then
sql=sql &" and APPLY_TIME >='"& APPLY_TIME_start &"'"
end if
if len(APPLY_TIME_end)>1 then
sql=sql&" and APPLY_TIME <='"& APPLY_TIME_end &"'"
end if
if len( WISH_FINISH_TIME_start)>1 then
sql=sql&" and WISH_FINISH_TIME >='"& WISH_FINISH_TIME_start &"'"
end if
if len(WISH_FINISH_TIME_end)>1 then
sql=sql&" and APPLY_TIME <='"& WISH_FINISH_TIME_end &"'"
end if
if len(IT_UNDERTAKER)>1 then
sql=sql&" and IT_UNDERTAKE = '"& IT_UNDERTAKE &"'"
end if
if len(PHASE)>3 then
sql=sql&" and PHASE='"& PHASE &"'"
end if
sql=sql & " order by APPLY_TIME desc"
Rs.open SQL,CONN,1,1
if Not rs.Eof then
Rs.MoveFirst
else
response.Write("需求单不存在")
end if

Do while Not rs.Eof
nAPPLY_DEPARTMENT=trim(rs.fields("APPLY_DEPARTMENT"))
nMAJOR_IDEA=trim(rs.fields("MAJOR_IDEA"))
nIT_UNDERTAKER=trim(rs.fields("IT_UNDERTAKER"))
nTOTESTTIME=trim(rs.fields("TOTESTTIME"))
nRequireDate=trim(rs.fields("RequireDate"))
nAnalysDate=trim(rs.fields("AnalysDate"))
nCodeDate=trim(rs.fields("CodeDate"))
nTestDate=trim(rs.fields("TestDate"))
nFINISH_TIME=trim(rs.fields("FINISH_TIME"))

response.write"<tr>"
response.write"<td width=100>" & nAPPLY_DEPARTMENT & "</td>"
response.write"<td width=100>" & nMAJOR_IDEA & "</td>"
response.write"<td width=100>" & nIT_UNDERTAKER & "</td>"
response.write"<td width=100>" & nTOTESTTIME & "</td>"
response.write"<td width=100>" & nRequireDate & "</td>"
response.write"<td width=100>" & nAnalysDate & "</td>"
response.write"<td width=100>" & nCodeDate & "</td>"
response.write"<td width=100>" & nTestDate & "</td>"
response.write"<td width=100>" & nFINISH_TIME & "</td></tr>"
Rs.MoveNext
Loop
end if
%>

</table>
</form>
</body>
</html>

学习ASP中.....难啊......