Response.Write ("</td>" & vbcrlf) Response.Write(" <form name=""gopage"" action=""" & SW_strFormAction & """ method=""post"">" & vbcrlf) Response.Write(" <td> ") Response.Write(" <input type=""text"" name=""pageno"" size=""3"" maxlength=10 title=""Please input pageno then enter""> " & vbcrlf) Response.Write("<input type=""submit"" value=""GO""></td></form></tr>" & vbcrlf) ' Case SW_intShowImage Case Else Response.Write("<br>对不起,你设置的显示方式SWPage不支持。") Response.End End Select End If Response.Write(" </table>" & vbcrlf) Response.Write(" </td>" & vbcrlf) Response.Write(" </tr>" & vbcrlf) Response.Write("</table>" & vbcrlf) End Sub
'***************************************** ' 类型: 过程 ' 目的: 显示分页数据 ' 输入: 无 ' 返回: 无 '***************************************** Sub Show() Dim i,j
If Not(SW_blnInit) Then Call ShowError()
j = 0 If SW_objRS.Eof And SW_objRS.Bof Then Response.Write("库中无任何记录<br>") Response.End Else If SW_intShowPagePos = SW_intPageInAll Or SW_intShowPagePos = SW_intPageInTop Then Call Pages()