我是新手，大家来帮帮我把

lwk_hlj 2001-12-26 04:52:34
<% @language=VBscript %>
<%
Option Explicit
Response.expires=0
%>
<!--METAATDATA nAME="Microsoft ActiveX Data Objects 2.6 Library"
TYPE ="TypeLib" UUID ="{000000205-0000-0010-8000-00AA006D2EA4}"-->
<Html><head><title>my example</title></head>
<body>
<%
const intPageSize =10
Dim intCur,intTotal,I
dim cn,rst,strConn,strSql
if Request.serverVariables("CONtENT-LENGTH")=0 then
intCur=1
else
intCur=Cint(Request.form("CurPage"))
select Case Request.form("Page")
case "首页"
intCUr=1
case "上一页"
intCur=IntCUr+1
case "下一页"
intCur=intCur-1
case "尾页"
intCur=Cint(Request.form("LastPage"))
end select
end if
strConn="Provider=Sqloledb.1;Persist Security Info=False;User ID=sa; Password=;Initial Catalog=hrrs; Data Source=hr4096"
set cn=Server.createObject("adodb.connection")
cn.open strconn
set rst=server.createobject("adodb.Recordset")
rst.cursorLocation=adUseClient
rst.cursortype=adopenstatic
rst.cahesize=intpagesize
strsql="select * from yghmc where bm is not null "
rst.open strsql,strconn,,,adcmdtext
rst.pagesize=intpagesize
if not rst.eof then
rst.absolutepage=intcur
end if
intTotal=rst.pagecount
%>
<p>
<B>共有人员:<%=Rst.recordcount %> 共<%=inttotal%>页 当前是<%=intcur %>页</b><p>
<form action="<%=request.servervariables("script_name")%>"Method="post">
<input type="hidden" name="curpage" value="<%=intCur%>">
<input type="hidden"name="LagePage"value="<%=inttotal%>">
<input type ="submit" Name="page"value="首页">  <%if intcur>1 then %>
<input type ="submit" name="page"value="上一页">  <%end if%>
<%if intCur=intTotal then %>
<input type="subMit" name="page" value="下一页">  <%end if %>
<%if intcur<>inttotal then %>
<input type="submit" name="page" value="尾页">
</form>
<%
I=0
response.write"<Table border cellspacing=1 cellpadding=7>"
do while not rst.eof and i< rst.pagesize
respose.write"<tr height=12><td width=20>" & rst.absoluteposition & "</td> " &_
"<td width =160>" & rst("bh") & " </td>" &_
"<td width=180>" & rst("xm") & "</td>" &_
"<td width=40>" & rst("xb") & "</td>(/tr>"
rst.movenext
I=I+1
loop
response.write"</table>"
rst.close
%>
</body></html>
********************************************
我将它copy到我的C:\inetpub\scripts下面，
可是不能打开数据库
我是新手



...全文
211 23 打赏 收藏 转发到动态 举报
写回复
用AI写文章
23 条回复
切换为时间正序
请发表友善的回复…
发表回复
lwk_hlj 2002-01-13
  • 打赏
  • 举报
 回复
不好意思啊，我有好几天没有来了啊，给分了啊，
julyclyde 2001-12-30
  • 打赏
  • 举报
 回复
是啊。

Request.serverVariables("CONtENT_LENGTH")读出来总是0
caovie 2001-12-30
  • 打赏
  • 举报
 回复
我都用ultradev4，搞分页这样的体力活很E，一行代码都不用写，也不会出这么多乱七八糟的错误！
neweb 2001-12-29
  • 打赏
  • 举报
 回复
楼上：request.servervariables("HTTP_CONTENT_LENGTH") 表示 Post 内容的长度，没有Post 时长度为 0 。
julyclyde 2001-12-29
  • 打赏
  • 举报
 回复
request的content-length好像不是这样读的吧？
request.servervariables("HTTP_CONTENT_LENGTH")，需要加HTTP_开头的

只有post方法才有这个属性
neweb 2001-12-28
  • 打赏
  • 举报
 回复
有两个可疑的地方：
1。if Request.serverVariables("CONtENT-LENGTH")=0 then 改为：if Request.serverVariables("CONtENT_LENGTH")=0 then
2。intCur=Cint(Request.form("script_name")) 改为：intCur=Cstr(Request.form("Page"))


Naola2001 2001-12-28
  • 打赏
  • 举报
 回复
9494
tttk 2001-12-28
  • 打赏
  • 举报
 回复
这么多朋友帮你，为什么不给分呢？多伤大家的积极性！
xyzoem 2001-12-28
  • 打赏
  • 举报
 回复
给300分都是新手？
neweb 2001-12-28
  • 打赏
  • 举报
 回复
看来不止一两个地方要改，你要把错误的行数给出来，不然查起来太吃力了。
lwk_hlj 2001-12-27
  • 打赏
  • 举报
 回复
<% @ language=VBscript %>
<%
Option Explicit
Response.expires=0
%>
<!--METAATDATA nAME="Microsoft ActiveX Data Objects 2.6 Library"
TYPE ="TypeLib" UUID ="{000000205-0000-0010-8000-00AA006D2EA4}"-->
<%
const intPageSize =10
Dim intCur,intTotal,I
Dim cn,rst,strConn,strSql
if Request.serverVariables("CONtENT-LENGTH")=0 then
intCur=1
else
intCur=Cint(Request.form("script_name"))
select Case Request.form("script_name")
case "首页"
intCUr=1
case "上一页"
intCur=IntCUr+1
case "下一页"
intCur=intCur-1
case "尾页"
intCur=Cint(Request.form("LastPage"))
end select
end if
strConn="Provider=SQLOLEDB.1;Password=wwwwww;Persist Security Info=True;User ID=cims;Initial Catalog=hrrs;Data Source=NTSERVER"
set cn=Server.createObject("adodb.connection")
cn.open strconn
set rst=server.createobject("adodb.Recordset")
rst.cursorLocation=3
rst.cursortype=3
rst.cachesize=intpagesize
strsql="select * from yghmc "
rst.open strsql,strconn,,,1

