推薦：解決ASP Recordset 分頁出現負數對於Recordset分頁時出現負數的現象，相信會有很多人遇到過這個問題，有時百度、GOOGLE也不得其解，現在由我來總結一下。 出現負數，主要和游標類型有關係。 （ 為舉例方便，假設已經有一個conn.asp鏈接數據庫的文件並且已經include ）現在舉一個例子，代碼如
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(標題呢?);
document.myform.title.focus();
return false;
}
if(content == )
{
alert(多少寫點內容吧);
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(唉,不要忘記帶驗證馬來);
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>標題</td>
<td width=80%>
<input name=title type=text id=wp size=35>
* 30個字為宜^-^</td>
</tr>
<tr>
<td width=20% align=right>內容</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>請選擇類別
<%
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>
* 分類自動對應序號</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/>
- 您的筆名或者網址都可以</td>
</tr>
<tr>
<td width=20% align=right bgcolor=#FFFFFF>驗證碼</td>
<td><input name='code' type='text' size='6' maxlength=4>
<img src=getcode.asp alt= 看不清?點擊換一頭style=cursor:pointer;height:20px; onclick=this.src='getcode.asp'></td>
</tr>
<tr>
<td width=20% bgcolor=#FFFFFF> </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('驗證馬呢?吃草去了？本站規定,沒有馬是不得提交滴...');</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!感謝您的關注！審核後即可顯示！')</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實例教程：FileSystemObject對象FileSystemObject 對象指定的文件存在嗎？ 本例演示如何首先創建FileSystemObject對象，然後使用FileExists方法來探測某文件是否存在。 本示例代碼如下： 以下為引用的內容： html body % Set fs=Server.CreateObject(Scripting.FileSystemObject) If (fs.F