关于DW+ACCESS中获取数据的问题。高手帮帮我。
这个是记录集代码<%DimProductsDimProducts_numRowsSetProducts=Server.CreateObject("ADODB.Record...
这个是记录集代码
<%
Dim Products
Dim Products_numRows
Set Products = Server.CreateObject("ADODB.Recordset")
Products.ActiveConnection = MM_yek2_STRING
Products.Source = "SELECT * FROM products ORDER BY IEDM DESC"
Products.CursorType = 0
Products.CursorLocation = 2
Products.LockType = 1
Products.Open()
Products_numRows = 0
%>
这个是获取数据的代码
<%=(Products.Fields.Item("proname").Value)%>
如果我要获取这个数据的下一条或者上一条数据。怎么搞? 展开
<%
Dim Products
Dim Products_numRows
Set Products = Server.CreateObject("ADODB.Recordset")
Products.ActiveConnection = MM_yek2_STRING
Products.Source = "SELECT * FROM products ORDER BY IEDM DESC"
Products.CursorType = 0
Products.CursorLocation = 2
Products.LockType = 1
Products.Open()
Products_numRows = 0
%>
这个是获取数据的代码
<%=(Products.Fields.Item("proname").Value)%>
如果我要获取这个数据的下一条或者上一条数据。怎么搞? 展开
展开全部
首先定义一个参数UserName 获取某记录的用户名
下面简单看一下用Modify.asp修改evensky的分数 :)
<a href="Modify.asp?UserName=evensky">修改</a>
Modify.asp 代码
<%
Dim UserName
UserName=Trim(Request("UserName"))
'……省略Conn连接
Dim Rs,Sql
Set Rs=Server.CreateObject("adodb.recordset")
Sql="select * from [pub] where xm="&UserName
Rs.Open Sql,conn,1,3
if Not(Rs.eof or Rs.bof) then
Rs("fs")="新的分数" '这里可以用变量代替
Rs.update
else
Response.write"用户不存在"
end if
Set Rs=nothing
Conn.close
set Conn=nothing
%>
展开全部
你用的是什么语言呀,看起来很像是asp呢!
如果是的话,我认为你中奖了,因为我知道有视频讲解这个问题。
如果你给我100分我就给你视频下载地址,如何!
如果是的话,我认为你中奖了,因为我知道有视频讲解这个问题。
如果你给我100分我就给你视频下载地址,如何!
追问
。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Sorry,不用DW,不用ACCESS……
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询