rst.pagesize=intpagesize
if not rst.eof then
rst.absolutepage=intcur
end if
intTotal=rst.pagecount
%>
<p>
<B>共有人员:<% = Rst.recordcount %>   共 <% = inttotal %> 页  当前是 <% = intcur %> 页</b><p>
<form action="<%=request.servervariables("script_name")%>"Method="post">
<input type="hidden" name="page" value="<%=intCur%>">
<input type="hidden"name="LagePage"value="<%=inttotal%>">
<input type ="submit" Name="page"value="首页">  
<% if intcur>1 then %>
<input type ="submit" name="page"value="上一页">  
<% end if %>
<% if intCur<>intTotal then %>
<input type="subMit" name="page" value="下一页">  
<%end if%>
<input type="submit" name="page" value="尾页">
</form>
<%
I=0
response.write"<Table border cellspacing=1 cellpadding=7>"
do while not rst.eof and i < rst.pagesize
response.write " <tr height=12><td width=20>" & rst.absoluteposition & "</td> " &_
"<td width =160>" & rst("bh") & "</td>" &_
"<td width =180>" & rst("xm") & "</td>" &_
"<td width =40>" & rst("xb") & "</td></tr>"
rst.movenext
I=I+1
loop
response.write"</table>"
rst.close
%>
lwk_hlj 2001-12-27
  • 打赏
  • 举报
 回复
我是新手，向大家学习了，这个错误我已经找到了，caovie(caovie)　neweb(永不言败）
只手对了一个方面，是我的变量没有声名
但是这段代码还是有错误，分页时点击没反应啊，大家给看看啊
caovie 2001-12-27
  • 打赏
  • 举报
 回复
<input type="submit" name="page" value="尾页">
<%
end if '少了这个
%>
</form>
<%
I=0
ssm1226 2001-12-27
  • 打赏
  • 举报
 回复
错误与数据库联接无关
jsidiot 2001-12-27
  • 打赏
  • 举报
 回复

strConn="Provider=Sqloledb.1;Persist Security Info=False;User ID=sa; Password=;Initial Catalog=hrrs; Data Source=hr4096"

为什么不用strconn="driver={sql server};uid=;pwd=;database=xxx;server=xxx;"
luojx 2001-12-27
  • 打赏
  • 举报
 回复
strConn="Provider=Sqloledb.1;Persist Security Info=False;User ID=sa; Password=;Initial Catalog=hrrs; Data Source=hr4096"

这句里不能有空格
lwk_hlj 2001-12-26
  • 打赏
  • 举报
 回复
我去掉了
可是说是set rst=server.createobject("adodb.Recordset")
有错误
neweb 2001-12-26
  • 打赏
  • 举报
 回复
<input type="subMit" name="page" value="下一页">  <%end if %>
<%if intcur<>inttotal then %> ----------------------->去掉这行
<input type="submit" name="page" value="尾页">
balloy 2001-12-26
  • 打赏
  • 举报
 回复
错误代码0x800A03F6的意思是： 缺少End
lwk_hlj 2001-12-26
  • 打赏
  • 举报
 回复
连接字符没问题的
加载更多回复（3）
大虾们都来帮我整整Matlab的Sfunction问题急-theta.m
大虾们都来帮我整整Matlab的Sfunction问题急-theta.m 在下是新手，遇到问题如下，请高手帮帮我
小白利用PHP+MYSQL+HTML做的期末小项目，实现后台与前端的连接，实现了增删改查功能，美化做的不好大家勿喷，还请多多指正
小白利用PHP+MYSQL+HTML做的期末小项目，做的不好大家勿喷，还请多多指正。 用的是以前模仿做的HTML淘宝网静态页面，接连上数据库加入图片和信息，实现后台与前端的连接，实现了增删改查功能美化做的不好还请大家勿喷。呜呜呜，做了很久也只能实现这样一个效果了，要是有大神希望帮帮我改改项目，静态页面的美化会做，但是连接上PHP数据库后出来的一个效果如何美化就不知道如何才能实现了，希望有大佬教教我，可以看看我的整体一个作品，至少基础功能都可以实现，里面还放了几张同学的照片哈哈哈，皮一下，看到了不要骂我宝贝……最后一个重中之重，如何美化界面还请大神指点啊哈哈哈哈…………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………
用virtualbox创建linux出现不能为虚拟机创建新任务，新手小白求大佬指教
在百度查阅了很多篇文章总是出现错误，有的让下软件，有的让查日志，有的让调网络，各种各样五花八门，却没有一点点用，非常花里胡哨，帮助我在2020年整好这个问题必有重谢，我女友非得让我整这个，之后给他朋友装逼，大佬们帮帮我吧，否则3月14号晚上我就要跪搓衣板了。
我是新手希望大家帮帮我
我新开了博客，希望大家能多多指教
我是个新手
大家好啊？我是刚想学网络的 我还没碰过关于网络的设备 今天无意中看到这个论坛我就注册了一个 想给以后的学习带来更好的帮助 希望大家能帮帮我 ！！1 转载于:https://blog.51cto.com/nmhua/115944...
ASP

28,406

社区成员

356,946

社区内容

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

加载中

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

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

+ 用AI写文章