推薦：解決ASP Recordset 分頁出現(xiàn)負(fù)數(shù)
對(duì)于Recordset分頁時(shí)出現(xiàn)負(fù)數(shù)的現(xiàn)象，相信會(huì)有很多人遇到過這個(gè)問題，有時(shí)百度、GOOGLE也不得其解，現(xiàn)在由我來總結(jié)一下。 出現(xiàn)負(fù)數(shù)，主要和游標(biāo)類型有關(guān)系。（ 為舉例方便，假設(shè)已經(jīng)有一個(gè)conn.asp鏈接數(shù)據(jù)庫的文件并且已經(jīng)include ）現(xiàn)在舉一個(gè)例子，代碼如

sdcms在線提交的程序

代碼如下

<!--#include file="inc/conn.asp" -->

<link href="style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.STYLE1 {color: #FF0000}
body,td,th {
 font-size: 12px;
}
-->
</style>

<script language=javascript>  
  function   isfull()  
  {  
      var   title   =   document.myform.title.value;  
      var   content   =   document.myform.content.value;  
   var   classid   =   document.myform.classid.value;
   var   author   =   document.myform.author.value;
   var   code   =   document.myform.code.value;
      if(title   ==   "")  
      {  
          alert("標(biāo)題呢?");  
          document.myform.title.focus();  
          return   false;  
      } 
  
         if(content   ==   "")  
      {  
          alert("多少寫點(diǎn)內(nèi)容吧");  
          document.myform.content.focus();  
          return   false;  
      }
  
         if(classid   ==   "")  
      {  
          alert("選分類哦...");  
          document.myform.classid.focus();  
    return   false;
      }
  
            if(author   ==   "")  
      {  
          alert("留下您的大名吧");  
          document.myform.author.focus();  
    return   false;
      }
  
               if(code   ==   "")  
      {  
          alert("唉,不要忘記帶驗(yàn)證馬來");  
          document.myform.code.focus();  
    return   false;
      }
  
  
      if(classid   ==   "")  
      {  
          alert("選分類哦...");  
          document.myform.classid.focus();  
      }  
      return   true;  
  }  
  </script>

<title>在線提交笑話</title>
</head>
<table width="777" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td width="567" valign="top">
      <table width="100%" border="0" cellspacing="0">
        <tr>
          <td><a href="http://joke.yingzi001.cn">回首頁</a>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
              <form action="add.asp?action=add" method="post" name="myform" id="myform" onSubmit="return   isfull();">  
    <tr>
                  <td align="center">
      <%if request("action")=""then%>
                    <table width="100%" border="0" cellpadding="5" cellspacing="0">
                      <tr>
                        <td width="20%" align="right">標(biāo)題</td>
                        <td width="80%">
                          <input name="title" type="text" id="wp" size="35">
                          * 30個(gè)字為宜^-^</td>
                      </tr>
                      <tr>
                        <td width="20%" align="right">內(nèi)容 </td>
                        <td>
                        <textarea name="content" cols="60" rows="10" id="content"></textarea></td>
                      </tr>
       <tr>
                        <td width="20%" align="right">類別</td>
                        <td>
                          <input name="classid" type="text" id="classid" size="3" readonly="readonly"  >
                          <%
   set rs_s=server.createobject("adodb.recordset")
   rs_s.open "select * from sd_class order by id ",conn,1,1
   %>
                        <select name="select2" onChange="(document.myform.classid.value=this.options[this.selectedIndex].value)"><option selected>請(qǐng)選擇類別
                <%
   while not rs_s.eof
   %>
                <option value="<%=rs_s("id")%>"><%=rs_s("title")%></option>
                <%
   rs_s.movenext
   wend
   rs_s.close
   set rs_s=nothing
   %>
              </select>
                        * 分類自動(dòng)對(duì)應(yīng)序號(hào)</td>
                      </tr>
                    </table>
                    <table width="100%" border="0" cellpadding="5" cellspacing="1">
                                                            <tr>
                        <td width="20%" align="right" bgcolor="#FFFFFF">作者</td>
                        <td width="80%" bgcolor="#FFFFFF"><input type="author" name="author"/>
                        - 您的筆名或者網(wǎng)址都可以</td>
                      </tr>
                                        <tr>
                        <td width="20%" align="right" bgcolor="#FFFFFF">驗(yàn)證碼</td>
                        <td><input name='code' type='text' size='6' maxlength="4"> 
  <img src="getcode.asp" alt= "看不清?點(diǎn)擊換一頭" style="cursor:pointer;height:20px;" onclick="this.src='getcode.asp'"></td>
                      </tr>
                    <tr>
                        <td width="20%" bgcolor="#FFFFFF">&nbsp;</td>
                        <td width="80%" bgcolor="#FFFFFF"><input type="submit" name="Submit2" value="提交我的笑話" /></td>
                      </tr>
                    </table>
     <%end if%>
      </td>
                </tr>
    </form>
              </table>
          </td>
   
        </tr>
      </table></td>
  </tr>
</table>
</body>
</html>

<%
if request("action")="add" then
If IsEmpty(Session("GetCode")) Or Session("GetCode") <> UCase(Request.Form("code")) Then
    response.write "<script>window.alert('驗(yàn)證馬呢?吃草去了？本站規(guī)定,沒有馬是不得提交滴...');</script>"
    response.write "<script>location.href='add.asp'</script>"
    Response.End
Else
dim title,content,author,classid
title=Trim(request.Form("title"))
content=Trim(request.Form("content"))
author=Trim(request.Form("author"))
classid=Trim(request.Form("classid"))
set rs=server.createobject("adodb.recordset")

sql="select * from sd_info"
rs.open sql,conn,1,3
  rs.addnew
  call SaveData_dlinfo()
  rs.update
  rs.close
  set rs=nothing

call CloseConn()
response.write"<script>alert('OK!感謝您的關(guān)注！審核后即可顯示！')</script>"
response.Redirect "add.asp"

end if

sub savedata_dlinfo
rs("title")=title
rs("content")=content
rs("author")=author
rs("classid")=classid
rs("adddate")=now
end sub
end if
%>

分享：ASP實(shí)例教程：FileSystemObject對(duì)象
FileSystemObject 對(duì)象 指定的文件存在嗎？ 本例演示如何首先創(chuàng)建FileSystemObject對(duì)象，然后使用FileExists方法來探測某文件是否存在。 本示例代碼如下： 以下為引用的內(nèi)容： html body % Set fs=Server.CreateObject(Scripting.FileSystemObject) If (fs.F